[github/fretlink/terraform-provider-statuscake.git] / vendor / golang.org / x / sys / unix / mksysnum_freebsd.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.
#
# Generate system call table for FreeBSD from master list
# (for example, /usr/src/sys/kern/syscalls.master).

use strict;

if($ENV{'GOARCH'} eq "" || $ENV{'GOOS'} eq "") {
	print STDERR "GOARCH or GOOS not defined in environment\n";
	exit 1;
}

my $command = "mksysnum_freebsd.pl " . join(' ', @ARGV);

print <<EOF;
// $command
// Code generated by the command above; see README.md. DO NOT EDIT.

// +build $ENV{'GOARCH'},$ENV{'GOOS'}

package unix

const (
EOF

while(<>){
	if(/^([0-9]+)\s+\S+\s+(?:NO)?STD\s+({ \S+\s+(\w+).*)$/){
		my $num = $1;
		my $proto = $2;
		my $name = "SYS_$3";
		$name =~ y/a-z/A-Z/;

		# There are multiple entries for enosys and nosys, so comment them out.
		if($name =~ /^SYS_E?NOSYS$/){
			$name = "// $name";
		}
		if($name eq 'SYS_SYS_EXIT'){
			$name = 'SYS_EXIT';
		}

		print "	$name = $num;  // $proto\n";
	}
}

print <<EOF;
)
EOF
Commit	Line	Data
15c0b25d AP	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 FreeBSD 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_freebsd.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+\S+\s+(?:NO)?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