mirror of https://github.com/rusefi/lua.git
details
This commit is contained in:
Roberto Ierusalimschy
parent
5d6de9075d
commit
b8fcb7b151
151
lbuiltin.c
151
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);
|
||||
|
|
|
|||
Loading…
Reference in New Issue