65 static int report (lua_State *L, int status) {  in report()  argument
66   if (status && !lua_isnil(L, -1)) {  in report()
72   return status;  in report()
97   int status;  in docall()  local
102   status = lua_pcall(L, narg, (clear ? 0 : LUA_MULTRET), base);  in docall()
106   if (status != 0) lua_gc(L, LUA_GCCOLLECT, 0);  in docall()
107   return status;  in docall()
135   int status = luaL_loadfile(L, name) || docall(L, 0, 1);  in dofile()  local
136   return report(L, status);  in dofile()
141   int status = luaL_loadbuffer(L, s, strlen(s), name) || docall(L, 0, 1);  in dostring()  local
142   return report(L, status);  in dostring()
163 static int incomplete (lua_State *L, int status) {  in incomplete()  argument
164   if (status == LUA_ERRSYNTAX) {  in incomplete()
197   int status;  in loadline()  local
202     status = luaL_loadbuffer(L, lua_tostring(L, 1), lua_strlen(L, 1), "=stdin");  in loadline()
203     if (!incomplete(L, status)) break;  /* cannot try to add lines? */  in loadline()
212   return status;  in loadline()
217   int status;  in dotty()  local
220   while ((status = loadline(L)) != -1) {  in dotty()
221     if (status == 0) status = docall(L, 0, 0);  in dotty()
222     report(L, status);  in dotty()
223     if (status == 0 && lua_gettop(L) > 0) {  /* any result to print? */  in dotty()
240   int status;  in handle_script()  local
247   status = luaL_loadfile(L, fname);  in handle_script()
249   if (status == 0)  in handle_script()
250     status = docall(L, narg, 0);  in handle_script()
253   return report(L, status);  in handle_script()
336   int status;  member
350   s->status = handle_luainit(L);  in pmain()
351   if (s->status != 0) return 0;  in pmain()
355     s->status = 1;  in pmain()
359   s->status = runargs(L, argv, (script > 0) ? script : s->argc);  in pmain()
360   if (s->status != 0) return 0;  in pmain()
362     s->status = handle_script(L, argv, script);  in pmain()
363   if (s->status != 0) return 0;  in pmain()
378   int status;  in main()  local
387   status = lua_cpcall(L, &pmain, &s);  in main()
388   report(L, status);  in main()
390   return (status || s.status) ? EXIT_FAILURE : EXIT_SUCCESS;  in main()