Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- (find-es "lua5" "require") HOME = os.getenv("HOME") -- dofile "/home/edrx/LUA/lua50init.lua" dofile(HOME .. "/LUA/lua50init.lua") if arg then do local _, __, arg0path = string.find(arg[0], "^(.*)/[^/]*$") scriptdir = arg0path or "." if arg0path then LUA_PATH = (LUA_PATH or getenv("LUA_PATH") or "?;?.lua").. ";"..arg0path.."/?" end end else arg = {} end -- 2007aug18 myloadlib = function (libname, funcname) return assert(package.loadlib(ee_expand(libname), funcname))() end -- myloadlib("~/usrc/bitlib-21/lbitlib.so", "luaopen_bit") -- myloadlib("~/vtutil4/piofontx.so", "piofontx_init") -- myloadlib("/home/edrx/usrc/bitlib-21/lbitlib.so", "luaopen_bit") -- myloadlib("/home/edrx/vtutil4/piofontx51.so", "piofontx_init") -- (find-angg "LUA/lua50init.lua" "ee_loadlib") -- (find-angg "vtutil4/") -- (find-anggfile "vtutil4/Makefile" "SOS =") -- (find-anggfile "vtutil4/Makefile" "sos: $(SOS)") -- (find-anggfile "vtutil4/lbitlib.c") ee_loadlib("~/vtutil4/piofontx51.so", "piofontx_init") ee_loadlib("~/vtutil4/lbitlib51.so", "lua_bitlibopen") -- for k,v in pairs(bit) do _G[k] = v end -- PP(bit) -- PP(band) -- PP(piofontx) dofile "vtfontlib.lua" -- (find-vtutil4 "vtfontlib.lua") dofile "mathchars.lua" -- (find-vtutil4 "mathchars.lua") -- (find-lua50ref "Basic Functions" ". loadstring") -- PP(arg) S = function (n) if n then return ARGV[ARGD+n] or "" end ARGP = ARGP+1 return ARGV[ARGP-1] or "" end N = function (n) return tonumber(S(n)) end ARGP = 3 ARGD = 2 ARGV = arg if arg[1] == "-e" then assert(loadstring(arg[2]))() end -- fname = "ega1.8" -- rawfont = readfile(fname) -- font = rawfonttofont(rawfont, 256, 8) -- font = pcfonttoisofont(font) -- gridstr = fonttogridstr(font, 0, 255) -- setfont(font) -- print(gridstr) -- (find-vtutil4file "vtfontlib.lua") -- (eev "cd ~/vtutil4/; make; lua50 vtutil.lua")