/*

SDL - Simple DirectMedia Layer

Copyright (C) 1997-2004 Sam Lantinga

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Library General Public

License as published by the Free Software Foundation; either

version 2 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

Library General Public License for more details.

You should have received a copy of the GNU Library General Public

License along with this library; if not, write to the Free

Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

Sam Lantinga

slouken@libsdl.org

*/

#ifdef SAVE_RCSID

static char rcsid =

"@(#) $Id$";

#endif

/* Simple error handling in SDL */

#include <stdio.h>

#include <stdlib.h>

#include <stdarg.h>

#include <string.h>

#include "SDL_types.h"

#include "SDL_getenv.h"

#include "SDL_error.h"

#include "SDL_error_c.h"

#ifndef DISABLE_THREADS

#include "SDL_thread_c.h"

#endif

#ifdef DISABLE_THREADS

/* The default (non-thread-safe) global error variable */

static SDL_error SDL_global_error;

#define SDL_GetErrBuf() (&SDL_global_error)

#endif /* DISABLE_THREADS */

#ifdef __CYGWIN__

#define DISABLE_STDIO

#endif

#define SDL_ERRBUFIZE 1024

/* Private functions */

static void SDL_LookupString(const Uint8 *key, Uint16 *buf, int buflen)

{

/* FIXME: Add code to lookup key in language string hash-table */

/* Key not found in language string hash-table */

while ( *key && (--buflen > 0) ) {

*buf++ = *key++;

}

*buf = 0; /* NULL terminate string */

}

/* Public functions */

void SDL_SetError (const char *fmt, ...)

{

va_list ap;

SDL_error *error;

/* Copy in the key, mark error as valid */

error = SDL_GetErrBuf();

error->error = 1;

strncpy((char *)error->key, fmt, sizeof(error->key));

error->key[sizeof(error->key)-1] = '\0';

va_start(ap, fmt);

error->argc = 0;

while ( *fmt ) {

if ( *fmt++ == '%' ) {

switch (*fmt++) {

case 0: /* Malformed format string.. */

--fmt;

break;

#if 0 /* What is a character anyway? (UNICODE issues) */

case 'c':

error->args[error->argc++].value_c =

va_arg(ap, unsigned char);

break;

#endif

case 'd':

error->args[error->argc++].value_i =

va_arg(ap, int);

break;

case 'f':

error->args[error->argc++].value_f =

va_arg(ap, double);

break;

case 'p':

error->args[error->argc++].value_ptr =

va_arg(ap, void *);

break;

case 's':

{

int index = error->argc;

char *str = va_arg(ap, char *);

if (str == NULL)

str = "(null)";

strncpy((char *)error->args[index].buf, str, ERR_MAX_STRLEN);

error->args[index].buf[ERR_MAX_STRLEN-1] = 0;

error->argc++;

}

break;

default:

break;

}

if ( error->argc >= ERR_MAX_ARGS ) {

break;

}

}

}

va_end(ap);

#ifndef DISABLE_STDIO

/* If we are in debug mode, print out an error message */

#ifdef DEBUG_ERROR

fprintf(stderr, "SDL_SetError: %s\n", SDL_GetError());

#else

if ( getenv("SDL_DEBUG") ) {

fprintf(stderr, "SDL_SetError: %s\n", SDL_GetError());

}

#endif

#endif /* !DISABLE_STDIO */

}

/* Print out an integer value to a UNICODE buffer */

static int PrintInt(Uint16 *str, unsigned int maxlen, int value)

{

char tmp[128];

int len, i;

sprintf(tmp, "%d", value);

len = 0;

if ( strlen(tmp) < maxlen ) {

for ( i=0; tmp[i]; ++i ) {

*str++ = tmp[i];

++len;

}

}

return(len);

}

/* Print out a double value to a UNICODE buffer */

static int PrintDouble(Uint16 *str, unsigned int maxlen, double value)

{

char tmp[128];

int len, i;

sprintf(tmp, "%f", value);

len = 0;

if ( strlen(tmp) < maxlen ) {

for ( i=0; tmp[i]; ++i ) {

*str++ = tmp[i];

++len;

}

}

return(len);

}

/* Print out a pointer value to a UNICODE buffer */

static int PrintPointer(Uint16 *str, unsigned int maxlen, void *value)

