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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
|
--[[--------------------------------------------------------------------
llex.lua
Lua 5 lexical analyzer in Lua
This file is part of Yueliang.
Copyright (c) 2006 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.
----------------------------------------------------------------------]]
--[[--------------------------------------------------------------------
-- Notes:
-- * a line-oriented version of mk3
--
-- local lex_init = require("llex.lua")
-- local llex = lex_init(z, source)
-- llex:chunkid()
-- * returns formatted name of chunk id
-- llex:errorline(s, line)
-- * throws an error with a formatted message
-- llex:lex()
-- * returns next lexical element (token, seminfo)
-- llex.ln
-- * line number
----------------------------------------------------------------------]]
return
function(zio, source)
--------------------------------------------------------------------
-- initialize variables
-- * I is the upvalue, i is the local version for space/efficiency
--------------------------------------------------------------------
local string = string
local find, sub = string.find, string.sub
local EOF = "<eof>"
local luaX = { ln = 0 }
local I, z
--------------------------------------------------------------------
-- initialize keyword list
--------------------------------------------------------------------
local kw = {}
for v in string.gfind([[
and break do else elseif end false for function if in
local nil not or repeat return then true until while]], "%S+") do
kw[v] = true
end
--------------------------------------------------------------------
-- returns a chunk name or id
--------------------------------------------------------------------
function luaX:chunkid()
if find(source, "^[=@]") then
return sub(source, 2) -- remove first char
end
return "[string]"
end
--------------------------------------------------------------------
-- formats error message and throws error
-- * a simplified version, does not report what token was responsible
--------------------------------------------------------------------
function luaX:errorline(s, line)
error(string.format("%s:%d: %s", self:chunkid(), line or self.ln, s))
end
--------------------------------------------------------------------
-- move on to next line
--------------------------------------------------------------------
local function nextln()
local luaX = luaX
luaX.ln = luaX.ln + 1
z = zio:getln()
I = 1
end
----------------------------------------------------------------------
-- reads a long string or long comment
----------------------------------------------------------------------
local function read_long(i, is_str)
local luaX = luaX
local string = string
local buff = ""
local cont = 1
if sub(z, i, i) == "\n" then
nextln(); i = 1
end
while true do
local p, q, r = find(z, "([\n%[%]])", i) -- (long range)
if not p then
luaX:errorline(is_str and "unfinished long string" or
"unfinished long comment")
end
buff = buff..string.sub(z, i, p - 1) -- add a portion
i = p + 1
if sub(z, i, i) == r then -- only [[ or ]]
i = i + 1
if r == "[" then
cont = cont + 1
else-- r == "]" then
if cont == 1 then break end -- last ]] found
cont = cont - 1
end
buff = buff..r..r
else -- [ or ] or \n
buff = buff..r
if r == "\n" then
nextln(); i = 1
end
end
end--while
I = i
return buff
end
----------------------------------------------------------------------
-- reads a string
----------------------------------------------------------------------
local function read_string(i, del)
local luaX = luaX
local string = string
local buff = ""
while true do
local p, q, r = find(z, "([\n\\\"\'])", i) -- (long range)
if p then
if r == "\n" then
luaX:errorline("unfinished string")
end
buff = buff..sub(z, i, p - 1) -- normal portions
i = p
if r == "\\" then -- handle escapes
i = i + 1
r = sub(z, i, i)
if r == "" then break end -- (error)
p = find("\nabfnrtv", r, 1, 1)
------------------------------------------------------
if p then -- special escapes
r = sub("\n\a\b\f\n\r\t\v", p, p)
if p == 1 then
nextln(); i = 1
else
i = i + 1
end
------------------------------------------------------
elseif find(r, "%D") then -- other non-digits
i = i + 1
------------------------------------------------------
else -- \xxx sequence
local p, q, s = find(z, "^(%d%d?%d?)", i)
i = q + 1
if s + 1 > 256 then -- UCHAR_MAX
luaX:errorline("escape sequence too large")
end
r = string.char(s)
------------------------------------------------------
end--if p
else
i = i + 1
if r == del then
I = i
return buff -- ending delimiter
end
end--if r
buff = buff..r
else
break -- (error)
end--if p
end--while
luaX:errorline("unfinished string")
end
----------------------------------------------------------------------
-- main lexer function
----------------------------------------------------------------------
function luaX:lex()
local string = string
local find, len = find, string.len
while true do--outer
local i = I
-- inner loop allows break to be used to nicely section tests
while true do--inner
----------------------------------------------------------------
local p, _, r = find(z, "^([_%a][_%w]*)", i)
if p then
I = i + len(r)
if kw[r] then return r end -- keyword
return "<name>", r -- identifier
end
----------------------------------------------------------------
local p, q, r = find(z, "^(%.?)%d", i)
if p then -- numeral
if r == "." then i = i + 1 end
local _, n, r, s = find(z, "^%d*(%.?%.?)%d*([eE]?)", i)
q = n
i = q + 1
if len(r) == 2 then
self:errorline("ambiguous syntax (dots follows digits)")
end
if len(s) == 1 then -- optional exponent
local _, n = find(z, "^[%+%-]?%d*", i) -- optional sign
q = n
i = q + 1
end
r = tonumber(sub(z, p, q))
I = i
if not r then self:errorline("malformed number") end
return "<number>", r
end
----------------------------------------------------------------
local p, q, r = find(z, "^(%s)[ \t]*", i)
if p then
if r == "\n" then -- newline
nextln()
else
I = q + 1 -- whitespace
end
break -- (continue)
end
----------------------------------------------------------------
local p, _, r = find(z, "^(%p)", i) -- symbols/punctuation
if p then
local q = find("-[\"\'.=<>~", r, 1, 1)
if q then -- further processing for more complex symbols
----------------------------------------------------
if q <= 2 then
if q == 1 then -- minus
if find(z, "^%-%-", i) then
i = i + 2
if find(z, "^%[%[", i) then -- long comment
read_long(i + 2)
else -- short comment
if find(z, "\n", i) then
nextln()
else
I = len(z) + 1
end
end
break -- (continue)
end
-- (fall through for "-")
elseif q == 2 then -- [ or long string
if find(z, "^%[%[", i) then
return "<string>", read_long(i + 2, true)
end
-- (fall through for "[")
end
----------------------------------------------------
elseif q <= 5 then
if q < 5 then -- strings
return "<string>", read_string(i + 1, r)
end
local _, _, s = find(z, "^(%.%.?%.?)", i) -- dots
r = s
-- (fall through)
----------------------------------------------------
else -- relational/logic
local _, _, s = find(z, "^(%p=?)", i)
r = s
-- (fall through)
end
end
I = i + len(r); return r -- for other symbols, fall through
end
----------------------------------------------------------------
local r = sub(z, i, i)
if r ~= "" then
if find(r, "%c") then -- invalid control char
self:errorline("invalid control char("..string.byte(r)..")")
end
I = i + 1; return r -- other single-char tokens
end
return EOF -- end of stream
----------------------------------------------------------------
end--while inner
end--while outer
end
--------------------------------------------------------------------
-- initial processing (shbang handling)
--------------------------------------------------------------------
nextln()
local p, q, r = find(z, "^#[^\n]*(\n?)")
if p then -- skip first line
I = q + 1
if r == "\n" then nextln() end
end
return luaX
--------------------------------------------------------------------
end
|
