generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add error checking to obj_xref.pl and add command line support for data

Browse Source 
file locations.
This commit is contained in:
Dr. Stephen Henson
2009-02-10 13:03:31 +00:00
parent ede6ef5e08
commit aaa29f9e83
3 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
crypto/objects/Makefile
View File

@@ -47,7 +47,7 @@ obj_mac.h: objects.pl objects.txt obj_mac.num
@sleep 1; touch obj_mac.h; sleep 1
obj_xref.h: objxref.pl obj_xref.txt obj_mac.num
$(PERL) objxref.pl > obj_xref.h
$(PERL) objxref.pl obj_mac.num obj_xref.txt > obj_xref.h
@sleep 1; touch obj_xref.h; sleep 1
files:

11
crypto/objects/objxref.pl
View File

@@ -1,6 +1,13 @@
#!/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.
@@ -12,7 +19,7 @@ while (<IN>)
}
close IN;
open IN, "obj_xref.txt";
open(IN, $xref_file) || die "Can't open $xref_file";
my $ln = 1;