summaryrefslogtreecommitdiffstats
path: root/crawl-ref/source/util/lua/etc/min.c
diff options
context:
space:
mode:
Diffstat (limited to 'crawl-ref/source/util/lua/etc/min.c')
-rw-r--r--crawl-ref/source/util/lua/etc/min.c39
1 files changed, 0 insertions, 39 deletions
diff --git a/crawl-ref/source/util/lua/etc/min.c b/crawl-ref/source/util/lua/etc/min.c
deleted file mode 100644
index 6a85a4d10e..0000000000
--- a/crawl-ref/source/util/lua/etc/min.c
+++ /dev/null
@@ -1,39 +0,0 @@
-/*
-* 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;
-}