Subversion Repositories WoWGM

/*

* 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)==2)

   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;

}