u
This commit is contained in:
parent
be14f64242
commit
7f0bf14e13
BIN
script_nuance/XWin Server.lnk
Normal file
BIN
script_nuance/XWin Server.lnk
Normal file
Binary file not shown.
77
script_nuance/_template.sh
Normal file
77
script_nuance/_template.sh
Normal file
@ -0,0 +1,77 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
################################################################################
|
||||||
|
# template for checking platform to set platform-specific environment.
|
||||||
|
################################################################################
|
||||||
|
PLATFORM=`hostname | perl -ne 'if (/AC-/) {exec "echo aachen_linux"} elsif (/leiqin/) {exec "echo aachen_windows"} elsif (/xena|cvshost/) {exec "echo burlington_unix"}'`
|
||||||
|
|
||||||
|
if [ $PLATFORM == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "$PLATFORM: do something"
|
||||||
|
elif [ $PLATFORM == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
echo "$PLATFORM: do something"
|
||||||
|
else
|
||||||
|
echo "Unknown System: nothing has been performed!"
|
||||||
|
fi
|
||||||
|
|
||||||
|
################################################################################
|
||||||
|
# template for system-specific settings
|
||||||
|
################################################################################
|
||||||
|
HOST=`/bin/hostname`
|
||||||
|
OS_TYPE=`/bin/uname -s`
|
||||||
|
OS_REL=`/bin/uname -r`
|
||||||
|
CPU=`/usr/localbin/cpu`
|
||||||
|
OS=`/usr/localbin/os`
|
||||||
|
|
||||||
|
if [ $HOST == '???' ]
|
||||||
|
then . ~/???.sh
|
||||||
|
elif [ $HOST == '???' ]
|
||||||
|
then . ~/???.sh
|
||||||
|
else
|
||||||
|
echo "Unknown system $HOST."
|
||||||
|
fi
|
||||||
|
|
||||||
|
####################################
|
||||||
|
# you must use double quote around $1, because it's a shell variable and replaced by shell directly.
|
||||||
|
if [ "$1" == "" ] # it's always safer to quote variables in shell script.
|
||||||
|
|
||||||
|
if [ condition ]
|
||||||
|
then # then must be on a seperate line!
|
||||||
|
cmds
|
||||||
|
elif [ condition ]
|
||||||
|
cmds
|
||||||
|
else
|
||||||
|
cmds
|
||||||
|
fi
|
||||||
|
|
||||||
|
################################################################################
|
||||||
|
#*******************************************************************************
|
||||||
|
################################################################################
|
||||||
|
|
||||||
|
#~/bin/csh
|
||||||
|
|
||||||
|
################################################################################
|
||||||
|
# template for system-specific settings
|
||||||
|
################################################################################
|
||||||
|
set host=`/bin/hostname`
|
||||||
|
set os_type=`/bin/uname -s`
|
||||||
|
set os_rel=`/bin/uname -r`
|
||||||
|
#set cpu=`/usr/localbin/cpu`
|
||||||
|
#set os=`/usr/localbin/os`
|
||||||
|
|
||||||
|
if ($host == "hydra") then # the then must be in the same line of if
|
||||||
|
source ~/cshrc.hydra.csh
|
||||||
|
else if ($host == "AC-Albatross") then
|
||||||
|
source ~/cshrc.ac-linux.csh
|
||||||
|
else
|
||||||
|
echo "Unknown system $host."
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ( condition ) then # then must be on the same line!
|
||||||
|
cmds
|
||||||
|
else if ( condition )
|
||||||
|
cmds
|
||||||
|
else
|
||||||
|
cmds
|
||||||
|
endif
|
||||||
21
script_nuance/addlibpath.csh
Normal file
21
script_nuance/addlibpath.csh
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
# usage: source addlibpath.csh new_path
|
||||||
|
|
||||||
|
# this script requires a normalized $PATH:
|
||||||
|
# 1. each path except the last one must be followed by ":" without any whitespace;
|
||||||
|
# 2. each path is NOT finished by "/"
|
||||||
|
# besides, the input parameter $1 is NOT finished by "/".
|
||||||
|
# Purpose of the normalization is to match $ENV{NEWPATH}(:\|$)
|
||||||
|
|
||||||
|
# it must be explicitly exported because Perl only add environment variables to %ENV, not those shell variables:
|
||||||
|
setenv NEWPATH $1
|
||||||
|
|
||||||
|
# on windows, we must use /usr/bin/perl from cygwin, because ActivePerl doesn't work on following line:
|
||||||
|
if ('no' == `/usr/bin/perl -e 'if ($ENV{LD_LIBRARY_PATH} =~ m|$ENV{NEWPATH}(:\|$)|) {exec "echo yes"} else {exec "echo no"}'`) then
|
||||||
|
if (${?LD_LIBRARY_PATH} == 1) then # you must enclose {?LD_LIBRARY_PATH}, otherwise it checks LD instead of LD_LIBRARY_PATH
|
||||||
|
setenv LD_LIBRARY_PATH ${1}:${LD_LIBRARY_PATH} # $1 must be enclosed with {}, otherwise it cannot be parsed.
|
||||||
|
else
|
||||||
|
setenv LD_LIBRARY_PATH ${1}
|
||||||
|
endif
|
||||||
|
endif
|
||||||
22
script_nuance/addlibpath.sh
Normal file
22
script_nuance/addlibpath.sh
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
# usage: . addlibpath.sh new_path
|
||||||
|
|
||||||
|
# this script requires a normalized $LD_LIBRARY_PATH:
|
||||||
|
# 1. each path except the last one must be followed by ":" without any whitespace;
|
||||||
|
# 2. each path is NOT finished by "/"
|
||||||
|
# besides, the input parameter $1 is NOT finished by "/".
|
||||||
|
# Purpose of the normalization is to match $ENV{NEWPATH}(:\|$)
|
||||||
|
|
||||||
|
# it must be explicitly exported because Perl only add environment variables to %ENV, not those shell variables:
|
||||||
|
export NEWPATH=$1
|
||||||
|
# on windows, we must use /usr/bin/perl from cygwin, because ActivePerl doesn't work on following line:
|
||||||
|
if [ 'no' == `/usr/bin/perl -e 'if ($ENV{LD_LIBRARY_PATH} =~ m|$ENV{NEWPATH}(:\|$)|) {exec "echo yes"} else {exec "echo no"}'` ]
|
||||||
|
then
|
||||||
|
if [ -z ${LD_LIBRARY_PATH} ]
|
||||||
|
then
|
||||||
|
export LD_LIBRARY_PATH=$1
|
||||||
|
else
|
||||||
|
export LD_LIBRARY_PATH=$1:${LD_LIBRARY_PATH}
|
||||||
|
fi
|
||||||
|
fi
|
||||||
16
script_nuance/addpath.csh
Normal file
16
script_nuance/addpath.csh
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
# usage: source addlibpath.csh new_path
|
||||||
|
|
||||||
|
# this script requires a normalized $PATH:
|
||||||
|
# 1. each path except the last one must be followed by ":" without any whitespace;
|
||||||
|
# 2. each path is NOT finished by "/"
|
||||||
|
# besides, the input parameter $1 is NOT finished by "/".
|
||||||
|
# Purpose of the normalization is to match $ENV{NEWPATH}(:\|$)
|
||||||
|
|
||||||
|
# it must be explicitly exported because Perl only add environment variables to %ENV, not those shell variables:
|
||||||
|
setenv NEWPATH $1
|
||||||
|
# on windows, we must use /usr/bin/perl from cygwin, because ActivePerl doesn't work on following line:
|
||||||
|
if ('no' == `/usr/bin/perl -e 'if ($ENV{PATH} =~ m|$ENV{NEWPATH}(:\|$)|) {exec "echo yes"} else {exec "echo no"}'`) then
|
||||||
|
setenv PATH ${1}:$PATH # $1 must be enclosed with {}, otherwise it cannot be parsed.
|
||||||
|
endif
|
||||||
17
script_nuance/addpath.sh
Normal file
17
script_nuance/addpath.sh
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
# usage: . addpath.sh new_path
|
||||||
|
|
||||||
|
# this script requires a normalized $PATH:
|
||||||
|
# 1. each path except the last one must be followed by ":" without any whitespace;
|
||||||
|
# 2. each path is NOT finished by "/"
|
||||||
|
# besides, the input parameter $1 is NOT finished by "/".
|
||||||
|
# Purpose of the normalization is to match $ENV{NEWPATH}(:\|$)
|
||||||
|
|
||||||
|
# it must be explicitly exported because Perl only add environment variables to %ENV, not those shell variables:
|
||||||
|
export NEWPATH=$1
|
||||||
|
# on windows, we must use /usr/bin/perl from cygwin, because ActivePerl doesn't work on following line:
|
||||||
|
if [ 'no' == `/usr/bin/perl -e 'if ($ENV{PATH} =~ m|$ENV{NEWPATH}(:\|$)|) {exec "echo yes"} else {exec "echo no"}'` ]
|
||||||
|
then
|
||||||
|
export PATH=$1:$PATH
|
||||||
|
fi
|
||||||
48
script_nuance/cvsroot.bat
Normal file
48
script_nuance/cvsroot.bat
Normal file
@ -0,0 +1,48 @@
|
|||||||
|
@ IF "%1" == "" GOTO EMPTY
|
||||||
|
@ IF "%1" == "p" GOTO PRODUCT
|
||||||
|
@ IF "%1" == "s" GOTO SOLUTION
|
||||||
|
@ IF "%1" == "a" GOTO ASR
|
||||||
|
@ IF "%1" == "o" GOTO OFFICE
|
||||||
|
@ IF "%1" == "h" GOTO HOME
|
||||||
|
|
||||||
|
:UNKNOWN
|
||||||
|
@ echo Unknown option! Nothing was configured.
|
||||||
|
@ GOTO USAGE
|
||||||
|
|
||||||
|
:EMPTY
|
||||||
|
@ echo Empty option! Nothing was configured.
|
||||||
|
@ GOTO USAGE
|
||||||
|
|
||||||
|
:USAGE
|
||||||
|
@ echo Usage: cvsroot [psaoh]
|
||||||
|
@ echo p, s, a for Product/Solutions/AMR
|
||||||
|
@ echo o, h for my Office/Home
|
||||||
|
@ echo Example: cvsroot o
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:PRODUCT
|
||||||
|
@ set CVSROOT=:pserver:llu@cvshost.speechworks.com:/swicvs/product
|
||||||
|
@ echo CVSROOT of Product was successfully configured.
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:SOLUTION
|
||||||
|
@ set CVSROOT=:pserver:llu@cvshost.speechworks.com:/swicvs/solutions
|
||||||
|
@ echo CVSROOT of Solutions was successfully configured.
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:ASR
|
||||||
|
@ set CVSROOT=:pserver:llu@wa-csr-cvs.wa.scansoft.com:/res/lvcsr/code/cvsroot
|
||||||
|
@ echo CVSROOT of AMR was successfully configured.
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:OFFICE
|
||||||
|
@ set CVSROOT=:ext:llu@ac-llu.nuance.com:/cygdrive/c/Home/cvsrep
|
||||||
|
@ echo CVSROOT of Office was successfully configured.
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:HOME
|
||||||
|
@ set CVSROOT=:ext:llu@nil.sytes.net:/cygdrive/r/cvsrep
|
||||||
|
@ echo CVSROOT of Home was successfully configured.
|
||||||
|
@GOTO END
|
||||||
|
|
||||||
|
:END
|
||||||
41
script_nuance/cvsroot.csh
Normal file
41
script_nuance/cvsroot.csh
Normal file
@ -0,0 +1,41 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Which CVSROOT?"
|
||||||
|
echo " p for Product at :pserver:llu@cvshost.speechworks.com:/swicvs/product"
|
||||||
|
echo " s for Solution at :pserver:llu@cvshost.speechworks.com:/swicvs/solutions"
|
||||||
|
echo " a for AMR at :pserver:llu@wa-csr-cvs.wa.scansoft.com:/res/lvcsr/code/cvsroot"
|
||||||
|
echo " o for Office at :ext:llu@ac-llu.nuance.com:/cygdrive/c/Home/cvsrep"
|
||||||
|
echo " h for Home at :ext:llu@nil.sytes.net:/cygdrive/r/cvsrep"
|
||||||
|
echo -n ":"
|
||||||
|
set selection=$<
|
||||||
|
else
|
||||||
|
set selection=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
switch ($selection)
|
||||||
|
case p:
|
||||||
|
setenv CVSROOT ":pserver:llu@cvshost.speechworks.com:/swicvs/product"
|
||||||
|
echo "CVSROOT of Product was successfully configured."
|
||||||
|
breaksw
|
||||||
|
case s:
|
||||||
|
setenv CVSROOT ":pserver:llu@cvshost.speechworks.com:/swicvs/solutions"
|
||||||
|
echo "CVSROOT of Solution was successfully configured."
|
||||||
|
breaksw
|
||||||
|
case a:
|
||||||
|
setenv CVSROOT ":pserver:llu@wa-csr-cvs.wa.scansoft.com:/res/lvcsr/code/cvsroot"
|
||||||
|
echo "CVSROOT of AMR was successfully configured."
|
||||||
|
breaksw
|
||||||
|
case o:
|
||||||
|
setenv CVSROOT ":ext:llu@ac-llu.nuance.com:/cygdrive/c/Home/cvsrep"
|
||||||
|
echo "CVSROOT of Office was successfully configured."
|
||||||
|
breaksw
|
||||||
|
case h:
|
||||||
|
setenv CVSROOT ":ext:llu@nil.sytes.net:/cygdrive/r/cvsrep"
|
||||||
|
echo "CVSROOT of Home was successfully configured."
|
||||||
|
breaksw
|
||||||
|
default:
|
||||||
|
echo "Unknown option! Nothing was configured."
|
||||||
|
echo "Usage: . cvsroot.sh [psaoh]"
|
||||||
|
echo "Example: . ~/bin/cvsroot.csh o";;
|
||||||
|
endsw
|
||||||
31
script_nuance/cvsroot.sh
Normal file
31
script_nuance/cvsroot.sh
Normal file
@ -0,0 +1,31 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
if [ "$1" == '' ]
|
||||||
|
then
|
||||||
|
echo "Which CVSROOT?"
|
||||||
|
echo " p for Product at :pserver:llu@cvshost.speechworks.com:/swicvs/product"
|
||||||
|
echo " s for Solutions at :pserver:llu@cvshost.speechworks.com:/swicvs/solutions"
|
||||||
|
echo " a for AMR at :pserver:llu@wa-csr-cvs.wa.scansoft.com:/res/lvcsr/code/cvsroot"
|
||||||
|
echo " o for Office at :ext:llu@ac-llu.nuance.com:/cygdrive/c/Home/cvsrep"
|
||||||
|
echo " h for Home at :ext:llu@nil.sytes.net:/cygdrive/r/cvsrep"
|
||||||
|
echo -n ":"
|
||||||
|
read selection
|
||||||
|
else
|
||||||
|
selection=$1
|
||||||
|
fi
|
||||||
|
|
||||||
|
case $selection in
|
||||||
|
p) export CVSROOT=":pserver:llu@cvshost.speechworks.com:/swicvs/product"
|
||||||
|
echo "CVSROOT of Product was successfully configured.";;
|
||||||
|
s) export CVSROOT=":pserver:llu@cvshost.speechworks.com:/swicvs/solutions"
|
||||||
|
echo "CVSROOT of Solution was successfully configured.";;
|
||||||
|
a) export CVSROOT=":pserver:llu@wa-csr-cvs.wa.scansoft.com:/res/lvcsr/code/cvsroot"
|
||||||
|
echo "CVSROOT of AMR was successfully configured.";;
|
||||||
|
o) export CVSROOT=":ext:llu@ac-llu.nuance.com:/cygdrive/c/Home/cvsrep"
|
||||||
|
echo "CVSROOT of Office was successfully configured.";;
|
||||||
|
h) export CVSROOT="ext:llu@nil.sytes.net:/cygdrive/r/cvsrep"
|
||||||
|
echo "CVSROOT of Home was successfully configured.";;
|
||||||
|
*) echo "Unknown option! Nothing was configured."
|
||||||
|
echo "Usage: . cvsroot.sh [psaoh]"
|
||||||
|
echo "Example: . ~/bin/cvsroot.sh o";;
|
||||||
|
esac
|
||||||
28
script_nuance/exspeech.csh
Normal file
28
script_nuance/exspeech.csh
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
#if ("$1" == '') then
|
||||||
|
# echo "Which ExSpeech?"
|
||||||
|
# echo -n "Please enter a ExSpeech version, e.g. 2006-02-02: "
|
||||||
|
# set selection=$<
|
||||||
|
#else
|
||||||
|
# set selection=$1
|
||||||
|
#endif
|
||||||
|
|
||||||
|
echo "Use current ExSpeech version:"
|
||||||
|
set selection='current'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if ("$PLATFORM" == 'aachen_windows') then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Aachen Windows."
|
||||||
|
else if ("$PLATFORM" == 'aachen_linux') then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Aachen Linux."
|
||||||
|
else if ("$PLATFORM" == 'burlington_linux') then
|
||||||
|
source /res/tools/ExSpeech/current/setenv.csh
|
||||||
|
echo "ExSpeech $selection was successfully configured on Burlington Linux."
|
||||||
|
else if ("$PLATFORM" == 'home_windows') then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
endif
|
||||||
32
script_nuance/exspeech.sh
Normal file
32
script_nuance/exspeech.sh
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
#if [ "$1" == '' ] then
|
||||||
|
# echo "Which ExSpeech?"
|
||||||
|
# echo -n "Please enter an ExSpeech version, e.g. 2006-02-02: "
|
||||||
|
# read selection
|
||||||
|
#else
|
||||||
|
# selection=$1
|
||||||
|
#fi
|
||||||
|
|
||||||
|
echo "Use current ExSpeech version:"
|
||||||
|
selection='current'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if [ "$PLATFORM" == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Aachen Windows."
|
||||||
|
elif [ "$PLATFORM" == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Aachen Linux."
|
||||||
|
elif [ "$PLATFORM" == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
. /res/tools/ExSpeech/current/setenv.sh
|
||||||
|
echo "ExSpeech $selection was successfully configured on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "ExSpeech $selection isn't implemented on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
fi
|
||||||
31
script_nuance/gcc.csh
Normal file
31
script_nuance/gcc.csh
Normal file
@ -0,0 +1,31 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
#if ("$1" == '') then
|
||||||
|
# echo "Which GCC?"
|
||||||
|
# echo -n "Please enter a GCC version, e.g. 3.4.2: "
|
||||||
|
# set selection=$<
|
||||||
|
#else
|
||||||
|
# set selection=$1
|
||||||
|
#endif
|
||||||
|
|
||||||
|
echo "Assume GCC 4.1.0"
|
||||||
|
set selection='4.1.0'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if ($PLATFORM == 'aachen_windows') then
|
||||||
|
echo "GCC $selection is unavailable on Aachen Windows."
|
||||||
|
else if ($PLATFORM == 'aachen_linux') then
|
||||||
|
source ~/bin/addpath.csh /usr/localbin/gcc-$selection-posix-fPIC/bin
|
||||||
|
source ~/bin/addlibpath.csh /usr/localbin/gcc-$selection-posix-fPIC/lib
|
||||||
|
echo "GCC $selection was successfully configured on on Aachen Linux."
|
||||||
|
else if ($PLATFORM == 'burlington_linux') then
|
||||||
|
source ~/bin/addpath.csh /usr/local/gcc-$selection/bin
|
||||||
|
source ~/bin/addlibpath.csh /usr/local/gcc-$selection/lib
|
||||||
|
echo "GCC $selection was successfully configured on Burlington Linux."
|
||||||
|
else if ("$PLATFORM" == 'home_windows') then
|
||||||
|
echo "GCC $selection is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
endif
|
||||||
36
script_nuance/gcc.sh
Normal file
36
script_nuance/gcc.sh
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
#if [ "$1" == '' ]
|
||||||
|
#then
|
||||||
|
# echo "Which GCC?"
|
||||||
|
# echo -n "Please enter a GCC version, e.g. 3.4.2: "
|
||||||
|
# read selection
|
||||||
|
#else
|
||||||
|
# selection=$1
|
||||||
|
#fi
|
||||||
|
|
||||||
|
echo "Assume GCC 4.1.0"
|
||||||
|
selection='4.1.0'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if [ $PLATFORM == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "GCC $selection is unavailable on Aachen Windows."
|
||||||
|
elif [ $PLATFORM == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addpath.sh /usr/localbin/gcc-$selection-posix-fPIC/bin
|
||||||
|
. ~/bin/addlibpath.sh /usr/localbin/gcc-$selection-posix-fPIC/lib
|
||||||
|
echo "GCC $selection was successfully configured on on Aachen Linux."
|
||||||
|
elif [ $PLATFORM == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addpath.sh /usr/local/gcc-$selection/bin
|
||||||
|
. ~/bin/addlibpath.sh /usr/local/gcc-$selection/lib
|
||||||
|
echo "GCC $selection was successfully configured on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "GCC $selection is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
fi
|
||||||
45
script_nuance/gotohost.bat
Normal file
45
script_nuance/gotohost.bat
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
@ IF "%1" == "" GOTO EMPTY
|
||||||
|
@ IF "%1" == "home" GOTO HOME
|
||||||
|
@ IF "%1" == "office" GOTO OFFICE
|
||||||
|
@ IF "%1" == "aachen" GOTO AACHEN
|
||||||
|
@ IF "%1" == "xena" GOTO XENA
|
||||||
|
@ IF "%1" == "grid" GOTO GRID
|
||||||
|
@ IF "%1" == "menlo" GOTO MENLO
|
||||||
|
|
||||||
|
:UNKNOWN
|
||||||
|
@ echo Unknown target!
|
||||||
|
@ ssh -C -X %1
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:EMPTY
|
||||||
|
@ echo Empty target!
|
||||||
|
@ echo Usage: gotohost [TARGET]
|
||||||
|
@ echo TARGET = home, aachen, xena, grid, menlo
|
||||||
|
@ echo Example: gotohost grid
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:HOME
|
||||||
|
@ ssh -C -X Administrator@nil.sytes.net
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:OFFICE
|
||||||
|
@ ssh -C -X leiqin@leiqin.eu.scansoft.com
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:AACHEN
|
||||||
|
@ ssh -C -X leiqin@ac-green.eu.scansoft.com
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:XENA
|
||||||
|
@ ssh -C -X llu@xena.speechworks.com
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:GRID
|
||||||
|
@ ssh -C -X llu@grid-cnh8.grid.nuance.com
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:MENLO
|
||||||
|
@ ssh -C -X lleiqin@navy.nuance.com
|
||||||
|
@GOTO END
|
||||||
|
|
||||||
|
:END
|
||||||
40
script_nuance/gotohost.csh
Normal file
40
script_nuance/gotohost.csh
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Which target?"
|
||||||
|
echo " home"
|
||||||
|
echo " office for leiqin@leiqin.eu.scansoft.com"
|
||||||
|
echo " aachen for leiqin@ac-green.eu.scansoft.com"
|
||||||
|
echo " xena for llu@xena.speechworks.com"
|
||||||
|
echo " grid for llu@grid-cnh8.grid.nuance.com"
|
||||||
|
echo " menlo for lleiqin@navy.nuance.com"
|
||||||
|
echo -n ":"
|
||||||
|
set selection=$<
|
||||||
|
else
|
||||||
|
set selection=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
switch ($selection)
|
||||||
|
case home:
|
||||||
|
ssh -C -X Administrator@nil.sytes.net
|
||||||
|
breaksw
|
||||||
|
case office:
|
||||||
|
ssh -C -X leiqin@leiqin.eu.scansoft.com
|
||||||
|
breaksw
|
||||||
|
case aachen:
|
||||||
|
ssh -C -X leiqin@ac-green.eu.scansoft.com
|
||||||
|
breaksw
|
||||||
|
case xena:
|
||||||
|
ssh -C -X llu@xena.speechworks.com
|
||||||
|
breaksw
|
||||||
|
case grid:
|
||||||
|
ssh -C -X llu@grid-cnh8.grid.nuance.com
|
||||||
|
breaksw
|
||||||
|
case menlo:
|
||||||
|
ssh -C -X lleiqin@navy.nuance.com
|
||||||
|
breaksw
|
||||||
|
default:
|
||||||
|
echo "Unknown option!"
|
||||||
|
ssh -C -X $selection
|
||||||
|
endsw
|
||||||
27
script_nuance/gotohost.sh
Normal file
27
script_nuance/gotohost.sh
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
if [ "$1" == '' ]
|
||||||
|
then
|
||||||
|
echo "Which target?"
|
||||||
|
echo " home"
|
||||||
|
echo " office for leiqin@leiqin.eu.scansoft.com"
|
||||||
|
echo " aachen for leiqin@ac-green.eu.scansoft.com"
|
||||||
|
echo " xena for llu@xena.speechworks.com"
|
||||||
|
echo " grid for llu@grid-cnh8.grid.nuance.com"
|
||||||
|
echo " menlo for lleiqin@navy.nuance.com"
|
||||||
|
echo -n ":"
|
||||||
|
read selection
|
||||||
|
else
|
||||||
|
selection=$1
|
||||||
|
fi
|
||||||
|
|
||||||
|
case $selection in
|
||||||
|
home) ssh -C -X Administrator@nil.sytes.net;;
|
||||||
|
office) ssh -C -X leiqin@leiqin.eu.scansoft.com;;
|
||||||
|
aachen) ssh -C -X leiqin@ac-green.eu.scansoft.com;;
|
||||||
|
xena) ssh -C -X llu@xena.speechworks.com;;
|
||||||
|
grid) ssh -C -X llu@grid-cnh8.grid.nuance.com;;
|
||||||
|
menlo) ssh -C -X lleiqin@navy.nuance.com;;
|
||||||
|
*) echo Unknown target!
|
||||||
|
ssh -C -X $selection;;
|
||||||
|
esac
|
||||||
7
script_nuance/lrtools.bat
Normal file
7
script_nuance/lrtools.bat
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
@ REM set lrTools for my laptop, so that play.exe works.
|
||||||
|
|
||||||
|
@echo off
|
||||||
|
@set SPSHAREDCOMPDIR=%HOME%\products\philips\lrtools
|
||||||
|
@set SPTOOLSDIR=%HOME%\products\philips\lrtools
|
||||||
|
@set SOUNDEDITOR=play.exe
|
||||||
|
@set PATH=%HOME%\products\philips\lrtools\bin\x86\;%PATH%;
|
||||||
19
script_nuance/osr.bat
Normal file
19
script_nuance/osr.bat
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
@ REM Return if option is empty or invalid:
|
||||||
|
@ IF "%1" == "" GOTO EMPTY
|
||||||
|
@ IF NOT EXIST %HOME%\products\%1 GOTO EMPTY
|
||||||
|
|
||||||
|
@ set PATH=%HOME%\products\%1\bin;%PATH%
|
||||||
|
@ set PRODUCT_LIB_PREFIX=SR
|
||||||
|
@ set CORE_ROOT=%HOME%\products\%1
|
||||||
|
@ set SWISDK=%HOME%\products\%1
|
||||||
|
@ set SWISRSDK=%HOME%\products\%1
|
||||||
|
@ set SWILicenseServerList=27000@ac-albatross;27000@juelich;27000@ac-birdie
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:EMPTY
|
||||||
|
@ echo Unknown option! Nothing was configured.
|
||||||
|
@ echo Usage: osr VERSION
|
||||||
|
@ echo Example: osr osr309
|
||||||
|
@ GOTO END
|
||||||
|
|
||||||
|
:END
|
||||||
44
script_nuance/osr.csh
Normal file
44
script_nuance/osr.csh
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Which OSR?"
|
||||||
|
echo -n "Please enter an OSR version, e.g. osr309: "
|
||||||
|
set selection=$<
|
||||||
|
else
|
||||||
|
set selection=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if ("$PLATFORM" == 'aachen_windows') then
|
||||||
|
source ~/bin/addpath.csh ~/products/$selection/bin
|
||||||
|
setenv PRODUCT_LIB_PREFIX SR
|
||||||
|
setenv CORE_ROOT ~/products/$selection
|
||||||
|
setenv SWISDK ~/products/$selection
|
||||||
|
setenv SWISRSDK ~/products/$selection
|
||||||
|
setenv SWILicenseServerList "27000@ac-albatross:27000@juelich:27000@ac-birdie"
|
||||||
|
echo "OSR $selection was successfully configured on Aachen Windows."
|
||||||
|
else if ("$PLATFORM" == 'aachen_linux') then
|
||||||
|
source ~/bin/addlibpath.sh /u_grid/ac-green/llu/osr/$selection/lib
|
||||||
|
source ~/bin/addpath.csh /u_grid/ac-green/llu/osr/$selection/bin
|
||||||
|
setenv PRODUCT_LIB_PREFIX SR
|
||||||
|
setenv CORE_ROOT /u_grid/ac-green/llu/osr/$selection
|
||||||
|
setenv SWISDK /u_grid/ac-green/llu/osr/$selection
|
||||||
|
setenv SWISRSDK /u_grid/ac-green/llu/osr/$selection
|
||||||
|
setenv SWILicenseServerList "27000@ac-albatross:27000@juelich:27000@ac-birdie"
|
||||||
|
echo "OSR $selection was successfully configured on Aachen Linux."
|
||||||
|
else if ("$PLATFORM" == 'burlington_linux') then
|
||||||
|
source ~/bin/addlibpath.csh /scratch/res/scratch3/llu/osr/$selection/lib
|
||||||
|
source ~/bin/addpath.csh /scratch/res/scratch3/llu/osr/$selection/bin
|
||||||
|
setenv PRODUCT_LIB_PREFIX SR
|
||||||
|
setenv CORE_ROOT /scratch/res/scratch3/llu/osr/$selection
|
||||||
|
setenv SWISDK /scratch/res/scratch3/llu/osr/$selection
|
||||||
|
setenv SWISRSDK /scratch/res/scratch3/llu/osr/$selection
|
||||||
|
setenv SWILicenseServerList "27000@beeblebrox.speechworks.com:27000@gargravarr.speechworks.com:27000@asia2.pb.scansoft.com"
|
||||||
|
echo "OSR $selection was successfully configured on Burlington Linux."
|
||||||
|
else if ("$PLATFORM" == 'home_windows') then
|
||||||
|
echo "OSR $selection is unavaible on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
endif
|
||||||
49
script_nuance/osr.sh
Normal file
49
script_nuance/osr.sh
Normal file
@ -0,0 +1,49 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
if [ "$1" == '' ]
|
||||||
|
then
|
||||||
|
echo "Which OSR?"
|
||||||
|
echo -n "Please enter an OSR version, e.g. osr309: "
|
||||||
|
read selection
|
||||||
|
else
|
||||||
|
selection=$1
|
||||||
|
fi
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if [ "$PLATFORM" == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addpath.sh ~/products/$selection/bin
|
||||||
|
export PRODUCT_LIB_PREFIX=SR
|
||||||
|
export CORE_ROOT=~/products/$selection
|
||||||
|
export SWISDK=~/products/$selection
|
||||||
|
export SWISRSDK=~/products/$selection
|
||||||
|
export SWILicenseServerList="27000@ac-albatross:27000@juelich:27000@ac-birdie"
|
||||||
|
echo "$selection was successfully configured on Aachen Windows."
|
||||||
|
elif [ "$PLATFORM" == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addlibpath.sh /u_grid/ac-green/llu/osr/$selection/lib
|
||||||
|
. ~/bin/addpath.sh /u_grid/ac-green/llu/osr/$selection/bin
|
||||||
|
export PRODUCT_LIB_PREFIX=SR
|
||||||
|
export CORE_ROOT=/u_grid/ac-green/llu/osr/$selection
|
||||||
|
export SWISDK=/u_grid/ac-green/llu/osr/$selection
|
||||||
|
export SWISRSDK=/u_grid/ac-green/llu/osr/$selection
|
||||||
|
export SWILicenseServerList="27000@ac-albatross:27000@juelich:27000@ac-birdie"
|
||||||
|
echo "$selection was successfully configured on Aachen Linux."
|
||||||
|
elif [ "$PLATFORM" == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addlibpath.sh /scratch/res/scratch3/llu/osr/$selection/lib
|
||||||
|
. ~/bin/addpath.sh /scratch/res/scratch3/llu/osr/$selection/bin
|
||||||
|
export PRODUCT_LIB_PREFIX=SR
|
||||||
|
export CORE_ROOT=/scratch/res/scratch3/llu/osr/$selection
|
||||||
|
export SWISDK=/scratch/res/scratch3/llu/osr/$selection
|
||||||
|
export SWISRSDK=/scratch/res/scratch3/llu/osr/$selection
|
||||||
|
export SWILicenseServerList="27000@beeblebrox.speechworks.com:27000@gargravarr.speechworks.com:27000@asia2.pb.scansoft.com"
|
||||||
|
echo "OSR $selection was successfully configured on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "OSR $selection is unavaible on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
fi
|
||||||
7
script_nuance/platform.csh
Normal file
7
script_nuance/platform.csh
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
set PLATFORM=`hostname | perl -ne 'if (/AC-/) {exec "echo aachen_linux"} elsif (/ac-llu/) {exec "echo aachen_windows"} elsif (/ac-nb-llu/) {exec "echo aachen_windows"} elsif (/xena|cvshost|bn-|wa-|grid-/) {exec "echo burlington_linux"} elsif (/neptune/) {exec "echo home_windows"} else {exec "echo unknown"}'`
|
||||||
|
# it must return some non-empty string for unknown hostnames,
|
||||||
|
# otherwise it makes if statement be wrong for unknown hostnames:
|
||||||
|
# if ($PLATFORM == 'somename')
|
||||||
|
# when $PLATFORM is empty string, there would be nothing to the left of ==.
|
||||||
7
script_nuance/platform.sh
Normal file
7
script_nuance/platform.sh
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
PLATFORM=`hostname | perl -ne 'if (/AC-/) {exec "echo aachen_linux"} elsif (/ac-llu/) {exec "echo aachen_windows"} elsif (/ac-nb-llu/) {exec "echo aachen_windows"} elsif (/xena|cvshost|bn-|wa-|grid-/) {exec "echo burlington_linux"} elsif (/neptune/) {exec "echo home_windows"} else {exec "echo unknown"}'`
|
||||||
|
# it must return some non-empty string for unknown hostnames,
|
||||||
|
# otherwise it makes if statement be wrong for unknown hostnames:
|
||||||
|
# if [ $PLATFORM == 'somename' ]
|
||||||
|
# when $PLATFORM is empty string, there would be nothing to the left of ==.
|
||||||
29
script_nuance/python.csh
Normal file
29
script_nuance/python.csh
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
#if ( "$1" == '' ) then
|
||||||
|
# echo "Which Python?"
|
||||||
|
# echo -n "Please enter a Python version, e.g. 2.4: "
|
||||||
|
# set selection=$<
|
||||||
|
#else
|
||||||
|
# set selection=$1
|
||||||
|
#endif
|
||||||
|
|
||||||
|
echo "Currently only Python 2.4 is supported."
|
||||||
|
echo "Assume Python 2.4"
|
||||||
|
set selection='2.4'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if ( $PLATFORM == 'aachen_windows' ) then
|
||||||
|
echo "Python $selection is unavailable on Aachen Windows."
|
||||||
|
else if ( $PLATFORM == 'aachen_linux' ) then
|
||||||
|
source ~/bin/addpath.csh /usr/localbin/python$selection/bin
|
||||||
|
echo "Python $selection was successfully configured on on Aachen Linux."
|
||||||
|
else if ( $PLATFORM == 'burlington_linux' ) then
|
||||||
|
echo "Python $selection is unavailable on Burlington Linux."
|
||||||
|
else if ( "$PLATFORM" == 'home_windows' ) then
|
||||||
|
echo "Python $selection is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
endif
|
||||||
34
script_nuance/python.sh
Normal file
34
script_nuance/python.sh
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
#if [ "$1" == '' ]
|
||||||
|
#then
|
||||||
|
# echo "Which Python?"
|
||||||
|
# echo -n "Please enter a Python version, e.g. 2.4: "
|
||||||
|
# read selection
|
||||||
|
#else
|
||||||
|
# selection=$1
|
||||||
|
#fi
|
||||||
|
|
||||||
|
echo "Currently only Python 2.4 is supported."
|
||||||
|
echo "Assume Python 2.4"
|
||||||
|
selection='2.4'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if [ $PLATFORM == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "Python $selection is unavailable on Aachen Windows."
|
||||||
|
elif [ $PLATFORM == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
. ~/bin/addpath.sh /usr/localbin/python$selection/bin
|
||||||
|
echo "Python $selection was successfully configured on on Aachen Linux."
|
||||||
|
elif [ $PLATFORM == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
echo "Python $selection is unavailable on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "Python $selection is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
fi
|
||||||
27
script_nuance/sge.csh
Normal file
27
script_nuance/sge.csh
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
# test my new version.
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
if ("$PLATFORM" == 'aachen_windows') then
|
||||||
|
echo "SGE is unavailable on Aachen Windows."
|
||||||
|
elif ("$PLATFORM" == 'my_laptop') then
|
||||||
|
echo "SGE is unavailable on my laptop."
|
||||||
|
else if ("$PLATFORM" == 'aachen_linux') then
|
||||||
|
if ( $?SGE_ROOT == 0 ) then
|
||||||
|
source /opt/sge6/default/common/settings.csh
|
||||||
|
endif
|
||||||
|
echo "SGE was successfully configured on Aachen Linux."
|
||||||
|
else if ("$PLATFORM" == 'burlington_linux') then
|
||||||
|
if ( $?SGE_ROOT == 0 ) then
|
||||||
|
source /usr/local/SGE/default/common/settings.csh
|
||||||
|
endif
|
||||||
|
# tools for Grid management:
|
||||||
|
source ~/bin/addpath.csh /res/tools/contrib/script
|
||||||
|
echo "SGE and Grid tools was successfully configured on Burlington Linux."
|
||||||
|
else if ("$PLATFORM" == 'home_windows') then
|
||||||
|
echo "SGE is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
endif
|
||||||
32
script_nuance/sge.sh
Normal file
32
script_nuance/sge.sh
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
if [ "$PLATFORM" == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "SGE is unavailable on Aachen Windows."
|
||||||
|
elif [ "$PLATFORM" == 'my_laptop' ]
|
||||||
|
then
|
||||||
|
echo "SGE is unavailable on my laptop."
|
||||||
|
elif [ "$PLATFORM" == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
if [ -z "$SGE_ROOT" ]
|
||||||
|
then
|
||||||
|
. /opt/sge6/default/common/settings.sh
|
||||||
|
fi
|
||||||
|
echo "SGE was successfully configured on Aachen Linux."
|
||||||
|
elif [ "$PLATFORM" == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
if [ -z "$SGE_ROOT" ]
|
||||||
|
then
|
||||||
|
. /usr/local/SGE/default/common/settings.sh
|
||||||
|
fi
|
||||||
|
# tools for Grid management:
|
||||||
|
. ~/bin/addpath.sh /res/tools/contrib/script
|
||||||
|
echo "SGE and Grid tools was successfully configured on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "SGE is unavailable on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown system! Nothing was configured."
|
||||||
|
fi
|
||||||
50
script_nuance/tools/align.pl
Normal file
50
script_nuance/tools/align.pl
Normal file
@ -0,0 +1,50 @@
|
|||||||
|
#!C:/Perl/bin/perl
|
||||||
|
|
||||||
|
if ($#ARGV==-1) {
|
||||||
|
printf "Usage: align.pl binary_alignment_filename\n";
|
||||||
|
exit (0);
|
||||||
|
};
|
||||||
|
|
||||||
|
system ("align_info -labels %SWISRSDK%/config/en.sg/models/SpeechPearl.hmmlabels $ARGV[0] > $ARGV[0].txt");
|
||||||
|
printf ("$ARGV[0] -> $ARGV[0].txt\n");
|
||||||
|
|
||||||
|
open(BINARY_ALIGN, "$ARGV[0].txt") or die "Cannot open file $ARGV[0].txt";
|
||||||
|
|
||||||
|
$count=1;
|
||||||
|
|
||||||
|
while(<BINARY_ALIGN>){
|
||||||
|
|
||||||
|
s/\s+$//;
|
||||||
|
|
||||||
|
if(/^uttname: $1/){
|
||||||
|
close FD;
|
||||||
|
$lola = sprintf("alignments_%d.txt", $count++);
|
||||||
|
print "$' => $lola\n";
|
||||||
|
open(FD, ">$lola") || die "cannot open $lola";
|
||||||
|
printf FD "$'\n";
|
||||||
|
printf FD "MillisecondsPerFrame: 10\nEND OF HEADER\n";
|
||||||
|
printf FD "start end phoneme score -sscore score/msec\n";
|
||||||
|
$total_score=0;
|
||||||
|
} elsif (/^ortho: /){
|
||||||
|
printf FD "$'\n";
|
||||||
|
} elsif(/^ label index (.*)/){
|
||||||
|
$label=$1;
|
||||||
|
} elsif (/^ model score (.*)/){
|
||||||
|
$score=$1;
|
||||||
|
$total_score += $score;
|
||||||
|
} elsif (/^ from time (.*)/){
|
||||||
|
$from_time=$1;
|
||||||
|
} elsif (/^ to time (.*)/){
|
||||||
|
$to_time=$1;
|
||||||
|
} elsif (/^ segment type (.*)/){
|
||||||
|
if (0){
|
||||||
|
next if $from_time == $to_time;
|
||||||
|
printf FD "%5.3f %5.3f %-20s %10.2f %10.2f %.2f\n", $from_time*100, $to_time*100, $label,$score, -$total_score, $score/($to_time -$from_time)/100;
|
||||||
|
} else {
|
||||||
|
$dscore = ($to_time==$from_time) ? 0 : $score/($to_time -$from_time)/1000;
|
||||||
|
printf FD "%5.3f %5.3f %-20s %10.2f %10.2f %.2f\n", $from_time, $to_time, $label,$score, -$total_score, $dscore;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
exit 0;
|
||||||
22
script_nuance/tools/check_existence_of_listed_files.pl
Normal file
22
script_nuance/tools/check_existence_of_listed_files.pl
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Check existence of listed sound files.\n";
|
||||||
|
print "Usage: perl $0 FILE_LIST\n";
|
||||||
|
print "Example: perl $0 corpus.list\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
open LIST, "$ARGV[0]" or die;
|
||||||
|
|
||||||
|
open REPORT, ">$ARGV[0].inexistent" or die;
|
||||||
|
|
||||||
|
while (<LIST>)
|
||||||
|
{
|
||||||
|
if (m|\s*([^\s]+\.(ulaw\|wav))\s*|)
|
||||||
|
{
|
||||||
|
if (not (-e $1))
|
||||||
|
{
|
||||||
|
print REPORT "$1\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
21
script_nuance/tools/convert_summary_for_excel.pl
Normal file
21
script_nuance/tools/convert_summary_for_excel.pl
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
|
||||||
|
open(SUM, "$ARGV[0]");
|
||||||
|
open(EXCEL, ">". "$ARGV[0].excel");
|
||||||
|
|
||||||
|
if ($ARGV[0] eq '')
|
||||||
|
{
|
||||||
|
print "Converting summary file $ARGV[0] to excel format.\n";
|
||||||
|
print "Usage: perl $0 SUMMARY_FILE\n";
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
while(<SUM>)
|
||||||
|
{
|
||||||
|
chomp($_);
|
||||||
|
$_ =~ s/^ +//g;
|
||||||
|
$_ =~ s/ +$//g;
|
||||||
|
$_ =~ s/ +/ /g;
|
||||||
|
$_ =~ s/ /\t/g;
|
||||||
|
$_ =~ s/%//g;
|
||||||
|
print EXCEL $_."\n";
|
||||||
|
}
|
||||||
@ -0,0 +1,62 @@
|
|||||||
|
$scriptfile = $ARGV[0];
|
||||||
|
open (SCR, $scriptfile);
|
||||||
|
while(<SCR>)
|
||||||
|
{
|
||||||
|
chomp($_);
|
||||||
|
$_ =~ s/ +$//;
|
||||||
|
$startwriting = 0;
|
||||||
|
if(($_ =~ /^recognize/)&&($_ =~ /\.wav/))
|
||||||
|
{
|
||||||
|
@parts = split(/ /, $_);
|
||||||
|
$soundFile = $parts[1];
|
||||||
|
open(WAV,$soundFile) || next;
|
||||||
|
# die "cannot open $soundFile: $1";
|
||||||
|
# open(WAV,$soundFile) || die;
|
||||||
|
binmode WAV;
|
||||||
|
|
||||||
|
# get first 4 Bytes
|
||||||
|
read WAV,$rawstring, 4;
|
||||||
|
$signature = unpack("a4",$rawstring);
|
||||||
|
|
||||||
|
if ($signature eq "NIST")
|
||||||
|
{
|
||||||
|
print "$soundFile has a sphere header and is converted to ulaw!\n";
|
||||||
|
$input = $soundFile;
|
||||||
|
$input_base = substr($input, 0 ,-4);
|
||||||
|
open (INPUT, $input);
|
||||||
|
binmode INPUT;
|
||||||
|
while ($line = <INPUT>)
|
||||||
|
{
|
||||||
|
if($startwriting == 1)
|
||||||
|
{
|
||||||
|
$line =~ s/^ +//; #remove rest of header (spaces)
|
||||||
|
$startwriting = 2;
|
||||||
|
$output = $input_base . ".". $ext;
|
||||||
|
open(OUTPUT, ">". $output) or die;
|
||||||
|
binmode OUTPUT;
|
||||||
|
}
|
||||||
|
elsif($startwriting == 2)
|
||||||
|
{
|
||||||
|
print OUTPUT $line;
|
||||||
|
}
|
||||||
|
elsif($line =~ /end_head/)
|
||||||
|
{
|
||||||
|
$startwriting = 1; #read lines until end_head statement is found.
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
if($line =~ /s4 alaw/)
|
||||||
|
{
|
||||||
|
$ext = "alaw";
|
||||||
|
print $ext."\n";
|
||||||
|
}
|
||||||
|
elsif($line =~ /s4 ulaw/)
|
||||||
|
{
|
||||||
|
$ext = "ulaw";
|
||||||
|
print $ext."\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
27
script_nuance/tools/differ_accuracy.csh
Normal file
27
script_nuance/tools/differ_accuracy.csh
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Please enter the first absolute path with file prefix:"
|
||||||
|
set first=$<
|
||||||
|
else
|
||||||
|
set first=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ("$2" == '') then
|
||||||
|
echo "Please enter the second absolute path with file prefix:"
|
||||||
|
set second=$<
|
||||||
|
else
|
||||||
|
set second=$2
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ("$3" == '') then
|
||||||
|
echo "Please enter the absolute path with file prefix of diff results:"
|
||||||
|
set diff=$<
|
||||||
|
else
|
||||||
|
set diff=$3
|
||||||
|
endif
|
||||||
|
|
||||||
|
perl /users/llu/scratch/OSR_accuracy/diff_osr_sum.pl $first.sum $second.sum >! $diff.sum
|
||||||
|
echo "$first.sum vs. $second.sum => $diff.sum"
|
||||||
|
perl /users/llu/scratch/OSR_accuracy/diff_osr_wer.pl $first.wer $second.wer >! $diff.wer
|
||||||
|
echo "$first.wer vs. $second.wer => $diff.wer"
|
||||||
31
script_nuance/tools/favorites2html.pl
Normal file
31
script_nuance/tools/favorites2html.pl
Normal file
@ -0,0 +1,31 @@
|
|||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
|
||||||
|
@files = glob "$ARGV[0]/*";
|
||||||
|
|
||||||
|
open XML, ">Favorites.html" or die;
|
||||||
|
#print XML "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n<resource>\n";
|
||||||
|
|
||||||
|
foreach $file (@files)
|
||||||
|
{
|
||||||
|
if (-f $file)
|
||||||
|
{
|
||||||
|
open URL, "$file" or die;
|
||||||
|
$url = '';
|
||||||
|
while (<URL>)
|
||||||
|
{
|
||||||
|
if (m|URL=(.*)|)
|
||||||
|
{
|
||||||
|
$url = $1;
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$file =~ s|Favorites/||;
|
||||||
|
$file =~ s|\.url||;
|
||||||
|
$url =~ s|&|&|g;
|
||||||
|
print XML "<a href=\"$url\">$file</a><br>\n";
|
||||||
|
close URL;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#print XML "</resource>\n</xml>\n";
|
||||||
25
script_nuance/tools/gather_transcription_from_listfile.pl
Normal file
25
script_nuance/tools/gather_transcription_from_listfile.pl
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
print "Usage: perl $0 transcription_file path_prefix output_file\n";
|
||||||
|
print "Example: perl $0 /direct/datadigest/en_sg/ives/000.txt /direct/datadigest/en_sg/ives/calls/ ~/ives.list\n";
|
||||||
|
|
||||||
|
open TRAN, $ARGV[0] or die "Cannot open transcription file $ARGV[0] for read.\n";
|
||||||
|
open CORPUS, ">>$ARGV[2]" or die "Cannot open corpus file $ARGV[1] for write.\n";
|
||||||
|
|
||||||
|
if ($ARGV[1] =~ m|/$|) # the parameter "path_prefix" is ended with /
|
||||||
|
{
|
||||||
|
$prefix = $ARGV[1];
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
$prefix = "$ARGV[1]/";
|
||||||
|
}
|
||||||
|
|
||||||
|
while (<TRAN>)
|
||||||
|
{
|
||||||
|
chomp;
|
||||||
|
m|([^ ]+)\s+(.*)|;
|
||||||
|
if ($1 =~ m|\.info$|)
|
||||||
|
{
|
||||||
|
print CORPUS "new_speaker\n";
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
print CORPUS "$prefix$1.ulaw\t$2\n";
|
||||||
|
}
|
||||||
35
script_nuance/tools/gather_transcription_from_wordsfile.pl
Normal file
35
script_nuance/tools/gather_transcription_from_wordsfile.pl
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
print "Usage: perl $0 transcription_dir path_prefix output_file\n";
|
||||||
|
print "Example: perl $0 /direct/datadigest/read_English_SG/gitm/transcription /direct/datadigest/read_English_SG/gitm/calls/ ~/gitm.list\n";
|
||||||
|
|
||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
|
||||||
|
open CORPUS, ">$ARGV[2]" or die "Cannot open corpus file $ARGV[1] for write.\n";
|
||||||
|
|
||||||
|
if ($ARGV[1] =~ m|/$|) # the parameter "path_prefix" is ended with /
|
||||||
|
{
|
||||||
|
$prefix = $ARGV[1];
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
$prefix = "$ARGV[1]/";
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = ($ARGV[0]);
|
||||||
|
|
||||||
|
find ( {wanted => \&wanted},
|
||||||
|
@dirs );
|
||||||
|
|
||||||
|
sub wanted
|
||||||
|
{
|
||||||
|
if (m|^([a-zA-Z0-9_]+)_(utt\d+)\.words$|)
|
||||||
|
{
|
||||||
|
$folder = $1;
|
||||||
|
$utt = $2;
|
||||||
|
$folder =~ m|^[A-Za-z]+(\d\d\d)|;
|
||||||
|
$group = $1; # usually it's 000, but not always. So $group need be extracted.
|
||||||
|
open WORDS, "$_" or die "Cannot open words file $_\n";
|
||||||
|
$words = <WORDS>;
|
||||||
|
chomp ($words);
|
||||||
|
print CORPUS "$prefix$group/$folder/${folder}_${utt}.ulaw\t$words\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
2
script_nuance/tools/lyre.bat
Normal file
2
script_nuance/tools/lyre.bat
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
set TCLLIBPATH=C:/Programs/Lyre/tclpkg
|
||||||
|
C:/Programs/Lyre/bin/wish80.exe C:/Programs/Lyre/bin/lyre.tcl %1 %2 %3 %4 %5
|
||||||
3
script_nuance/tools/lyrepipe.bat
Normal file
3
script_nuance/tools/lyrepipe.bat
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
set TCLLIBPATH=C:/Programs/Lyre/tclpkg
|
||||||
|
C:/Programs/Lyre/bin/wish80.exe C:/Programs/Lyre/bin/lyrepipe.tcl
|
||||||
|
|
||||||
3
script_nuance/tools/lyretest.bat
Normal file
3
script_nuance/tools/lyretest.bat
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
set TCLLIBPATH=C:/Programs/Lyre/tclpkg
|
||||||
|
|
||||||
|
C:/Programs/Lyre/bin/wish80.exe C:/Programs/Lyre/bin/lyre.tcl C:/Programs/Lyre/examples/126-20040812084228.ulaw --l C:/Programs/Lyre/examples/126-20040812084228.1 --l C:/Programs/Lyre/examples/126-20040812084228.0
|
||||||
29
script_nuance/tools/nacc_summary.csh
Normal file
29
script_nuance/tools/nacc_summary.csh
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
echo "Usage: source nacc_summary.csh lg.co 1st_result_set [2nd_result_set]"
|
||||||
|
|
||||||
|
setenv OSRACCDIR /scratch/res/work/Quantum/llu/nacc
|
||||||
|
setenv CFG $OSRACCDIR/$1/cfg/BASELINE.cfg
|
||||||
|
|
||||||
|
perl $OSRACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output $2/summary.proton proton $2 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $2/summary.proton
|
||||||
|
echo Generated $2/summary.proton
|
||||||
|
perl $OSRACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output $2/summary.wer proton $2 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $2/summary.wer
|
||||||
|
echo Generated $2/summary.wer
|
||||||
|
|
||||||
|
# for variable $3, it doesn't work to use $?3 for test existence.
|
||||||
|
if ($3 != '') then
|
||||||
|
perl $OSRACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output $3/summary.proton proton $3 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $3/summary.proton
|
||||||
|
echo Generated $3/summary.proton
|
||||||
|
perl $OSRACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output $3/summary.wer proton $3 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $3/summary.wer
|
||||||
|
echo Generated $3/summary.wer
|
||||||
|
|
||||||
|
perl $OSRACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output ./compare.summary.proton proton1 $2 proton2 $3 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl ./compare.summary.proton
|
||||||
|
echo Generated ./compare.summary.proton
|
||||||
|
perl $OSRACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $CFG -output ./compare.summary.wer proton1 $2 proton2 $3 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl ./compare.summary.wer
|
||||||
|
echo Generated ./compare.summary.wer
|
||||||
|
|
||||||
|
perl $OSRACCDIR/script/diff_osr_sum.pl $2/summary.proton $3/summary.proton >! ./diff.summary; perl ~/bin/tools/convert_summary_for_excel.pl ./diff.summary
|
||||||
|
echo "Generated ./diff.summary from $2 vs $3 /summary.proton"
|
||||||
|
perl $OSRACCDIR/script/diff_osr_wer.pl $2/summary.wer $3/summary.wer >! ./diff.wer; perl ~/bin/tools/convert_summary_for_excel.pl ./diff.wer
|
||||||
|
echo "Generated ./diff.wer from $2 vs $3 /summary.wer"
|
||||||
|
endif
|
||||||
29
script_nuance/tools/nacc_summary.sh
Normal file
29
script_nuance/tools/nacc_summary.sh
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
echo "Usage: source nacc_summary.csh 1st_result_set [2nd_result_set]"
|
||||||
|
|
||||||
|
export LLUNACCDIR=/scratch/res/work/Quantum/llu/nacc
|
||||||
|
export LLUCFG=/scratch/res/work/Quantum/llu/nacc/zh.tw/cfg/BASELINE.cfg
|
||||||
|
|
||||||
|
perl $LLUNACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output $1/summary.proton proton $1 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $1/summary.proton
|
||||||
|
echo Generated $1/summary.proton
|
||||||
|
perl $LLUNACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output $1/summary.wer proton $1 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $1/summary.wer
|
||||||
|
echo Generated $1/summary.wer
|
||||||
|
|
||||||
|
if [ ! -z "$2" ]
|
||||||
|
then
|
||||||
|
perl $LLUNACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output $2/summary.proton proton $2 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $2/summary.proton
|
||||||
|
echo Generated $2/summary.proton
|
||||||
|
perl $LLUNACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output $2/summary.wer proton $2 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl $2/summary.wer
|
||||||
|
echo Generated $2/summary.wer
|
||||||
|
|
||||||
|
perl $LLUNACCDIR/script/summarize_proton.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output ./compare.summary.proton proton1 $1 proton2 $2 > /dev/null; perl ~/bin/tools/convert_summary_for_excel.pl ./compare.summary.proton
|
||||||
|
echo Generated ./compare.summary.proton
|
||||||
|
perl $LLUNACCDIR/script/proton_wer.pl -printinvocab -normalizeCpu -runtest proton -useGroup proton -meanByTestset -config $LLUCFG -output ./compare.summary.wer proton1 $1 proton2 $2 >/dev/null; perl ~/bin/tools/convert_summary_for_excel.pl ./compare.summary.wer
|
||||||
|
echo Generated ./compare.summary.wer
|
||||||
|
|
||||||
|
perl $LLUNACCDIR/script/diff_osr_sum.pl $1/summary.proton $2/summary.proton >! ./diff.summary; perl ~/bin/tools/convert_summary_for_excel.pl ./diff.summary
|
||||||
|
echo "Generated ./diff.summary from $1 vs $2 /summary.proton"
|
||||||
|
perl $LLUNACCDIR/script/diff_osr_wer.pl $1/summary.wer $2/summary.wer >! ./diff.wer; perl ~/bin/tools/convert_summary_for_excel.pl ./diff.wer
|
||||||
|
echo "Generated ./diff.wer from $1 vs $2 /summary.wer"
|
||||||
|
fi
|
||||||
84
script_nuance/tools/rem-token.pl
Normal file
84
script_nuance/tools/rem-token.pl
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
#####################################################################################################################################
|
||||||
|
# Script to remove DM-related tokens that cause log not to load into OSI due to max nested levels.
|
||||||
|
# The SWIdmst and SWIphnd tokens will be replaced with SWIprst to print the relevant information
|
||||||
|
#####################################################################################################################################
|
||||||
|
|
||||||
|
#!/usr/bin/perl -w
|
||||||
|
use strict;
|
||||||
|
use Getopt::Long;
|
||||||
|
|
||||||
|
my ($help, $inputfile, $outputfile);
|
||||||
|
GetOptions ('-help' => \$help,
|
||||||
|
'-h' => \$help,
|
||||||
|
'-input=s' => \$inputfile,
|
||||||
|
'-output=s' => \$outputfile
|
||||||
|
);
|
||||||
|
|
||||||
|
if ($help) {
|
||||||
|
die("\nUsage: perl $0 [-help] -input <i/p file> -output <o/p file> \n"); }
|
||||||
|
if ($inputfile eq "" || $outputfile eq "" ) {
|
||||||
|
die("\nUsage: perl $0 [-help] -input <i/p file> -output <o/p file> \n"); }
|
||||||
|
|
||||||
|
|
||||||
|
open( INPUT_FILE, "< $inputfile" ) #open input file for reading;
|
||||||
|
or die( "Cannot open input file \"$inputfile\" : $!" );
|
||||||
|
open( OUTPUT_FILE, ">$outputfile" ) #open output file for writing;
|
||||||
|
or die( "Cannot open output file \"$outputfile\" : $!");
|
||||||
|
|
||||||
|
#my $type = "APNM";
|
||||||
|
#my $channum = "";
|
||||||
|
#my $orgchantext = "phone.-1.mps.-1.chan";
|
||||||
|
|
||||||
|
while ( my $string = <INPUT_FILE> ) {
|
||||||
|
chomp($string);
|
||||||
|
# my $outputstring = $string;
|
||||||
|
# Replace the Problematic SWIdmst and SWIdmnd with SWIprst to print the relevant information
|
||||||
|
if ( $string =~ m/SWIdmst/ || $string =~ m/SWIdmnd/
|
||||||
|
|| $string =~ m/SWIphst/ || $string =~ m/SWIphnd/
|
||||||
|
|| $string =~ m/SWIstst/ || $string =~ m/SWIstnd/) {
|
||||||
|
# print ("$string\n" );
|
||||||
|
# SWIdmst
|
||||||
|
if ( $string =~ m/SWIdmst/ ) {
|
||||||
|
$string =~ s/SWIdmst/SWIprst/;
|
||||||
|
$string =~ s/DMTP=/PRNM=<DMTP>/;
|
||||||
|
$string =~ s/DMNM=/PRTX=<DMNM>/;
|
||||||
|
print (OUTPUT_FILE "$string\n" );
|
||||||
|
}
|
||||||
|
# SWIphnd - use this instead of SWIdmnd since it has HYPO of DTMF
|
||||||
|
if ( $string =~ m/SWIphnd/ ) {
|
||||||
|
$string =~ s/SWIphnd/SWIprst/;
|
||||||
|
$string =~ s/TSTT=/PRNM=<TSTT>/;
|
||||||
|
$string =~ s/MODE=/PRTX=<MODE=/;
|
||||||
|
my ($pre, $mid) = split( /\|UCPU/ , $string);
|
||||||
|
my ($pre1, $pre2) = split( /MODE/ , $pre);
|
||||||
|
$pre2 =~ s/\|/\!/g;
|
||||||
|
my $newstring = $pre1."MODE".$pre2.">|UCPU".$mid;
|
||||||
|
# my $newstring = $pre.">|UCPU".$mid;
|
||||||
|
|
||||||
|
print (OUTPUT_FILE "$newstring\n" );
|
||||||
|
}
|
||||||
|
# SWIdmnd
|
||||||
|
# if ( $string =~ m/SWIdmnd/ ) {
|
||||||
|
# $string =~ s/SWIdmnd/SWIprst/;
|
||||||
|
# $string =~ s/TSTT=/PRNM=<TSTT>/;
|
||||||
|
# $string =~ s/TRTT=/PRTX=<TRTT>/;
|
||||||
|
# print (OUTPUT_FILE "$string\n" );
|
||||||
|
# }
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print (OUTPUT_FILE "$string\n" );
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
} #end of WHILE;
|
||||||
|
|
||||||
|
#close the Input and Output files;
|
||||||
|
close( INPUT_FILE )
|
||||||
|
or die( "Cannot close \"$inputfile\" : $!" );
|
||||||
|
close( OUTPUT_FILE )
|
||||||
|
or die( "Cannot close \"$outputfile\" : $!" );
|
||||||
|
|
||||||
|
print "COMPLETE\n\n\n\n";
|
||||||
|
|
||||||
|
|
||||||
|
#####################################################################################################################################
|
||||||
32
script_nuance/tools/script2xml.pl
Normal file
32
script_nuance/tools/script2xml.pl
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
open SCRIPT, "$ARGV[0]" or die;
|
||||||
|
open XML, ">$ARGV[0].xml" or die;
|
||||||
|
|
||||||
|
print XML <<xmlhead;
|
||||||
|
<?xml version="1.0" encoding='UTF-8'?>
|
||||||
|
<grammar xml:lang="de-DE" version="1.0" root="_ROOT" xmlns="http://www.w3.org/2001/06/grammar">
|
||||||
|
<rule id="_ROOT" scope="public">
|
||||||
|
<ruleref uri="#ITEMS"/>
|
||||||
|
<tag>SWI_meaning = ITEMS.V;</tag>
|
||||||
|
</rule>
|
||||||
|
<rule id="ITEMS">
|
||||||
|
<one-of>
|
||||||
|
xmlhead
|
||||||
|
|
||||||
|
while (<SCRIPT>)
|
||||||
|
{
|
||||||
|
if (m|^transcription\s+(.*)\s*$|)
|
||||||
|
{
|
||||||
|
$items{$1} ++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach $item (keys %items)
|
||||||
|
{
|
||||||
|
print XML " <item>$item<tag>V=\"$item\"</tag></item>\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
print XML <<xmltail;
|
||||||
|
</one-of>
|
||||||
|
</rule>
|
||||||
|
</grammar>
|
||||||
|
xmltail
|
||||||
6
script_nuance/tools/speechdebug.pl
Normal file
6
script_nuance/tools/speechdebug.pl
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
#!/cygdrive/c/perl/bin/perl
|
||||||
|
|
||||||
|
# lyrepipe hangs if started by .bat file or without "start"
|
||||||
|
system ("start lyrepipe.bat");
|
||||||
|
|
||||||
|
system ("start C:/Programs/SpeechDebug/speechdebug.exe");
|
||||||
25
script_nuance/tools/split_utd_by_500.pl
Normal file
25
script_nuance/tools/split_utd_by_500.pl
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
open UTD, "$ARGV[0]" or die;
|
||||||
|
|
||||||
|
$nr_utt = 0;
|
||||||
|
|
||||||
|
$nr_block = 0;
|
||||||
|
|
||||||
|
$head = "";
|
||||||
|
|
||||||
|
while (<UTD>)
|
||||||
|
{
|
||||||
|
if (not m|/datadigest/|)
|
||||||
|
{
|
||||||
|
$head = $head."$_";
|
||||||
|
}else
|
||||||
|
{
|
||||||
|
if ($nr_utt % 500 == 0)
|
||||||
|
{
|
||||||
|
$nr_block ++;
|
||||||
|
open FH, ">$ARGV[0].$nr_block" or die;
|
||||||
|
print FH $head;
|
||||||
|
}
|
||||||
|
print FH;
|
||||||
|
$nr_utt ++;
|
||||||
|
}
|
||||||
|
}
|
||||||
32
script_nuance/tools/summarize_accuracy.csh
Normal file
32
script_nuance/tools/summarize_accuracy.csh
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
# Example: ~/bin/tools/summaryize_accuracy.csh ~/OSR_accuracy/en.sg/results/20060418_osr309 ~/mysum309
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Where is the evaluation results directory?"
|
||||||
|
echo -n "Please enter an absolute directory: "
|
||||||
|
set resdir=$<
|
||||||
|
else
|
||||||
|
set resdir=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
# You can enter a path with file name prefix,
|
||||||
|
# or just enter and the $resdir will be used by default.
|
||||||
|
if ("$2" == '') then
|
||||||
|
echo "Where to save summary files?"
|
||||||
|
echo -n "Please enter a absolute path with summary file prefix: "
|
||||||
|
set summary=$<
|
||||||
|
if ("$summary" == '') then
|
||||||
|
set summary=$resdir/summary
|
||||||
|
endif
|
||||||
|
else
|
||||||
|
set summary=$2
|
||||||
|
endif
|
||||||
|
|
||||||
|
# overall summary
|
||||||
|
cd /users/llu/scratch/OSR_accuracy/en.sg; perl ../summarize_proton.pl -normalizeCpu -printinvocab -useGroup proton -meanByWords -meanByTestset -geomMean test $resdir >! $summary.sum; echo Generated $summary.sum
|
||||||
|
|
||||||
|
# wer summary
|
||||||
|
cd /users/llu/scratch/OSR_accuracy/en.sg; perl ../proton_wer.pl -normalizeCpu -printinvocab -useGroup proton -meanByWords -geomMean test $resdir >! $summary.wer; echo Generated $summary.wer
|
||||||
|
|
||||||
|
perl ~/bin/tools/convert_summary_for_excel.pl $summary.sum; echo Generated $summary.sum.excel
|
||||||
27
script_nuance/tools/traverse_dir_list_ulaw.pl
Normal file
27
script_nuance/tools/traverse_dir_list_ulaw.pl
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
|
||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Traverse a directory recursively and list ulaw files.\n";
|
||||||
|
print "Usage: perl $0 TOP_DIR\n";
|
||||||
|
print "Example: perl $0 /bin\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = ($ARGV[0]);
|
||||||
|
|
||||||
|
open LIST, ">$ARGV[0].ulawlist" or die;
|
||||||
|
|
||||||
|
find ( {wanted => \&wanted},
|
||||||
|
@dirs );
|
||||||
|
|
||||||
|
sub wanted
|
||||||
|
{
|
||||||
|
if (m|^ulaw$|)
|
||||||
|
{
|
||||||
|
$file = $_;
|
||||||
|
# do something here.
|
||||||
|
print LIST "$file\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
39
script_nuance/tools/traverse_dir_make_eventlog.pl
Normal file
39
script_nuance/tools/traverse_dir_make_eventlog.pl
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
|
||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Template to traverse a directory recursively.\n";
|
||||||
|
print "Usage: perl $0 TOP_DIR\n";
|
||||||
|
print "Example: perl $0 /bin\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = ($ARGV[0]);
|
||||||
|
|
||||||
|
open LOG, ">$ARGV[0]/SWIevent.log" or die;
|
||||||
|
|
||||||
|
$time='20060101000000000';
|
||||||
|
$defaultdm='Digits';
|
||||||
|
$grammar='digits.xml';
|
||||||
|
$language='en-GB';
|
||||||
|
$meaning='0';
|
||||||
|
$ortho='';
|
||||||
|
|
||||||
|
find ( {wanted => \&wanted},
|
||||||
|
@dirs );
|
||||||
|
|
||||||
|
sub wanted
|
||||||
|
{
|
||||||
|
if (/\.(ulaw|wav)$/)
|
||||||
|
{
|
||||||
|
$file = $_;
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIclst|UCPU=0|SCPU=0\n";
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIdmst|DMTP=CUST|DMNM=$defaultdm|UCPU=0|SCPU=0\n";
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIrcst|GURI0=$grammar|GRNM=$grammar|LANG=$language|GRMT=application/srgs+xml|UCPU=0|SCPU=0\n";
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIrcnd|RSTT=ok|RSLT=$meaning|RAWT=$ortho|SPOK=$ortho|GRMR=GURI0|CONF=999|WVNM=$file|UCPU=0|SCPU=0\n";
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIdmnd|TSTT=Success|UCPU=0|SCPU=0\n";
|
||||||
|
print LOG "TIME=$time|CHAN=0|EVNT=SWIclnd|UCPU=0|SCPU=0\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
25
script_nuance/tools/traverse_dir_template.pl
Normal file
25
script_nuance/tools/traverse_dir_template.pl
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
|
||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Template to traverse a directory recursively.\n";
|
||||||
|
print "Usage: perl $0 TOP_DIR\n";
|
||||||
|
print "Example: perl $0 /bin\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = ($ARGV[0]);
|
||||||
|
|
||||||
|
find ( {wanted => \&wanted},
|
||||||
|
@dirs );
|
||||||
|
|
||||||
|
sub wanted
|
||||||
|
{
|
||||||
|
if (m|^ulaw$|) # check the current file name, if it contains ulaw then dome something on it.
|
||||||
|
{
|
||||||
|
$file = $_;
|
||||||
|
# do something here.
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
62
script_nuance/tools/warez_extracter.pl
Normal file
62
script_nuance/tools/warez_extracter.pl
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
# bug 1. final results as *.zip files are deleted by wrong
|
||||||
|
# bug 2. folders containing space cannot be correctly parsed.
|
||||||
|
|
||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
use Cwd;
|
||||||
|
|
||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Extract warez directories recursively.\n";
|
||||||
|
print "Usage: perl $0 TOP_DIR\n";
|
||||||
|
print "Example: perl $0 /temp/my0day\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = ($ARGV[0]);
|
||||||
|
|
||||||
|
find ( {wanted => \&wanted},
|
||||||
|
@dirs );
|
||||||
|
|
||||||
|
sub wanted
|
||||||
|
{
|
||||||
|
if (-d $_)
|
||||||
|
{
|
||||||
|
# We are in the containing folder of $_
|
||||||
|
$folder = $_;
|
||||||
|
$folder =~ s| |_|g; # folders containing space in names cannot be extracted.
|
||||||
|
rename $_, $folder;
|
||||||
|
|
||||||
|
@zipfiles = glob "$folder/*.zip";
|
||||||
|
foreach $zipfile (@zipfiles)
|
||||||
|
{
|
||||||
|
print "$zipfile\n";
|
||||||
|
system "unzip -n $zipfile -d $folder";
|
||||||
|
}
|
||||||
|
|
||||||
|
@rarfiles = glob "$folder/*.rar";
|
||||||
|
if (scalar @rarfiles > 0)
|
||||||
|
{
|
||||||
|
$rarfile = $rarfiles[0]; # Only the first rar (which is the sole *.rar or *.part1.rar) is to be extracted.
|
||||||
|
print "$rarfile\n";
|
||||||
|
system "\"s:/Program Files/WinRAR/RAR.exe\" x -o- $rarfile $folder > $folder/unrar.info";
|
||||||
|
}
|
||||||
|
|
||||||
|
#############################
|
||||||
|
##### WARNING ###############
|
||||||
|
# sometime a file extracted from *.rar is another *.zip! In this case it will be deleted by wrong!
|
||||||
|
open INFO, "$folder/unrar.info" or next;
|
||||||
|
while (<INFO>)
|
||||||
|
{
|
||||||
|
if (m|All OK|)
|
||||||
|
{
|
||||||
|
unlink glob "$folder/*.zip";
|
||||||
|
unlink glob "$folder/*.r??";
|
||||||
|
unlink glob "$folder/*.DIZ";
|
||||||
|
unlink glob "$folder/*.diz";
|
||||||
|
unlink glob "$folder/unrar.info";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close INFO;
|
||||||
|
}
|
||||||
|
}
|
||||||
15
script_nuance/tools/warez_extracter.sh
Normal file
15
script_nuance/tools/warez_extracter.sh
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
# Usage: this_script target_dir
|
||||||
|
|
||||||
|
for zipfile in $1/*.zip; do
|
||||||
|
unzip -n $zipfile -d $1;
|
||||||
|
done
|
||||||
|
|
||||||
|
for rarfile in $1/*.rar; do
|
||||||
|
/cygdrive/s/Program\ Files/WinRAR/RAR.exe x -o- $rarfile $1;
|
||||||
|
done
|
||||||
|
|
||||||
|
rm -f *.DIZ
|
||||||
|
rm -f *.diz
|
||||||
|
|
||||||
34
script_nuance/tools/warez_rename.pl
Normal file
34
script_nuance/tools/warez_rename.pl
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
# bug 1. final results as *.zip files are deleted by wrong
|
||||||
|
# bug 2. folders containing space cannot be correctly parsed.
|
||||||
|
|
||||||
|
use File::Find;
|
||||||
|
use File::Copy;
|
||||||
|
use Cwd;
|
||||||
|
|
||||||
|
if ($ARGV[0] =~ m|^\s*$|)
|
||||||
|
{
|
||||||
|
print "Rename warez directories.\n";
|
||||||
|
print "Usage: perl $0 TOP_DIR\n";
|
||||||
|
print "Example: perl $0 /temp/my0day\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
@dirs = glob "$ARGV[0]/*";
|
||||||
|
|
||||||
|
foreach $dir (@dirs)
|
||||||
|
{
|
||||||
|
$org = $dir;
|
||||||
|
$dir =~ s|\.| |g;
|
||||||
|
$dir =~ s|_| |g;
|
||||||
|
$dir =~ s|/||g;
|
||||||
|
$dir =~ s|Wiley (Interscience)?||g;
|
||||||
|
$dir =~ s|Wiley (IEEE Press)?||g;
|
||||||
|
$dir =~ s|eBook-.*$||g;
|
||||||
|
$dir =~ s|ebook-.*$||g;
|
||||||
|
$dir =~ s|(Jan\|Feb\|Mar\|Apr\|May\|Jun\|Jul\|Aug\|Sep\|Oct\|Nov\|Dec) 200\d||g;
|
||||||
|
$dir =~ s|^\s+||;
|
||||||
|
$dir =~ s|\s+$||;
|
||||||
|
print "$dir\n";
|
||||||
|
rename $org, "p{Wiley} t{$dir}";
|
||||||
|
}
|
||||||
|
|
||||||
2
script_nuance/tools/wedit.bat
Normal file
2
script_nuance/tools/wedit.bat
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
set TCLLIBPATH=C:/Programs/Lyre/tclpkg
|
||||||
|
C:/Programs/Lyre/bin/wish80.exe C:/Programs/Lyre/bin/wedit.tcl %1 %2 %3 %4 %5
|
||||||
46
script_nuance/tracy.csh
Normal file
46
script_nuance/tracy.csh
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
#!/bin/csh
|
||||||
|
|
||||||
|
source ~/bin/platform.csh
|
||||||
|
|
||||||
|
if ("$1" == '') then
|
||||||
|
echo "Which TRACY?"
|
||||||
|
echo -n "Please enter a TRACY version, e.g. 10/880 or 11/204: "
|
||||||
|
set selection=$<
|
||||||
|
else
|
||||||
|
set selection=$1
|
||||||
|
endif
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if ("$PLATFORM" == 'aachen_windows') then
|
||||||
|
echo "Tracy $selection is unavailable on Aachen Windows."
|
||||||
|
else if ("$PLATFORM" == 'aachen_linux') then
|
||||||
|
echo "In Aachen Linux only tracy 10/880 is supported."
|
||||||
|
setenv TRACYDIR /u_grid/ac-green/llu/tracy/tracy10_880
|
||||||
|
if ( "" == "" ) then
|
||||||
|
set compdir="ilgi"
|
||||||
|
else
|
||||||
|
set compdir=""
|
||||||
|
endif
|
||||||
|
source ~/bin/addpath.csh /usr/localbin/python2.4/bin:$TRACYDIR/bin/:$TRACYDIR/scripts:$TRACYDIR/scripts/build:$TRACYDIR/scripts/tools/osr
|
||||||
|
if ( $?PYTHONPATH ) then
|
||||||
|
setenv PYTHONPATH $TRACYDIR/lib/python:$TRACYDIR/lib/${compdir}:${PYTHONPATH}
|
||||||
|
else
|
||||||
|
setenv PYTHONPATH $TRACYDIR/lib/python:$TRACYDIR/lib/${compdir}
|
||||||
|
endif
|
||||||
|
|
||||||
|
if ( $?LD_LIBRARY_PATH ) then
|
||||||
|
setenv LD_LIBRARY_PATH $TRACYDIR/lib/${compdir}:${LD_LIBRARY_PATH}
|
||||||
|
else
|
||||||
|
setenv LD_LIBRARY_PATH $TRACYDIR/lib/${compdir}
|
||||||
|
endif
|
||||||
|
|
||||||
|
setenv PERL5LIB $TRACYDIR/lib/perl
|
||||||
|
echo "Tracy 10/880 was successfully configured on Aachen Linux."
|
||||||
|
else if ("$PLATFORM" == 'burlington_linux') then
|
||||||
|
source /res/tools/tracy/release/tracy$selection/setenv.csh
|
||||||
|
echo "Tracy $selection was successfully configured on Burlington Linux."
|
||||||
|
else if ("$PLATFORM" == 'home_windows') then
|
||||||
|
echo "Tracy $selection is unavaible on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
endif
|
||||||
57
script_nuance/tracy.sh
Normal file
57
script_nuance/tracy.sh
Normal file
@ -0,0 +1,57 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
. ~/bin/platform.sh
|
||||||
|
|
||||||
|
#if [ "$1" == '' ] then
|
||||||
|
# echo "Which TRACY?"
|
||||||
|
# echo -n "Please enter a TRACY version, e.g. 880: "
|
||||||
|
# read selection
|
||||||
|
#else
|
||||||
|
# selection=$1
|
||||||
|
#fi
|
||||||
|
|
||||||
|
echo "Currently only TRACY 880 is supported."
|
||||||
|
echo "Assume TRACY 880"
|
||||||
|
selection='880'
|
||||||
|
|
||||||
|
# todo: check existence of osr installation!
|
||||||
|
if [ "$PLATFORM" == 'aachen_windows' ]
|
||||||
|
then
|
||||||
|
echo "Tracy $selection is unavailable on Aachen Windows."
|
||||||
|
elif [ "$PLATFORM" == 'aachen_linux' ]
|
||||||
|
then
|
||||||
|
echo "In Aachen Linux only tracy 10/880 is supported:"
|
||||||
|
export TRACYDIR=/u_grid/ac-green/llu/tracy/tracy10_880
|
||||||
|
if [ "" == "" ]
|
||||||
|
then
|
||||||
|
compdir="ilgi"
|
||||||
|
else
|
||||||
|
compdir=""
|
||||||
|
fi
|
||||||
|
. ~/bin/addpath.sh /usr/localbin/python2.4/bin:$TRACYDIR/bin/:$TRACYDIR/scripts:$TRACYDIR/scripts/build:$TRACYDIR/scripts/tools/osr
|
||||||
|
if [ -z PYTHONPATH ]
|
||||||
|
then
|
||||||
|
export PYTHONPATH=$TRACYDIR/lib/python:$TRACYDIR/lib/${compdir}:${PYTHONPATH}
|
||||||
|
else
|
||||||
|
export PYTHONPATH=$TRACYDIR/lib/python:$TRACYDIR/lib/${compdir}
|
||||||
|
fi
|
||||||
|
|
||||||
|
if [ $?LD_LIBRARY_PATH ]
|
||||||
|
then
|
||||||
|
export LD_LIBRARY_PATH=$TRACYDIR/lib/${compdir}:${LD_LIBRARY_PATH}
|
||||||
|
else
|
||||||
|
export LD_LIBRARY_PATH=$TRACYDIR/lib/${compdir}
|
||||||
|
fi
|
||||||
|
|
||||||
|
export PERL5LIB=$TRACYDIR/lib/perl
|
||||||
|
echo "Tracy 10/880 was successfully configured on Aachen Linux."
|
||||||
|
elif [ "$PLATFORM" == 'burlington_linux' ]
|
||||||
|
then
|
||||||
|
. /res/tools/tracy/release/tracy$selection/setenv.sh
|
||||||
|
echo "Tracy $selection was successfully configured on Burlington Linux."
|
||||||
|
elif [ "$PLATFORM" == 'home_windows' ]
|
||||||
|
then
|
||||||
|
echo "Tracy $selection is unavaible on Home Windows."
|
||||||
|
else
|
||||||
|
echo "Unknown System! Nothing was configured."
|
||||||
|
fi
|
||||||
BIN
script_nuance/xterm.black.ico
Normal file
BIN
script_nuance/xterm.black.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
BIN
script_nuance/xterm.black.lnk
Normal file
BIN
script_nuance/xterm.black.lnk
Normal file
Binary file not shown.
BIN
script_nuance/xterm.ico
Normal file
BIN
script_nuance/xterm.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
BIN
script_nuance/xterm.lnk
Normal file
BIN
script_nuance/xterm.lnk
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user