From c18737608ced60bee17a83c903d61dd5e80f7bef Mon Sep 17 00:00:00 2001 From: Elliott Hughes Date: Wed, 19 Dec 2018 15:13:36 -0800 Subject: Update strace to 4.25. Bug: N/A Test: adb shell strace date Change-Id: I8c5e68b5fc174b267be9c47ce49bca07a0e5707b --- xlate.el | 78 ---------------------------------------------------------------- 1 file changed, 78 deletions(-) delete mode 100644 xlate.el (limited to 'xlate.el') diff --git a/xlate.el b/xlate.el deleted file mode 100644 index d1645e7eb..000000000 --- a/xlate.el +++ /dev/null @@ -1,78 +0,0 @@ -;; Copyright (c) 1993, 1994, 1995 Rick Sladkey -;; All rights reserved. -;; -;; Redistribution and use in source and binary forms, with or without -;; modification, are permitted provided that the following conditions -;; are met: -;; 1. Redistributions of source code must retain the above copyright -;; notice, this list of conditions and the following disclaimer. -;; 2. Redistributions in binary form must reproduce the above copyright -;; notice, this list of conditions and the following disclaimer in the -;; documentation and/or other materials provided with the distribution. -;; 3. The name of the author may not be used to endorse or promote products -;; derived from this software without specific prior written permission. -;; -;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR -;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES -;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. -;; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, -;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT -;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -;; Description: Automate the construction of strace xlat tables. - -;; Usage: Put point and mark around a set of definitions in a header -;; file. Then grab them with C-c G. Switch to the strace source file -;; and build the xlat table with C-c B. Then type the name of the table. - -(global-set-key "\C-cG" 'grab-xlate) -(global-set-key "\C-cB" 'build-xlate) - -(defvar xlate-list nil - "See grab-xlate and build-xlate.") - -(defun grab-xlate (beg end) - "Grab all of the defined names in the region and save them in xlate-list." - (interactive "r") - (save-excursion - (setq xlate-list nil) - (goto-char beg) - (beginning-of-line) - (while (< (point) end) - (and (looking-at "^#[ \t]*define[ \t]+\\([A-Za-z0-9_]+\\)[ \t]+") - (setq xlate-list (cons (buffer-substring (match-beginning 1) - (match-end 1)) - xlate-list))) - (forward-line))) - (and (fboundp 'deactivate-mark) - (deactivate-mark)) - (setq xlate-list (nreverse xlate-list))) - -(defun build-xlate (&optional list) - "Build and insert an strace xlat table based on the last grab." - (interactive) - (or list - (setq list xlate-list)) - (beginning-of-line) - (save-excursion - (insert "static struct xlat ?[] = {\n") - (while list - (insert "\t{ " (car list) ",\n") - (backward-char) - (move-to-column 24 'force) - (end-of-line) - (insert "\"" (car list) "\"") - (move-to-column 40 'force) - (end-of-line) - (insert "},") - (forward-line) - (setq list (cdr list))) - (insert " { 0, NULL },\n") - (insert "};\n") - (insert "\n")) - (search-forward "?") - (delete-backward-char 1)) -- cgit v1.2.3