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.

---
 .../nat-5.0.3/test/bench_llex_mk4.lua              | 94 ++++++++++++++++++++++
 1 file changed, 94 insertions(+)
 create mode 100644 LuaSL/testLua/yueliang-0.4.1/nat-5.0.3/test/bench_llex_mk4.lua

(limited to 'LuaSL/testLua/yueliang-0.4.1/nat-5.0.3/test/bench_llex_mk4.lua')

diff --git a/LuaSL/testLua/yueliang-0.4.1/nat-5.0.3/test/bench_llex_mk4.lua b/LuaSL/testLua/yueliang-0.4.1/nat-5.0.3/test/bench_llex_mk4.lua
new file mode 100644
index 0000000..b94386b
--- /dev/null
+++ b/LuaSL/testLua/yueliang-0.4.1/nat-5.0.3/test/bench_llex_mk4.lua
@@ -0,0 +1,94 @@
+--[[--------------------------------------------------------------------
+
+  bench_llex.lua
+  Benchmark test for llex.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.
+
+----------------------------------------------------------------------]]
+
+local zio_init = require("../lzio_mk4")
+local lex_init = require("../llex_mk4")
+
+------------------------------------------------------------------------
+-- load in a standard set of sample files
+-- * file set is 5.0.3 front end set sans luac.lua
+------------------------------------------------------------------------
+
+local fileset, totalsize = {}, 0
+for fn in string.gfind([[
+../../orig-5.0.3/lcode.lua
+../../orig-5.0.3/ldump.lua
+../../orig-5.0.3/llex.lua
+../../orig-5.0.3/lopcodes.lua
+../../orig-5.0.3/lparser.lua
+../../orig-5.0.3/lzio.lua
+]], "%S+") do
+  table.insert(fileset, fn)
+end
+
+for i = 1, table.getn(fileset) do
+  local fn = fileset[i]
+  local inf = io.open(fn, "rb")
+  if not inf then
+    error("failed to open "..fn.." for reading")
+  end
+  local data = inf:read("*a")
+  local data_sz = string.len(data)
+  inf:close()
+  if not data or data_sz == 0 then
+    error("failed to read data from "..fn.." or file is zero-length")
+  end
+  totalsize = totalsize + data_sz
+  fileset[i] = data
+end
+
+------------------------------------------------------------------------
+-- benchmark tester
+------------------------------------------------------------------------
+
+local DURATION = 5      -- how long the benchmark should run
+
+local time = os.time
+local lexedsize = 0
+local tnow, elapsed = time(), 0
+
+while time() == tnow do end    -- wait for second to click over
+tnow = time()
+
+while true do
+  for i = 1, table.getn(fileset) do
+    ------------------------------------------------------------
+    local chunk = fileset[i]
+    local z = zio_init(chunk)
+    local luaX = lex_init(z, "=string")
+    while true do
+      local tok, seminfo = luaX:lex()
+      if tok == "<eof>" then break end
+    end
+    ------------------------------------------------------------
+    lexedsize = lexedsize + string.len(chunk)
+    if time() > tnow then
+      tnow = time()
+      elapsed = elapsed + 1
+      if elapsed >= DURATION then
+        -- report performance of lexer
+        lexedsize = lexedsize / 1024
+        local speed = lexedsize / DURATION
+        print("Lexer performance:")
+        print("Size of data lexed (KB): "..string.format("%.1f", lexedsize))
+        print("Speed of lexer (KB/s): "..string.format("%.1f", speed))
+        -- repeat until user breaks program
+        elapsed = 0
+      end
+    end
+    ------------------------------------------------------------
+  end--for
+end--while
+
+-- end of script
-- 
cgit v1.1