1 #!/usr/local/bin/perl 2 3 use strict; 4 5 my %xref_tbl; 6 my %oid_tbl; 7 8 my ($mac_file, $xref_file) = @ARGV; 9 10 open(IN, $mac_file) || die "Can't open $mac_file"; 11 12 # Read in OID nid values for a lookup table. 13 14 while (<IN>) 15 { 16 chomp; 17 my ($name, $num) = /^(\S+)\s+(\S+)$/; 18 $oid_tbl{$name} = $num; 19 } 20 close IN; 21 22 open(IN, $xref_file) || die "Can't open $xref_file"; 23 24 my $ln = 1; 25 26 while (<IN>) 27 { 28 chomp; 29 s/#.*$//; 30 next if (/^\S*$/); 31 my ($xr, $p1, $p2) = /^(\S+)\s+(\S+)\s+(\S+)/; 32 check_oid($xr); 33 check_oid($p1); 34 check_oid($p2); 35 $xref_tbl{$xr} = [$p1, $p2, $ln]; 36 } 37 38 my @xrkeys = keys %xref_tbl; 39 40 my @srt1 = sort { $oid_tbl{$a} <=> $oid_tbl{$b}} @xrkeys; 41 42 for(my $i = 0; $i <= $#srt1; $i++) 43 { 44 $xref_tbl{$srt1[$i]}[2] = $i; 45 } 46 47 my @srt2 = sort 48 { 49 my$ap1 = $oid_tbl{$xref_tbl{$a}[0]}; 50 my$bp1 = $oid_tbl{$xref_tbl{$b}[0]}; 51 return $ap1 - $bp1 if ($ap1 != $bp1); 52 my$ap2 = $oid_tbl{$xref_tbl{$a}[1]}; 53 my$bp2 = $oid_tbl{$xref_tbl{$b}[1]}; 54 55 return $ap2 - $bp2; 56 } @xrkeys; 57 58 my $pname = $0; 59 60 $pname =~ s|^.[^/]/||; 61 62 print <<EOF; 63 /* AUTOGENERATED BY $pname, DO NOT EDIT */ 64 65 typedef struct 66 { 67 int sign_id; 68 int hash_id; 69 int pkey_id; 70 } nid_triple; 71 72 static const nid_triple sigoid_srt[] = 73 { 74 EOF 75 76 foreach (@srt1) 77 { 78 my $xr = $_; 79 my ($p1, $p2) = @{$xref_tbl{$_}}; 80 print "\t{NID_$xr, NID_$p1, NID_$p2},\n"; 81 } 82 83 print "\t};"; 84 print <<EOF; 85 86 87 static const nid_triple * const sigoid_srt_xref[] = 88 { 89 EOF 90 91 foreach (@srt2) 92 { 93 my $x = $xref_tbl{$_}[2]; 94 print "\t\&sigoid_srt\[$x\],\n"; 95 } 96 97 print "\t};\n\n"; 98 99 sub check_oid 100 { 101 my ($chk) = @_; 102 if (!exists $oid_tbl{$chk}) 103 { 104 die "Not Found \"$chk\"\n"; 105 } 106 } 107 108