{

char tmp[128];

int len, i;

sprintf(tmp, "%p", value);

len = 0;

if ( strlen(tmp) < maxlen ) {

for ( i=0; tmp[i]; ++i ) {

*str++ = tmp[i];

++len;

}

}

return(len);

}

/* This function has a bit more overhead than most error functions

so that it supports internationalization and thread-safe errors.

*/

Uint16 *SDL_GetErrorMsgUNICODE(Uint16 *errstr, unsigned int maxlen)

{

SDL_error *error;

/* Clear the error string */

*errstr = 0; --maxlen;

/* Get the thread-safe error, and print it out */

error = SDL_GetErrBuf();

if ( error->error ) {

Uint16 translated[ERR_MAX_STRLEN], *fmt, *msg;

int len;

int argi;

/* Print out the UNICODE error message */

SDL_LookupString(error->key, translated, sizeof(translated));

msg = errstr;

argi = 0;

for ( fmt=translated; *fmt && (maxlen > 0); ) {

if ( *fmt == '%' ) {

switch (fmt[1]) {

case 'S': /* Special SKIP operand */

argi += (fmt[2] - '0');

++fmt;

break;

case '%':

*msg++ = '%';

maxlen -= 1;

break;

#if 0 /* What is a character anyway? (UNICODE issues) */

case 'c':

*msg++ = (unsigned char)

error->args[argi++].value_c;

maxlen -= 1;

break;

#endif

case 'd':

len = PrintInt(msg, maxlen,

error->args[argi++].value_i);

msg += len;

maxlen -= len;

break;

case 'f':

len = PrintDouble(msg, maxlen,

error->args[argi++].value_f);

msg += len;

maxlen -= len;

break;

case 'p':

len = PrintPointer(msg, maxlen,

error->args[argi++].value_ptr);

msg += len;

maxlen -= len;

break;

case 's': /* UNICODE string */

{ Uint16 buf[ERR_MAX_STRLEN], *str;

SDL_LookupString(error->args[argi++].buf, buf, sizeof(buf));

str = buf;

while ( *str && (maxlen > 0) ) {

*msg++ = *str++;

maxlen -= 1;

}

}

break;

}

fmt += 2;

} else {

*msg++ = *fmt++;

maxlen -= 1;

}

}

*msg = 0; /* NULL terminate the string */

}

return(errstr);

}

Uint8 *SDL_GetErrorMsg(Uint8 *errstr, unsigned int maxlen)

{

Uint16 *errstr16;

unsigned int i;

/* Allocate the UNICODE buffer */

errstr16 = (Uint16 *)malloc(maxlen * (sizeof *errstr16));

if ( ! errstr16 ) {

strncpy((char *)errstr, "Out of memory", maxlen);

errstr[maxlen-1] = '\0';

return(errstr);

}

/* Get the error message */

SDL_GetErrorMsgUNICODE(errstr16, maxlen);

/* Convert from UNICODE to Latin1 encoding */

for ( i=0; i<maxlen; ++i ) {

errstr[i] = (Uint8)errstr16[i];

}

/* Free UNICODE buffer (if necessary) */

free(errstr16);

return(errstr);

}

/* Available for backwards compatibility */

char *SDL_GetError (void)

{

static char errmsg[SDL_ERRBUFIZE];

return((char *)SDL_GetErrorMsg((unsigned char *)errmsg, SDL_ERRBUFIZE));

}

void SDL_ClearError(void)

{

SDL_error *error;

error = SDL_GetErrBuf();

error->error = 0;

}

/* Very common errors go here */

void SDL_Error(SDL_errorcode code)

{

switch (code) {

case SDL_ENOMEM:

SDL_SetError("Out of memory");

break;

case SDL_EFREAD:

SDL_SetError("Error reading from datastream");

break;

case SDL_EFWRITE:

SDL_SetError("Error writing to datastream");

break;

case SDL_EFSEEK:

SDL_SetError("Error seeking in datastream");

break;

default:

SDL_SetError("Unknown SDL error");

break;

}

}

#ifdef TEST_ERROR

int main(int argc, char *argv[])

{

char buffer[BUFSIZ+1];

SDL_SetError("Hi there!");

printf("Error 1: %s\n", SDL_GetError());

SDL_ClearError();

memset(buffer, '1', BUFSIZ);

buffer[BUFSIZ] = 0;

SDL_SetError("This is the error: %s (%f)", buffer, 1.0);

printf("Error 2: %s\n", SDL_GetError());

exit(0);

}

#endif