From 2d1df4714e2736dbde7855ddcd76b4c1de822fa5 Mon Sep 17 00:00:00 2001
From: David Walter Seikel
Date: Mon, 23 Jan 2012 21:58:02 +1000
Subject: Added a big bunch of example lua scripts for testing the speed of lua
 compiling.

---
 .../yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua  | 99 ++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100644 LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua

(limited to 'LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua')

diff --git a/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua b/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua
new file mode 100644
index 0000000..2d113dd
--- /dev/null
+++ b/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/test/test_ldump.lua
@@ -0,0 +1,99 @@
+--[[--------------------------------------------------------------------
+
+  test_ldump.lua
+  Test for ldump.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.
+
+----------------------------------------------------------------------]]
+
+------------------------------------------------------------------------
+-- test dump chunkwriter style
+------------------------------------------------------------------------
+
+dofile("../lopcodes.lua")
+dofile("../ldump.lua")
+
+-- Original typedef:
+--int (*lua_Chunkwriter) (lua_State *L, const void* p, size_t sz, void* ud);
+
+local MyWriter, MyBuff = luaU:make_setS()
+if not MyWriter then
+  error("failed to initialize using make_setS")
+end
+MyWriter("hello, ", MyBuff)
+MyWriter("world!", MyBuff)
+print(MyBuff.data)
+
+local MyWriter, MyBuff = luaU:make_setF("try.txt")
+if not MyWriter then
+  error("failed to initialize using make_setF")
+end
+MyWriter("hello, ", MyBuff)
+MyWriter("world!", MyBuff)
+MyWriter(nil, MyBuff)
+
+------------------------------------------------------------------------
+-- test output of a function prototype
+-- * data can be copied from a ChunkSpy listing output
+------------------------------------------------------------------------
+--   local a = 47
+--   local b = "hello, world!"
+--   print(a, b)
+------------------------------------------------------------------------
+
+local F = {}
+F.source = "sample.lua"
+F.lineDefined = 0
+F.lastlinedefined = 0
+F.nups = 0
+F.numparams = 0
+F.is_vararg = 2
+F.maxstacksize = 5
+F.sizecode = 7
+F.code = {}
+F.code[0] = { OP =  1, A = 0, Bx = 0 }
+F.code[1] = { OP =  1, A = 1, Bx = 1 }
+F.code[2] = { OP =  5, A = 2, Bx = 2 }
+F.code[3] = { OP =  0, A = 3, B = 0, C = 0 }
+F.code[4] = { OP =  0, A = 4, B = 1, C = 0 }
+F.code[5] = { OP = 28, A = 2, B = 3, C = 1 }
+F.code[6] = { OP = 30, A = 0, B = 1, C = 0 }
+F.sizek = 3
+F.k = {}
+F.k[0] = { value = 47 }
+F.k[1] = { value = "hello, world!" }
+F.k[2] = { value = "print" }
+F.sizep = 0
+F.p = {}
+F.sizelineinfo = 7
+F.lineinfo = {}
+F.lineinfo[0] = 1
+F.lineinfo[1] = 2
+F.lineinfo[2] = 3
+F.lineinfo[3] = 3
+F.lineinfo[4] = 3
+F.lineinfo[5] = 3
+F.lineinfo[6] = 3
+F.sizelocvars = 2
+F.locvars = {}
+F.locvars[0] = { varname = "a", startpc = 1, endpc = 6 }
+F.locvars[1] = { varname = "b", startpc = 2, endpc = 6 }
+F.sizeupvalues = 0
+F.upvalues = {}
+
+local L = {}
+--[[
+local Writer, Buff = luaU:make_setS()
+luaU:dump(L, F, Writer, Buff)
+for i = 1, string.len(Buff.data) do
+  io.stdout:write(string.byte(string.sub(Buff.data, i, i)).." ")
+end
+--]]
+local Writer, Buff = luaU:make_setF("try.out")
+luaU:dump(L, F, Writer, Buff)
-- 
cgit v1.1