-- (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")