add echo to _.cmd _.cmdrst _.sh _.moonc when verbose

.gitattributes

@@ -0,0 +1,3 @@
+*.lua linguist-generated
+out/* linguist-generated
+Makefile -linguist-detectable

moonbuild/_cmd.moon

@@ -1,4 +1,5 @@
-import parseargs, escape from require 'moonbuild._cmd.common'
+import parseargs, escape, cmdline from require 'moonbuild._cmd.common'
+import verbose from require 'moonbuild._common'
 
 ok, cmd, backend = false, nil, nil
 unless ok
@@ -17,6 +18,18 @@ cmd.backend = backend
 cmd.parseargs = parseargs
 cmd.escape = escape
 
+-- make verbose verisons of _.cmd, _.cmdrst and _.sh
+for f in *({'cmd', 'cmdrst'})
+	orig = cmd[f]
+	cmd[f] = (...) ->
+		cli = cmdline ...
+		verbose -> print "[#{f}] #{cli}"
+		orig ...
+_sh = cmd.sh
+cmd.sh = (cli) ->
+	verbose -> print "[sh] #{cli}"
+	_sh cli
+
 -- derived cmd functions
 _cmd = cmd.cmd
 _cmdrst = cmd.cmdrst

moonbuild/_cmd/common.moon

@@ -1,5 +1,6 @@
 import gsub, sub, match from string
 import concat from table
+import flatten from require 'moonbuild._common'
 
 specialchars =
 	'\"': '\\\"'
@@ -115,7 +116,11 @@ parseargs = (argstr) ->
 
 	args
 
+cmdline = (...) ->
+	concat [escape arg for arg in *flatten ...], ' '
+
 {
 	:escape
 	:parseargs
+	:cmdline
 }

moonbuild/_cmd/lua.moon

@@ -1,12 +1,9 @@
-import escape from require 'moonbuild._cmd.common'
+import cmdline from require 'moonbuild._cmd.common'
 import flatten from require 'moonbuild._common'
 import execute from require 'moonbuild.compat.execute'
 import popen from io
 import concat from table
 
-cmdline = (...) ->
-	concat [escape arg for arg in *flatten ...], ' '
-
 cmd = (...) ->
 	ok, ret, code = execute cmdline ...
 	error "command #{first ...} exited with #{code} (#{ret})" unless ok
@@ -19,6 +16,7 @@ cmdrst = (...) ->
 	data
 
 sh = (cli) ->
+	verbose -> print '[sh] ' .. cli
 	ok, ret, code = execute cli
 	error "command '#{cli}' exited with #{code} (#{ret})" unless ok
 

moonbuild/_cmd/posix.moon

@@ -37,6 +37,7 @@ cmdrst = (...) ->
 	data
 
 sh = (cli) ->
+	verbose -> print '[sh] ' .. cli
 	cmd 'sh', '-c', cli
 
 {

moonbuild/_common.moon

@@ -147,6 +147,17 @@ minmax = (list) ->
 		M = e if e>M
 	m, M
 
+_verbose = false
+verbose = (arg) ->
+	if arg == nil
+		_verbose
+	elseif (type arg) == 'function'
+		arg! if _verbose
+	elseif (type arg) == 'boolean'
+		_verbose = arg
+	else
+		error "_.verbose takes either no argument, a boolean or a function"
+
 common.flatten = flatten
 common.first = first
 common.foreach = foreach
@@ -159,5 +170,6 @@ common.exclude = exclude
 common.min = min
 common.max = max
 common.minmax = minmax
+common.verbose = verbose
 
 setmetatable common, __call: => [k for k in pairs common]

moonbuild/_util.moon

@@ -1,5 +1,6 @@
 import to_lua from require 'moonscript.base'
 import parseargs, cmdrst from require 'moonbuild._cmd'
+import verbose from require 'moonbuild._common'
 import gmatch, match, gsub from string
 import open from io
 
@@ -34,6 +35,7 @@ writefile = (filename, data) ->
 	nil
 
 moonc = (infile, outfile) ->
+	verbose -> print "[moonc] #{infile} #{outfile}"
 	code, err = to_lua readfile infile
 	error "Failed to compile #{@infile}: #{err}" unless code
 	writefile outfile, code

moonbuild/core/DAG.moon

@@ -56,22 +56,44 @@ class DepGraph
 
 	addnode: (name) =>
 		return if @nodes[name]
-		elected = @resolvedeps name
+		elected = @topresolvedeps name
 		@nodes[name] = elected
 		for dep in *(transclosure elected, 'deps')
 			@nodes[dep.name] = dep
 			dep.deps = nil
 		elected.deps = nil
 
-	resolvedeps: (name) =>
+	topresolvedeps: (name) =>
+		errors = {}
+		ok, rst = pcall -> @resolvedeps name, nil, errors
+		if ok
+			rst
+		else
+			msg = {"Failed to resolve target \'#{name}\'\n"}
+			for e in *errors
+				if e.err\match '^moonbuild'
+					e.err = e.err\match ': (.+)$'
+			for i=#errors, 1, -1
+				e = errors[i]
+				insert msg, "#{string.rep '| ', e.level - 1}+-[#{e.name}] level #{e.level}: #{e.err}"
+			insert msg, ''
+			error table.concat msg, '\n'
+
+	resolvedeps: (name, level=1, errors={}) =>
 		do
 			node = @nodes[name]
-			return node, {} if node
+			if node
+				print "deps(#{name}) = #{node.name or '[noname]'}"
+				return node, {}
 		candidates = filter {@ctx.targets, FileTarget!}, (target) -> target\matches name
-		nodes = foreach candidates, (candidate) -> a: {pcall -> DepNode @, candidate, name}
+		nodes = foreach candidates, (candidate) -> a: {pcall -> DepNode @, candidate, name, level, errors}
 		resolved = foreach (filter nodes, (node) -> node.a[1]), (node) -> node.a[2]
 		sort resolved, nodepriority
-		resolved[1] or error "Cannot resolve target #{name}: #{#candidates} candidates, #{#resolved} resolved"
+		unless resolved[1]
+			err = "Cannot resolve target #{name}: #{#candidates} candidates, #{#resolved} resolved"
+			table.insert errors, {:name, :level, :err}
+			error err
+		resolved[1]
 
 	buildablenodes: =>
 		[v for k, v in pairs @nodes when v\canbuild! and not v.built]
@@ -91,7 +113,7 @@ class DepGraph
 			insert stack, n for n in *(node\children!)
 
 class DepNode
-	new: (@dag, target, @name) =>
+	new: (@dag, target, @name, @level, errors) =>
 		@priority = target.priority
 		@buildfunctions = target.buildfunctions
 		@mkdirs = target._mkdirs
@@ -101,7 +123,7 @@ class DepNode
 		@type = 'virtual' if #@outs == 0
 		@built = false
 
-		resolve = (name) -> @dag\resolvedeps patsubst @name, target.pattern, name
+		resolve = (name) -> @dag\resolvedeps (patsubst @name, target.pattern, name), level + 1, errors
 		after = flatten foreach target.needtargets, resolve
 		deps = flatten foreach target.infiles, resolve
 		if #target.depfunctions!=0
@@ -149,7 +171,7 @@ class DepNode
 
 		return false if @built or #@buildfunctions == 0
 		return false unless force or @shouldbuild!
-		print "#{@type == 'virtual' and "Running" or "Building"} #{@name}" unless quiet
+		print "#{@type == 'virtual' and "Running" or "Building"} #{@name} [level #{@level}]" unless quiet
 		@actuallybuild!
 		true
 

moonbuild/init.moon

@@ -33,22 +33,27 @@ moonbuild = (...) ->
 	verbose = opts.verbose or opts.v or false
 	opts.verbose = verbose
 
+	-- set verbosity level
+	_.verbose verbose
+
 	-- create context and DAG
 	ctx = Context!
 	ctx\load (loadfile buildfile), opts
-	print "Loaded buildfile" if verbose
+	_.verbose -> print "Loaded buildfile"
 	ctx\init!
-	print "Initialized buildfile" if verbose
+	_.verbose -> print "Initialized buildfile"
 	targets = #opts==0 and ctx.defaulttargets or opts
 	dag = DepGraph ctx, targets
-	print "Created dependancy graph" if verbose
+	_.verbose -> print "Created dependancy graph"
 
 	-- and build
 	nparallel = parallel == true and Executor\getmaxparallel! or parallel
-	print "Building with #{nparallel} max parallel process#{nparallel>1 and "es" or ""}" if verbose
+	_.verbose -> print "Building with #{nparallel} max parallel process#{nparallel>1 and "es" or ""}"
 	executor = Executor dag, nparallel
 	executor\execute opts
-	print "Finished" if verbose
+	_.verbose -> print "Finished"
+
+	print _.verbose!
 
 table = {
 	:moonbuild, :_

out/moonbuild.lua

@@ -1,5 +1,3 @@
-do
-
 do
 local _ENV = _ENV
 package.preload[ "moonbuild._" ] = function( ... ) local arg = _G.arg;
@@ -38,11 +36,13 @@ end
 do
 local _ENV = _ENV
 package.preload[ "moonbuild._cmd" ] = function( ... ) local arg = _G.arg;
-local parseargs, escape
+local parseargs, escape, cmdline
 do
   local _obj_0 = require('moonbuild._cmd.common')
-  parseargs, escape = _obj_0.parseargs, _obj_0.escape
+  parseargs, escape, cmdline = _obj_0.parseargs, _obj_0.escape, _obj_0.cmdline
 end
+local verbose
+verbose = require('moonbuild._common').verbose
 local ok, cmd, backend = false, nil, nil
 if not (ok) then
   ok, cmd = pcall(function()
@@ -69,6 +69,28 @@ end
 cmd.backend = backend
 cmd.parseargs = parseargs
 cmd.escape = escape
+local _list_0 = ({
+  'cmd',
+  'cmdrst'
+})
+for _index_0 = 1, #_list_0 do
+  local f = _list_0[_index_0]
+  local orig = cmd[f]
+  cmd[f] = function(...)
+    local cli = cmdline(...)
+    verbose(function()
+      return print("[" .. tostring(f) .. "] " .. tostring(cli))
+    end)
+    return orig(...)
+  end
+end
+local _sh = cmd.sh
+cmd.sh = function(cli)
+  verbose(function()
+    return print("[sh] " .. tostring(cli))
+  end)
+  return _sh(cli)
+end
 local _cmd = cmd.cmd
 local _cmdrst = cmd.cmdrst
 cmd.cmdline = function(cmdline)
@@ -101,6 +123,8 @@ do
 end
 local concat
 concat = table.concat
+local flatten
+flatten = require('moonbuild._common').flatten
 local specialchars = {
   ['\"'] = '\\\"',
   ['\\'] = '\\\\',
@@ -232,26 +256,6 @@ parseargs = function(argstr)
   end
   return args
 end
-return {
-  escape = escape,
-  parseargs = parseargs
-}
-end
-end
-
-do
-local _ENV = _ENV
-package.preload[ "moonbuild._cmd.lua" ] = function( ... ) local arg = _G.arg;
-local escape
-escape = require('moonbuild._cmd.common').escape
-local flatten
-flatten = require('moonbuild._common').flatten
-local execute
-execute = require('moonbuild.compat.execute').execute
-local popen
-popen = io.popen
-local concat
-concat = table.concat
 local cmdline
 cmdline = function(...)
   return concat((function(...)
@@ -266,6 +270,27 @@ cmdline = function(...)
     return _accum_0
   end)(...), ' ')
 end
+return {
+  escape = escape,
+  parseargs = parseargs,
+  cmdline = cmdline
+}
+end
+end
+
+do
+local _ENV = _ENV
+package.preload[ "moonbuild._cmd.lua" ] = function( ... ) local arg = _G.arg;
+local cmdline
+cmdline = require('moonbuild._cmd.common').cmdline
+local flatten
+flatten = require('moonbuild._common').flatten
+local execute
+execute = require('moonbuild.compat.execute').execute
+local popen
+popen = io.popen
+local concat
+concat = table.concat
 local cmd
 cmd = function(...)
   local ok, ret, code = execute(cmdline(...))
@@ -285,6 +310,9 @@ cmdrst = function(...)
 end
 local sh
 sh = function(cli)
+  verbose(function()
+    return print('[sh] ' .. cli)
+  end)
   local ok, ret, code = execute(cli)
   if not (ok) then
     return error("command '" .. tostring(cli) .. "' exited with " .. tostring(code) .. " (" .. tostring(ret) .. ")")
@@ -356,6 +384,9 @@ cmdrst = function(...)
 end
 local sh
 sh = function(cli)
+  verbose(function()
+    return print('[sh] ' .. cli)
+  end)
   return cmd('sh', '-c', cli)
 end
 return {
@@ -637,6 +668,21 @@ minmax = function(list)
   end
   return m, M
 end
+local _verbose = false
+local verbose
+verbose = function(arg)
+  if arg == nil then
+    return _verbose
+  elseif (type(arg)) == 'function' then
+    if _verbose then
+      return arg()
+    end
+  elseif (type(arg)) == 'boolean' then
+    _verbose = arg
+  else
+    return error("_.verbose takes either no argument, a boolean or a function")
+  end
+end
 common.flatten = flatten
 common.first = first
 common.foreach = foreach
@@ -649,6 +695,7 @@ common.exclude = exclude
 common.min = min
 common.max = max
 common.minmax = minmax
+common.verbose = verbose
 return setmetatable(common, {
   __call = function(self)
     local _accum_0 = { }
@@ -1262,6 +1309,8 @@ do
   local _obj_0 = require('moonbuild._cmd')
   parseargs, cmdrst = _obj_0.parseargs, _obj_0.cmdrst
 end
+local verbose
+verbose = require('moonbuild._common').verbose
 local gmatch, match, gsub
 do
   local _obj_0 = string
@@ -1333,6 +1382,9 @@ writefile = function(filename, data)
 end
 local moonc
 moonc = function(infile, outfile)
+  verbose(function()
+    return print("[moonc] " .. tostring(infile) .. " " .. tostring(outfile))
+  end)
   local code, err = to_lua(readfile(infile))
   if not (code) then
     error("Failed to compile " .. tostring(self.infile) .. ": " .. tostring(err))
@@ -1750,7 +1802,7 @@ do
       if self.nodes[name] then
         return 
       end
-      local elected = self:resolvedeps(name)
+      local elected = self:topresolvedeps(name)
       self.nodes[name] = elected
       local _list_0 = (transclosure(elected, 'deps'))
       for _index_0 = 1, #_list_0 do
@@ -1760,10 +1812,42 @@ do
       end
       elected.deps = nil
     end,
-    resolvedeps = function(self, name)
+    topresolvedeps = function(self, name)
+      local errors = { }
+      local ok, rst = pcall(function()
+        return self:resolvedeps(name, nil, errors)
+      end)
+      if ok then
+        return rst
+      else
+        local msg = {
+          "Failed to resolve target \'" .. tostring(name) .. "\'\n"
+        }
+        for _index_0 = 1, #errors do
+          local e = errors[_index_0]
+          if e.err:match('^moonbuild') then
+            e.err = e.err:match(': (.+)$')
+          end
+        end
+        for i = #errors, 1, -1 do
+          local e = errors[i]
+          insert(msg, tostring(string.rep('| ', e.level - 1)) .. "+-[" .. tostring(e.name) .. "] level " .. tostring(e.level) .. ": " .. tostring(e.err))
+        end
+        insert(msg, '')
+        return error(table.concat(msg, '\n'))
+      end
+    end,
+    resolvedeps = function(self, name, level, errors)
+      if level == nil then
+        level = 1
+      end
+      if errors == nil then
+        errors = { }
+      end
       do
         local node = self.nodes[name]
         if node then
+          print("deps(" .. tostring(name) .. ") = " .. tostring(node.name or '[noname]'))
           return node, { }
         end
       end
@@ -1777,7 +1861,7 @@ do
         return {
           a = {
             pcall(function()
-              return DepNode(self, candidate, name)
+              return DepNode(self, candidate, name, level, errors)
             end)
           }
         }
@@ -1788,7 +1872,16 @@ do
         return node.a[2]
       end)
       sort(resolved, nodepriority)
-      return resolved[1] or error("Cannot resolve target " .. tostring(name) .. ": " .. tostring(#candidates) .. " candidates, " .. tostring(#resolved) .. " resolved")
+      if not (resolved[1]) then
+        local err = "Cannot resolve target " .. tostring(name) .. ": " .. tostring(#candidates) .. " candidates, " .. tostring(#resolved) .. " resolved"
+        table.insert(errors, {
+          name = name,
+          level = level,
+          err = err
+        })
+        error(err)
+      end
+      return resolved[1]
     end,
     buildablenodes = function(self)
       local _accum_0 = { }
@@ -1917,7 +2010,7 @@ do
         return false
       end
       if not (quiet) then
-        print(tostring(self.type == 'virtual' and "Running" or "Building") .. " " .. tostring(self.name))
+        print(tostring(self.type == 'virtual' and "Running" or "Building") .. " " .. tostring(self.name) .. " [level " .. tostring(self.level) .. "]")
       end
       self:actuallybuild()
       return true
@@ -1999,8 +2092,8 @@ do
   }
   _base_0.__index = _base_0
   _class_0 = setmetatable({
-    __init = function(self, dag, target, name)
+    __init = function(self, dag, target, name, level, errors)
-      self.dag, self.name = dag, name
+      self.dag, self.name, self.level = dag, name, level
       self.priority = target.priority
       self.buildfunctions = target.buildfunctions
       self.mkdirs = target._mkdirs
@@ -2015,7 +2108,7 @@ do
       self.built = false
       local resolve
       resolve = function(name)
-        return self.dag:resolvedeps(patsubst(self.name, target.pattern, name))
+        return self.dag:resolvedeps((patsubst(self.name, target.pattern, name)), level + 1, errors)
       end
       local after = flatten(foreach(target.needtargets, resolve))
       local deps = flatten(foreach(target.infiles, resolve))
@@ -2750,8 +2843,6 @@ end
 end
 end
 
-end
-
 local loadfile
 loadfile = require('moonscript.base').loadfile
 local Context = require('moonbuild.context')
@@ -2793,29 +2884,31 @@ moonbuild = function(...)
   opts.force = force
   local verbose = opts.verbose or opts.v or false
   opts.verbose = verbose
+  _.verbose(verbose)
   local ctx = Context()
   ctx:load((loadfile(buildfile)), opts)
-  if verbose then
+  _.verbose(function()
-    print("Loaded buildfile")
+    return print("Loaded buildfile")
-  end
+  end)
   ctx:init()
-  if verbose then
+  _.verbose(function()
-    print("Initialized buildfile")
+    return print("Initialized buildfile")
-  end
+  end)
   local targets = #opts == 0 and ctx.defaulttargets or opts
   local dag = DepGraph(ctx, targets)
-  if verbose then
+  _.verbose(function()
-    print("Created dependancy graph")
+    return print("Created dependancy graph")
-  end
+  end)
   local nparallel = parallel == true and Executor:getmaxparallel() or parallel
-  if verbose then
+  _.verbose(function()
-    print("Building with " .. tostring(nparallel) .. " max parallel process" .. tostring(nparallel > 1 and "es" or ""))
+    return print("Building with " .. tostring(nparallel) .. " max parallel process" .. tostring(nparallel > 1 and "es" or ""))
-  end
+  end)
   local executor = Executor(dag, nparallel)
   executor:execute(opts)
-  if verbose then
+  _.verbose(function()
     return print("Finished")
-  end
+  end)
+  return print(_.verbose())
 end
 local table = {
   moonbuild = moonbuild,

rock.yml

@@ -1,6 +1,6 @@
 package: moonbuild
 source:
-    url: git://github.com/natnat-mc/moonbuild
+    url: git+http://github.com/natnat-mc/moonbuild
 description:
     summary: Small build system in between make and a build.sh
     detailed: >

rockspecs/moonbuild-2.6.0-1.rockspec

@@ -0,0 +1,27 @@
+build = {
+  install = {
+    bin = {
+      moonbuild = "out/moonbuild"
+    }
+  },
+  modules = {
+    moonbuild = "out/moonbuild.lua"
+  },
+  type = "builtin"
+}
+dependencies = {
+  "lua >= 5.1",
+  "argparse >= 0.7.1-1",
+  "moonscript >= 0.5.0-1"
+}
+description = {
+  detailed = "moonbuild is a small build system that simplifies your build definitions by allowing you to use declarative as well as imperative rules. It represents the build as a DAG with explicit ordering, and doesn't give you any default confusing rules (unlike make). If you can, installing luaposix and/or luafilesystem will speed up builds and increase stability.\n",
+  summary = "Small build system in between make and a build.sh"
+}
+package = "moonbuild"
+rockspec_format = "3.0"
+source = {
+  tag = "v2.6.0",
+  url = "git+http://github.com/natnat-mc/moonbuild"
+}
+version = "2.6.0-1"