Lines Matching refs:L
46 lua_command(lua_State *L) in lua_command() argument
50 int argc = lua_gettop(L); in lua_command()
57 argv[i] = (char *)(intptr_t)luaL_checkstring(L, i + 1); in lua_command()
61 lua_pushinteger(L, res); in lua_command()
67 lua_perform(lua_State *L) in lua_perform() argument
73 if (parse(&argc, &argv, luaL_checkstring(L, 1)) == 0) { in lua_perform()
77 lua_pushinteger(L, res); in lua_perform()
83 lua_command_error(lua_State *L) in lua_command_error() argument
86 lua_pushstring(L, command_errbuf); in lua_command_error()
95 lua_interpret(lua_State *L) in lua_interpret() argument
99 if (lua_gettop(L) != 1) { in lua_interpret()
100 lua_pushnil(L); in lua_interpret()
104 interp_string = luaL_checkstring(L, 1); in lua_interpret()
105 lua_pushinteger(L, interp_run(interp_string)); in lua_interpret()
110 lua_parse(lua_State *L) in lua_parse() argument
115 if (parse(&argc, &argv, luaL_checkstring(L, 1)) == 0) { in lua_parse()
117 lua_pushstring(L, argv[nargc]); in lua_parse()
123 lua_pushnil(L); in lua_parse()
128 lua_getchar(lua_State *L) in lua_getchar() argument
131 lua_pushinteger(L, getchar()); in lua_getchar()
136 lua_ischar(lua_State *L) in lua_ischar() argument
139 lua_pushboolean(L, ischar()); in lua_ischar()
144 lua_gets(lua_State *L) in lua_gets() argument
149 lua_pushstring(L, buf); in lua_gets()
154 lua_time(lua_State *L) in lua_time() argument
157 lua_pushinteger(L, time(NULL)); in lua_time()
162 lua_delay(lua_State *L) in lua_delay() argument
165 delay((int)luaL_checknumber(L, 1)); in lua_delay()
170 lua_getenv(lua_State *L) in lua_getenv() argument
172 lua_pushstring(L, getenv(luaL_checkstring(L, 1))); in lua_getenv()
178 lua_setenv(lua_State *L) in lua_setenv() argument
182 key = luaL_checkstring(L, 1); in lua_setenv()
183 val = luaL_checkstring(L, 2); in lua_setenv()
184 lua_pushinteger(L, setenv(key, val, 1)); in lua_setenv()
190 lua_unsetenv(lua_State *L) in lua_unsetenv() argument
194 ev = luaL_checkstring(L, 1); in lua_unsetenv()
195 lua_pushinteger(L, unsetenv(ev)); in lua_unsetenv()
201 lua_printc(lua_State *L) in lua_printc() argument
204 const char *s = luaL_checklstring(L, 1, &l); in lua_printc()
213 lua_openfile(lua_State *L) in lua_openfile() argument
218 nargs = lua_gettop(L); in lua_openfile()
220 lua_pushnil(L); in lua_openfile()
223 str = lua_tostring(L, 1); in lua_openfile()
226 mode = lua_tostring(L, 2); in lua_openfile()
228 lua_pushnil(L); in lua_openfile()
234 FILE ** ptr = (FILE**)lua_newuserdata(L, sizeof(FILE**)); in lua_openfile()
237 lua_pushnil(L); in lua_openfile()
242 lua_closefile(lua_State *L) in lua_closefile() argument
245 if (lua_gettop(L) != 1) { in lua_closefile()
246 lua_pushboolean(L, 0); in lua_closefile()
250 f = (FILE**)lua_touserdata(L, 1); in lua_closefile()
252 lua_pushboolean(L, fclose(*f) == 0 ? 1 : 0); in lua_closefile()
255 lua_pushboolean(L, 0); in lua_closefile()
261 lua_readfile(lua_State *L) in lua_readfile() argument
267 if (lua_gettop(L) < 1 || lua_gettop(L) > 2) { in lua_readfile()
268 lua_pushnil(L); in lua_readfile()
269 lua_pushinteger(L, 0); in lua_readfile()
273 f = (FILE**)lua_touserdata(L, 1); in lua_readfile()
276 lua_pushnil(L); in lua_readfile()
277 lua_pushinteger(L, 0); in lua_readfile()
281 if (lua_gettop(L) == 2) in lua_readfile()
282 size = (size_t)lua_tonumber(L, 2); in lua_readfile()
289 lua_pushlstring(L, buf, r); in lua_readfile()
291 lua_pushinteger(L, r); in lua_readfile()
303 lua_writefile(lua_State *L) in lua_writefile() argument
314 nargs = lua_gettop(L); in lua_writefile()
317 return luaL_fileresult(L, 0, NULL); in lua_writefile()
320 f = (FILE**)lua_touserdata(L, 1); in lua_writefile()
324 return luaL_fileresult(L, 0, NULL); in lua_writefile()
334 if (!lua_isstring(L, i + 2)) { in lua_writefile()
336 return luaL_fileresult(L, 0, NULL); in lua_writefile()
341 buf = lua_tolstring(L, i + 2, &bufsz); in lua_writefile()
344 return luaL_fileresult(L, 0, NULL); in lua_writefile()
347 lua_pushinteger(L, w); in lua_writefile()
355 lua_term_putimage(lua_State *L) in lua_term_putimage() argument
362 nargs = lua_gettop(L); in lua_term_putimage()
364 lua_pushboolean(L, 0); in lua_term_putimage()
368 name = luaL_checkstring(L, 1); in lua_term_putimage()
369 x1 = luaL_checknumber(L, 2); in lua_term_putimage()
370 y1 = luaL_checknumber(L, 3); in lua_term_putimage()
371 x2 = luaL_checknumber(L, 4); in lua_term_putimage()
372 y2 = luaL_checknumber(L, 5); in lua_term_putimage()
373 f = luaL_checknumber(L, 6); in lua_term_putimage()
394 lua_pushboolean(L, ret); in lua_term_putimage()
399 lua_fb_putimage(lua_State *L) in lua_fb_putimage() argument
406 nargs = lua_gettop(L); in lua_fb_putimage()
408 lua_pushboolean(L, 0); in lua_fb_putimage()
412 name = luaL_checkstring(L, 1); in lua_fb_putimage()
413 x1 = luaL_checknumber(L, 2); in lua_fb_putimage()
414 y1 = luaL_checknumber(L, 3); in lua_fb_putimage()
415 x2 = luaL_checknumber(L, 4); in lua_fb_putimage()
416 y2 = luaL_checknumber(L, 5); in lua_fb_putimage()
417 f = luaL_checknumber(L, 6); in lua_fb_putimage()
427 lua_pushboolean(L, ret); in lua_fb_putimage()
432 lua_fb_setpixel(lua_State *L) in lua_fb_setpixel() argument
437 nargs = lua_gettop(L); in lua_fb_setpixel()
439 lua_pushnil(L); in lua_fb_setpixel()
443 x = luaL_checknumber(L, 1); in lua_fb_setpixel()
444 y = luaL_checknumber(L, 2); in lua_fb_setpixel()
450 lua_fb_line(lua_State *L) in lua_fb_line() argument
455 nargs = lua_gettop(L); in lua_fb_line()
457 lua_pushnil(L); in lua_fb_line()
461 x0 = luaL_checknumber(L, 1); in lua_fb_line()
462 y0 = luaL_checknumber(L, 2); in lua_fb_line()
463 x1 = luaL_checknumber(L, 3); in lua_fb_line()
464 y1 = luaL_checknumber(L, 4); in lua_fb_line()
465 wd = luaL_checknumber(L, 5); in lua_fb_line()
471 lua_fb_bezier(lua_State *L) in lua_fb_bezier() argument
476 nargs = lua_gettop(L); in lua_fb_bezier()
478 lua_pushnil(L); in lua_fb_bezier()
482 x0 = luaL_checknumber(L, 1); in lua_fb_bezier()
483 y0 = luaL_checknumber(L, 2); in lua_fb_bezier()
484 x1 = luaL_checknumber(L, 3); in lua_fb_bezier()
485 y1 = luaL_checknumber(L, 4); in lua_fb_bezier()
486 x2 = luaL_checknumber(L, 5); in lua_fb_bezier()
487 y2 = luaL_checknumber(L, 6); in lua_fb_bezier()
488 width = luaL_checknumber(L, 7); in lua_fb_bezier()
494 lua_fb_drawrect(lua_State *L) in lua_fb_drawrect() argument
499 nargs = lua_gettop(L); in lua_fb_drawrect()
501 lua_pushnil(L); in lua_fb_drawrect()
505 x0 = luaL_checknumber(L, 1); in lua_fb_drawrect()
506 y0 = luaL_checknumber(L, 2); in lua_fb_drawrect()
507 x1 = luaL_checknumber(L, 3); in lua_fb_drawrect()
508 y1 = luaL_checknumber(L, 4); in lua_fb_drawrect()
509 fill = luaL_checknumber(L, 5); in lua_fb_drawrect()
515 lua_term_drawrect(lua_State *L) in lua_term_drawrect() argument
520 nargs = lua_gettop(L); in lua_term_drawrect()
522 lua_pushnil(L); in lua_term_drawrect()
526 x0 = luaL_checknumber(L, 1); in lua_term_drawrect()
527 y0 = luaL_checknumber(L, 2); in lua_term_drawrect()
528 x1 = luaL_checknumber(L, 3); in lua_term_drawrect()
529 y1 = luaL_checknumber(L, 4); in lua_term_drawrect()
571 luaopen_loader(lua_State *L) in luaopen_loader() argument
573 luaL_newlib(L, loaderlib); in luaopen_loader()
575 lua_pushstring(L, MACHINE); in luaopen_loader()
576 lua_setfield(L, -2, "machine"); in luaopen_loader()
577 lua_pushstring(L, MACHINE_ARCH); in luaopen_loader()
578 lua_setfield(L, -2, "machine_arch"); in luaopen_loader()
579 lua_pushstring(L, LUA_PATH); in luaopen_loader()
580 lua_setfield(L, -2, "lua_path"); in luaopen_loader()
582 lua_register(L, "printc", lua_printc); in luaopen_loader()
587 luaopen_io(lua_State *L) in luaopen_io() argument
589 luaL_newlib(L, iolib); in luaopen_io()