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.

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

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

diff --git a/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/luac.lua b/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/luac.lua
new file mode 100644
index 0000000..5f12f79
--- /dev/null
+++ b/LuaSL/testLua/yueliang-0.4.1/orig-5.1.3/luac.lua
@@ -0,0 +1,71 @@
+--[[--------------------------------------------------------------------
+
+  luac.lua
+  Primitive luac in Lua
+  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.
+
+----------------------------------------------------------------------]]
+
+--[[--------------------------------------------------------------------
+-- Notes:
+-- * based on luac.lua in the test directory of the 5.1.2 distribution
+-- * usage: lua luac.lua file.lua
+----------------------------------------------------------------------]]
+
+------------------------------------------------------------------------
+-- load and initialize the required modules
+------------------------------------------------------------------------
+dofile("lzio.lua")
+dofile("llex.lua")
+dofile("lopcodes.lua")
+dofile("ldump.lua")
+dofile("lcode.lua")
+dofile("lparser.lua")
+
+luaX:init()  -- required by llex
+local LuaState = {}  -- dummy, not actually used, but retained since
+                     -- the intention is to complete a straight port
+
+------------------------------------------------------------------------
+-- interfacing to yueliang
+------------------------------------------------------------------------
+
+-- currently asserts are enabled because the codebase hasn't been tested
+-- much (if you don't want asserts, just comment them out)
+function lua_assert(test)
+  if not test then error("assertion failed!") end
+end
+
+function yloadfile(filename)
+  -- luaZ:make_getF returns a file chunk reader
+  -- luaZ:init returns a zio input stream
+  local zio = luaZ:init(luaZ:make_getF(filename), nil)
+  if not zio then return end
+  -- luaY:parser parses the input stream
+  -- func is the function prototype in tabular form; in C, func can
+  -- now be used directly by the VM, this can't be done in Lua
+  local func = luaY:parser(LuaState, zio, nil, "@"..filename)
+  -- luaU:make_setS returns a string chunk writer
+  local writer, buff = luaU:make_setS()
+  -- luaU:dump builds a binary chunk
+  luaU:dump(LuaState, func, writer, buff)
+  -- a string.dump equivalent in returned
+  return buff.data
+end
+
+------------------------------------------------------------------------
+-- command line interface
+------------------------------------------------------------------------
+
+assert(arg[1] ~= nil and arg[2] == nil, "usage: lua luac.lua file.lua")
+local f = assert(io.open("luac.out","wb"))
+assert(f:write(assert(yloadfile(arg[1]))))
+assert(io.close(f))
+
+--end
-- 
cgit v1.1