Function db_debug

lua/sp.c:1496–1564

static void InstructionCountHook(Lua, lua_Debug *);
static int db_debug(lua_State *lua)
{
    int nargs = lua_gettop(lua);
    const char *trace;
    int rc;

    if (nargs > 2)
        return luabb_error(lua, NULL,
                           "wrong number of  arguments %d, should be 1", nargs);

    SP sp = getsp(lua);

    if (sp->debug_clnt->sp == NULL) {
        /* To be given as lrl value. */
        logmsg(LOGMSG_ERROR, "debug client no longer valid \n");
        sp->debug_clnt = sp->clnt;
        lua_sethook(lua, InstructionCountHook, LUA_MASKCOUNT, 1);
        Pthread_cond_broadcast(&lua_debug_cond);
        return 0;
    }

    if (sp->debug_clnt->want_stored_procedure_debug) {
        trace = lua_tostring(lua, -1);
        rc = send_sp_trace(sp->debug_clnt, trace, 0);
        if (rc) {
            if (sp->debug_clnt != sp->clnt) {
                /* To be given as lrl value. */
                sp->debug_clnt = sp->clnt;
                lua_sethook(lua, InstructionCountHook, LUA_MASKCOUNT, 1);
                Pthread_cond_broadcast(&lua_debug_cond);
                return 0;
            }
            sleep(2);
            return luabb_error(lua, NULL, "Error in sending back data.");
        }
    }

    if (gbl_break_all_lua) {
        char sp_info[128];
        int len;
        if (sp->spversion.version_num) {
            sprintf(sp_info, "%s:%d", sp->spname, sp->spversion.version_num);
        } else {
            sprintf(sp_info, "%s:%s", sp->spname, sp->spversion.version_str);
        }
        len = strlen(sp_info);
        if (strncasecmp(sp_info, gbl_break_spname, len) == 0) {
            gbl_break_lua = pthread_self();
        }
    }

    if (gbl_break_lua && pthread_equal(gbl_break_lua, pthread_self())) {
        if (debug_clnt) {
            sp->debug_clnt = debug_clnt;
            sp->debug_clnt->sp = sp;
            debug_clnt = NULL;
        }
        char *buffer = "_SP.debug_next()";