removed the containing subdir
This commit is contained in:
2
t/m/b-001.txt
Normal file
2
t/m/b-001.txt
Normal file
@ -0,0 +1,2 @@
|
||||
[ X02: 20 ] value dump.
|
||||
[ X02: 20 ] value dump. // syntax error X02 is a duplicate label. a label must be uniquie method-wide.
|
2
t/m/b-002.txt
Normal file
2
t/m/b-002.txt
Normal file
@ -0,0 +1,2 @@
|
||||
[ goto X03. ] value dump. /* Unable to jump out of a block */
|
||||
[ goto X02. X01: 9. goto X03. X02: goto X01. X03: 20. ] value dump.
|
38
t/m/r.awk
Normal file
38
t/m/r.awk
Normal file
@ -0,0 +1,38 @@
|
||||
### THIS SCRIPT NEEDS MUCH MORE ENHANCEMENT.
|
||||
### THE CURRENT CODE IS JUST TEMPORARY.
|
||||
|
||||
BEGIN {
|
||||
@local pid, workfile, d, f, cmd;
|
||||
|
||||
pid = sys::getpid();
|
||||
workfile = "moo-test." pid;
|
||||
|
||||
d = dir::open (".", dir::SORT);
|
||||
while (dir::read(d, f) > 0)
|
||||
{
|
||||
if (f !~ /.txt$/) continue;
|
||||
|
||||
print "#include \"../../kernel/Moo.moo\"." > workfile;
|
||||
print "class MyObject(Object) {" >> workfile;
|
||||
print "\tmethod(#class) main" >> workfile;
|
||||
print "\t{" >> workfile;
|
||||
|
||||
while ((getline x < f) > 0)
|
||||
{
|
||||
print x >> workfile;
|
||||
}
|
||||
close (f);
|
||||
|
||||
print "\t}" >> workfile;
|
||||
print "\}" >> workfile;
|
||||
close (workfile);
|
||||
|
||||
cmd = "/home/hyung-hwan/xxx/bin/moo " workfile;
|
||||
print "<" f ">";
|
||||
##sys::system ("cat " workfile);
|
||||
sys::system (cmd);
|
||||
}
|
||||
|
||||
dir::close(d);
|
||||
sys::unlink (workfile);
|
||||
}
|
Reference in New Issue
Block a user