summaryrefslogtreecommitdiff
path: root/kaldi_decode/utils/int2sym.pl
diff options
context:
space:
mode:
authorDeterminant <[email protected]>2016-02-29 20:06:25 +0800
committerDeterminant <[email protected]>2016-02-29 20:06:25 +0800
commit534b039d297b9f2f83f889e2592686d79569e141 (patch)
tree66f73999d98427d2e4c2ed09eeec3d6d845fb975 /kaldi_decode/utils/int2sym.pl
parent1e0ac0fb5c9f517e7325deb16004de1054454da7 (diff)
...
Diffstat (limited to 'kaldi_decode/utils/int2sym.pl')
-rwxr-xr-xkaldi_decode/utils/int2sym.pl71
1 files changed, 0 insertions, 71 deletions
diff --git a/kaldi_decode/utils/int2sym.pl b/kaldi_decode/utils/int2sym.pl
deleted file mode 100755
index d618939..0000000
--- a/kaldi_decode/utils/int2sym.pl
+++ /dev/null
@@ -1,71 +0,0 @@
-#!/usr/bin/env perl
-# Copyright 2010-2012 Microsoft Corporation Johns Hopkins University (Author: Daniel Povey)
-# Apache 2.0.
-
-undef $field_begin;
-undef $field_end;
-
-
-if ($ARGV[0] eq "-f") {
- shift @ARGV;
- $field_spec = shift @ARGV;
- if ($field_spec =~ m/^\d+$/) {
- $field_begin = $field_spec - 1; $field_end = $field_spec - 1;
- }
- if ($field_spec =~ m/^(\d*)[-:](\d*)/) { # accept e.g. 1:10 as a courtesty (properly, 1-10)
- if ($1 ne "") {
- $field_begin = $1 - 1; # Change to zero-based indexing.
- }
- if ($2 ne "") {
- $field_end = $2 - 1; # Change to zero-based indexing.
- }
- }
- if (!defined $field_begin && !defined $field_end) {
- die "Bad argument to -f option: $field_spec";
- }
-}
-$symtab = shift @ARGV;
-if(!defined $symtab) {
- print STDERR "Usage: sym2int.pl [options] symtab [input] > output\n" .
- "options: [-f (<field>|<field_start>-<field-end>)]\n" .
- "e.g.: -f 2, or -f 3-4\n";
- exit(1);
-}
-
-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..
- $pos1 = $pos+1; # make it one-based.
- die "int2sym.pl: found noninteger token $a [in position $pos1]\n";
- }
- $s = $int2sym{$a};
- if(!defined ($s)) {
- die "int2sym.pl: integer $a not in symbol table $symtab.";
- }
- return $s;
-}
-
-$error = 0;
-while (<>) {
- @A = split(" ", $_);
- for ($pos = 0; $pos <= $#A; $pos++) {
- $a = $A[$pos];
- if ( (!defined $field_begin || $pos >= $field_begin)
- && (!defined $field_end || $pos <= $field_end)) {
- $a = int2sym($a, $pos);
- }
- print $a . " ";
- }
- print "\n";
-}
-
-
-