diff options
Diffstat (limited to 'src/syscall/mksysnum_linux.pl')
-rwxr-xr-x | src/syscall/mksysnum_linux.pl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/syscall/mksysnum_linux.pl b/src/syscall/mksysnum_linux.pl new file mode 100755 index 000000000..c7e5cf73a --- /dev/null +++ b/src/syscall/mksysnum_linux.pl @@ -0,0 +1,38 @@ +#!/usr/bin/env perl +# Copyright 2009 The Go Authors. All rights reserved. +# Use of this source code is governed by a BSD-style +# license that can be found in the LICENSE file. + +use strict; + +my $command = "mksysnum_linux.pl ". join(' ', @ARGV); + +print <<EOF; +// $command +// MACHINE GENERATED BY THE ABOVE COMMAND; DO NOT EDIT + +package syscall + +const( +EOF + +sub fmt { + my ($name, $num) = @_; + $name =~ y/a-z/A-Z/; + print " SYS_$name = $num;\n"; +} + +my $prev; +while(<>){ + if(/^#define __NR_(\w+)\s+([0-9]+)/){ + $prev = $2; + fmt($1, $2); + } + elsif(/^#define __NR_(\w+)\s+\(\w+\+\s*([0-9]+)\)/){ + fmt($1, $prev+$2) + } +} + +print <<EOF; +) +EOF |