39 lines
777 B
Awk
39 lines
777 B
Awk
### 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);
|
|
}
|