#!/usr/bin/perl
use File::Copy;
($olddefs, $newdefs, $username) = @ARGV;
$dir = "users\\$dir";
#open output file
open (NEW, ">$newdefs")|| die ("Unable to open $newdefs file for writing");
#open input file
open (OLD,"$olddefs") || die ("Unable to open $olddefs file for reading");
#copy macros file from hmm3 to hmm4
$source="$dir\\hmm3\\macros";
$dest="$dir\\hmm4\\macros";
copy ($source, $dest);
$find="~h \"sil\"";
$linerequired;
while () {
$numberLines++;
if(/$find/)
{$linerequired= $numberLines;
}
print NEW "$_";
}
$linerequired=$linerequired+10;
close (OLD);
open (OLD,"$olddefs") || die ("Unable to open $olddefs file for reading");
print NEW "~h \"sp\"\n";
print NEW "\n";
print NEW " 3\n";
print NEW " 2\n";
$count=0;
while() {
$count++;
if ($count >181 && $count<187) {
print NEW "$_";
}
}
print NEW " 3\n";
print NEW " 0.000000e+000 7.000000e-001 3.000000e-001\n";
print NEW " 0.000000e+000 7.000000e-001 3.000000e-001\n";
print NEW " 0.000000e+000 0.000000e+000 0.000000e+000\n";
print NEW "\n";
close (NEW);
close (OLD);