nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new API: lua_Object now is an integer

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1994-11-07 14:34:44 -02:00
parent 9ffba7a3db
commit d95a8b3121
6 changed files with 112 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lua.h
View File

@@ -2,7 +2,7 @@
** LUA - Linguagem para Usuarios de Aplicacao
** Grupo de Tecnologia em Computacao Grafica
** TeCGraf - PUC-Rio
** $Id: lua.h,v 3.1 1994/11/02 20:30:53 roberto Exp roberto $
** $Id: lua.h,v 3.2 1994/11/04 10:47:49 roberto Exp roberto $
*/
@@ -21,56 +21,52 @@ typedef enum
LUA_T_FUNCTION,
LUA_T_CFUNCTION,
LUA_T_USERDATA
} Type;
} lua_Type;
/* Public Part */
typedef void (*lua_CFunction) (void);
typedef struct Object *lua_Object;
typedef unsigned int lua_Object;
#define lua_register(n,f) (lua_pushcfunction(f), lua_storeglobal(n))
void lua_errorfunction (void (*fn) (char *s));
void lua_error (char *s);
int lua_dofile (char *filename);
int lua_dostring (char *string);
int lua_callfunction (lua_Object function);
lua_Object lua_getparam (int number);
#define lua_getresult lua_getparam
float lua_getnumber (lua_Object object);
char *lua_getstring (lua_Object object);
char *lua_copystring (lua_Object object);
lua_CFunction lua_getcfunction (lua_Object object);
void *lua_getuserdata (lua_Object object);
void *lua_gettable (lua_Object object);
lua_Object lua_getfield (lua_Object object, char *field);
lua_Object lua_getindexed (lua_Object object, float index);
lua_Object lua_getglobal (char *name);
int lua_pushnil (void);
int lua_pushnumber (float n);
int lua_pushstring (char *s);
int lua_pushcfunction (lua_CFunction fn);
int lua_pushuserdata (void *u);
int lua_pushtable (void *t);
int lua_pushsubscript (void);
int lua_pushobject (lua_Object object);
lua_Object lua_getglobal (char *name);
int lua_storeglobal (char *name);
int lua_storefield (lua_Object object, char *field);
int lua_storeindexed (lua_Object object, float index);
int lua_storesubscript (void);
lua_Object lua_getIndex (void);
int lua_type (lua_Object object);
/* for lua 1.1 */
#define lua_register(n,f) (lua_pushcfunction(f), lua_storeglobal(n))
#define lua_call(f) lua_callfunction(lua_getglobal(f))
#define lua_getindexed(o,n) (lua_pushnumber(n), lua_getIndex(o))
#define lua_getfield(o,f) (lua_pushstring(f), lua_getIndex(o))
#define lua_getindexed(o,n) (lua_pushobject(o), lua_pushnumber(n), lua_getIndex())
#define lua_getfield(o,f) (lua_pushobject(o), lua_pushstring(f), lua_getIndex())
#define lua_isnil(_) (lua_type(_)==LUA_T_NIL)
#define lua_isnumber(_) (lua_type(_)==LUA_T_NUMBER)