#! /usr/bin/env perl # Copyright 1998-2019 The OpenSSL Project Authors. All Rights Reserved. # # Licensed under the Apache License 2.0 (the "License"). You may not use # this file except in compliance with the License. You can obtain a copy # in the file LICENSE in the source distribution or at # https://www.openssl.org/source/license.html use strict; my %xref_tbl; my %oid_tbl; my ($mac_file, $xref_file) = @ARGV; # Output year depends on the year of the script and the input file. my $YEAR = [localtime([stat($0)]->[9])]->[5] + 1900; my $iYEAR = [localtime([stat($mac_file)]->[9])]->[5] + 1900; $YEAR = $iYEAR if $iYEAR > $YEAR; $iYEAR = [localtime([stat($xref_file)]->[9])]->[5] + 1900; $YEAR = $iYEAR if $iYEAR > $YEAR; open(IN, $mac_file) || die "Can't open $mac_file, $!\n"; # Read in OID nid values for a lookup table. while () { s|\R$||; # Better chomp my ($name, $num) = /^(\S+)\s+(\S+)$/; $oid_tbl{$name} = $num; } close IN; open(IN, $xref_file) || die "Can't open $xref_file, $!\n"; my $ln = 1; while () { s|\R$||; # Better 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; my $i; for($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 <