| Matthias Andreas Benkard | 832a54e | 2019-01-29 09:27:38 +0100 | [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 Darwin from sys/syscall.h |
| 7 | |
| 8 | use strict; |
| 9 | |
| 10 | if($ENV{'GOARCH'} eq "" || $ENV{'GOOS'} eq "") { |
| 11 | print STDERR "GOARCH or GOOS not defined in environment\n"; |
| 12 | exit 1; |
| 13 | } |
| 14 | |
| 15 | my $command = "mksysnum_darwin.pl " . join(' ', @ARGV); |
| 16 | |
| 17 | print <<EOF; |
| 18 | // $command |
| 19 | // Code generated by the command above; see README.md. DO NOT EDIT. |
| 20 | |
| 21 | // +build $ENV{'GOARCH'},$ENV{'GOOS'} |
| 22 | |
| 23 | package unix |
| 24 | |
| 25 | const ( |
| 26 | EOF |
| 27 | |
| 28 | while(<>){ |
| 29 | if(/^#define\s+SYS_(\w+)\s+([0-9]+)/){ |
| 30 | my $name = $1; |
| 31 | my $num = $2; |
| 32 | $name =~ y/a-z/A-Z/; |
| 33 | print " SYS_$name = $num;" |
| 34 | } |
| 35 | } |
| 36 | |
| 37 | print <<EOF; |
| 38 | ) |
| 39 | EOF |