Blame view
egs/gp/s1/utils/int2sym.pl
2.61 KB
8dcb6dfcb
first commit
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
#!/usr/bin/env perl
# Copyright 2010-2011 Microsoft Corporation
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# THIS CODE IS PROVIDED *AS IS* BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION ANY IMPLIED
# WARRANTIES OR CONDITIONS OF TITLE, FITNESS FOR A PARTICULAR PURPOSE,
# MERCHANTABLITY OR NON-INFRINGEMENT.
# See the Apache 2 License for the specific language governing permissions and
# limitations under the License.
$ignore_noninteger = 0;
$ignore_first_field = 0;
$field = -1;
for($x = 0; $x < 2; $x++) {
if($ARGV[0] eq "--ignore-noninteger") { $ignore_noninteger = 1; shift @ARGV; }
if($ARGV[0] eq "--ignore-first-field") { $ignore_first_field = 1; shift @ARGV; }
if($ARGV[0] eq "--field") {
shift @ARGV; $field = $ARGV[0]+0; shift @ARGV;
if ($field < 1) { die "Bad argument to --field option: $field"; }
}
}
if ($ignore_first_field && $field > 0) { die "Incompatible options ignore-first-field and field"; }
$zfield = $field-1; # Change to zero-based indexing.
$symtab = shift @ARGV;
if(!defined $symtab) {
die "Usage: sym2int.pl symtab [input] > output
";
}
open(F, "<$symtab") || die "Error opening symbol table file $symtab";
while(<F>) {
@A = split(" ", $_);
@A == 2 || die "bad line in symbol table file: $_";
$int2sym{$A[1]} = $A[0];
}
sub int2sym {
my $a = shift @_;
my $pos = shift @_;
if($a !~ m:^\d+$:) { # not all digits..
if($ignore_noninteger) {
print $a . " ";
next;
} else {
if($pos == 0) {
die "int2sym.pl: found noninteger token $a (try --ignore-first-field)
";
} else {
die "int2sym.pl: found noninteger token $a (try --ignore-noninteger if valid input)
";
}
}
}
$s = $int2sym{$a};
if(!defined ($s)) {
die "int2sym.pl: integer $a not in symbol table $symtab.";
}
return $s;
}
$error = 0;
while(<>) {
@A = split(" ", $_);
if($ignore_first_field) {
$key = shift @A;
print $key . " ";
}
if ($field != -1) {
if ($zfield <= $#A && $zfield >= 0) {
$a = $A[$zfield];
$A[$zfield] = int2sym($a, $zfield);
}
print join(" ", @A);
} else {
for ($pos = 0; $pos <= $#A; $pos++) {
$a = $A[$pos];
$s = int2sym($a, $pos);
print $s . " ";
}
}
print "
";
}
|