From 3e97bf63fc169369de7bef74ae9878d4c4110229 Mon Sep 17 00:00:00 2001 From: Eugene Syromyatnikov Date: Tue, 13 Feb 2018 22:00:46 +0100 Subject: [PATCH] Remove old and unused maintenance scripts Firewell, last witnesses of bygone era. * linux/sparc/gen.pl: Remove. * linux/x86_64/gentab.pl: Likewise. * xlate.el: Likewise. * Makefile.am (EXTRA_DIST): Remove them. Suggested-by: Elvira Khabirova Co-Authored-by: Dmitry V. Levin --- Makefile.am | 3 -- linux/sparc/gen.pl | 37 -------------------- linux/x86_64/gentab.pl | 73 --------------------------------------- xlate.el | 78 ------------------------------------------ 4 files changed, 191 deletions(-) delete mode 100644 linux/sparc/gen.pl delete mode 100644 linux/x86_64/gentab.pl delete mode 100644 xlate.el diff --git a/Makefile.am b/Makefile.am index 7fa3891e..cd0bda20 100644 --- a/Makefile.am +++ b/Makefile.am @@ -764,7 +764,6 @@ EXTRA_DIST = \ linux/sparc/arch_rt_sigframe.c \ linux/sparc/arch_sigreturn.c \ linux/sparc/errnoent.h \ - linux/sparc/gen.pl \ linux/sparc/get_error.c \ linux/sparc/get_scno.c \ linux/sparc/get_syscall_args.c \ @@ -854,7 +853,6 @@ EXTRA_DIST = \ linux/x86_64/arch_sigreturn.c \ linux/x86_64/errnoent1.h \ linux/x86_64/errnoent2.h \ - linux/x86_64/gentab.pl \ linux/x86_64/get_error.c \ linux/x86_64/get_scno.c \ linux/x86_64/get_syscall_args.c \ @@ -899,7 +897,6 @@ EXTRA_DIST = \ $(XLAT_INPUT_FILES) \ $(XLAT_HEADER_FILES) \ xlat/gen.sh \ - xlate.el \ # end of EXTRA_DIST .PHONY: check-valgrind-local diff --git a/linux/sparc/gen.pl b/linux/sparc/gen.pl deleted file mode 100644 index 8c2f75b9..00000000 --- a/linux/sparc/gen.pl +++ /dev/null @@ -1,37 +0,0 @@ -open SPARC, "syscallent.h" || die "no puedo abrir el de la sparc"; -open ALPHA, "../alpha/syscallent.h" || die "no puedo abrir el de la alpha"; -open PC, "../i386/syscallent.h" || die "no puedo abrir PC\n"; - -while () { - chop; - ($i1, $i2, $i3, $syscall, $syscall_name) = split; - $strn[$index] = $syscall_name; - $name[$index++] = $syscall; -} - -while (){ - if (/\{/) { - ($i1, $n, $pr, $syscall) = split; - $par{$syscall} = $n; - $prr{$syscall} = $pr; - } -} - -while (){ - if (/\{/) { - ($i1, $n, $pr, $syscall) = split; - $par{$syscall} = $n; - $prr{$syscall} = $pr; - } -} - -print "missing \n"; - -for ($i = 0; $i < $index; $i++){ - $x = $name[$i]; - $y = $strn[$i]; - $n = $par{$x}; - $p = $prr{$x}; - $j++; - print "\t{ $n\t$p\t$x\t$y },\t /* $j */\n"; -} diff --git a/linux/x86_64/gentab.pl b/linux/x86_64/gentab.pl deleted file mode 100644 index 52f7aa95..00000000 --- a/linux/x86_64/gentab.pl +++ /dev/null @@ -1,73 +0,0 @@ -#!/usr/bin/perl -w -#generate syscall table from a template file (usually the master i386 syscall -#ent.h) and the x86_64 unistd.h -%conv = ( - "exit" => "_exit", -); - -%known = ( - "mmap" => "sys_mmap", - "sched_yield" => "printargs", -); - -# only used when the template file has no entry -%args = ( - "arch_prctl" => 2, - "tkill" => 2, - "gettid" => 0, - "readahead" => 3, - # should decode all these: - "setxattr" => 5, - "lsetxattr" => 5, - "fsetxattr" => 5, - "getxattr" => 4, - "lgetxattr" => 4, - "fgetxattr" => 4, - "listxattr" => 3, - "llistxattr" => 3, - "flistxattr" => 3, - "removexattr" => 2, - "lremovexattr" => 2, - "fremovexattr" => 2, - "mmap" => 6, - "sched_yield" => 0, -); - -open(F,$ARGV[0]) || die "cannot open template file $ARGV[0]\n"; - -while () { - next unless /{/; - s/\/\*.*\*\///; - ($name) = /"([^"]+)"/; - chomp; - $call{$name} = $_; -} - -open(SL, ">syscallnum.h") || die "cannot create syscallnum.h\n"; - -open(S,$ARGV[1]) || die "cannot open syscall file $ARGV[1]\n"; -while () { - $name = ""; - next unless (($name, $num) = /define\s+__NR_(\S+)\s+(\d+)/); - next if $name eq ""; - - $name = $conv{$name} if defined($conv{$name}); - - if (!defined($call{$name})) { - unless (defined($args{$name})) { - print STDERR "unknown call $name $num\n"; - $na = 3; - } else { - $na = $args{$name}; - } - if (defined($known{$name})) { - $func = $known{$name}; - } else { - $func = "printargs"; - } - print "\t{ $na,\t0,\t$func,\t\"$name\" }, /* $num */\n"; - } else { - print "$call{$name} /* $num */\n"; - } - print SL "#define SYS_$name $num\n" -} diff --git a/xlate.el b/xlate.el deleted file mode 100644 index d1645e7e..00000000 --- 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)) -- 2.40.0