/simpletypesystem/trunk

/*

*/

#ifndef __H_DEFS__

#define __H_DEFS__

#include <limits.h>

#include <stddef.h>

/** @file

 * 

 */

#ifdef __cplusplus

#define BEGIN_DECLS extern "C" {

#else

#define BEGIN_DECLS

#endif /*__cplusplus*/

#ifdef __cplusplus

#define END_DECLS }

#else

#define END_DECLS

#endif /* __cplusplus */

BEGIN_DECLS

#include <stdio.h>

#include <stdlib.h>

#ifdef  __unix__

  #pragma message ("We are a UNIX.")

  #include <execinfo.h>

  /**

   * Get a platform specific traceback.

   *

   * Works on UNIX's and (undested on) Windows.

   */

  #define print_backtrace() {\

    fprintf (stderr, "[BACKTRACE:]\n");\

    void ** _backtrace_data_ = calloc (10, sizeof (void *));\

    int _backtrace_len_ = backtrace (_backtrace_data_, 10);\

    char ** _backtrace_strs_ = backtrace_symbols (_backtrace_data_, _backtrace_len_);\

    if (_backtrace_strs_ == NULL) {\

      fprintf (stderr, "Could not get backtrace...\n");\

    } else {\

      for (int i = 0; i < _backtrace_len_; i++) {\

        fprintf (stderr, "%s\n", _backtrace_strs_[i]);\

      }\

      free (_backtrace_strs_);\

    }\

    fprintf (stderr, "[END BACKTRACE]\n");\

  }

#elif __WIN32__

  #pragma message ("We are a Windows (why, oh why?)")

  #include <windows.h>

  #include <dbghelp.h>

  #include <winbase.h>

  #define print_backtrace() {\

    fprintf (stderr, "[BACKTRACE:]\n");\

    void * _backtrace_stack[10];\

    HANDLE _backtrace_proc = GetCurrentProcess ();\

    SymInitialize (_backtrace_proc, NULL, TRUE);\

    unsigned short _backtrace_frames = CaptureStackBackTrace ( 0, 10, _backtrace_stack, NULL );\

    SYMBOL_INFO * _backtrace_symbol = calloc (1, sizeof (SYMBOL_INFOW) + (sizeof (char) * 256));\

    _backtrace_symbol->MaxNameLen = 255;\

    _backtrace_symbol->SizeOfStruct = sizeof (SYMBOL_INFO);\

    for (int i = 0; i <= _backtrace_frames; i++) {\

      SymFromAddr (_backtrace_proc, (DWORD64)(_backtrace_stack[i]), 0, _backtrace_symbol);\

      fprintf (stderr, "%i: %s - 0x%0X\n", _backtrace_frames - i, _backtrace_symbol->Name, _backtrace_symbol->Address);\

    }\

    free (_backtrace_symbol);\

    fprintf (stderr, "[END BACKTRACE]\n");\

  }

#else

  #pragma message ("We are not a UNIX")

  #define print_backtrace() {\

    fprintf(stdout, "[Can not get backtrace]\nCurrent Function:" __func__);\

    fprintf (stderr, "[END BACKTRACE]\n");\

  }

#endif

#ifndef FALSE

/**

 * FALSE has the absolute value of 0, it is used in as a way to represet a false

 * value. A "not" value.

 */

#define FALSE 0

#endif

#ifndef TRUE

 /**

  * TRUE represets a value that is true. A value that is "not false".

  */

#define TRUE (!FALSE)

#endif

#define S_POINTER_TO_HASH_T(p) ((hash_t)(unsigned long) p)

/**

 * sboolean is the standard definition of a boolean value in SSTS.

 *

 * @sa TRUE

 * @sa FALSE

 *

 * @note

 * This is the way it is done in GLib, so it is done here too.

 */

typedef int sboolean;

/** hash type  */

typedef size_t hash_t;

/** spointer is a convinience typedef of void * */

typedef void* spointer;

/** sconstpointer is a convinience typedef of const void * */

typedef const void* sconstpointer;

/**

 * Represents different types of objects.

 *

 * @se STypeName

 */

typedef enum {

  S_TYPE_NONE = 0,

  S_TYPE_INT,

  S_TYPE_LONG,

  S_TYPE_SHORT,

  S_TYPE_CHAR,

  S_TYPE_WCHAR,

  S_TYPE_UINT,

  S_TYPE_ULONG,

  S_TYPE_USHORT,

  S_TYPE_BOOLEAN,

  S_TYPE_STRING,

  S_TYPE_WSTRING,

  S_TYPE_UNUSED_0,

  S_TYPE_UNUSED_1,

  S_TYPE_UNUSED_2,

  S_TYPE_POINTER,

  S_TYPE_OBJECT,

  S_TYPE_INVALID

} SType;

/** @brief

 * The names of the SType's

 *

 * 

 */

static char * STypeName[] __attribute__((unused)) = {

  "NONE",

  "INT",

  "LONG",

  "SHORT",

  "CHAR",

  "WCHAR",

  "UINT",

  "ULONG",

  "USHORT"

  "BOOLEAN",

  "STRING",

  "WSTRING",

  "UNUSED_0/INVALID",

  "UNUSED_1/INVALID",

  "UNUSED_2/INVALID",

  "POINTER",

  "OBJECT",

  "INVALID",

  0x0,

  0x0,

};

/**

 * @brief Get the name of the SType.

 *

 * For use in bindings.

 */

char * s_type_get_name (SType k);

/* Colour definitions for console prints */

#define RESET   "\033[0m"

#define BLACK   "\033[30m"      /* Black */

#define RED     "\033[31m"      /* Red */

#define GREEN   "\033[32m"      /* Green */

#define YELLOW  "\033[33m"      /* Yellow */

#define BLUE    "\033[34m"      /* Blue */

#define MAGENTA "\033[35m"      /* Magenta */

#define CYAN    "\033[36m"      /* Cyan */

#define WHITE   "\033[37m"      /* White */

#define BOLDBLACK   "\033[1m\033[30m"      /* Bold Black */

#define BOLDRED     "\033[1m\033[31m"      /* Bold Red */

#define BOLDGREEN   "\033[1m\033[32m"      /* Bold Green */

#define BOLDYELLOW  "\033[1m\033[33m"      /* Bold Yellow */

#define BOLDBLUE    "\033[1m\033[34m"      /* Bold Blue */

#define BOLDMAGENTA "\033[1m\033[35m"      /* Bold Magenta */

#define BOLDCYAN    "\033[1m\033[36m"      /* Bold Cyan */

#define BOLDWHITE   "\033[1m\033[37m"      /* Bold White */

END_DECLS

#endif