Lua 4.04.0

1 files changed, 42 insertions, 0 deletions

diff --git a/test/old.lua b/test/old.lua
new file mode 100644
index 00000000..ebb4e70b
--- /dev/null
+++ b/test/old.lua
@@ -0,0 +1,42 @@
+-- implementation of old functions
+
+function foreach(t,f)
+ for i,v in t do
+  local r=f(i,v)
+  if r then return r end
+ end
+end
+
+function foreachi(t,f)
+ for i=1,getn(t) do
+  local r=f(i,t[i])
+  if r then return r end
+ end
+end
+
+function foreachvar(f)
+ return foreach(globals(),f)
+end
+
+function nextvar(n)
+ return next(globals(),n)
+end
+
+function rawgetglobal(n)
+ return rawget(globals(),n)
+end
+
+function rawsetglobal(n,v)
+ return rawset(globals(),n,v)
+end
+
+rawsettable=rawset
+rawgettable=rawget
+
+function getglobal(n)
+ return globals()[n]
+end
+
+function setglobal(n,v)
+ globals()[n]=v
+end