1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
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
|
