...
Run Format

Text file src/syscall/mksysctl_openbsd.pl

Documentation: syscall

     1	#!/usr/bin/env perl
     2	
     3	# Copyright 2011 The Go Authors. All rights reserved.
     4	# Use of this source code is governed by a BSD-style
     5	# license that can be found in the LICENSE file.
     6	
     7	#
     8	# Parse the header files for OpenBSD and generate a Go usable sysctl MIB.
     9	#
    10	# Build a MIB with each entry being an array containing the level, type and
    11	# a hash that will contain additional entries if the current entry is a node.
    12	# We then walk this MIB and create a flattened sysctl name to OID hash.
    13	#
    14	
    15	use strict;
    16	
    17	my $debug = 0;
    18	my %ctls = ();
    19	
    20	my @headers = qw (
    21		sys/sysctl.h
    22		sys/socket.h
    23		sys/tty.h
    24		sys/malloc.h
    25		sys/mount.h
    26		sys/namei.h
    27		sys/sem.h
    28		sys/shm.h
    29		sys/vmmeter.h
    30		uvm/uvm_param.h
    31		uvm/uvm_swap_encrypt.h
    32		ddb/db_var.h
    33		net/if.h
    34		net/if_pfsync.h
    35		net/pipex.h
    36		netinet/in.h
    37		netinet/icmp_var.h
    38		netinet/igmp_var.h
    39		netinet/ip_ah.h
    40		netinet/ip_carp.h
    41		netinet/ip_divert.h
    42		netinet/ip_esp.h
    43		netinet/ip_ether.h
    44		netinet/ip_gre.h
    45		netinet/ip_ipcomp.h
    46		netinet/ip_ipip.h
    47		netinet/pim_var.h
    48		netinet/tcp_var.h
    49		netinet/udp_var.h
    50		netinet6/in6.h
    51		netinet6/ip6_divert.h
    52		netinet6/pim6_var.h
    53		netinet/icmp6.h
    54		netmpls/mpls.h
    55	);
    56	
    57	my @ctls = qw (
    58		kern
    59		vm
    60		fs
    61		net
    62		#debug				# Special handling required
    63		hw
    64		#machdep			# Arch specific
    65		user
    66		ddb
    67		#vfs				# Special handling required
    68		fs.posix
    69		kern.forkstat
    70		kern.intrcnt
    71		kern.malloc
    72		kern.nchstats
    73		kern.seminfo
    74		kern.shminfo
    75		kern.timecounter
    76		kern.tty
    77		kern.watchdog
    78		net.bpf
    79		net.ifq
    80		net.inet
    81		net.inet.ah
    82		net.inet.carp
    83		net.inet.divert
    84		net.inet.esp
    85		net.inet.etherip
    86		net.inet.gre
    87		net.inet.icmp
    88		net.inet.igmp
    89		net.inet.ip
    90		net.inet.ip.ifq
    91		net.inet.ipcomp
    92		net.inet.ipip
    93		net.inet.mobileip
    94		net.inet.pfsync
    95		net.inet.pim
    96		net.inet.tcp
    97		net.inet.udp
    98		net.inet6
    99		net.inet6.divert
   100		net.inet6.ip6
   101		net.inet6.icmp6
   102		net.inet6.pim6
   103		net.inet6.tcp6
   104		net.inet6.udp6
   105		net.mpls
   106		net.mpls.ifq
   107		net.key
   108		net.pflow
   109		net.pfsync
   110		net.pipex
   111		net.rt
   112		vm.swapencrypt
   113		#vfsgenctl			# Special handling required
   114	);
   115	
   116	# Node name "fixups"
   117	my %ctl_map = (
   118		"ipproto" => "net.inet",
   119		"net.inet.ipproto" => "net.inet",
   120		"net.inet6.ipv6proto" => "net.inet6",
   121		"net.inet6.ipv6" => "net.inet6.ip6",
   122		"net.inet.icmpv6" => "net.inet6.icmp6",
   123		"net.inet6.divert6" => "net.inet6.divert",
   124		"net.inet6.tcp6" => "net.inet.tcp",
   125		"net.inet6.udp6" => "net.inet.udp",
   126		"mpls" => "net.mpls",
   127		"swpenc" => "vm.swapencrypt"
   128	);
   129	
   130	# Node mappings
   131	my %node_map = (
   132		"net.inet.ip.ifq" => "net.ifq",
   133		"net.inet.pfsync" => "net.pfsync",
   134		"net.mpls.ifq" => "net.ifq"
   135	);
   136	
   137	my $ctlname;
   138	my %mib = ();
   139	my %sysctl = ();
   140	my $node;
   141	
   142	sub debug() {
   143		print STDERR "$_[0]\n" if $debug;
   144	}
   145	
   146	# Walk the MIB and build a sysctl name to OID mapping.
   147	sub build_sysctl() {
   148		my ($node, $name, $oid) = @_;
   149		my %node = %{$node};
   150		my @oid = @{$oid};
   151	
   152		foreach my $key (sort keys %node) {
   153			my @node = @{$node{$key}};
   154			my $nodename = $name.($name ne '' ? '.' : '').$key;
   155			my @nodeoid = (@oid, $node[0]);
   156			if ($node[1] eq 'CTLTYPE_NODE') {
   157				if (exists $node_map{$nodename}) {
   158					$node = \%mib;
   159					$ctlname = $node_map{$nodename};
   160					foreach my $part (split /\./, $ctlname) {
   161						$node = \%{@{$$node{$part}}[2]};
   162					}
   163				} else {
   164					$node = $node[2];
   165				}
   166				&build_sysctl($node, $nodename, \@nodeoid);
   167			} elsif ($node[1] ne '') {
   168				$sysctl{$nodename} = \@nodeoid;
   169			}
   170		}
   171	}
   172	
   173	foreach my $ctl (@ctls) {
   174		$ctls{$ctl} = $ctl;
   175	}
   176	
   177	# Build MIB
   178	foreach my $header (@headers) {
   179		&debug("Processing $header...");
   180		open HEADER, "/usr/include/$header" ||
   181		    print STDERR "Failed to open $header\n";
   182		while (<HEADER>) {
   183			if ($_ =~ /^#define\s+(CTL_NAMES)\s+{/ ||
   184			    $_ =~ /^#define\s+(CTL_(.*)_NAMES)\s+{/ ||
   185			    $_ =~ /^#define\s+((.*)CTL_NAMES)\s+{/) {
   186				if ($1 eq 'CTL_NAMES') {
   187					# Top level.
   188					$node = \%mib;
   189				} else {
   190					# Node.
   191					my $nodename = lc($2);
   192					if ($header =~ /^netinet\//) {
   193						$ctlname = "net.inet.$nodename";
   194					} elsif ($header =~ /^netinet6\//) {
   195						$ctlname = "net.inet6.$nodename";
   196					} elsif ($header =~ /^net\//) {
   197						$ctlname = "net.$nodename";
   198					} else {
   199						$ctlname = "$nodename";
   200						$ctlname =~ s/^(fs|net|kern)_/$1\./;
   201					}
   202					if (exists $ctl_map{$ctlname}) {
   203						$ctlname = $ctl_map{$ctlname};
   204					}
   205					if (not exists $ctls{$ctlname}) {
   206						&debug("Ignoring $ctlname...");
   207						next;
   208					}
   209	
   210					# Walk down from the top of the MIB.
   211					$node = \%mib;
   212					foreach my $part (split /\./, $ctlname) {
   213						if (not exists $$node{$part}) {
   214							&debug("Missing node $part");
   215							$$node{$part} = [ 0, '', {} ];
   216						}
   217						$node = \%{@{$$node{$part}}[2]};
   218					}
   219				}
   220	
   221				# Populate current node with entries.
   222				my $i = -1;
   223				while (defined($_) && $_ !~ /^}/) {
   224					$_ = <HEADER>;
   225					$i++ if $_ =~ /{.*}/;
   226					next if $_ !~ /{\s+"(\w+)",\s+(CTLTYPE_[A-Z]+)\s+}/;
   227					$$node{$1} = [ $i, $2, {} ];
   228				}
   229			}
   230		}
   231		close HEADER;
   232	}
   233	
   234	&build_sysctl(\%mib, "", []);
   235	
   236	print <<EOF;
   237	// mksysctl_openbsd.pl
   238	// MACHINE GENERATED BY THE ABOVE COMMAND; DO NOT EDIT
   239	
   240	package syscall;
   241	
   242	type mibentry struct {
   243		ctlname string
   244		ctloid []_C_int
   245	}
   246	
   247	var sysctlMib = []mibentry {
   248	EOF
   249	
   250	foreach my $name (sort keys %sysctl) {
   251		my @oid = @{$sysctl{$name}};
   252		print "\t{ \"$name\", []_C_int{ ", join(', ', @oid), " } }, \n";
   253	}
   254	
   255	print <<EOF;
   256	}
   257	EOF

View as plain text