mirror of https://github.com/lua/lua.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
102 lines
3.1 KiB
102 lines
3.1 KiB
/*
|
|
** LUA - Linguagem para Usuarios de Aplicacao
|
|
** Grupo de Tecnologia em Computacao Grafica
|
|
** TeCGraf - PUC-Rio
|
|
** $Id: lua.h,v 3.33 1997/02/11 11:40:01 roberto Exp roberto $
|
|
*/
|
|
|
|
|
|
#ifndef lua_h
|
|
#define lua_h
|
|
|
|
#define LUA_VERSION "Lua 2.?"
|
|
#define LUA_COPYRIGHT "Copyright (C) 1994-1996 TeCGraf"
|
|
#define LUA_AUTHORS "W. Celes, R. Ierusalimschy & L. H. de Figueiredo"
|
|
|
|
|
|
#define LUA_NOOBJECT 0
|
|
|
|
typedef void (*lua_CFunction) (void);
|
|
typedef unsigned int lua_Object;
|
|
|
|
lua_Object lua_setfallback (char *name, lua_CFunction fallback);
|
|
|
|
void lua_error (char *s);
|
|
int lua_dofile (char *filename);
|
|
int lua_dostring (char *string);
|
|
int lua_callfunction (lua_Object function);
|
|
int lua_call (char *funcname);
|
|
|
|
void lua_beginblock (void);
|
|
void lua_endblock (void);
|
|
|
|
lua_Object lua_getparam (int number);
|
|
#define lua_getresult(_) lua_getparam(_)
|
|
|
|
int lua_isnil (lua_Object object);
|
|
int lua_istable (lua_Object object);
|
|
int lua_isuserdata (lua_Object object);
|
|
int lua_iscfunction (lua_Object object);
|
|
int lua_isnumber (lua_Object object);
|
|
int lua_isstring (lua_Object object);
|
|
int lua_isfunction (lua_Object object);
|
|
|
|
float lua_getnumber (lua_Object object);
|
|
char *lua_getstring (lua_Object object);
|
|
lua_CFunction lua_getcfunction (lua_Object object);
|
|
void *lua_getbinarydata (lua_Object object);
|
|
int lua_getbindatasize (lua_Object object);
|
|
|
|
void lua_pushnil (void);
|
|
void lua_pushnumber (float n);
|
|
void lua_pushstring (char *s);
|
|
void lua_pushcfunction (lua_CFunction fn);
|
|
void lua_pushbinarydata (void *buff, int size, int tag);
|
|
void lua_pushusertag (void *u, int tag);
|
|
void lua_pushobject (lua_Object object);
|
|
|
|
lua_Object lua_getglobal (char *name);
|
|
void lua_storeglobal (char *name);
|
|
|
|
void lua_storesubscript (void);
|
|
lua_Object lua_getsubscript (void);
|
|
|
|
int lua_type (lua_Object object);
|
|
|
|
|
|
int lua_ref (int lock);
|
|
lua_Object lua_getref (int ref);
|
|
void lua_pushref (int ref);
|
|
void lua_unref (int ref);
|
|
|
|
lua_Object lua_createtable (void);
|
|
|
|
|
|
/* some useful macros */
|
|
|
|
#define lua_refobject(o,l) (lua_pushobject(o), lua_ref(l))
|
|
|
|
#define lua_register(n,f) (lua_pushcfunction(f), lua_storeglobal(n))
|
|
|
|
#define lua_pushuserdata(u) lua_pushusertag(u, 0)
|
|
|
|
|
|
|
|
/* for compatibility with old versions. Avoid using these macros */
|
|
|
|
#define lua_getuserdata(o) (*(void **)lua_getbinarydata(o))
|
|
|
|
#define lua_lockobject(o) lua_refobject(o,1)
|
|
#define lua_lock() lua_ref(1)
|
|
#define lua_getlocked lua_getref
|
|
#define lua_pushlocked lua_pushref
|
|
#define lua_unlock lua_unref
|
|
|
|
#define lua_pushliteral(o) lua_pushstring(o)
|
|
|
|
#define lua_getindexed(o,n) (lua_pushobject(o), lua_pushnumber(n), lua_getsubscript())
|
|
#define lua_getfield(o,f) (lua_pushobject(o), lua_pushliteral(f), lua_getsubscript())
|
|
|
|
#define lua_copystring(o) (strdup(lua_getstring(o)))
|
|
|
|
#endif
|
|
|