Lua 4.04.0

1 files changed, 22 insertions, 3 deletions

diff --git a/etc/min.c b/etc/min.c
index 7d45f5b6..0579ed3f 100644
--- a/etc/min.c
+++ b/etc/min.c
@@ -1,13 +1,32 @@
 /*
 * min.c
 * a minimal Lua interpreter. loads stdin only.
-* no standard library, only builtin functions.
+* no standard library, only a "print" function.
 */
 
+#include <stdio.h>
 #include "lua.h"
 
+/* a simple "print". based on the code in lbaselib.c */
+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
+   printf("%s:%p",lua_typename(L,lua_type(L,i)),lua_topointer(L,i));
+ }
+ printf("\n");
+ return 0;
+}
+
 int main(void)
 {
- lua_open();
- return lua_dofile(0);
+ lua_State *L=lua_open(0);
+ lua_register(L,"print",print);
+ return lua_dofile(L,NULL);
 }