#!/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);