[TeamTalk 287]: [823] branches/air/Resources/Grammar/cmp.pl:

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

An HTML attachment was scrubbed...
URL: http://mailman.srv.cs.cmu.edu/pipermail/teamtalk-developers/attachments/20071009/d3d36511/attachment.html
-------------- next part --------------
Deleted: branches/air/Resources/Grammar/cmp.pl
===================================================================
--- branches/air/Resources/Grammar/cmp.pl	2007-10-09 15:49:07 UTC (rev 822)
+++ branches/air/Resources/Grammar/cmp.pl	2007-10-09 15:50:14 UTC (rev 823)
@@ -1,51 +0,0 @@
-#!/usr/local/bin/perl
-
-use strict;
-use Getopt::Long;
-
-my $classflag = 0;
-if (not GetOptions( "class" => \$classflag, )) { die "usage: cmp.pl [-class]\n"; }
-print STDERR "cmp.pl: class is $classflag\n";
-open(TTGRA, ">TeamTalk.gra");
-open(NETS, ">nets");
-open(TTTASKGRA, "TeamTalkTask.gra");
-
-# check if a robot names file is available, copy into class file
-if ( $classflag and -e 'TeamTalkRobots' ) {
-  system("copy","TeamTalkRobots","RobotName.class");
-}
-
-# substitute in the robot names
-while(<TTTASKGRA>) {
-    print TTGRA $_;
-    next unless (/^\[([^\]]+)\]/);
-    print NETS "$1\n";
-    # backward compatible behavior
-    if ( not $classflag ) {
-      next unless $1 eq 'RobotName' && -e 'TeamTalkRobots';
-      print STDERR "cmp.pl: directly inserting Robot Names\n";
-      open(TTROBOTS, "TeamTalkRobots");
-      for my $robot (grep /\S/, <TTROBOTS>) {
-	chop $robot;
-	$robot =~ s/\r$//;
-	print TTGRA "\t($robot)\n";
-      }
-      close TTROBOTS;
-    }
-}
-
-open(FORMS, ">forms");
-open(TTFORMS, "TeamTalkTask.forms");
-print FORMS <TTFORMS>;
-close TTFORMS; close FORMS;
-
-open(COMPILE, "compile -g . -f TeamTalk|");
-open(LOG, ">log");
-print LOG <COMPILE>;
-close COMPILE; close LOG;
-
-system("concept_leaf -grammar TeamTalk.net");
-
-
-# 1; # now a program
-exit 1;