summaryrefslogtreecommitdiff
path: root/source3/lua-5.1.4/etc/min.c
diff options
context:
space:
mode:
authorVolker Lendecke <vl@samba.org>2008-09-19 08:01:23 +0200
committerVolker Lendecke <vl@samba.org>2008-12-17 12:57:18 +0100
commit390f19b649b85a8f8ab762c6a4e9d1a3d23d3f47 (patch)
tree9f9506e36222640d23b086d62b32de940c526a98 /source3/lua-5.1.4/etc/min.c
parent081f8883bafc11ca7c08f868ec19f1ea32071837 (diff)
downloadsamba-390f19b649b85a8f8ab762c6a4e9d1a3d23d3f47.tar.gz
samba-390f19b649b85a8f8ab762c6a4e9d1a3d23d3f47.tar.bz2
samba-390f19b649b85a8f8ab762c6a4e9d1a3d23d3f47.zip
Add the Lua distibution from http://www.lua.org/ftp/lua-5.1.4.tar.gz
Available under the MIT license. Adding it to see how the build farm likes it. They claim to be 100% pure ANSI C and compile everywhere. Lets see. If it breaks badly, we can remove it again.
Diffstat (limited to 'source3/lua-5.1.4/etc/min.c')
-rw-r--r--source3/lua-5.1.4/etc/min.c39
1 files changed, 39 insertions, 0 deletions
diff --git a/source3/lua-5.1.4/etc/min.c b/source3/lua-5.1.4/etc/min.c
new file mode 100644
index 0000000000..6a85a4d10e
--- /dev/null
+++ b/source3/lua-5.1.4/etc/min.c
@@ -0,0 +1,39 @@
+/*
+* min.c -- a minimal Lua interpreter
+* loads stdin only with minimal error handling.
+* no interaction, and no standard library, only a "print" function.
+*/
+
+#include <stdio.h>
+
+#include "lua.h"
+#include "lauxlib.h"
+
+static int print(lua_State *L)
+{
+ int n=lua_gettop(L);
+ int i;
+ for (i=1; i<=n; i++)
+ {
+ if (i>1) printf("\t");
+ if (lua_isstring(L,i))
+ printf("%s",lua_tostring(L,i));
+ else if (lua_isnil(L,i))
+ printf("%s","nil");
+ else if (lua_isboolean(L,i))
+ printf("%s",lua_toboolean(L,i) ? "true" : "false");
+ else
+ printf("%s:%p",luaL_typename(L,i),lua_topointer(L,i));
+ }
+ printf("\n");
+ return 0;
+}
+
+int main(void)
+{
+ lua_State *L=lua_open();
+ lua_register(L,"print",print);
+ if (luaL_dofile(L,NULL)!=0) fprintf(stderr,"%s\n",lua_tostring(L,-1));
+ lua_close(L);
+ return 0;
+}