From b8fcb7b151a2eba126e042634d23834f4653f208 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Tue, 15 Dec 1998 13:21:09 -0200 Subject: details --- lbuiltin.c | 151 ++++++++++++++++++++++++++----------------------------------- 1 file changed, 63 insertions(+), 88 deletions(-) diff --git a/lbuiltin.c b/lbuiltin.c index d09d4f72..0398c7ac 100644 --- a/lbuiltin.c +++ b/lbuiltin.c @@ -1,5 +1,5 @@ /* -** $Id: lbuiltin.c,v 1.36 1998/12/03 15:45:15 roberto Exp roberto $ +** $Id: lbuiltin.c,v 1.37 1998/12/15 14:59:59 roberto Exp roberto $ ** Built-in functions ** See Copyright Notice in lua.h */ @@ -27,8 +27,7 @@ -static void pushstring (TaggedString *s) -{ +static void pushstring (TaggedString *s) { TObject o; o.ttype = LUA_T_STRING; o.value.ts = s; @@ -60,12 +59,12 @@ static int getnarg (lua_Object table) { } -static void getn (void) { +static void luaB_getn (void) { lua_pushnumber(getnarg(luaL_tablearg(1))); } -static void nextvar (void) { +static void luaB_nextvar (void) { TObject *o = luaA_Address(luaL_nonnullarg(1)); TaggedString *g; if (ttype(o) == LUA_T_NIL) @@ -87,7 +86,7 @@ static void nextvar (void) { } -static void foreachvar (void) { +static void luaB_foreachvar (void) { TObject f = *luaA_Address(luaL_functionarg(1)); GCnode *g; StkId name = L->Cstack.base++; /* place to keep var name (to avoid GC) */ @@ -111,7 +110,7 @@ static void foreachvar (void) { } -static void next (void) { +static void luaB_next (void) { Node *n = luaH_next(luaA_Address(luaL_tablearg(1)), luaA_Address(luaL_nonnullarg(2))); if (n) { @@ -122,7 +121,7 @@ static void next (void) { } -static void foreach (void) { +static void luaB_foreach (void) { TObject t = *luaA_Address(luaL_tablearg(1)); TObject f = *luaA_Address(luaL_functionarg(2)); int i; @@ -142,7 +141,7 @@ static void foreach (void) { } -static void foreachi (void) { +static void luaB_foreachi (void) { lua_Object ot = luaL_tablearg(1); Hash *t = avalue(luaA_Address(ot)); TObject f = *luaA_Address(luaL_functionarg(2)); @@ -162,8 +161,7 @@ static void foreachi (void) { } -static void internaldostring (void) -{ +static void luaB_dostring (void) { long l; char *s = luaL_check_lstr(1, &l); if (*s == ID_CHUNK) @@ -174,8 +172,7 @@ static void internaldostring (void) } -static void internaldofile (void) -{ +static void luaB_dofile (void) { char *fname = luaL_opt_string(1, NULL); if (lua_dofile(fname) == 0) if (luaA_passresults() == 0) @@ -183,7 +180,7 @@ static void internaldofile (void) } -static void to_string (void) { +static void luaB_tostring (void) { lua_Object obj = lua_getparam(1); TObject *o = luaA_Address(obj); char buff[32]; @@ -224,7 +221,7 @@ static void to_string (void) { } -static void luaI_print (void) { +static void luaB_print (void) { TaggedString *ts = luaS_new("tostring"); lua_Object obj; int i = 1; @@ -255,16 +252,14 @@ static void error_message (void) { } -static void luaI_type (void) -{ +static void luaB_type (void) { lua_Object o = luaL_nonnullarg(1); lua_pushstring(luaO_typename(luaA_Address(o))); lua_pushnumber(lua_tag(o)); } -static void luaB_tonumber (void) -{ +static void luaB_tonumber (void) { int base = luaL_opt_number(2, 10); if (base == 10) { /* standard conversion */ lua_Object o = lua_getparam(1); @@ -283,22 +278,19 @@ static void luaB_tonumber (void) } -static void luaI_error (void) -{ +static void luaB_error (void) { lua_error(lua_getstring(lua_getparam(1))); } -static void luaI_assert (void) -{ +static void luaB_assert (void) { lua_Object p = lua_getparam(1); if (p == LUA_NOOBJECT || lua_isnil(p)) luaL_verror("assertion failed! %.100s", luaL_opt_string(2, "")); } -static void setglobal (void) -{ +static void luaB_setglobal (void) { char *n = luaL_check_string(1); lua_Object value = luaL_nonnullarg(2); lua_pushobject(value); @@ -306,8 +298,7 @@ static void setglobal (void) lua_pushobject(value); /* return given value */ } -static void rawsetglobal (void) -{ +static void luaB_rawsetglobal (void) { char *n = luaL_check_string(1); lua_Object value = luaL_nonnullarg(2); lua_pushobject(value); @@ -315,23 +306,20 @@ static void rawsetglobal (void) lua_pushobject(value); /* return given value */ } -static void getglobal (void) -{ +static void luaB_getglobal (void) { lua_pushobject(lua_getglobal(luaL_check_string(1))); } -static void rawgetglobal (void) -{ +static void luaB_rawgetglobal (void) { lua_pushobject(lua_rawgetglobal(luaL_check_string(1))); } -static void luatag (void) -{ +static void luaB_luatag (void) { lua_pushnumber(lua_tag(lua_getparam(1))); } -static void luaI_call (void) { +static void luaB_call (void) { lua_Object f = luaL_nonnullarg(1); lua_Object arg = luaL_tablearg(2); char *options = luaL_opt_string(3, ""); @@ -368,8 +356,7 @@ static void luaI_call (void) { } -static void settag (void) -{ +static void luaB_settag (void) { lua_Object o = luaL_tablearg(1); lua_pushobject(o); lua_settag(luaL_check_number(2)); @@ -377,29 +364,25 @@ static void settag (void) } -static void newtag (void) -{ +static void luaB_newtag (void) { lua_pushnumber(lua_newtag()); } -static void copytagmethods (void) -{ +static void luaB_copytagmethods (void) { lua_pushnumber(lua_copytagmethods(luaL_check_number(1), luaL_check_number(2))); } -static void rawgettable (void) -{ +static void luaB_rawgettable (void) { lua_pushobject(luaL_nonnullarg(1)); lua_pushobject(luaL_nonnullarg(2)); lua_pushobject(lua_rawgettable()); } -static void rawsettable (void) -{ +static void luaB_rawsettable (void) { lua_pushobject(luaL_nonnullarg(1)); lua_pushobject(luaL_nonnullarg(2)); lua_pushobject(luaL_nonnullarg(3)); @@ -407,8 +390,7 @@ static void rawsettable (void) } -static void settagmethod (void) -{ +static void luaB_settagmethod (void) { lua_Object nf = luaL_nonnullarg(3); lua_pushobject(nf); lua_pushobject(lua_settagmethod((int)luaL_check_number(1), @@ -416,23 +398,20 @@ static void settagmethod (void) } -static void gettagmethod (void) -{ +static void luaB_gettagmethod (void) { lua_pushobject(lua_gettagmethod((int)luaL_check_number(1), luaL_check_string(2))); } -static void seterrormethod (void) -{ +static void luaB_seterrormethod (void) { lua_Object nf = luaL_functionarg(1); lua_pushobject(nf); lua_pushobject(lua_seterrormethod()); } -static void luaI_collectgarbage (void) -{ +static void luaB_collectgarbage (void) { lua_pushnumber(lua_collectgarbage(luaL_opt_number(1, 0))); } @@ -519,15 +498,13 @@ static void luaB_sort (void) { */ #ifdef DEBUG -static void mem_query (void) -{ +static void mem_query (void) { lua_pushnumber(totalmem); lua_pushnumber(numblocks); } -static void countlist (void) -{ +static void countlist (void) { char *s = luaL_check_string(1); GCnode *l = (s[0]=='t') ? L->roottable.next : (s[0]=='c') ? L->rootcl.next : (s[0]=='p') ? L->rootproto.next : L->rootglobal.next; @@ -540,8 +517,7 @@ static void countlist (void) } -static void testC (void) -{ +static void testC (void) { #define getnum(s) ((*s++) - '0') #define getname(s) (nome[0] = *s++, nome) @@ -603,37 +579,37 @@ static struct luaL_reg int_funcs[] = { {"totalmem", mem_query}, {"count", countlist}, #endif - {"assert", luaI_assert}, - {"call", luaI_call}, - {"collectgarbage", luaI_collectgarbage}, - {"dofile", internaldofile}, - {"copytagmethods", copytagmethods}, - {"dostring", internaldostring}, - {"error", luaI_error}, + {"assert", luaB_assert}, + {"call", luaB_call}, + {"collectgarbage", luaB_collectgarbage}, + {"dofile", luaB_dofile}, + {"copytagmethods", luaB_copytagmethods}, + {"dostring", luaB_dostring}, + {"error", luaB_error}, {"_ERRORMESSAGE", error_message}, - {"foreach", foreach}, - {"foreachi", foreachi}, - {"foreachvar", foreachvar}, - {"getn", getn}, - {"getglobal", getglobal}, - {"newtag", newtag}, - {"next", next}, - {"nextvar", nextvar}, - {"print", luaI_print}, - {"rawgetglobal", rawgetglobal}, - {"rawgettable", rawgettable}, - {"rawsetglobal", rawsetglobal}, - {"rawsettable", rawsettable}, - {"seterrormethod", seterrormethod}, - {"setglobal", setglobal}, - {"settagmethod", settagmethod}, - {"gettagmethod", gettagmethod}, - {"settag", settag}, + {"foreach", luaB_foreach}, + {"foreachi", luaB_foreachi}, + {"foreachvar", luaB_foreachvar}, + {"getn", luaB_getn}, + {"getglobal", luaB_getglobal}, + {"newtag", luaB_newtag}, + {"next", luaB_next}, + {"nextvar", luaB_nextvar}, + {"print", luaB_print}, + {"rawgetglobal", luaB_rawgetglobal}, + {"rawgettable", luaB_rawgettable}, + {"rawsetglobal", luaB_rawsetglobal}, + {"rawsettable", luaB_rawsettable}, + {"seterrormethod", luaB_seterrormethod}, + {"setglobal", luaB_setglobal}, + {"settagmethod", luaB_settagmethod}, + {"gettagmethod", luaB_gettagmethod}, + {"settag", luaB_settag}, {"sort", luaB_sort}, {"tonumber", luaB_tonumber}, - {"tostring", to_string}, - {"tag", luatag}, - {"type", luaI_type}, + {"tostring", luaB_tostring}, + {"tag", luaB_luatag}, + {"type", luaB_type}, {"_ALERT", luaB_message} }; @@ -641,8 +617,7 @@ static struct luaL_reg int_funcs[] = { #define INTFUNCSIZE (sizeof(int_funcs)/sizeof(int_funcs[0])) -void luaB_predefine (void) -{ +void luaB_predefine (void) { /* pre-register mem error messages, to avoid loop when error arises */ luaS_newfixedstring(tableEM); luaS_newfixedstring(memEM); -- cgit v1.2.3-55-g6feb