1 files changed, 113 insertions, 0 deletions
diff --git a/Tools/LuaMacro/tests/test-macro.lua b/Tools/LuaMacro/tests/test-macro.lua
new file mode 100644
index 0000000..59b569b
--- /dev/null
+++ b/Tools/LuaMacro/tests/test-macro.lua
@@ -0,0 +1,113 @@
+require 'pl'
+local macro = require 'macro'
+
+tmp = [[
+for i = 1,10 do
+    fred("hello",i)
+    f(10,'hello')
+    print(str(233))
+    bonzo a,b,c;
+    fun2(\x(x+1),\(a:get()),\x(\y(x+y)))
+    frederick block
+      for i = 1,10 do
+        alpha block
+          print(i)
+        end
+      end
+    end
+
+	try
+      banzai(dog)
+    except(ex)
+      print(ex)
+    end
+end
+]]
+
+local M = macro
+local define = M.define
+
+define 'fred alice'
+define 'alice print'
+define 'f(x,y) fred(x..y))'
+define ('str(x)',function(x)
+    return '"'..x[1][2]..'"'
+end)
+define ('bonzo',function(get)
+    local t = get();  M.assert(t == 'space','space required')
+    local args = M.get_names(get,';')
+    local res = {}
+    M.put_keyword(res,'local')
+    M.put_names(res,args)
+    return res
+end)
+
+define ('@',function(get)
+    return '"'..os.date('%c')..'"'
+end)
+
+define ('\\',function(get)
+    --local args = M.get_names(get,'(')
+	local args = get:names('(')
+    local body = M.get_list(get)
+	--[[
+    local res = {}
+    M.put_keyword(res,'function')
+    M.put(res,'(')
+    M.put_names(res,args)
+    M.put (res,')')
+    M.put_keyword(res,'return')
+    M.put_list(res,body)
+    M.put_space(res)
+    M.put_keyword(res,'end')
+    return res
+	--]]
+	local put = M.Putter()
+	--print('*****',put,getmetatable(put).keyword)
+	--return put;
+	put:keyword 'function' '(' : names(args) ')'
+	return put:keyword 'return' : list(body) : space() : keyword 'end'
+end)
+
+define ('block',function(get)
+    M.block_handler(0,function(get)
+        return ')'
+    end)
+    local res = {}
+    M.put(res,'(')
+    M.put_keyword(res,'function')
+    M.put(res,'(')
+    M.put(res,')')
+    return res
+end)
+
+
+define ('_END_',function(get)
+    local str = M.get_string(get)
+    M.block_handler(0,function()
+        return str
+    end)
+end)
+
+define 'E_ _END_ " end"'
+
+define 'try do local stat_,r_ = pcall(function()'
+define 'except(e) end);  E_ if stat_ then if r_~=nil then return r_ end else local e = r_  '
+
+
+local out = stringio.create()
+macro.substitute(tmp,out)
+print(out:value())
+
+if arg[1] == '-i' then
+
+io.write '? '
+local line = io.read()
+while line do
+    local sub,err = macro.substitute_tostring(line..'\n')
+	if sub then io.write(sub) else io.write(err,'\n') end
+	io.write '? '
+	line = io.read()
+end
+
+end