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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
--[[--------------------------------------------------------------------
test_lparser_mk3b.lua
Test for lparser_mk3b.lua
This file is part of Yueliang.
Copyright (c) 2008 Kein-Hong Man <khman@users.sf.net>
The COPYRIGHT file describes the conditions
under which this software may be distributed.
See the ChangeLog for more information.
----------------------------------------------------------------------]]
------------------------------------------------------------------------
-- test the whole kaboodle
------------------------------------------------------------------------
local lex_init = require("../llex_mk3")
local parser_init = require("../lparser_mk3b")
------------------------------------------------------------------------
-- dump contents of log table
------------------------------------------------------------------------
local function dump_log(fs)
local log = fs.log
for i = 1, table.getn(log) do
print(log[i])
end
end
------------------------------------------------------------------------
-- automatic dumper of output log data
------------------------------------------------------------------------
local test_case = {
-- 1
[[
print(a)
]],
-- 2
[[
local a
print(a)
]],
-- 3
[[
do
local a
print(a)
end
print(a)
]],
-- 4
[[
local a,b,c
do
local b
print(b)
end
print(b)
]],
-- 5
[[
local function foo() end
bar = foo
]],
-- 6
[[
do
local function foo() end
bar = foo
end
baz = foo
]],
-- 7
[[
local foo
local function bar()
baz = nil
foo = bar()
end
foo = bar
]],
-- 8
[[
local foo
local function bar()
local function baz()
local foo, bar
foo = bar
foo = baz
end
foo = bar
foo = baz
end
foo = bar
foo = baz
]],
-- 9
[[
function foo:bar()
print(self)
end
]],
-- 10
[[
function foo(...)
print(arg)
end
]],
-- 11
[[
local c,d
function foo(a,b,c)
print(a,c,d,e)
end
]],
-- 11
[[
function foo(a,b)
local bar = function(c,d)
print(a,b,c,d)
end
end
]],
-- 12
[[
for i = 1,10 do
print(i)
end
for i = 1,10,-2 do
print(i)
end
]],
-- 13
[[
for foo in bar() do
print(foo)
end
for foo,bar,baz in spring() do
print(foo,bar,baz)
end
]],
}
-- helps to skip old stuff during development of snippets
local do_beg, do_end = 1, table.getn(test_case)
-- loop for all example snippets
for i = do_beg, do_end do
local fname = "parser_log/sample_b_"..string.format("%02d", i)..".lua"
local src = test_case[i]
local OUTF = io.open(fname, "wb")
if not OUTF then error("failed to write to file '"..fname.."'") end
-- write out actual source for comparison
OUTF:write(
"-- START OF SOURCE --\n"..
src..
"-- END OF SOURCE --\n"..
"\n"
)
-- attempt to parse
local luaX = lex_init(src, "=string")
local luaY = parser_init(luaX)
local fs = luaY:parser()
-- grab logged messages and write
local log = fs.log
local indent = 0
for i = 1, table.getn(log) do
local ln = log[i]
-- handle indentation
local tag = string.sub(ln, 1, 2)
if tag == ">>" or tag == "<<" then
ln = string.sub(ln, 4)
end
if tag == ">>" then
indent = indent + 1
end
OUTF:write(string.rep(" ", indent)..ln.."\n")
if tag == "<<" then
indent = indent - 1
end
end
-- we're done
OUTF:close()
end
|