Make objxref.pl output in correct format
Reviewed-by: Tim Hudson <tjh@openssl.org> (cherry picked from commit 6922ddee1b7b1bddbe0d59a5bbdcf8ff39343434)
This commit is contained in:
parent
3b740cebd5
commit
75c77a71fa
@ -63,30 +63,36 @@ $pname =~ s|^.[^/]/||;
|
|||||||
print <<EOF;
|
print <<EOF;
|
||||||
/* AUTOGENERATED BY $pname, DO NOT EDIT */
|
/* AUTOGENERATED BY $pname, DO NOT EDIT */
|
||||||
|
|
||||||
typedef struct
|
typedef struct {
|
||||||
{
|
int sign_id;
|
||||||
int sign_id;
|
int hash_id;
|
||||||
int hash_id;
|
int pkey_id;
|
||||||
int pkey_id;
|
} nid_triple;
|
||||||
} nid_triple;
|
|
||||||
|
|
||||||
static const nid_triple sigoid_srt[] =
|
static const nid_triple sigoid_srt[] = {
|
||||||
{
|
|
||||||
EOF
|
EOF
|
||||||
|
|
||||||
foreach (@srt1)
|
foreach (@srt1)
|
||||||
{
|
{
|
||||||
my $xr = $_;
|
my $xr = $_;
|
||||||
my ($p1, $p2) = @{$xref_tbl{$_}};
|
my ($p1, $p2) = @{$xref_tbl{$_}};
|
||||||
print "\t{NID_$xr, NID_$p1, NID_$p2},\n";
|
my $o1 = " {NID_$xr, NID_$p1,";
|
||||||
}
|
my $o2 = "NID_$p2},";
|
||||||
|
if (length("$o1 $o2") < 78)
|
||||||
|
{
|
||||||
|
print "$o1 $o2\n";
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
print "$o1\n $o2\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
print "\t};";
|
print "};";
|
||||||
print <<EOF;
|
print <<EOF;
|
||||||
|
|
||||||
|
|
||||||
static const nid_triple * const sigoid_srt_xref[] =
|
static const nid_triple *const sigoid_srt_xref[] = {
|
||||||
{
|
|
||||||
EOF
|
EOF
|
||||||
|
|
||||||
foreach (@srt2)
|
foreach (@srt2)
|
||||||
@ -95,10 +101,10 @@ foreach (@srt2)
|
|||||||
# If digest or signature algorithm is "undef" then the algorithm
|
# If digest or signature algorithm is "undef" then the algorithm
|
||||||
# needs special handling and is excluded from the cross reference table.
|
# needs special handling and is excluded from the cross reference table.
|
||||||
next if $p1 eq "undef" || $p2 eq "undef";
|
next if $p1 eq "undef" || $p2 eq "undef";
|
||||||
print "\t\&sigoid_srt\[$x\],\n";
|
print " \&sigoid_srt\[$x\],\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
print "\t};\n\n";
|
print "};\n";
|
||||||
|
|
||||||
sub check_oid
|
sub check_oid
|
||||||
{
|
{
|
||||||
@ -108,4 +114,3 @@ sub check_oid
|
|||||||
die "Not Found \"$chk\"\n";
|
die "Not Found \"$chk\"\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user