diff options
Diffstat (limited to 'linux/x86_64/gentab.pl')
| -rw-r--r-- | linux/x86_64/gentab.pl | 74 |
1 files changed, 37 insertions, 37 deletions
diff --git a/linux/x86_64/gentab.pl b/linux/x86_64/gentab.pl index 3251b43..4147880 100644 --- a/linux/x86_64/gentab.pl +++ b/linux/x86_64/gentab.pl @@ -3,12 +3,12 @@ #ent.h) and the x86_64 unistd.h %conv = ( "exit" => "_exit", -); +); %known = ( "mmap" => "sys_mmap", - "sched_yield" => "printargs", -); + "sched_yield" => "printargs", +); # only used when the template file has no entry %args = ( @@ -17,7 +17,7 @@ "gettid" => 0, "readahead" => 3, # should decode all these: - "setxattr" => 5, + "setxattr" => 5, "lsetxattr" => 5, "fsetxattr" => 5, "getxattr" => 4, @@ -30,48 +30,48 @@ "lremovexattr" => 2, "fremovexattr" => 2, "mmap" => 6, - "sched_yield" => 0, -); + "sched_yield" => 0, +); -open(F,$ARGV[0]) || die "cannot open template file $ARGV[0]\n"; +open(F,$ARGV[0]) || die "cannot open template file $ARGV[0]\n"; -while (<F>) { - next unless /{/; - s/\/\*.*\*\///; +while (<F>) { + next unless /{/; + s/\/\*.*\*\///; ($name) = /"([^"]+)"/; - chomp; - $call{$name} = $_; -} + chomp; + $call{$name} = $_; +} -open(SL, ">syscallnum.h") || die "cannot create syscallnum.h\n"; +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 ""; +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}); + $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"; - } + 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" -} +} |