mirror of https://github.com/rusefi/lua.git
"setglobal" and "getglobal" moved to inout.c, as it concentrates pre-defined
library. new function "assert".
This commit is contained in:
parent
8dae4657a1
commit
d845963349
39
inout.c
39
inout.c
|
@ -5,7 +5,7 @@
|
||||||
** Also provides some predefined lua functions.
|
** Also provides some predefined lua functions.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
char *rcs_inout="$Id: inout.c,v 2.25 1995/10/25 13:05:51 roberto Exp roberto $";
|
char *rcs_inout="$Id: inout.c,v 2.26 1996/01/22 17:40:00 roberto Exp roberto $";
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
@ -54,9 +54,9 @@ static int stringinput (void)
|
||||||
|
|
||||||
/*
|
/*
|
||||||
** Function to open a file to be input unit.
|
** Function to open a file to be input unit.
|
||||||
** Return 0 on success or error message on error.
|
** Return 0 on success or 1 error.
|
||||||
*/
|
*/
|
||||||
char *lua_openfile (char *fn)
|
int lua_openfile (char *fn)
|
||||||
{
|
{
|
||||||
lua_setinput (fileinput);
|
lua_setinput (fileinput);
|
||||||
if (fn == NULL)
|
if (fn == NULL)
|
||||||
|
@ -67,14 +67,10 @@ char *lua_openfile (char *fn)
|
||||||
else
|
else
|
||||||
fp = fopen (fn, "r");
|
fp = fopen (fn, "r");
|
||||||
if (fp == NULL)
|
if (fp == NULL)
|
||||||
{
|
return 1;
|
||||||
static char buff[255];
|
|
||||||
sprintf(buff, "unable to open file `%.200s'", fn);
|
|
||||||
return buff;
|
|
||||||
}
|
|
||||||
lua_linenumber = 1;
|
lua_linenumber = 1;
|
||||||
lua_parsedfile = lua_constcreate(fn)->ts.str;
|
lua_parsedfile = lua_constcreate(fn)->ts.str;
|
||||||
return NULL;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
@ -231,3 +227,28 @@ void luaI_error (void)
|
||||||
lua_error(s);
|
lua_error(s);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
void luaI_assert (void)
|
||||||
|
{
|
||||||
|
lua_Object p = lua_getparam(1);
|
||||||
|
if (p == LUA_NOOBJECT || lua_isnil(p))
|
||||||
|
lua_error("assertion failed!");
|
||||||
|
}
|
||||||
|
|
||||||
|
void luaI_setglobal (void)
|
||||||
|
{
|
||||||
|
lua_Object name = lua_getparam(1);
|
||||||
|
lua_Object value = lua_getparam(2);
|
||||||
|
if (!lua_isstring(name))
|
||||||
|
lua_error("incorrect argument to function `setglobal'");
|
||||||
|
lua_pushobject(value);
|
||||||
|
lua_storeglobal(lua_getstring(name));
|
||||||
|
lua_pushobject(value); /* return given value */
|
||||||
|
}
|
||||||
|
|
||||||
|
void luaI_getglobal (void)
|
||||||
|
{
|
||||||
|
lua_Object name = lua_getparam(1);
|
||||||
|
if (!lua_isstring(name))
|
||||||
|
lua_error("incorrect argument to function `getglobal'");
|
||||||
|
lua_pushobject(lua_getglobal(lua_getstring(name)));
|
||||||
|
}
|
||||||
|
|
7
inout.h
7
inout.h
|
@ -1,5 +1,5 @@
|
||||||
/*
|
/*
|
||||||
** $Id: inout.h,v 1.10 1995/10/17 11:58:41 roberto Exp roberto $
|
** $Id: inout.h,v 1.11 1996/01/22 17:40:00 roberto Exp roberto $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
@ -14,7 +14,7 @@ extern Bool lua_debug;
|
||||||
extern Word lua_debugline;
|
extern Word lua_debugline;
|
||||||
extern char *lua_parsedfile;
|
extern char *lua_parsedfile;
|
||||||
|
|
||||||
char *lua_openfile (char *fn);
|
int lua_openfile (char *fn);
|
||||||
void lua_closefile (void);
|
void lua_closefile (void);
|
||||||
void lua_openstring (char *s);
|
void lua_openstring (char *s);
|
||||||
void lua_closestring (void);
|
void lua_closestring (void);
|
||||||
|
@ -26,5 +26,8 @@ void luaI_print (void);
|
||||||
void luaI_type (void);
|
void luaI_type (void);
|
||||||
void lua_obj2number (void);
|
void lua_obj2number (void);
|
||||||
void luaI_error (void);
|
void luaI_error (void);
|
||||||
|
void luaI_assert (void);
|
||||||
|
void luaI_setglobal (void);
|
||||||
|
void luaI_getglobal (void);
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|
Loading…
Reference in New Issue