1;; Copyright (c) 1993, 1994, 1995 Rick Sladkey <jrs@world.std.com>
2;; All rights reserved.
3;;
4;; Redistribution and use in source and binary forms, with or without
5;; modification, are permitted provided that the following conditions
6;; are met:
7;; 1. Redistributions of source code must retain the above copyright
8;;    notice, this list of conditions and the following disclaimer.
9;; 2. Redistributions in binary form must reproduce the above copyright
10;;    notice, this list of conditions and the following disclaimer in the
11;;    documentation and/or other materials provided with the distribution.
12;; 3. The name of the author may not be used to endorse or promote products
13;;    derived from this software without specific prior written permission.
14;;
15;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
16;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
17;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
18;; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
19;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
20;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
21;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
22;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
24;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25
26;; Description: Automate the construction of strace xlat tables.
27
28;; Usage: Put point and mark around a set of definitions in a header
29;; file.  Then grab them with C-c G.  Switch to the strace source file
30;; and build the xlat table with C-c B.  Then type the name of the table.
31
32(global-set-key "\C-cG" 'grab-xlate)
33(global-set-key "\C-cB" 'build-xlate)
34
35(defvar xlate-list nil
36  "See grab-xlate and build-xlate.")
37
38(defun grab-xlate (beg end)
39  "Grab all of the defined names in the region and save them in xlate-list."
40  (interactive "r")
41  (save-excursion
42    (setq xlate-list nil)
43    (goto-char beg)
44    (beginning-of-line)
45    (while (< (point) end)
46      (and (looking-at "^#[ \t]*define[ \t]+\\([A-Za-z0-9_]+\\)[ \t]+")
47	   (setq xlate-list (cons (buffer-substring (match-beginning 1)
48						    (match-end 1))
49				  xlate-list)))
50      (forward-line)))
51  (and (fboundp 'deactivate-mark)
52       (deactivate-mark))
53  (setq xlate-list (nreverse xlate-list)))
54
55(defun build-xlate (&optional list)
56  "Build and insert an strace xlat table based on the last grab."
57  (interactive)
58  (or list
59      (setq list xlate-list))
60  (beginning-of-line)
61  (save-excursion
62    (insert "static struct xlat ?[] = {\n")
63    (while list
64      (insert "\t{ " (car list) ",\n")
65      (backward-char)
66      (move-to-column 24 'force)
67      (end-of-line)
68      (insert "\"" (car list) "\"")
69      (move-to-column 40 'force)
70      (end-of-line)
71      (insert "},")
72      (forward-line)
73      (setq list (cdr list)))
74    (insert "	{ 0,		NULL		},\n")
75    (insert "};\n")
76    (insert "\n"))
77  (search-forward "?")
78  (delete-backward-char 1))
79