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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.org
View File

@ -438,7 +438,7 @@ crypto/objects/obj_dat.h: crypto/objects/obj_dat.pl crypto/objects/obj_mac.h
crypto/objects/obj_mac.h: crypto/objects/objects.pl crypto/objects/objects.txt crypto/objects/obj_mac.num
$(PERL) crypto/objects/objects.pl crypto/objects/objects.txt crypto/objects/obj_mac.num crypto/objects/obj_mac.h
crypto/objects/obj_xref.h: crypto/objects/objxref.pl crypto/objects/obj_xref.txt crypto/objects/obj_mac.num
$(PERL) crypto/objects/objxref.pl > crypto/objects/obj_xref.h
$(PERL) crypto/objects/objxref.pl crypto/objects/obj_mac.num crypto/objects/obj_xref.txt >crypto/objects/obj_xref.h
apps/openssl-vms.cnf: apps/openssl.cnf
$(PERL) VMS/VMSify-conf.pl < apps/openssl.cnf > apps/openssl-vms.cnf

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;