Function luabb_error

lua/luautil.c:230–279

}

int luabb_error(Lua lua, SP sp, const char *fmt, ...)
{
    char c[1];
    va_list args;
    int len;
    char *out = NULL;
    va_start(args, fmt);
    len = vsnprintf(c, 1, fmt, args);
    va_end(args);

    if (len == 0)
        out = sp ? strdup("") : "";
    else if (len < 0)
        luaL_error(lua, "can't format string");
    else {
        out = sp ? malloc(len + 2) : alloca(len + 2);
        va_start(args, fmt);
        vsnprintf(out, len+1, fmt, args);
        out[len+1] = 0;
        va_end(args);
    }

    extern int gbl_allow_lua_print;
    if (gbl_allow_lua_print)  {
        luaL_where(lua, 0);
        lua_pop(lua, 1);
#if 0
        const char *src = lua_tostring(lua, -1);
        if (sp && sp->spname)
            fprintf(stderr, "ERROR in SP:%s Ver:%d %s:%s\n",
              sp->spname, sp->spversion, out, src);
        else  
            fprintf(stderr, "ERROR:%s %s]\n", src, out);
#endif
    }

    if (sp) {
      if(sp->rc == 0)
          sp->rc = -1;
      lua_pushnil(lua);
      lua_pushnumber(lua, sp->rc);
      if (sp->error)
          free(sp->error);
      sp->error = out;
      return 1; /* Just returning error code. */
    } else {
      lua_pushnumber(lua, -1);
      return luaL_error(lua, out);
    }
}

int luabb_type_by_name_int(const char *name, dbtypes_enum min)
{