cvsuser 03/03/18 01:29:28
Modified: languages/BASIC/compiler testrun.pl
Log:
forward slashes; run via imcc
Revision Changes Path
1.2 +4 -4 parrot/languages/BASIC/compiler/testrun.pl
Index: testrun.pl
===================================================================
RCS file: /cvs/public/parrot/languages/BASIC/compiler/testrun.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- testrun.pl 9 Mar 2003 23:08:47 -0000 1.1
+++ testrun.pl 18 Mar 2003 09:29:28 -0000 1.2
@@ -1,12 +1,12 @@
#!/usr/bin/perl -w
#
no warnings 'once';
-$parpath='..\..\..';
+$parpath='../../../languages/imcc/imcc';
if (! -d $parpath) {
- $parpath='..\..\..';
+ $parpath='../../..';
}
unlink "test.pbc";
-$a=system("perl -I$parpath $parpath/assemble.pl -o _test.pbc TARG_test.pasm");
-system("$parpath\\parrot.exe @ARGV _test.pbc");
+#$a=system("perl -I$parpath $parpath/assemble.pl -o _test.pbc TARG_test.pasm");
+system("$parpath @ARGV TARG_test.pasm");
