-- options.lua - process command-line options. -- This is part of blogme3. -- -- Author: Eduardo Ochs -- Version: 2007may29 -- -- -- License: GPL. -- «.htmlization_head» (to "htmlization_head") -- «.htmlization_warning» (to "htmlization_warning") -- «.htmlizefile» (to "htmlizefile") -- «.dooptions» (to "dooptions") -- «.basic-options» (to "basic-options") -- «._O» (to "_O") --------[ experimental ]-------- -- «htmlization_head» (to ".htmlization_head") mdef [[ htmlization_head 1 fname [$ fname] (htmlized) ]] --------[ htmlization_warning ]-------- -- «htmlization_warning» (to ".htmlization_warning") mdef [[ htmlization_warning_ 2 original,htmlizer
Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
]] def [[ htmlization_warning 1 fname htmlization_warning_( fnamenondirectory(fname), pathto "blogme3/escripts.lua.html" ) ]] --------[ htmlizefile ]-------- -- «htmlizefile» (to ".htmlizefile") -- (find-blogme3file "anggdefs.lua" "MYL 2 fname,text") -- (find-fline "~/TH/L/bin/fastcmp.lua.html") -- (find-blogme3file "escripts.lua") -- (find-blogme3file "escripts.lua" "htmlizefile =") htmlizefile = function (fname, outfname, htmlizer) outfname = outfname or fname..".html" htmlizer = htmlizer or htmlizelines local fcontents = readfile(fname) local fnamestem = fnamenondirectory(fname) local warning = htmlization_warning(fname) local head = htmlization_head(fname) local body = BODY(warning .. PRE(htmlizer(fcontents))) writefile(outfname, sgmlify(HTML(head .. body))) end --------[ dooptions ]-------- -- «dooptions» (to ".dooptions") -- input = readfile(fname_input) -- output = doblogme(input) -- writefile(fname_output, output) -- _O = _O or {} dooptions = function (...) if arg.n < 1 then return end local optionname = arg[1] if not _O[optionname] then error(format("Not in _O (for dooptions): %q", optionname)) end table.remove(arg, 1) _O[optionname](unpack(arg)) end --------[ basic options ]-------- -- «basic-options» (to ".basic-options") -- (find-blogme3file "defs.lua" "blogme_output") dooption_i = function (fname) doblogme(readfile(fname)) writefile(outputfile, blogme_output) end dooption_o = function (fname) outputfile = fname pathtoroot = getpathtoroot(fname) eevarticle = pathto("eev-article.html") require "angglisp" -- (find-blogme3 "angglisp.lua") -- If I supported "lazy urls" in the _EHELP table then I wouldn't -- need to wait until "-o" to load angglisp. This is ridiculous. -- experimental, 2007oct15: loada2html always end dooption_a2html = function (fname) htmlizefile(fname, outputfile) end dooption_e = function (luacode) assert(loadstring(luacode))() end dooption_dd = function (fname) writefile(fname, defs_as_lua().."\n") end -- «_O» (to "._O") _O = _O or {} _O["-o"] = function (fn, ...) dooption_o(fn); dooptions(unpack(arg)) end _O["-i"] = function (fn, ...) dooption_i(fn); dooptions(unpack(arg)) end _O["-a2html"] = function (fn, ...) dooption_a2html(fn); dooptions(unpack(arg)) end _O["-e"] = function (lc, ...) dooption_e(lc); dooptions(unpack(arg)) end _O["-dd"] = function (fn, ...) dooption_dd(fn); dooptions(unpack(arg)) end -- Other options, not implemented: run doblogme inside a xpcall; ... -- Local Variables: -- coding: raw-text-unix -- End: