blob: 0579ed3f61133a7f14a41f92bcd0719a461883bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/*
* min.c
* a minimal Lua interpreter. loads stdin only.
* 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_State *L=lua_open(0);
lua_register(L,"print",print);
return lua_dofile(L,NULL);
}
|
