aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/LuaSL/testLua/yueliang-0.4.1/test_lua/test_scripts-5.1.lua
blob: 4d8405580a9deca7852d33b2728b2109385c7478 (plain)
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
--[[--------------------------------------------------------------------

  test_scripts-5.1.lua
  Compile and compare Lua files
  This file is part of Yueliang.

  Copyright (c) 2005-2007 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.

----------------------------------------------------------------------]]

--[[--------------------------------------------------------------------
-- NOTE
-- * use the argument ALL to pull in additional personal Lua scripts
--   for testing, e.g. lua test_scripts.lua ALL
----------------------------------------------------------------------]]

------------------------------------------------------------------------
-- reads in a list of files to crunch from a text file
------------------------------------------------------------------------

local function loadlist(fname, flist)
  local inf = io.open(fname, "r")
  if not inf then error("cannot open "..fname.." for reading") end
  while true do
    local d = inf:read("*l")
    if not d then break end
    if string.match(d, "^%s*$") or string.match(d, "^#") then
      -- comments and empty lines are ignored
    else
      flist[#flist+1] = d
    end
  end
  inf:close()
end

------------------------------------------------------------------------
-- read in list of files to test
------------------------------------------------------------------------

local files = {}

loadlist("files-lua-5.1.txt", files)
loadlist("files-yueliang-5.1.txt", files)

-- pull in personal scripts to test if user specifies "ALL"
if arg[1] == "ALL" then
  loadlist("files-other-5.1.txt", files)
end

-- if you want to specify files in this script itself (not recommended)
-- you can add them using the following
--[=[
for v in string.gmatch([[
]], "[^%s]+") do
  table.insert(files, v)
end
--]=]

total = 0  -- sum of sizes
fsize = 0  -- current file size

------------------------------------------------------------------------
-- initialize
------------------------------------------------------------------------

dofile("../orig-5.1.2/lzio.lua")
dofile("../orig-5.1.2/llex.lua")
dofile("../orig-5.1.2/lopcodes.lua")
dofile("../orig-5.1.2/ldump.lua")
dofile("../orig-5.1.2/lcode.lua")
dofile("../orig-5.1.2/lparser.lua")

function lua_assert(test)
  if not test then error("assertion failed!") end
end

luaX:init()

io.stdout:write("\n\n")

------------------------------------------------------------------------
-- * basic comparison for now; do it properly later
------------------------------------------------------------------------

local LuaState = {}

------------------------------------------------------------------------
-- dump binary chunks to a file if something goes wrong
------------------------------------------------------------------------
local function Dump(data, filename)
  h = io.open(filename, "wb")
  if not h then error("failed to open "..filename.." for writing") end
  h:write(data)
  h:close()
end

------------------------------------------------------------------------
-- create custom chunk reader (sums up file sizes)
------------------------------------------------------------------------
function make_getF(filename)
  local h = io.open(filename, "r")
  if not h then return nil end
  fsize = h:seek("end")
  h:seek("set")
  total = total + fsize
  return function() -- chunk reader anonymous function here
    if not h then return nil end
    local buff = h:read(512)
    if not buff then h:close() end
    return buff
  end
end

------------------------------------------------------------------------
-- attempt to compile Lua source files
------------------------------------------------------------------------
for i, filename in ipairs(files) do
  -- compile a source file
  local zio = luaZ:init(make_getF(filename), nil)
  if not zio then
    error("could not initialize zio stream for "..filename)
  end
  io.stdout:write(filename.."("..fsize.."): ")
  local Func = luaY:parser(LuaState, zio, nil, "@"..filename)
  local Writer, Buff = luaU:make_setS()
  luaU:dump(LuaState, Func, Writer, Buff)
  local bc1 = Buff.data  -- Yueliang's output

  local f = loadfile(filename)
  local bc2 = string.dump(f)  -- Lua's output

  -- compare outputs
  if #bc1 ~= #bc2 then
    Dump(bc1, "bc1.out")
    Dump(bc2, "bc2.out")
    error("binary chunk sizes different")
  elseif bc1 ~= bc2 then
    Dump(bc1, "bc1.out")
    Dump(bc2, "bc2.out")
    error("binary chunks different")
  else
    io.stdout:write("CORRECT\n")
  end
  local x = collectgarbage("count")
  -- memory usage isn't really a problem for the straight port
  -- string handling in Lua that follows the original C closely is more
  -- of a problem, but this will be fixed elsewhere, not in this tree
  --io.stdout:write("collectgarbage: "..x.."\n")
end

-- summaries here
io.stdout:write("\nTotal file sizes: "..total.."\n")

-- end