removed the containing subdir

This commit is contained in:
2023-10-02 21:04:28 +09:00
parent 5b2953c9c7
commit ea73f9f8d2
163 changed files with 0 additions and 0 deletions

2
t/m/b-001.txt Normal file
View 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
View 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
View 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);
}