mirror of https://github.com/natnat-mc/moonbuild
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
132 lines
3.2 KiB
132 lines
3.2 KiB
#!/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 'util'
|
|
import exists, mtime, run, min, max, first, flatten 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"
|
|
args=parser\parse!
|
|
|
|
-- util functions
|
|
loadwithscope= (file, scope) ->
|
|
fn=loadfile file
|
|
dumped=string.dump fn
|
|
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={}
|
|
|
|
@build: (name) =>
|
|
target=all[name] or error "No such target: #{name}"
|
|
target\build!
|
|
|
|
new: (@name, @outs={}, @ins={}, @deps={}, @fn= =>) =>
|
|
@skip=false
|
|
error "Duplicate build name #{@name}" if all[@name]
|
|
all[@name]=@
|
|
|
|
build: =>
|
|
return if @skip
|
|
error "Can't build #{@name}: cyclic dependancy" if @cycle
|
|
@cycle=true
|
|
for depname in *@deps
|
|
dep=all[depname] or error "Can't build #{@name}: missing dependancy #{depname}"
|
|
dep\build!
|
|
return unless @shouldbuild!
|
|
|
|
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=true
|
|
|
|
shouldbuild: =>
|
|
return true if args.noskip
|
|
return true if #@ins==0 or #@outs==0
|
|
|
|
itimes=[mtime f for f in *@ins]
|
|
for i=1, #@ins
|
|
error "Can't build #{@name}: missing inputs" unless itimes[i]
|
|
|
|
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) ->
|
|
BuildObject name, (flatten params.out), (flatten params.in), (flatten params.deps), 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
|
|
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.targets==0
|
|
BuildObject\build defaulttarget
|
|
for target in *args.targets
|
|
BuildObject\build target
|
|
|