all: merge NaCl branch (part 1)

src/pkg/syscall/mksyscall.pl

 #!/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.
 
 # This program reads a file containing function prototypes
 # (like syscall_darwin.go) and generates system call bodies.
 # The prototypes are marked by lines beginning with "//sys"
 # and read like func declarations if //sys is replaced by func, but:
 #       * The parameter lists must give a name for each argument.
@@ skipping 10 matching lines @@
 
 use strict;
 
 my $cmdline = "mksyscall.pl " . join(' ', @ARGV);
 my $errors = 0;
 my $_32bit = "";
 my $plan9 = 0;
 my $openbsd = 0;
 my $netbsd = 0;
 my $dragonfly = 0;
+my $nacl = 0;
 my $arm = 0; # 64-bit value should use (even, odd)-pair
 
 if($ARGV[0] eq "-b32") {
         $_32bit = "big-endian";
         shift;
 } elsif($ARGV[0] eq "-l32") {
         $_32bit = "little-endian";
         shift;
 }
 if($ARGV[0] eq "-plan9") {
         $plan9 = 1;
         shift;
 }
 if($ARGV[0] eq "-openbsd") {
         $openbsd = 1;
         shift;
 }
 if($ARGV[0] eq "-netbsd") {
         $netbsd = 1;
         shift;
 }
 if($ARGV[0] eq "-dragonfly") {
         $dragonfly = 1;
+        shift;
+}
+if($ARGV[0] eq "-nacl") {
+        $nacl = 1;
         shift;
 }
 if($ARGV[0] eq "-arm") {
         $arm = 1;
         shift;
 }
 
 if($ARGV[0] =~ /^-/) {
         print STDERR "usage: mksyscall.pl [-b32 | -l32] [file ...]\n";
         exit 1;
@@ skipping 24 matching lines @@
         chomp;
         s/\s+/ /g;
         s/^\s+//;
         s/\s+$//;
         my $nonblock = /^\/\/sysnb /;
         next if !/^\/\/sys / && !$nonblock;
 
         # Line must be of the form
         #       func Open(path string, mode int, perm int) (fd int, errno error)
         # Split into name, in params, out params.
-        if(!/^\/\/sys(nb)? (\w+)\(([^()]*)\)\s*(?:\(([^()]+)\))?\s*(?:=\s*(SYS_[A-Z0-9_]+))?$/) {
+        if(!/^\/\/sys(nb)? (\w+)\(([^()]*)\)\s*(?:\(([^()]+)\))?\s*(?:=\s*((?i)SYS_[A-Z0-9_]+))?$/) {
                 print STDERR "$ARGV:$.: malformed //sys declaration\n";
                 $errors = 1;
                 next;
         }
         my ($func, $in, $out, $sysname) = ($2, $3, $4, $5);
 
         # Split argument lists on comma.
         my @in = parseparamlist($in);
         my @out = parseparamlist($out);
 
@@ skipping 103 matching lines @@
                 }
         } else {
                 print STDERR "$ARGV:$.: too many arguments to system call\n";
         }
 
         # System call number.
         if($sysname eq "") {
                 $sysname = "SYS_$func";
                 $sysname =~ s/([a-z])([A-Z])/${1}_$2/g; # turn FooBar into Foo_Bar
                 $sysname =~ y/a-z/A-Z/;
+                if($nacl) {
+                        $sysname =~ y/A-Z/a-z/;
+                }
         }
 
         # Actual call.
         my $args = join(', ', @args);
         my $call = "$asm($sysname, $args)";
 
         # Assign return values.
         my $body = "";
         my @ret = ("_", "_", "_");
         my $do_errno = 0;
@@ skipping 64 matching lines @@
 // $cmdline
 // MACHINE GENERATED BY THE COMMAND ABOVE; DO NOT EDIT
 
 package syscall
 
 import "unsafe"
 
 $text
 EOF
 exit 0;