aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-06-13 10:44:50 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2002-06-13 10:44:50 -0300
commiteb3de8768a6b614597f7e5f018fc31a9f52441df (patch)
treeea6e0e48f6d6d8bccb4c168171bbb13a3bca1c99
parent864c96f36ce8410b03652b1cb9800e4b3c76bcf7 (diff)
downloadlua-eb3de8768a6b614597f7e5f018fc31a9f52441df.tar.gz
lua-eb3de8768a6b614597f7e5f018fc31a9f52441df.tar.bz2
lua-eb3de8768a6b614597f7e5f018fc31a9f52441df.zip
`rawcall' -> `upcall' (unprotected call)
-rw-r--r--lapi.c4
-rw-r--r--lauxlib.c4
-rw-r--r--lbaselib.c6
-rw-r--r--ldblib.c4
-rw-r--r--lstrlib.c4
-rw-r--r--ltablib.c8
-rw-r--r--ltests.c4
-rw-r--r--lua.h6
8 files changed, 20 insertions, 20 deletions
diff --git a/lapi.c b/lapi.c
index cad54a5b..d2600972 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lapi.c,v 1.197 2002/06/12 14:51:31 roberto Exp roberto $ 2** $Id: lapi.c,v 1.198 2002/06/13 13:39:55 roberto Exp roberto $
3** Lua API 3** Lua API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -555,7 +555,7 @@ LUA_API void lua_setmetatable (lua_State *L, int objindex) {
555** `load' and `call' functions (run Lua code) 555** `load' and `call' functions (run Lua code)
556*/ 556*/
557 557
558LUA_API void lua_rawcall (lua_State *L, int nargs, int nresults) { 558LUA_API void lua_upcall (lua_State *L, int nargs, int nresults) {
559 StkId func; 559 StkId func;
560 lua_lock(L); 560 lua_lock(L);
561 api_checknelems(L, nargs+1); 561 api_checknelems(L, nargs+1);
diff --git a/lauxlib.c b/lauxlib.c
index f905361f..51561746 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lauxlib.c,v 1.72 2002/06/03 20:11:41 roberto Exp roberto $ 2** $Id: lauxlib.c,v 1.73 2002/06/05 16:59:37 roberto Exp roberto $
3** Auxiliary functions for building Lua libraries 3** Auxiliary functions for building Lua libraries
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -150,7 +150,7 @@ LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) {
150 return 0; 150 return 0;
151 } 151 }
152 lua_pushvalue(L, obj); 152 lua_pushvalue(L, obj);
153 lua_rawcall(L, 1, 1); 153 lua_upcall(L, 1, 1);
154 return 1; 154 return 1;
155} 155}
156 156
diff --git a/lbaselib.c b/lbaselib.c
index 6105af56..13739a92 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lbaselib.c,v 1.79 2002/06/06 12:39:48 roberto Exp roberto $ 2** $Id: lbaselib.c,v 1.80 2002/06/13 13:39:55 roberto Exp roberto $
3** Basic library 3** Basic library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -34,7 +34,7 @@ static int luaB_print (lua_State *L) {
34 const char *s; 34 const char *s;
35 lua_pushvalue(L, -1); /* function to be called */ 35 lua_pushvalue(L, -1); /* function to be called */
36 lua_pushvalue(L, i); /* value to print */ 36 lua_pushvalue(L, i); /* value to print */
37 lua_rawcall(L, 1, 1); 37 lua_upcall(L, 1, 1);
38 s = lua_tostring(L, -1); /* get result */ 38 s = lua_tostring(L, -1); /* get result */
39 if (s == NULL) 39 if (s == NULL)
40 return luaL_verror(L, "`tostring' must return a string to `print'"); 40 return luaL_verror(L, "`tostring' must return a string to `print'");
@@ -378,7 +378,7 @@ static int luaB_require (lua_State *L) {
378 } 378 }
379 switch (status) { 379 switch (status) {
380 case 0: { 380 case 0: {
381 lua_rawcall(L, 0, 0); /* run loaded module */ 381 lua_upcall(L, 0, 0); /* run loaded module */
382 lua_pushvalue(L, 1); 382 lua_pushvalue(L, 1);
383 lua_pushboolean(L, 1); 383 lua_pushboolean(L, 1);
384 lua_settable(L, 2); /* mark it as loaded */ 384 lua_settable(L, 2); /* mark it as loaded */
diff --git a/ldblib.c b/ldblib.c
index 7fbff55d..6598a8f6 100644
--- a/ldblib.c
+++ b/ldblib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldblib.c,v 1.55 2002/06/05 17:24:04 roberto Exp roberto $ 2** $Id: ldblib.c,v 1.56 2002/06/06 12:40:36 roberto Exp roberto $
3** Interface from Lua to its debug API 3** Interface from Lua to its debug API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -117,7 +117,7 @@ static void hookf (lua_State *L, void *key) {
117 lua_rawget(L, LUA_REGISTRYINDEX); 117 lua_rawget(L, LUA_REGISTRYINDEX);
118 if (lua_isfunction(L, -1)) { 118 if (lua_isfunction(L, -1)) {
119 lua_pushvalue(L, -2); /* original argument (below function) */ 119 lua_pushvalue(L, -2); /* original argument (below function) */
120 lua_rawcall(L, 1, 0); 120 lua_upcall(L, 1, 0);
121 } 121 }
122 else 122 else
123 lua_pop(L, 1); /* pop result from gettable */ 123 lua_pop(L, 1); /* pop result from gettable */
diff --git a/lstrlib.c b/lstrlib.c
index 27d991cf..196a0ce4 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstrlib.c,v 1.82 2002/05/06 19:05:10 roberto Exp roberto $ 2** $Id: lstrlib.c,v 1.83 2002/06/05 17:24:04 roberto Exp roberto $
3** Standard library for string operations and pattern-matching 3** Standard library for string operations and pattern-matching
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -548,7 +548,7 @@ static void add_s (MatchState *ms, luaL_Buffer *b,
548 int n; 548 int n;
549 lua_pushvalue(L, 3); 549 lua_pushvalue(L, 3);
550 n = push_captures(ms, s, e); 550 n = push_captures(ms, s, e);
551 lua_rawcall(L, n, 1); 551 lua_upcall(L, n, 1);
552 if (lua_isstring(L, -1)) 552 if (lua_isstring(L, -1))
553 luaL_addvalue(b); /* add return to accumulated result */ 553 luaL_addvalue(b); /* add return to accumulated result */
554 else 554 else
diff --git a/ltablib.c b/ltablib.c
index 4637a00b..e4250d0f 100644
--- a/ltablib.c
+++ b/ltablib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltablib.c,v 1.4 2002/06/05 16:59:21 roberto Exp roberto $ 2** $Id: ltablib.c,v 1.5 2002/06/05 17:24:04 roberto Exp roberto $
3** Library for Table Manipulation 3** Library for Table Manipulation
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -25,7 +25,7 @@ static int luaB_foreachi (lua_State *L) {
25 lua_pushvalue(L, 2); /* function */ 25 lua_pushvalue(L, 2); /* function */
26 lua_pushnumber(L, i); /* 1st argument */ 26 lua_pushnumber(L, i); /* 1st argument */
27 lua_rawgeti(L, 1, i); /* 2nd argument */ 27 lua_rawgeti(L, 1, i); /* 2nd argument */
28 lua_rawcall(L, 2, 1); 28 lua_upcall(L, 2, 1);
29 if (!lua_isnil(L, -1)) 29 if (!lua_isnil(L, -1))
30 return 1; 30 return 1;
31 lua_pop(L, 1); /* remove nil result */ 31 lua_pop(L, 1); /* remove nil result */
@@ -44,7 +44,7 @@ static int luaB_foreach (lua_State *L) {
44 lua_pushvalue(L, 2); /* function */ 44 lua_pushvalue(L, 2); /* function */
45 lua_pushvalue(L, -3); /* key */ 45 lua_pushvalue(L, -3); /* key */
46 lua_pushvalue(L, -3); /* value */ 46 lua_pushvalue(L, -3); /* value */
47 lua_rawcall(L, 2, 1); 47 lua_upcall(L, 2, 1);
48 if (!lua_isnil(L, -1)) 48 if (!lua_isnil(L, -1))
49 return 1; 49 return 1;
50 lua_pop(L, 2); /* remove value and result */ 50 lua_pop(L, 2); /* remove value and result */
@@ -128,7 +128,7 @@ static int sort_comp (lua_State *L, int a, int b) {
128 lua_pushvalue(L, 2); 128 lua_pushvalue(L, 2);
129 lua_pushvalue(L, a-1); /* -1 to compensate function */ 129 lua_pushvalue(L, a-1); /* -1 to compensate function */
130 lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */ 130 lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */
131 lua_rawcall(L, 2, 1); 131 lua_upcall(L, 2, 1);
132 res = lua_toboolean(L, -1); 132 res = lua_toboolean(L, -1);
133 lua_pop(L, 1); 133 lua_pop(L, 1);
134 return res; 134 return res;
diff --git a/ltests.c b/ltests.c
index bf7c19b3..2cc66bca 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltests.c,v 1.123 2002/06/03 20:11:41 roberto Exp roberto $ 2** $Id: ltests.c,v 1.124 2002/06/11 16:23:47 roberto Exp roberto $
3** Internal Module for Debugging of the Lua Implementation 3** Internal Module for Debugging of the Lua Implementation
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -634,7 +634,7 @@ static int testC (lua_State *L) {
634 else if EQ("rawcall") { 634 else if EQ("rawcall") {
635 int narg = getnum; 635 int narg = getnum;
636 int nres = getnum; 636 int nres = getnum;
637 lua_rawcall(L, narg, nres); 637 lua_upcall(L, narg, nres);
638 } 638 }
639 else if EQ("call") { 639 else if EQ("call") {
640 int narg = getnum; 640 int narg = getnum;
diff --git a/lua.h b/lua.h
index 891a16c3..5c1de5f6 100644
--- a/lua.h
+++ b/lua.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lua.h,v 1.138 2002/06/06 12:40:22 roberto Exp roberto $ 2** $Id: lua.h,v 1.139 2002/06/13 13:39:55 roberto Exp roberto $
3** Lua - An Extensible Extension Language 3** Lua - An Extensible Extension Language
4** Tecgraf: Computer Graphics Technology Group, PUC-Rio, Brazil 4** Tecgraf: Computer Graphics Technology Group, PUC-Rio, Brazil
5** http://www.lua.org mailto:info@lua.org 5** http://www.lua.org mailto:info@lua.org
@@ -25,7 +25,7 @@
25 25
26 26
27 27
28/* option for multiple returns in `lua_pcall' and `lua_rawcall' */ 28/* option for multiple returns in `lua_pcall' and `lua_upcall' */
29#define LUA_MULTRET (-1) 29#define LUA_MULTRET (-1)
30 30
31 31
@@ -179,7 +179,7 @@ LUA_API void lua_setmetatable (lua_State *L, int objindex);
179/* 179/*
180** `load' and `call' functions (load and run Lua code) 180** `load' and `call' functions (load and run Lua code)
181*/ 181*/
182LUA_API void lua_rawcall (lua_State *L, int nargs, int nresults); 182LUA_API void lua_upcall (lua_State *L, int nargs, int nresults);
183LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errf); 183LUA_API int lua_pcall (lua_State *L, int nargs, int nresults, int errf);
184LUA_API int lua_load (lua_State *L, lua_Chunkreader reader, void *data, 184LUA_API int lua_load (lua_State *L, lua_Chunkreader reader, void *data,
185 const char *chunkname); 185 const char *chunkname);