-- (find-es "lua5" "require")

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

require "vtfontlib.lua"
require "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")