mirror of
https://github.com/openssl/openssl.git
synced 2024-12-18 14:33:42 +08:00
9ba96fbb25
Once upon a time, there was chop, which somply chopped off the last character of $_ or a given variable, and it was used to take off the EOL character (\n) of strings. ... but then, you had to check for the presence of such character. So came chomp, the better chop which checks for \n before chopping it off. And this worked well, as long as Perl made internally sure that all EOLs were converted to \n. These days, though, there seems to be a mixture of perls, so lines from files in the "wrong" environment might have \r\n as EOL, or just \r (Mac OS, unless I'm misinformed). So it's time we went for the more generic variant and use s|\R$||, the better chomp which recognises all kinds of known EOLs and chops them off. A few chops were left alone, as they are use as surgical tools to remove one last slash or one last comma. NOTE: \R came with perl 5.10.0. It means that from now on, our scripts will fail with any older version. Reviewed-by: Rich Salz <rsalz@openssl.org>
56 lines
1.6 KiB
Perl
56 lines
1.6 KiB
Perl
#! /usr/bin/perl
|
|
|
|
# This script will translate any SYMBOL_VECTOR item that has a translation
|
|
# in CXX$DEMANGLER_DB. The latter is generated by and CC/DECC command that
|
|
# uses the qualifier /REPOSITORY with the build directory as value. When
|
|
# /NAMES=SHORTENED has been used, this file will hold the translations from
|
|
# the original symbols to the shortened variants.
|
|
#
|
|
# CXX$DEMAGLER_DB. is an ISAM file, but with the magic of RMS, it can be
|
|
# read as a text file, with each record as one line.
|
|
#
|
|
# The lines will have the following syntax for any symbol found that's longer
|
|
# than 31 characters:
|
|
#
|
|
# LONG_symbol_34567890123{cksum}$LONG_symbol_34567890123_more_than_31_chars
|
|
#
|
|
# $ is present at the end of the shortened symbol name, and is preceded by a
|
|
# 7 character checksum. The $ makes it easy to separate the shortened name
|
|
# from the original one.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
usage() if scalar @ARGV < 1;
|
|
|
|
my %translations = ();
|
|
|
|
open DEMANGLER_DATA, $ARGV[0]
|
|
or die "Couldn't open $ARGV[0]: $!\n";
|
|
while(<DEMANGLER_DATA>) {
|
|
s|\R$||;
|
|
(my $translated, my $original) = split /\$/;
|
|
$translations{$original} = $translated.'$';
|
|
}
|
|
close DEMANGLER_DATA;
|
|
|
|
$| = 1; # Autoflush
|
|
while(<STDIN>) {
|
|
s@
|
|
((?:[A-Za-z0-9_]+)\/)?([A-Za-z0-9_]+)=(PROCEDURE|DATA)
|
|
@
|
|
if (defined($translations{$2})) {
|
|
my $trans = $translations{$2};
|
|
my $trans_uc = uc $trans;
|
|
if (defined($1) && $trans ne $trans_uc) {
|
|
"$trans_uc/$trans=$3"
|
|
} else {
|
|
"$trans=$3"
|
|
}
|
|
} else {
|
|
$&
|
|
}
|
|
@gxe;
|
|
print $_;
|
|
}
|