#!/usr/local/bin/perl
-open IN, "obj_mac.num";
+use strict;
+
+my %xref_tbl;
+my %oid_tbl;
+
+my ($mac_file, $xref_file) = @ARGV;
+
+open(IN, $mac_file) || die "Can't open $mac_file";
# Read in OID nid values for a lookup table.
}
close IN;
-open IN, "obj_xref.txt";
+open(IN, $xref_file) || die "Can't open $xref_file";
my $ln = 1;
return $ap2 - $bp2;
} @xrkeys;
-
+
+my $pname = $0;
+
+$pname =~ s|^.[^/]/||;
print <<EOF;
+/* AUTOGENERATED BY $pname, DO NOT EDIT */
-typedef int nid_triple[3];
+typedef struct
+ {
+ int sign_id;
+ int hash_id;
+ int pkey_id;
+ } nid_triple;
static const nid_triple sigoid_srt[] =
{