error.c

Go to the documentation of this file.

/*
 * This work is licensed under a Creative Commons 
 * Attribution-Noncommercial-Share Alike 3.0 United States License.
 * 
 *    http://creativecommons.org/licenses/by-nc-sa/3.0/us/
 * 
 * You are free:
 * 
 *    to Share - to copy, distribute, display, and perform the work
 *    to Remix - to make derivative works
 * 
 * Under the following conditions:
 * 
 *    Attribution. You must attribute the work in the manner specified by the
 *    author or licensor (but not in any way that suggests that they endorse you
 *    or your use of the work).
 * 
 *    Noncommercial. You may not use this work for commercial purposes.
 * 
 *    Share Alike. If you alter, transform, or build upon this work, you may
 *    distribute the resulting work only under the same or similar license to
 *    this one.
 * 
 * For any reuse or distribution, you must make clear to others the license
 * terms of this work. The best way to do this is by including this header.
 * 
 * Any of the above conditions can be waived if you get permission from the
 * copyright holder.
 * 
 * Apart from the remix rights granted under this license, nothing in this
 * license impairs or restricts the author's moral rights.
 */


#include <jwsc/config.h>

#include <stdlib.h>
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <assert.h>
#include <inttypes.h>

#include "jwsc/base/error.h"

#ifdef JWSC_HAVE_DMALLOC
#include <dmalloc.h>
#endif


extern int errno;


static uint32_t num_unhandled_errors = 0;


static Error no_memory = 
{ 
    ERROR_NO_MEMORY, 
    "No memory available.",
    NULL,
    0,
    0
};


Error* error_no_memory = &no_memory;


Error* create_error
(
    Error_type   type, 
    const char*  file,
    unsigned int line,
    const char*  msg
)
{
    size_t len;
    const char* ptr;
    Error* e;

    if ((e = malloc(sizeof(Error))) == NULL)
    {
        return error_no_memory;
    }

    num_unhandled_errors++;

    e->type = type;
    e->file = NULL;
    e->line = line;
    e->msg  = NULL;
    e->code = 0;

    if (file != NULL)
    {
        len = strlen(file);
        ptr = file + len;
        while (ptr != file && *ptr != '/') ptr--;
        if (ptr != file) ptr++;
        len = strlen(ptr);

        if ((e->file = malloc((len+1)*sizeof(char))) == NULL)
        {
            free_error(e);
            return error_no_memory;
        }
        strcpy(e->file, ptr);
    }
    if (msg != NULL)
    {
        if ((e->msg = malloc((strlen(msg)+1)*sizeof(char))) == NULL)
        {
            free_error(e);
            return error_no_memory;
        }
        strcpy(e->msg, msg);
    }

    return e;
}


void free_error(Error* e)
{
    if (e == NULL || e == error_no_memory) return;

    num_unhandled_errors--;

    if (e->file != NULL)
    {
        free(e->file);
    }
    if (e->msg != NULL)
    {
        free(e->msg);
    }

    free(e);
}


void print_error(const char* prefix, const Error* e)
{
    int had_prefix;

    assert(e != NULL);
    had_prefix = 0;

    if (prefix != NULL)
    {
        fprintf(stderr, "%s", prefix);
        had_prefix = 1;
    }
    if (e->file != NULL)
    {
        if (had_prefix)
        {
            fprintf(stderr, ": %s", e->file);
        }
        else
        {
            fprintf(stderr, "%s", e->file);
            had_prefix = 1;
        }
    }
    if (had_prefix)
    {
        fprintf(stderr, ": line %u", e->line);
    }
    else
    {
        fprintf(stderr, "line %u", e->line);
        had_prefix = 1;
    }
    if (e->msg != NULL)
    {
        if (had_prefix)
        {
            fprintf(stderr, ": %s", e->msg);
        }
        else
        {
            fprintf(stderr, "%s", e->msg);
        }
    }
    fprintf(stderr, "\n");
}


void print_error_exit(const char* prefix, const Error* e)
{
    print_error(prefix, e);
    exit(EXIT_FAILURE);
}


void print_error_msg(const char* prefix, const char* msg)
{
    if (prefix != NULL)
    {
        fprintf(stderr, "%s: ", prefix);
    }

    if (msg != NULL)
    {
        fprintf(stderr, "%s\n", msg);
    }
}


void print_error_msg_exit(const char* prefix, const char* msg)
{
    print_error_msg(prefix, msg);
    exit(EXIT_FAILURE);
}


void print_errno(const char* prefix)
{
    if (prefix != NULL)
    {
        fprintf(stderr, "%s: ", prefix);
    }

    fprintf(stderr, "%s\n", strerror(errno));
}


void print_errno_exit(const char* prefix)
{
    print_errno(prefix);
    exit(EXIT_FAILURE);
}


uint32_t get_num_unhandled_errors()
{
    return num_unhandled_errors;
}