strace/linux/x86_64/gentab.pl

#!/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"
}