]>
Commit | Line | Data |
---|---|---|
9b12e4fe JC |
1 | #!/usr/bin/env perl |
2 | # Copyright 2009 The Go Authors. All rights reserved. | |
3 | # Use of this source code is governed by a BSD-style | |
4 | # license that can be found in the LICENSE file. | |
5 | # | |
6 | # Generate system call table for OpenBSD from master list | |
7 | # (for example, /usr/src/sys/kern/syscalls.master). | |
8 | ||
9 | use strict; | |
10 | ||
11 | if($ENV{'GOARCH'} eq "" || $ENV{'GOOS'} eq "") { | |
12 | print STDERR "GOARCH or GOOS not defined in environment\n"; | |
13 | exit 1; | |
14 | } | |
15 | ||
16 | my $command = "mksysnum_netbsd.pl " . join(' ', @ARGV); | |
17 | ||
18 | print <<EOF; | |
19 | // $command | |
20 | // MACHINE GENERATED BY THE ABOVE COMMAND; DO NOT EDIT | |
21 | ||
22 | // +build $ENV{'GOARCH'},$ENV{'GOOS'} | |
23 | ||
24 | package unix | |
25 | ||
26 | const ( | |
27 | EOF | |
28 | ||
29 | my $line = ''; | |
30 | while(<>){ | |
31 | if($line =~ /^(.*)\\$/) { | |
32 | # Handle continuation | |
33 | $line = $1; | |
34 | $_ =~ s/^\s+//; | |
35 | $line .= $_; | |
36 | } else { | |
37 | # New line | |
38 | $line = $_; | |
39 | } | |
40 | next if $line =~ /\\$/; | |
41 | if($line =~ /^([0-9]+)\s+((STD)|(NOERR))\s+(RUMP\s+)?({\s+\S+\s*\*?\s*\|(\S+)\|(\S*)\|(\w+).*\s+})(\s+(\S+))?$/) { | |
42 | my $num = $1; | |
43 | my $proto = $6; | |
44 | my $compat = $8; | |
45 | my $name = "$7_$9"; | |
46 | ||
47 | $name = "$7_$11" if $11 ne ''; | |
48 | $name =~ y/a-z/A-Z/; | |
49 | ||
50 | if($compat eq '' || $compat eq '30' || $compat eq '50') { | |
51 | print " $name = $num; // $proto\n"; | |
52 | } | |
53 | } | |
54 | } | |
55 | ||
56 | print <<EOF; | |
57 | ) | |
58 | EOF |