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
|
--[[
This file is part of parser.lua - table based parsing
Copyright (C) 2019 Soni L.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Affero General Public License for more details.
You should have received a copy of the GNU Affero General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
--]]
local parser = require "parser"
local caseno = 0
local function case()
caseno = caseno + 1
return caseno
end
do -- trim left spaces
local defs = {}
defs.self = defs
defs[' '] = "whitespace"
defs['\n'] = "whitespace"
defs['\r'] = "whitespace"
defs['\t'] = "whitespace"
defs['\f'] = "whitespace"
defs['\v'] = "whitespace"
defs.whitespace = "self"
defs[''] = function(state, token)
state[#state + 1] = token
if #state > 20 then
state[1] = table.concat(state)
for i=#state, 2, -1 do
state[i] = nil
end
end
return "start"
end
defs.start = {}
defs.start.self = defs.start
defs.start[''] = function(state, token)
state[#state + 1] = token
if #state > 20 then
state[1] = table.concat(state)
for i=#state, 2, -1 do
state[i] = nil
end
end
return "self"
end
for k,v in ipairs({"hello", " hello", "\t \v \n\r hallo", "I really like this parser thingy if it can be called that"}) do
local state, err = parser.parse(defs, v)
if not state then
print(case(), err)
else
print(case(), table.concat(state))
end
end
end -- trim left spaces
do -- lua tokens
local luatokens = require "luatokens"
local tokens = luatokens.tokens
local state, err, etoken, estate = parser.parse(tokens, [["hello world"]])
local case = case()
print(case, "---- IN TOKENS ----")
if not state then
print(case, err, etoken)
for i,v in pairs(estate) do
print(case, i, v)
end
else
for i,v in ipairs(state) do
print(case, i, v)
end
end
print(case, "---- OUT TOKENS ----")
end -- lua tokens
do -- more lua tokens
local luatokens = require "luatokens"
local tokens = luatokens.tokens
local state, err, etoken, estate = parser.parse(tokens, [["\a\b\f\n\r\t\v\\\"\'\z \x41\65\
"]])
local case = case()
print(case, "---- IN TOKENS ----")
if not state then
print(case, err, etoken)
for i,v in pairs(estate) do
print(case, i, v)
end
else
for i,v in ipairs(state) do
print(case, i, v)
if v == luatokens.TK_STRING then
in_string = true
elseif in_string then
print(case, v:gsub(".", function(v) return "\\"..string.byte(v) end))
in_string = false
end
end
end
print(case, "---- OUT TOKENS ----")
end -- lua tokens
|
