srclua5/iuplua.c
static int report (lua_State *L, int status)
{
  /* if there was an erro, and there is an error message on the stack */
  if (status != LUA_OK && !lua_isnil(L, -1)) 
  {
    const char *msg = lua_tostring(L, -1);
    if (msg == NULL) msg = "(error with no message)";
    show_error(L, msg);
    lua_pop(L, 1);  /* remove message */
  }
  return status;
}
/**********************************************************/
/* report, traceback and docall were adapted from "lua.c" */
report, traceback and docall were adapted from "lua.c"
report traceback and docall were adapted from " lua . c "
static int report (lua_State *L, int status)
{
  if (status != LUA_OK && !lua_isnil(L, -1)) 
  {
    const char *msg = lua_tostring(L, -1);
    if (msg == NULL) msg = "(error with no message)";
    show_error(L, msg);
    lua_pop(L, 1);  
  }
  return status;
}
static int report ( lua_State * L , int status ) { if ( status != LUA_OK && ! lua_isnil ( L , -1 ) ) { const char * msg = lua_tostring ( L , -1 ) ; if ( msg == NULL ) msg = " " ; show_error ( L , msg ) ; lua_pop ( L , 1 ) ; } return status ; }
report, traceback and docall were adapted from "lua.c"
report traceback and docall were adapted from " lua . c "
/* if there was an erro, and there is an error message on the stack */ /* remove message */