LEFT | RIGHT |
(Both sides are equal) |
1 #!/usr/bin/env perl | 1 #!/usr/bin/env perl |
2 | 2 |
3 # Copyright 2011 The Go Authors. All rights reserved. | 3 # Copyright 2011 The Go Authors. All rights reserved. |
4 # Use of this source code is governed by a BSD-style | 4 # Use of this source code is governed by a BSD-style |
5 # license that can be found in the LICENSE file. | 5 # license that can be found in the LICENSE file. |
6 | 6 |
7 # | 7 # |
8 # Parse the header files for OpenBSD and generate a Go usable sysctl MIB. | 8 # Parse the header files for OpenBSD and generate a Go usable sysctl MIB. |
9 # | 9 # |
10 # Build a MIB with each entry being an array containing the level, type and | 10 # Build a MIB with each entry being an array containing the level, type and |
(...skipping 237 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
248 EOF | 248 EOF |
249 | 249 |
250 foreach my $name (sort keys %sysctl) { | 250 foreach my $name (sort keys %sysctl) { |
251 my @oid = @{$sysctl{$name}}; | 251 my @oid = @{$sysctl{$name}}; |
252 print "\t{ \"$name\", []_C_int{ ", join(', ', @oid), " } }, \n"; | 252 print "\t{ \"$name\", []_C_int{ ", join(', ', @oid), " } }, \n"; |
253 } | 253 } |
254 | 254 |
255 print <<EOF; | 255 print <<EOF; |
256 } | 256 } |
257 EOF | 257 EOF |
LEFT | RIGHT |