+ LuaMacro

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