diff options
Diffstat (limited to 'src/lua/doit.lua')
-rw-r--r-- | src/lua/doit.lua | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/src/lua/doit.lua b/src/lua/doit.lua deleted file mode 100644 index aa184d62..00000000 --- a/src/lua/doit.lua +++ /dev/null @@ -1,73 +0,0 @@ --- Generate binding code --- Written by Waldemar Celes --- TeCGraf/PUC-Rio --- Jul 1998 --- $Id: doit.lua,v 1.2 2001/11/26 23:00:23 darkgod Exp $ - - --- This code is free software; you can redistribute it and/or modify it. --- The software provided hereunder is on an "as is" basis, and --- the author has no obligation to provide maintenance, support, updates, --- enhancements, or modifications. - - --- open input file, if any -if flags.f then - local st, msg = readfrom(flags.f) - if not st then - error('#'..msg) - end -end - --- define package name, if not provided -if not flags.n then - if flags.f then - flags.n = gsub(flags.f,"%..*","") - else - error("#no package name nor input file provided") - end -end - -local p = Package(flags.n) - -if flags.f then - readfrom() -end - -if flags.p then - return -- only parse -end - -if flags.o then - local st,msg = writeto(flags.o) - if not st then - error('#'..msg) - end -end - -if flags.P then - p:print() -else - p:decltag() - p:preamble() - p:supcode() - p:register() - p:unregister() -end - -if flags.o then - writeto() -end - --- write header file -if not flags.P then - if flags.H then - local st,msg = writeto(flags.H) - if not st then - error('#'..msg) - end - p:header() - writeto() - end -end - |