about summary refs log tree commit diff stats
path: root/etc/min.c
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-11-07 10:09:27 -0800
committerKartik K. Agaram <vc@akkartik.com>2021-11-07 10:09:27 -0800
commit1f3ed8210d45b035a8f76185587f97e147fc7402 (patch)
treeda907b4c8aef4e26e84d0ec4b7ab3a827cdb57ad /etc/min.c
parent2b7ffea31612c16ab16735f6806195ab471ae409 (diff)
downloadteliva-1f3ed8210d45b035a8f76185587f97e147fc7402.tar.gz
delete some Lua 5.1 things
These are likely to suffer bitrot.
Diffstat (limited to 'etc/min.c')
-rw-r--r--etc/min.c39
1 files changed, 0 insertions, 39 deletions
diff --git a/etc/min.c b/etc/min.c
deleted file mode 100644
index 6a85a4d..0000000
--- a/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;
-}