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
|
--[[--------------------------------------------------------------------
test_lparser.lua
Test for lparser.lua
This file is part of Yueliang.
Copyright (c) 2005-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.
----------------------------------------------------------------------]]
------------------------------------------------------------------------
-- test the whole kaboodle
------------------------------------------------------------------------
dofile("../lzio.lua")
dofile("../llex.lua")
dofile("../lopcodes.lua")
dofile("../ldump.lua")
dofile("../lcode.lua")
dofile("../lparser.lua")
function lua_assert(test)
if not test then error("assertion failed!") end
end
luaX:init()
------------------------------------------------------------------------
-- try 1
------------------------------------------------------------------------
local zio = luaZ:init(luaZ:make_getS("local a = 1"), nil)
local LuaState = {}
local Func = luaY:parser(LuaState, zio, nil, "=string")
--[[
for i, v in Func do
if type(v) == "string" or type(v) == "number" then
print(i, v)
elseif type(v) == "table" then
print(i, "TABLE")
end
end
--]]
local Writer, Buff = luaU:make_setF("parse1.out")
luaU:dump(LuaState, Func, Writer, Buff)
------------------------------------------------------------------------
-- try 2
------------------------------------------------------------------------
zio = luaZ:init(luaZ:make_getF("sample.lua"), nil)
Func = luaY:parser(LuaState, zio, nil, "@sample.lua")
Writer, Buff = luaU:make_setF("parse2.out")
luaU:dump(LuaState, Func, Writer, Buff)
|
