1 ;; Copyright (c) 1993, 1994, 1995 Rick Sladkey <jrs@world.std.com>
2 ;; All rights reserved.
4 ;; Redistribution and use in source and binary forms, with or without
5 ;; modification, are permitted provided that the following conditions
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.
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.
26 ;; Description: Automate the construction of strace xlat tables.
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.
32 (global-set-key "\C-cG" 'grab-xlate)
33 (global-set-key "\C-cB" 'build-xlate)
35 (defvar xlate-list nil
36 "See grab-xlate and build-xlate.")
38 (defun grab-xlate (beg end)
39 "Grab all of the defined names in the region and save them in xlate-list."
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)
51 (and (fboundp 'deactivate-mark)
53 (setq xlate-list (nreverse xlate-list)))
55 (defun build-xlate (&optional list)
56 "Build and insert an strace xlat table based on the last grab."
59 (setq list xlate-list))
62 (insert "static struct xlat ?[] = {\n")
64 (insert "\t{ " (car list) ",\n")
66 (move-to-column 24 'force)
68 (insert "\"" (car list) "\"")
69 (move-to-column 40 'force)
73 (setq list (cdr list)))
74 (insert " { 0, NULL },\n")
78 (delete-backward-char 1))