lib/db/dbmi_base/error.c

Go to the documentation of this file.

#include <string.h>
#include <stdlib.h>
#include <grass/dbmi.h>

#include <errno.h>

static int err_flag = 0;
static int err_code = DB_OK;
static char *err_msg = 0;
static int auto_print_errors = 1;
static int auto_print_protocol_errors = 1;
static void (*user_print_function) (const char *);

static char *who = NULL;

void db_on_error(void (*f) (const char *))
{
    user_print_function = f;
}

void db_set_error_who(const char *me)
{
    if (who)
        db_free(who);
    who = db_store(me);
}

const char *db_get_error_who(void)
{
    return who ? who : "";
}

void db_error(const char *s)
{
    if (s == NULL)
        s = "<NULL error message>";
    if (err_msg)
        db_free(err_msg);
    err_msg = db_store(s);
    err_flag = 1;
    if (auto_print_errors)
        db_print_error();
    err_code = DB_FAILED;
}

void db_protocol_error(void)
{
    int flag;

    flag = auto_print_errors;
    auto_print_errors = auto_print_protocol_errors;
    db_error("dbmi: Protocol error");
    auto_print_errors = flag;
    err_code = DB_PROTOCOL_ERR;
}

void db_syserror(const char *s)
{
    char lead[1024];
    char msg[1024];


    err_flag = 0;
    if (errno <= 0)
        return;

    *lead = 0;
    if (who)
        sprintf(lead, "%s: ", who);

    if (errno > 0)
        sprintf(msg, "%s%s: %s", lead, strerror(errno), s);

    db_error(msg);
}

int db_get_error_code(void)
{
    return err_flag ? err_code : DB_OK;
}

void db_memory_error(void)
{
    db_error("dbmi: Out of Memory");
    err_code = DB_MEMORY_ERR;
}

void db_procedure_not_implemented(const char *name)
{
    char msg[128];

    sprintf(msg, "dbmi: %s() not implemented", name);
    db_error(msg);
    err_code = DB_NOPROC;
}

void db_noproc_error(procnum)
{
    char msg[128];

    sprintf(msg, "dbmi: Invalid procedure %d", procnum);
    db_error(msg);
    err_code = DB_NOPROC;
}

void db_clear_error(void)
{
    err_flag = 0;
    err_code = DB_OK;
    errno = 0;                  /* clearn system errno as well */
}

void db_print_error(void)
{
    char lead[1024];

    if (!err_flag)
        return;

    *lead = 0;
    if (who)
        sprintf(lead, "%s: ", who);

    if (user_print_function) {
        char buf[1024];

        sprintf(buf, "%s%s\n", lead, err_msg);
        user_print_function(buf);
    }
    else
        fprintf(stderr, "%s%s\n", lead, err_msg);
}


static int debug_on = 0;

void db_debug_on(void)
{
    debug_on = 1;
}

void db_debug_off(void)
{
    debug_on = 0;
}

void db_debug(const char *s)
{
    if (debug_on)
        fprintf(stderr, "debug(%s): %s\n", who ? who : "", s ? s : "<NULL>");
}

const char *db_get_error_msg(void)
{
    return err_flag ? err_msg : (const char *)NULL;
}

void db_auto_print_errors(int flag)
{
    auto_print_errors = flag;
    auto_print_protocol_errors = flag;
}

void db_auto_print_protocol_errors(int flag)
{
    auto_print_protocol_errors = flag;
}