e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. Reviewed-by: Richard Levitte <levitte@openssl.org>
62 lines
1.9 KiB
Perl
62 lines
1.9 KiB
Perl
#! /usr/bin/env perl
|
|
# Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (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
|
|
|
|
|
|
# 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 $_;
|
|
}
|