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

name: lua_pushCclosure -> lua_pushcclosure.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1998-06-05 19:17:44 -03:00
parent bdb1db4d37
commit 02134b4a87
4 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lapi.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.23 1998/03/06 18:47:42 roberto Exp roberto $ ** $Id: lapi.c,v 1.24 1998/03/09 21:49:52 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -345,7 +345,7 @@ void lua_pushstring (char *s)
lua_pushlstring(s, strlen(s)); lua_pushlstring(s, strlen(s));
} }
void lua_pushCclosure (lua_CFunction fn, int n) void lua_pushcclosure (lua_CFunction fn, int n)
{ {
if (fn == NULL) if (fn == NULL)
lua_error("API error - attempt to push a NULL Cfunction"); lua_error("API error - attempt to push a NULL Cfunction");

4
lbuiltin.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbuiltin.c,v 1.27 1998/03/09 21:49:52 roberto Exp roberto $ ** $Id: lbuiltin.c,v 1.28 1998/05/31 22:19:35 roberto Exp roberto $
** Built-in functions ** Built-in functions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -430,7 +430,7 @@ static void testC (void)
case 'c': reg[getnum(s)] = lua_createtable(); break; case 'c': reg[getnum(s)] = lua_createtable(); break;
case 'C': { lua_CFunction f = lua_getcfunction(lua_getglobal(getname(s))); case 'C': { lua_CFunction f = lua_getcfunction(lua_getglobal(getname(s)));
lua_pushCclosure(f, getnum(s)); lua_pushcclosure(f, getnum(s));
break; break;
} }
case 'P': reg[getnum(s)] = lua_pop(); break; case 'P': reg[getnum(s)] = lua_pop(); break;

4
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.18 1998/05/20 22:21:35 roberto Exp roberto $ ** $Id: liolib.c,v 1.19 1998/06/02 21:20:54 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -427,7 +427,7 @@ static void openwithtags (void)
/* put both tags as upvalues for these functions */ /* put both tags as upvalues for these functions */
lua_pushnumber(iotag); lua_pushnumber(iotag);
lua_pushnumber(closedtag); lua_pushnumber(closedtag);
lua_pushCclosure(iolibtag[i].func, 2); lua_pushcclosure(iolibtag[i].func, 2);
lua_setglobal(iolibtag[i].name); lua_setglobal(iolibtag[i].name);
} }
setfile(stdin, FINPUT, iotag); setfile(stdin, FINPUT, iotag);

6
lua.h
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lua.h,v 1.18 1998/05/18 22:26:03 roberto Exp roberto $ ** $Id: lua.h,v 1.19 1998/06/02 20:37:04 roberto Exp roberto $
** Lua - An Extensible Extension Language ** Lua - An Extensible Extension Language
** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil ** TeCGraf: Grupo de Tecnologia em Computacao Grafica, PUC-Rio, Brazil
** e-mail: lua@tecgraf.puc-rio.br ** e-mail: lua@tecgraf.puc-rio.br
@@ -104,7 +104,7 @@ void lua_pushnil (void);
void lua_pushnumber (double n); void lua_pushnumber (double n);
void lua_pushlstring (char *s, long len); void lua_pushlstring (char *s, long len);
void lua_pushstring (char *s); void lua_pushstring (char *s);
void lua_pushCclosure (lua_CFunction fn, int n); void lua_pushcclosure (lua_CFunction fn, int n);
void lua_pushusertag (void *u, int tag); void lua_pushusertag (void *u, int tag);
void lua_pushobject (lua_Object object); void lua_pushobject (lua_Object object);
@@ -151,7 +151,7 @@ void (lua_pushuserdata) (void *u);
#define lua_pushuserdata(u) lua_pushusertag(u, 0) #define lua_pushuserdata(u) lua_pushusertag(u, 0)
void (lua_pushcfunction) (lua_CFunction f); void (lua_pushcfunction) (lua_CFunction f);
#define lua_pushcfunction(f) lua_pushCclosure(f, 0) #define lua_pushcfunction(f) lua_pushcclosure(f, 0)
int (lua_clonetag) (int t); int (lua_clonetag) (int t);
#define lua_clonetag(t) lua_copytagmethods(lua_newtag(), (t)) #define lua_clonetag(t) lua_copytagmethods(lua_newtag(), (t))