moo/t/m/r.awk

39 lines
777 B
Awk
Raw Permalink Normal View History

### 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);
}