| Index: openssl/crypto/objects/objxref.pl
|
| diff --git a/openssl/crypto/objects/objxref.pl b/openssl/crypto/objects/objxref.pl
|
| deleted file mode 100644
|
| index 731d3ae22c2745928648f0602ba2732c292a9b7e..0000000000000000000000000000000000000000
|
| --- a/openssl/crypto/objects/objxref.pl
|
| +++ /dev/null
|
| @@ -1,107 +0,0 @@
|
| -#!/usr/local/bin/perl
|
| -
|
| -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.
|
| -
|
| -while (<IN>)
|
| - {
|
| - chomp;
|
| - my ($name, $num) = /^(\S+)\s+(\S+)$/;
|
| - $oid_tbl{$name} = $num;
|
| - }
|
| -close IN;
|
| -
|
| -open(IN, $xref_file) || die "Can't open $xref_file";
|
| -
|
| -my $ln = 1;
|
| -
|
| -while (<IN>)
|
| - {
|
| - chomp;
|
| - s/#.*$//;
|
| - next if (/^\S*$/);
|
| - my ($xr, $p1, $p2) = /^(\S+)\s+(\S+)\s+(\S+)/;
|
| - check_oid($xr);
|
| - check_oid($p1);
|
| - check_oid($p2);
|
| - $xref_tbl{$xr} = [$p1, $p2, $ln];
|
| - }
|
| -
|
| -my @xrkeys = keys %xref_tbl;
|
| -
|
| -my @srt1 = sort { $oid_tbl{$a} <=> $oid_tbl{$b}} @xrkeys;
|
| -
|
| -for(my $i = 0; $i <= $#srt1; $i++)
|
| - {
|
| - $xref_tbl{$srt1[$i]}[2] = $i;
|
| - }
|
| -
|
| -my @srt2 = sort
|
| - {
|
| - my$ap1 = $oid_tbl{$xref_tbl{$a}[0]};
|
| - my$bp1 = $oid_tbl{$xref_tbl{$b}[0]};
|
| - return $ap1 - $bp1 if ($ap1 != $bp1);
|
| - my$ap2 = $oid_tbl{$xref_tbl{$a}[1]};
|
| - my$bp2 = $oid_tbl{$xref_tbl{$b}[1]};
|
| -
|
| - return $ap2 - $bp2;
|
| - } @xrkeys;
|
| -
|
| -my $pname = $0;
|
| -
|
| -$pname =~ s|^.[^/]/||;
|
| -
|
| -print <<EOF;
|
| -/* AUTOGENERATED BY $pname, DO NOT EDIT */
|
| -
|
| -typedef struct
|
| - {
|
| - int sign_id;
|
| - int hash_id;
|
| - int pkey_id;
|
| - } nid_triple;
|
| -
|
| -static const nid_triple sigoid_srt[] =
|
| - {
|
| -EOF
|
| -
|
| -foreach (@srt1)
|
| - {
|
| - my $xr = $_;
|
| - my ($p1, $p2) = @{$xref_tbl{$_}};
|
| - print "\t{NID_$xr, NID_$p1, NID_$p2},\n";
|
| - }
|
| -
|
| -print "\t};";
|
| -print <<EOF;
|
| -
|
| -
|
| -static const nid_triple * const sigoid_srt_xref[] =
|
| - {
|
| -EOF
|
| -
|
| -foreach (@srt2)
|
| - {
|
| - my $x = $xref_tbl{$_}[2];
|
| - print "\t\&sigoid_srt\[$x\],\n";
|
| - }
|
| -
|
| -print "\t};\n\n";
|
| -
|
| -sub check_oid
|
| - {
|
| - my ($chk) = @_;
|
| - if (!exists $oid_tbl{$chk})
|
| - {
|
| - die "Not Found \"$chk\"\n";
|
| - }
|
| - }
|
| -
|
|
|