]>
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_openbsd.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 | while(<>){ | |
30 | if(/^([0-9]+)\s+STD\s+(NOLOCK\s+)?({ \S+\s+\*?(\w+).*)$/){ | |
31 | my $num = $1; | |
32 | my $proto = $3; | |
33 | my $name = $4; | |
34 | $name =~ y/a-z/A-Z/; | |
35 | ||
36 | # There are multiple entries for enosys and nosys, so comment them out. | |
37 | if($name =~ /^SYS_E?NOSYS$/){ | |
38 | $name = "// $name"; | |
39 | } | |
40 | if($name eq 'SYS_SYS_EXIT'){ | |
41 | $name = 'SYS_EXIT'; | |
42 | } | |
43 | ||
44 | print " $name = $num; // $proto\n"; | |
45 | } | |
46 | } | |
47 | ||
48 | print <<EOF; | |
49 | ) | |
50 | EOF |