Fix no-ocsp
[openssl.git] / VMS / translatesyms.pl
1 #! /usr/bin/perl
2
3 # This script will translate any SYMBOL_VECTOR item that has a translation
4 # in CXX$DEMANGLER_DB.  The latter is generated by and CC/DECC command that
5 # uses the qualifier /REPOSITORY with the build directory as value.  When
6 # /NAMES=SHORTENED has been used, this file will hold the translations from
7 # the original symbols to the shortened variants.
8 #
9 # CXX$DEMAGLER_DB. is an ISAM file, but with the magic of RMS, it can be
10 # read as a text file, with each record as one line.
11 #
12 # The lines will have the following syntax for any symbol found that's longer
13 # than 31 characters:
14 #
15 # LONG_symbol_34567890123{cksum}$LONG_symbol_34567890123_more_than_31_chars
16 #
17 # $ is present at the end of the shortened symbol name, and is preceded by a
18 # 7 character checksum.  The $ makes it easy to separate the shortened name
19 # from the original one.
20
21 use strict;
22 use warnings;
23
24 usage() if scalar @ARGV < 1;
25
26 my %translations = ();
27
28 open DEMANGLER_DATA, $ARGV[0]
29     or die "Couldn't open $ARGV[0]: $!\n";
30 while(<DEMANGLER_DATA>) {
31     s|\R$||;
32     (my $translated, my $original) = split /\$/;
33     $translations{$original} = $translated.'$';
34 }
35 close DEMANGLER_DATA;
36
37 $| = 1;                         # Autoflush
38 while(<STDIN>) {
39     s@
40       ((?:[A-Za-z0-9_]+)\/)?([A-Za-z0-9_]+)=(PROCEDURE|DATA)
41      @
42       if (defined($translations{$2})) {
43           my $trans = $translations{$2};
44           my $trans_uc = uc $trans;
45           if (defined($1) && $trans ne $trans_uc) {
46               "$trans_uc/$trans=$3"
47           } else {
48               "$trans=$3"
49           }
50       } else {
51           $&
52       }
53      @gxe;
54     print $_;
55 }