mirror of
https://github.com/natnat-mc/moonbuild
synced 2026-05-11 19:51:15 +02:00
Producing rockspec 1.0.0-2
This commit is contained in:
Nathan DECHER
@@ -0,0 +1,428 @@
|
||||
local argparse = require('argparse')
|
||||
require('moonscript')
|
||||
local loadfile
|
||||
loadfile = require('moonscript.base').loadfile
|
||||
local truncate_traceback, rewrite_traceback
|
||||
do
|
||||
local _obj_0 = require('moonscript.errors')
|
||||
truncate_traceback, rewrite_traceback = _obj_0.truncate_traceback, _obj_0.rewrite_traceback
|
||||
end
|
||||
local trim
|
||||
trim = require('moonscript.util').trim
|
||||
local util = require('moonbuild.util')
|
||||
local exists, mtime, run, min, max, first, flatten, match, patsubst, sortedpairs
|
||||
exists, mtime, run, min, max, first, flatten, match, patsubst, sortedpairs = util.exists, util.mtime, util.run, util.min, util.max, util.first, util.flatten, util.match, util.patsubst, util.sortedpairs
|
||||
local insert, concat
|
||||
do
|
||||
local _obj_0 = table
|
||||
insert, concat = _obj_0.insert, _obj_0.concat
|
||||
end
|
||||
local parser = argparse('moonbuild')
|
||||
parser:argument('targets', "Targets to run"):args('*')
|
||||
parser:flag('-a --noskip', "Always run targets")
|
||||
parser:flag('-l --list', "List available targets")
|
||||
parser:flag('-d --deps', "List targets and their dependancies")
|
||||
local args = parser:parse()
|
||||
local loadwithscope
|
||||
loadwithscope = function(file, scope)
|
||||
local fn, err = loadfile(file)
|
||||
if not (fn) then
|
||||
error(err or "failed to load code")
|
||||
end
|
||||
local dumped
|
||||
dumped, err = string.dump(fn)
|
||||
if not (dumped) then
|
||||
error(err or "failed to dump function")
|
||||
end
|
||||
return load(dumped, file, 'b', scope)
|
||||
end
|
||||
local pcall
|
||||
pcall = function(fn, ...)
|
||||
local rewrite
|
||||
rewrite = function(err)
|
||||
local trace = debug.traceback('', 2)
|
||||
local trunc = truncate_traceback(trim(trace))
|
||||
return rewrite_traceback(trunc, err)
|
||||
end
|
||||
return xpcall(fn, rewrite, ...)
|
||||
end
|
||||
local Command
|
||||
do
|
||||
local _class_0
|
||||
local _base_0 = {
|
||||
__unm = function(self)
|
||||
return self:run({
|
||||
error = true,
|
||||
print = true
|
||||
})
|
||||
end,
|
||||
__len = function(self)
|
||||
return self:run({
|
||||
error = true
|
||||
})
|
||||
end,
|
||||
__tostring = function(self)
|
||||
return self.cmd
|
||||
end,
|
||||
run = function(self, params)
|
||||
return run(self.cmd, self.args, params)
|
||||
end
|
||||
}
|
||||
_base_0.__index = _base_0
|
||||
_class_0 = setmetatable({
|
||||
__init = function(self, cmd, ...)
|
||||
self.cmd = cmd
|
||||
self.args = {
|
||||
...
|
||||
}
|
||||
end,
|
||||
__base = _base_0,
|
||||
__name = "Command"
|
||||
}, {
|
||||
__index = _base_0,
|
||||
__call = function(cls, ...)
|
||||
local _self_0 = setmetatable({}, _base_0)
|
||||
cls.__init(_self_0, ...)
|
||||
return _self_0
|
||||
end
|
||||
})
|
||||
_base_0.__class = _class_0
|
||||
local self = _class_0
|
||||
self.run = function(self, ...)
|
||||
return -self(...)
|
||||
end
|
||||
Command = _class_0
|
||||
end
|
||||
local BuildObject
|
||||
do
|
||||
local _class_0
|
||||
local all, skip
|
||||
local _base_0 = {
|
||||
__tostring = function(self)
|
||||
return "Target " .. tostring(self.name) .. " (" .. tostring(concat(self.deps, ', ')) .. ")"
|
||||
end,
|
||||
build = function(self, name, upper)
|
||||
if upper == nil then
|
||||
upper = { }
|
||||
end
|
||||
if skip[name] then
|
||||
return
|
||||
end
|
||||
if upper[self] then
|
||||
error("Cycle detected on " .. tostring(self.name))
|
||||
end
|
||||
upper = setmetatable({
|
||||
[self] = true
|
||||
}, {
|
||||
__index = upper
|
||||
})
|
||||
if self.name ~= name then
|
||||
local _list_0 = self.deps
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local dep = _list_0[_index_0]
|
||||
self.__class:build((patsubst(name, self.name, dep)), upper)
|
||||
end
|
||||
else
|
||||
local _list_0 = self.deps
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local dep = _list_0[_index_0]
|
||||
self.__class:build(dep, upper)
|
||||
end
|
||||
end
|
||||
if not (self:shouldbuild(name)) then
|
||||
return
|
||||
end
|
||||
local ins = self.ins
|
||||
local outs = self.outs
|
||||
if self.name ~= name then
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
local _list_0 = self.ins
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local elem = _list_0[_index_0]
|
||||
_accum_0[_len_0] = patsubst(name, self.name, elem)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
ins = _accum_0
|
||||
end
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
local _list_0 = self.outs
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local elem = _list_0[_index_0]
|
||||
_accum_0[_len_0] = patsubst(name, self.name, elem)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
outs = _accum_0
|
||||
end
|
||||
print("Building " .. tostring(self.name) .. " as " .. tostring(name))
|
||||
else
|
||||
print("Building " .. tostring(name))
|
||||
end
|
||||
local ok, err = pcall(function()
|
||||
return self.fn({
|
||||
ins = ins,
|
||||
outs = outs,
|
||||
infile = ins[1],
|
||||
outfile = outs[1],
|
||||
name = name
|
||||
})
|
||||
end)
|
||||
if not (ok) then
|
||||
error("Can't build " .. tostring(self.name) .. ": lua error\n" .. tostring(err))
|
||||
end
|
||||
for _index_0 = 1, #outs do
|
||||
local f = outs[_index_0]
|
||||
if not (exists(f)) then
|
||||
error("Can't build " .. tostring(self.name) .. ": output file " .. tostring(f) .. " not created")
|
||||
end
|
||||
end
|
||||
skip[name] = true
|
||||
end,
|
||||
shouldbuild = function(self, name)
|
||||
if args.noskip then
|
||||
return true
|
||||
end
|
||||
if #self.ins == 0 or #self.outs == 0 then
|
||||
return true
|
||||
end
|
||||
local ins
|
||||
if self.name ~= name then
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
local _list_0 = self.ins
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local elem = _list_0[_index_0]
|
||||
_accum_0[_len_0] = patsubst(name, self.name, elem)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
ins = _accum_0
|
||||
end
|
||||
else
|
||||
ins = self.ins
|
||||
end
|
||||
local itimes
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
for _index_0 = 1, #ins do
|
||||
local f = ins[_index_0]
|
||||
_accum_0[_len_0] = mtime(f)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
itimes = _accum_0
|
||||
end
|
||||
for i = 1, #self.ins do
|
||||
if not (itimes[i]) then
|
||||
error("Can't build " .. tostring(self.name) .. ": missing inputs")
|
||||
end
|
||||
end
|
||||
local outs
|
||||
if self.name ~= name then
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
local _list_0 = self.outs
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local elem = _list_0[_index_0]
|
||||
_accum_0[_len_0] = patsubst(name, self.name, elem)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
outs = _accum_0
|
||||
end
|
||||
else
|
||||
outs = self.outs
|
||||
end
|
||||
local otimes
|
||||
do
|
||||
local _accum_0 = { }
|
||||
local _len_0 = 1
|
||||
for _index_0 = 1, #outs do
|
||||
local f = outs[_index_0]
|
||||
_accum_0[_len_0] = mtime(f)
|
||||
_len_0 = _len_0 + 1
|
||||
end
|
||||
otimes = _accum_0
|
||||
end
|
||||
for i = 1, #self.outs do
|
||||
if not otimes[i] then
|
||||
return true
|
||||
end
|
||||
end
|
||||
return (max(itimes)) > (min(otimes))
|
||||
end
|
||||
}
|
||||
_base_0.__index = _base_0
|
||||
_class_0 = setmetatable({
|
||||
__init = function(self, name, outs, ins, deps, fn)
|
||||
if outs == nil then
|
||||
outs = { }
|
||||
end
|
||||
if ins == nil then
|
||||
ins = { }
|
||||
end
|
||||
if deps == nil then
|
||||
deps = { }
|
||||
end
|
||||
if fn == nil then
|
||||
fn = function(self) end
|
||||
end
|
||||
self.name, self.outs, self.ins, self.deps, self.fn = name, outs, ins, deps, fn
|
||||
self.skip = false
|
||||
if all[self.name] then
|
||||
error("Duplicate build name " .. tostring(self.name))
|
||||
end
|
||||
all[self.name] = self
|
||||
end,
|
||||
__base = _base_0,
|
||||
__name = "BuildObject"
|
||||
}, {
|
||||
__index = _base_0,
|
||||
__call = function(cls, ...)
|
||||
local _self_0 = setmetatable({}, _base_0)
|
||||
cls.__init(_self_0, ...)
|
||||
return _self_0
|
||||
end
|
||||
})
|
||||
_base_0.__class = _class_0
|
||||
local self = _class_0
|
||||
all = { }
|
||||
skip = { }
|
||||
self.find = function(self, name)
|
||||
local target = all[name]
|
||||
if target then
|
||||
return target
|
||||
end
|
||||
for glob, tgt in pairs(all) do
|
||||
if match(name, glob) then
|
||||
return tgt
|
||||
end
|
||||
end
|
||||
return nil
|
||||
end
|
||||
self.list = function(self)
|
||||
local _tbl_0 = { }
|
||||
for name, target in pairs(all) do
|
||||
do
|
||||
local _tbl_1 = { }
|
||||
local _list_0 = target.deps
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local dep = _list_0[_index_0]
|
||||
_tbl_1[dep] = self:find(dep)
|
||||
end
|
||||
_tbl_0[target] = _tbl_1
|
||||
end
|
||||
end
|
||||
return _tbl_0
|
||||
end
|
||||
self.build = function(self, name, upper)
|
||||
local target = (self:find(name)) or error("No such target: " .. tostring(name))
|
||||
return target:build(name, upper)
|
||||
end
|
||||
BuildObject = _class_0
|
||||
end
|
||||
if setfenv then
|
||||
error("Need Lua >=5.2")
|
||||
end
|
||||
local targets = { }
|
||||
local defaulttarget = 'all'
|
||||
local buildscope = {
|
||||
default = function(target)
|
||||
defaulttarget = target.name
|
||||
return target
|
||||
end,
|
||||
public = function(target)
|
||||
insert(targets, target.name)
|
||||
return target
|
||||
end,
|
||||
target = function(name, params)
|
||||
local tout = flatten(params.out)
|
||||
local tin = flatten(params["in"])
|
||||
local tdeps = flatten(params.deps)
|
||||
local _list_0 = flatten(params.from)
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local f = _list_0[_index_0]
|
||||
insert(tin, f)
|
||||
insert(tdeps, f)
|
||||
end
|
||||
return BuildObject(name, tout, tin, tdeps, params.fn)
|
||||
end
|
||||
}
|
||||
for k, fn in pairs(util) do
|
||||
buildscope[k] = fn
|
||||
end
|
||||
setmetatable(buildscope, {
|
||||
__index = function(self, k)
|
||||
local global = rawget(_G, k)
|
||||
if global then
|
||||
return global
|
||||
end
|
||||
return function(...)
|
||||
return Command(k, ...)
|
||||
end
|
||||
end
|
||||
})
|
||||
local file = first({
|
||||
'Build.moon',
|
||||
'Buildfile.moon',
|
||||
'Build',
|
||||
'Buildfile'
|
||||
}, exists)
|
||||
if not (file) then
|
||||
error("No Build.moon or Buildfile found")
|
||||
end
|
||||
local buildfn = loadwithscope(file, buildscope)
|
||||
if not (buildfn) then
|
||||
error("Failed to load build function")
|
||||
end
|
||||
local ok, err = pcall(buildfn)
|
||||
if not (ok) then
|
||||
if err then
|
||||
io.stderr:write(err, '\n')
|
||||
else
|
||||
io.stderr:write("Unknown error\n")
|
||||
end
|
||||
os.exit(1)
|
||||
end
|
||||
if args.list then
|
||||
io.write("Available targets:\n")
|
||||
io.write("\t" .. tostring(concat(targets, ', ')) .. "\n")
|
||||
os.exit(0)
|
||||
end
|
||||
if args.deps then
|
||||
io.write("Targets:\n")
|
||||
for target, deps in sortedpairs(BuildObject:list(), function(a, b)
|
||||
return a.name < b.name
|
||||
end) do
|
||||
io.write("\t" .. tostring(target.name) .. " ")
|
||||
if #target.ins == 0 then
|
||||
if #target.outs == 0 then
|
||||
io.write("[no in/out]")
|
||||
else
|
||||
io.write("[spontaneous generation]")
|
||||
end
|
||||
else
|
||||
if #target.outs == 0 then
|
||||
io.write("[consumer]")
|
||||
else
|
||||
io.write("(" .. tostring(concat(target.ins, ', ')) .. " -> " .. tostring(concat(target.outs, ', ')) .. ")")
|
||||
end
|
||||
end
|
||||
io.write("\n")
|
||||
for name, dep in sortedpairs(deps) do
|
||||
io.write("\t\t" .. tostring(name) .. " (" .. tostring(dep.name) .. ")\n")
|
||||
end
|
||||
end
|
||||
os.exit(0)
|
||||
end
|
||||
if #args.targets == 0 then
|
||||
BuildObject:build(defaulttarget)
|
||||
end
|
||||
local _list_0 = args.targets
|
||||
for _index_0 = 1, #_list_0 do
|
||||
local target = _list_0[_index_0]
|
||||
BuildObject:build(target)
|
||||
end
|
||||
Executable
+196
@@ -0,0 +1,196 @@
|
||||
#!/usr/bin/env moon
|
||||
|
||||
argparse=require 'argparse'
|
||||
|
||||
require 'moonscript'
|
||||
import loadfile from require 'moonscript.base'
|
||||
import truncate_traceback, rewrite_traceback from require 'moonscript.errors'
|
||||
import trim from require 'moonscript.util'
|
||||
|
||||
util=require 'moonbuild.util'
|
||||
import exists, mtime, run, min, max, first, flatten, match, patsubst, sortedpairs from util
|
||||
|
||||
import insert, concat from table
|
||||
|
||||
parser=argparse 'moonbuild'
|
||||
parser\argument('targets', "Targets to run")\args '*'
|
||||
parser\flag '-a --noskip', "Always run targets"
|
||||
parser\flag '-l --list', "List available targets"
|
||||
parser\flag '-d --deps', "List targets and their dependancies"
|
||||
args=parser\parse!
|
||||
|
||||
-- util functions
|
||||
loadwithscope= (file, scope) ->
|
||||
fn, err=loadfile file
|
||||
error err or "failed to load code" unless fn
|
||||
dumped, err=string.dump fn
|
||||
error err or "failed to dump function" unless dumped
|
||||
load dumped, file, 'b', scope
|
||||
pcall= (fn, ...) ->
|
||||
rewrite=(err) ->
|
||||
trace=debug.traceback '', 2
|
||||
trunc=truncate_traceback trim trace
|
||||
rewrite_traceback trunc, err
|
||||
xpcall fn, rewrite, ...
|
||||
|
||||
-- command object
|
||||
-- represents a command that can be called
|
||||
class Command
|
||||
new: (@cmd, ...) =>
|
||||
@args={...}
|
||||
|
||||
__unm: => @run error: true, print: true
|
||||
__len: => @run error: true
|
||||
__tostring: => @cmd
|
||||
|
||||
run: (params) => run @cmd, @args, params
|
||||
@run: (...) => -@ ...
|
||||
|
||||
-- build object
|
||||
-- represents a target
|
||||
class BuildObject
|
||||
all={}
|
||||
skip={}
|
||||
|
||||
@find: (name) =>
|
||||
target=all[name]
|
||||
return target if target
|
||||
for glob, tgt in pairs all
|
||||
return tgt if match name, glob
|
||||
nil
|
||||
|
||||
@list: =>
|
||||
{target, {dep, @find dep for dep in *target.deps} for name, target in pairs all}
|
||||
|
||||
@build: (name, upper) =>
|
||||
target=(@find name) or error "No such target: #{name}"
|
||||
target\build name, upper
|
||||
|
||||
__tostring: =>
|
||||
"Target #{@name} (#{concat @deps, ', '})"
|
||||
|
||||
new: (@name, @outs={}, @ins={}, @deps={}, @fn= =>) =>
|
||||
@skip=false
|
||||
error "Duplicate build name #{@name}" if all[@name]
|
||||
all[@name]=@
|
||||
|
||||
build: (name, upper={}) =>
|
||||
return if skip[name]
|
||||
error "Cycle detected on #{@name}" if upper[@]
|
||||
upper = setmetatable {[@]: true}, __index: upper
|
||||
if @name!=name
|
||||
@@build (patsubst name, @name, dep), upper for dep in *@deps
|
||||
else
|
||||
@@build dep, upper for dep in *@deps
|
||||
return unless @shouldbuild name
|
||||
|
||||
ins=@ins
|
||||
outs=@outs
|
||||
if @name!=name
|
||||
ins=[patsubst name, @name, elem for elem in *@ins]
|
||||
outs=[patsubst name, @name, elem for elem in *@outs]
|
||||
print "Building #{@name} as #{name}"
|
||||
else
|
||||
print "Building #{name}"
|
||||
ok, err=pcall ->
|
||||
@.fn
|
||||
ins: ins
|
||||
outs: outs
|
||||
infile: ins[1]
|
||||
outfile: outs[1]
|
||||
name: name
|
||||
error "Can't build #{@name}: lua error\n#{err}" unless ok
|
||||
for f in *outs
|
||||
error "Can't build #{@name}: output file #{f} not created" unless exists f
|
||||
skip[name]=true
|
||||
|
||||
shouldbuild: (name) =>
|
||||
return true if args.noskip
|
||||
return true if #@ins==0 or #@outs==0
|
||||
|
||||
ins=if @name!=name
|
||||
[patsubst name, @name, elem for elem in *@ins]
|
||||
else
|
||||
@ins
|
||||
itimes=[mtime f for f in *ins]
|
||||
for i=1, #@ins
|
||||
error "Can't build #{@name}: missing inputs" unless itimes[i]
|
||||
|
||||
outs=if @name!=name
|
||||
[patsubst name, @name, elem for elem in *@outs]
|
||||
else
|
||||
@outs
|
||||
otimes=[mtime f for f in *outs]
|
||||
for i=1, #@outs
|
||||
return true if not otimes[i]
|
||||
|
||||
(max itimes)>(min otimes)
|
||||
|
||||
error "Need Lua >=5.2" if setfenv
|
||||
|
||||
targets={}
|
||||
defaulttarget='all'
|
||||
|
||||
buildscope=
|
||||
default: (target) ->
|
||||
defaulttarget=target.name
|
||||
target
|
||||
public: (target) ->
|
||||
insert targets, target.name
|
||||
target
|
||||
target: (name, params) ->
|
||||
tout=flatten params.out
|
||||
tin=flatten params.in
|
||||
tdeps=flatten params.deps
|
||||
for f in *flatten params.from
|
||||
insert tin, f
|
||||
insert tdeps, f
|
||||
BuildObject name, tout, tin, tdeps, params.fn
|
||||
buildscope[k]=fn for k, fn in pairs util
|
||||
|
||||
setmetatable buildscope,
|
||||
__index: (k) =>
|
||||
global=rawget _G, k
|
||||
return global if global
|
||||
(...) -> Command k, ...
|
||||
|
||||
file=first {'Build.moon', 'Buildfile.moon', 'Build', 'Buildfile'}, exists
|
||||
error "No Build.moon or Buildfile found" unless file
|
||||
buildfn=loadwithscope file, buildscope
|
||||
error "Failed to load build function" unless buildfn
|
||||
ok, err=pcall buildfn
|
||||
unless ok
|
||||
if err
|
||||
io.stderr\write err, '\n'
|
||||
else
|
||||
io.stderr\write "Unknown error\n"
|
||||
os.exit 1
|
||||
|
||||
if args.list
|
||||
io.write "Available targets:\n"
|
||||
io.write "\t#{concat targets, ', '}\n"
|
||||
os.exit 0
|
||||
|
||||
if args.deps
|
||||
io.write "Targets:\n"
|
||||
for target, deps in sortedpairs BuildObject\list!, (a, b) -> a.name<b.name
|
||||
io.write "\t#{target.name} "
|
||||
if #target.ins==0
|
||||
if #target.outs==0
|
||||
io.write "[no in/out]"
|
||||
else
|
||||
io.write "[spontaneous generation]"
|
||||
else
|
||||
if #target.outs==0
|
||||
io.write "[consumer]"
|
||||
else
|
||||
io.write "(#{concat target.ins, ', '} -> #{concat target.outs, ', '})"
|
||||
io.write "\n"
|
||||
for name, dep in sortedpairs deps
|
||||
io.write "\t\t#{name} (#{dep.name})\n"
|
||||
os.exit 0
|
||||
|
||||
if #args.targets==0
|
||||
BuildObject\build defaulttarget
|
||||
for target in *args.targets
|
||||
BuildObject\build target
|
||||
Reference in New Issue
Block a user