[TeamTalk 277]: [813] branches/air/Resources/Grammar: minor fixes

[air@edam.speech.cs.cmu.edu]

An HTML attachment was scrubbed...
URL: http://mailman.srv.cs.cmu.edu/pipermail/teamtalk-developers/attachments/20071008/b4885908/attachment.html
-------------- next part --------------
Modified: branches/air/Resources/Grammar/DynamicRobotName.class
===================================================================
--- branches/air/Resources/Grammar/DynamicRobotName.class	2007-10-08 15:20:16 UTC (rev 812)
+++ branches/air/Resources/Grammar/DynamicRobotName.class	2007-10-08 15:45:31 UTC (rev 813)
@@ -1,4 +1,4 @@
-(alphie)
-(bashful)
-(clyde)
-(decker)
+	(alphie)
+	(bashful)
+	(clyde)
+	(decker)

Modified: branches/air/Resources/Grammar/compile_gra.pl
===================================================================
--- branches/air/Resources/Grammar/compile_gra.pl	2007-10-08 15:20:16 UTC (rev 812)
+++ branches/air/Resources/Grammar/compile_gra.pl	2007-10-08 15:45:31 UTC (rev 813)
@@ -24,7 +24,11 @@
 
 # check if a robot names file is available, copy into class file (note DOS)
 # HARDWIRED!!
-if ( $classflag and -e 'TeamTalkRobots' ) { system("copy","TeamTalkRobots","DynamicRobotName.class"); }
+if ( $classflag and -e 'TeamTalkRobots' ) {
+  open(IN,"TeamTalkRobots") or die "compile_gra: can't open TeamTalkRobots!\n";
+  open(OUT,">DynamicRobotName.class") or die "compile_gra: can't open DynamicRobotName.class!\n";
+  while (<IN>) { chomp; print OUT "\t($_)\n"; }
+}
 
 # resolve classes to make "extended" and "abstracted" grammars
 system("perl resolve.pl -i $ingra -e $outgra -a $absgra");