diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-04-11 15:39:37 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2001-04-11 15:39:37 -0300 |
commit | 6473f965ca699719b3b9908008f15da48cc2e6f1 (patch) | |
tree | be13733e390e62f168995c82f9485a994b2e9464 /lbaselib.c | |
parent | 0e0e4a480e6d9b0125a96ca982a3e9571578a037 (diff) | |
download | lua-6473f965ca699719b3b9908008f15da48cc2e6f1.tar.gz lua-6473f965ca699719b3b9908008f15da48cc2e6f1.tar.bz2 lua-6473f965ca699719b3b9908008f15da48cc2e6f1.zip |
new API functions to load (parse?) a chunk without running it.
Diffstat (limited to 'lbaselib.c')
-rw-r--r-- | lbaselib.c | 21 |
1 files changed, 20 insertions, 1 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.32 2001/04/06 18:25:00 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.33 2001/04/11 14:42:41 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 | */ |
@@ -311,6 +311,7 @@ static int passresults (lua_State *L, int status, int oldtop) { | |||
311 | } | 311 | } |
312 | } | 312 | } |
313 | 313 | ||
314 | |||
314 | static int luaB_dostring (lua_State *L) { | 315 | static int luaB_dostring (lua_State *L) { |
315 | int oldtop = lua_gettop(L); | 316 | int oldtop = lua_gettop(L); |
316 | size_t l; | 317 | size_t l; |
@@ -320,6 +321,14 @@ static int luaB_dostring (lua_State *L) { | |||
320 | } | 321 | } |
321 | 322 | ||
322 | 323 | ||
324 | static int luaB_loadstring (lua_State *L) { | ||
325 | int oldtop = lua_gettop(L); | ||
326 | size_t l; | ||
327 | const l_char *s = luaL_check_lstr(L, 1, &l); | ||
328 | const l_char *chunkname = luaL_opt_string(L, 2, s); | ||
329 | return passresults(L, lua_loadbuffer(L, s, l, chunkname), oldtop); | ||
330 | } | ||
331 | |||
323 | static int luaB_dofile (lua_State *L) { | 332 | static int luaB_dofile (lua_State *L) { |
324 | int oldtop = lua_gettop(L); | 333 | int oldtop = lua_gettop(L); |
325 | const l_char *fname = luaL_opt_string(L, 1, NULL); | 334 | const l_char *fname = luaL_opt_string(L, 1, NULL); |
@@ -327,6 +336,14 @@ static int luaB_dofile (lua_State *L) { | |||
327 | } | 336 | } |
328 | 337 | ||
329 | 338 | ||
339 | static int luaB_loadfile (lua_State *L) { | ||
340 | int oldtop = lua_gettop(L); | ||
341 | const l_char *fname = luaL_opt_string(L, 1, NULL); | ||
342 | return passresults(L, lua_loadfile(L, fname), oldtop); | ||
343 | } | ||
344 | |||
345 | |||
346 | |||
330 | #define LUA_PATH l_s("LUA_PATH") | 347 | #define LUA_PATH l_s("LUA_PATH") |
331 | 348 | ||
332 | #define LUA_PATH_SEP l_s(";") | 349 | #define LUA_PATH_SEP l_s(";") |
@@ -753,6 +770,8 @@ static const luaL_reg base_funcs[] = { | |||
753 | {l_s("getglobal"), luaB_getglobal}, | 770 | {l_s("getglobal"), luaB_getglobal}, |
754 | {l_s("gettagmethod"), luaB_gettagmethod}, | 771 | {l_s("gettagmethod"), luaB_gettagmethod}, |
755 | {l_s("globals"), luaB_globals}, | 772 | {l_s("globals"), luaB_globals}, |
773 | {l_s("loadfile"), luaB_loadfile}, | ||
774 | {l_s("loadstring"), luaB_loadstring}, | ||
756 | {l_s("newtype"), luaB_newtype}, | 775 | {l_s("newtype"), luaB_newtype}, |
757 | {l_s("newtag"), luaB_newtype}, /* for compatibility 4.0 */ | 776 | {l_s("newtag"), luaB_newtype}, /* for compatibility 4.0 */ |
758 | {l_s("next"), luaB_next}, | 777 | {l_s("next"), luaB_next}, |