David K. Bainbridge | 215e024 | 2017-09-05 23:18:24 -0700 | [diff] [blame] | 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 DragonFly 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_dragonfly.pl " . join(' ', @ARGV); |
| 17 | |
| 18 | print <<EOF; |
| 19 | // $command |
| 20 | // Code generated by the command above; see README.md. 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+({ \S+\s+(\w+).*)$/){ |
| 31 | my $num = $1; |
| 32 | my $proto = $2; |
| 33 | my $name = "SYS_$3"; |
| 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 |