/usr/lib/sphinxtrain/scripts/decode/psdecode.pl is in sphinxtrain 1.0.8-0ubuntu3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | #!/usr/bin/perl
## ====================================================================
##
## Copyright (c) 1996-2000 Carnegie Mellon University. All rights
## reserved.
##
## Redistribution and use in source and binary forms, with or without
## modification, are permitted provided that the following conditions
## are met:
##
## 1. Redistributions of source code must retain the above copyright
## notice, this list of conditions and the following disclaimer.
##
## 2. Redistributions in binary form must reproduce the above copyright
## notice, this list of conditions and the following disclaimer in
## the documentation and/or other materials provided with the
## distribution.
##
## 3. The names "Sphinx" and "Carnegie Mellon" must not be used to
## endorse or promote products derived from this software without
## prior written permission. To obtain permission, contact
## sphinx@cs.cmu.edu.
##
## 4. Redistributions of any form whatsoever must retain the following
## acknowledgment:
## "This product includes software developed by Carnegie
## Mellon University (http://www.speech.cs.cmu.edu/)."
##
## THIS SOFTWARE IS PROVIDED BY CARNEGIE MELLON UNIVERSITY ``AS IS'' AND
## ANY EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
## THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
## PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY
## NOR ITS EMPLOYEES BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
## SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
## LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
## DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
## THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
## (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
## OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
##
## ====================================================================
##
## Author: Evandro Gouvea
##
use File::Path;
use File::Copy;
use File::Basename;
use File::Spec::Functions;
use lib catdir(dirname($0), updir(), 'lib');
use SphinxTrain::Config cfg => 'etc/sphinx_train.cfg';
use SphinxTrain::Util;
#************************************************************************
# this script performs decoding.
# it needs as inputs a set of models in pocketsphinx format
# a mdef file and cepstra with transcription files.
#************************************************************************
$| = 1; # Turn on autoflushing
die "USAGE: $0 <part> <npart>" if (($#ARGV != ($index + 1)) and ($#ARGV != ($index - 1)));
if ($#ARGV == ($index + 1)) {
$part = $ARGV[$index];
$npart = $ARGV[$index + 1];
} else {
$part = 1;
$npart = 1;
}
$modelname = $ST::DEC_CFG_MODEL_NAME;
$processname = "decode";
$log_dir = "$ST::DEC_CFG_LOG_DIR/$processname";
mkdir ($log_dir,0777) unless -d $log_dir;
$result_dir = "$ST::DEC_CFG_RESULT_DIR";
mkdir ($result_dir,0777) unless -d $result_dir;
$logfile = "$log_dir/${ST::DEC_CFG_EXPTNAME}-${part}-${npart}.log";
$matchfile = "$result_dir/${ST::DEC_CFG_EXPTNAME}-${part}-${npart}.match";
$hmm_dir = "$ST::CFG_BASE_DIR/model_parameters/$modelname";
$nlines = 0;
open INPUT, "${ST::DEC_CFG_LISTOFFILES}";
while (<INPUT>) {
$nlines++;
}
close INPUT;
$ctloffset = int ( ( $nlines * ( $part - 1 ) ) / $npart );
$ctlcount = int ( ( $nlines * $part ) / $npart ) - $ctloffset;
$ST::DEC_CFG_WORDPENALTY = 0.2 unless defined($ST::DEC_CFG_WORDPENALTY);
if (defined($ST::DEC_CFG_SVSPEC)) {
push(@ST::DEC_CFG_EXTRA_ARGS, -svspec => $ST::DEC_CFG_SVSPEC);
}
Log("Decoding $ctlcount segments starting at $ctloffset (part $part of $npart) ", 'result');
my $rv = RunTool('pocketsphinx_batch', $logfile, $ctlcount,
-hmm => $hmm_dir,
-lw => $ST::DEC_CFG_LANGUAGEWEIGHT ,
-feat => $ST::CFG_FEATURE,
-beam => $ST::DEC_CFG_BEAMWIDTH,
-wbeam => $ST::DEC_CFG_WORDBEAM,
-dict => $ST::DEC_CFG_DICTIONARY,
-lm => $ST::DEC_CFG_LANGUAGEMODEL,
-wip => $ST::DEC_CFG_WORDPENALTY,
-ctl => $ST::DEC_CFG_LISTOFFILES,
-ctloffset => $ctloffset,
-ctlcount => $ctlcount,
-cepdir => $ST::DEC_CFG_FEATFILES_DIR,
-cepext => $ST::DEC_CFG_FEATFILE_EXTENSION,
-hyp => $matchfile,
-agc => $ST::DEC_CFG_AGC,
-varnorm => $ST::DEC_CFG_VARNORM,
-cmn => $ST::DEC_CFG_CMN,
@ST::DEC_CFG_EXTRA_ARGS);
if ($rv) {
LogError("Failed to start pocketsphinx_batch\n");
}
exit ($rv);
|