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 <lineprinter@altlinux.org> Co-Authored-by: Dmitry V. Levin <ldv@altlinux.org>
This commit is contained in:
Eugene Syromyatnikov
parent
ae8c1d5cc7
commit
3e97bf63fc
@ -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
|
||||
|
||||
@ -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 (<SPARC>) {
|
||||
chop;
|
||||
($i1, $i2, $i3, $syscall, $syscall_name) = split;
|
||||
$strn[$index] = $syscall_name;
|
||||
$name[$index++] = $syscall;
|
||||
}
|
||||
|
||||
while (<ALPHA>){
|
||||
if (/\{/) {
|
||||
($i1, $n, $pr, $syscall) = split;
|
||||
$par{$syscall} = $n;
|
||||
$prr{$syscall} = $pr;
|
||||
}
|
||||
}
|
||||
|
||||
while (<PC>){
|
||||
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";
|
||||
}
|
||||
@ -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 (<F>) {
|
||||
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 (<S>) {
|
||||
$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"
|
||||
}
|
||||
78
xlate.el
78
xlate.el
@ -1,78 +0,0 @@
|
||||
;; Copyright (c) 1993, 1994, 1995 Rick Sladkey <jrs@world.std.com>
|
||||
;; 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))
|
||||
Loading…
Reference in New Issue
Block a user