moonscript/bin/moon

87 lines
1.7 KiB
Plaintext
Raw Normal View History

2011-08-13 04:07:44 +00:00
#!/usr/bin/env lua
2011-06-20 01:47:47 +00:00
require "alt_getopt"
require "moonscript.errors"
require "moonscript"
2011-06-20 01:47:47 +00:00
local util = require "moonscript.util"
2011-06-20 01:47:47 +00:00
-- moonloader and repl
2011-07-19 06:53:43 +00:00
local opts, ind = alt_getopt.get_opts(arg, "cvhd", { version = "v", help = "h" })
2011-06-20 01:47:47 +00:00
local help = [=[Usage: %s [options] [script [args]]
-h Print this message
2011-07-19 04:07:03 +00:00
-d Disable stack trace rewriting
2011-07-19 06:53:43 +00:00
-v Print version
2011-06-20 01:47:47 +00:00
]=]
local function print_err(...)
msg = table.concat({...}, "\t")
io.stderr:write(msg .. "\n")
end
2011-06-20 01:47:47 +00:00
local function print_help(err)
if err then print("Error: "..err) end
print(help:format(arg[0]))
os.exit()
end
if opts.h then print_help() end
2011-07-19 06:53:43 +00:00
if opts.v then
local v = require "moonscript.version"
v.print_version()
os.exit()
end
local script_fname = arg[ind]
if not script_fname then
2011-06-20 01:47:47 +00:00
print_help("repl not yet supported")
return
end
2011-06-20 02:14:20 +00:00
local new_arg = {
[-1] = arg[0],
[0] = arg[ind],
select(ind + 1, unpack(arg))
}
2011-06-20 01:47:47 +00:00
local moonscript_chunk, lua_parse_error
local passed, err = pcall(function()
moonscript_chunk, lua_parse_error = moonscript.loadfile(script_fname)
end)
if not passed then
print_err(err)
os.exit(1)
end
if not moonscript_chunk then
if lua_parse_error then
print_err(lua_parse_error)
else
print_err("Can't find file: " .. script_fname)
end
os.exit(1)
end
getfenv(moonscript_chunk).arg = new_arg
if not opts.d then
local err, trace
xpcall(function() moonscript_chunk(unpack(new_arg)) end, function(_err)
err = _err
trace = debug.traceback("", 2)
end)
2011-07-04 16:02:17 +00:00
if err then
local traceback = util.trim(trace)
traceback = moonscript.errors.truncate_traceback(traceback)
print_err(moonscript.errors.rewrite_traceback(traceback, err))
os.exit(1)
2011-07-19 04:07:03 +00:00
end
else
moonscript_chunk(unpack(new_arg))
2011-07-04 16:02:17 +00:00
end