avoid re-entrancy into giflib using the mutex API

[imager.git] / error.c

diff --git a/error.c b/error.c
index 84785a2a2fd59d0a188b979198b84e55ec8cb991..a782e3a038f0910453ee1ac21428c9040ce1b82b 100644 (file)
--- a/error.c
+++ b/error.c
@@ -61,112 +61,24 @@ C).  The Perl level won't use all of this.
 =cut
 */
 
 =cut
 */
 

-#include "imager.h"
+#include "imageri.h"

 #include <stdio.h>
 #include <stdlib.h>
 
 #include <stdio.h>
 #include <stdlib.h>
 

-/* we never actually use the last item - it's the NULL terminator */
-#define ERRSTK 20
-static i_errmsg error_stack[ERRSTK];
-static int error_sp = ERRSTK - 1;
-/* we track the amount of space used each string, so we don't reallocate 
-   space unless we need to.
-   This also means that a memory tracking library may see the memory 
-   allocated for this as a leak. */
-static int error_space[ERRSTK];
-
-static i_error_cb error_cb;
-static i_failed_cb failed_cb;
-static int failures_fatal;
-static char *argv0;
-
-/*
-=item i_set_argv0(char const *program)
-
-Sets the name of the program to be displayed in fatal error messages.
-
-The simplest way to use this is just:
-
-  i_set_argv0(argv[0]);
-
-when your program starts.
-*/
-void i_set_argv0(char const *name) {
-  char *dupl;
-  if (!name)
-    return;
-  /* if the user has an existing string of MAXINT length then
-     the system is broken anyway */
-  dupl = mymalloc(strlen(name)+1); /* check 17jul05 tonyc */
-  strcpy(dupl, name);
-  if (argv0)
-    myfree(argv0);
-  argv0 = dupl;
-}
-

 /*
 /*

-=item i_set_failure_fatal(int failure_fatal)
-
-If failure_fatal is non-zero then any future failures will result in
-Imager exiting your program with a message describing the failure.
-
-Returns the previous setting.
-
-=cut
-*/
-int i_set_failures_fatal(int fatal) {
-  int old = failures_fatal;
-  failures_fatal = fatal;
-
-  return old;
-}
-
-/*
-=item i_set_error_cb(i_error_cb)
-
-Sets a callback function that is called each time an error is pushed
-onto the error stack.
-
-Returns the previous callback.
-
-i_set_failed_cb() is probably more useful.
-
-=cut
-*/
-i_error_cb i_set_error_cb(i_error_cb cb) {
-  i_error_cb old = error_cb;
-  error_cb = cb;
-
-  return old;
-}
-
-/*
-=item i_set_failed_cb(i_failed_cb cb)
-
-Sets a callback function that is called each time an Imager function
-fails.
-
-Returns the previous callback.
-
-=cut
-*/
-i_failed_cb i_set_failed_cb(i_failed_cb cb) {
-  i_failed_cb old = failed_cb;
-  failed_cb = cb;
-
-  return old;
-}
-
-/*
-=item i_errors()
+=item im_errors(ctx)
+=synopsis i_errmsg *errors = im_errors(aIMCTX);
+=synopsis i_errmsg *errors = i_errors();

 
 Returns a pointer to the first element of an array of error messages,
 terminated by a NULL pointer.  The highest level message is first.
 
 
 Returns a pointer to the first element of an array of error messages,
 terminated by a NULL pointer.  The highest level message is first.
 

+Also callable as C<i_errors()>.
+

 =cut
 */
 =cut
 */

-i_errmsg *i_errors() {
-  return error_stack + error_sp;
+i_errmsg *im_errors(im_context_t ctx) {
+  return ctx->error_stack + ctx->error_sp;

 }
 
 /*
 }
 
 /*


@@ -182,7 +94,9 @@ the mark.
 
 =over
 
 
 =over
 

-=item i_clear_error()
+=item im_clear_error(ctx)
+X<im_clear_error API>X<i_clear_error API>
+=synopsis im_clear_error(aIMCTX);

 =synopsis i_clear_error();
 =category Error handling
 
 =synopsis i_clear_error();
 =category Error handling
 


@@ -190,27 +104,33 @@ Clears the error stack.
 
 Called by any Imager function before doing any other processing.
 
 
 Called by any Imager function before doing any other processing.
 

+Also callable as C<i_clear_error()>.
+

 =cut
 */
 =cut
 */

-void i_clear_error() {
+
+void
+im_clear_error(im_context_t ctx) {

 #ifdef IMAGER_DEBUG_MALLOC
   int i;
 
 #ifdef IMAGER_DEBUG_MALLOC
   int i;
 

-  for (i = 0; i < ERRSTK; ++i) {
-    if (error_space[i]) {
-      myfree(error_stack[i].msg);
-      error_stack[i].msg = NULL;
-      error_space[i] = 0;
+  for (i = 0; i < IM_ERROR_COUNT; ++i) {
+    if (ctx->error_space[i]) {
+      myfree(ctx->error_stack[i].msg);
+      ctx->error_stack[i].msg = NULL;
+      ctx->error_space[i] = 0;

     }
   }
 #endif
     }
   }
 #endif

-  error_sp = ERRSTK-1;
+  ctx->error_sp = IM_ERROR_COUNT-1;

 }
 
 /*
 }
 
 /*

-=item i_push_error(int code, char const *msg)
+=item im_push_error(ctx, code, message)
+X<im_push_error API>X<i_push_error API>

 =synopsis i_push_error(0, "Yep, it's broken");
 =synopsis i_push_error(errno, "Error writing");
 =synopsis i_push_error(0, "Yep, it's broken");
 =synopsis i_push_error(errno, "Error writing");

+=synopsis im_push_error(aIMCTX, 0, "Something is wrong");

 =category Error handling
 
 Called by an Imager function to push an error message onto the stack.
 =category Error handling
 
 Called by an Imager function to push an error message onto the stack.


@@ -221,34 +141,35 @@ error handling is calling function that does.).
 
 =cut
 */
 
 =cut
 */

-void i_push_error(int code, char const *msg) {
+void
+im_push_error(im_context_t ctx, int code, char const *msg) {

   size_t size = strlen(msg)+1;
 
   size_t size = strlen(msg)+1;
 

-  if (error_sp <= 0)
+  if (ctx->error_sp <= 0)

     /* bad, bad programmer */
     return;
 
     /* bad, bad programmer */
     return;
 

-  --error_sp;
-  if (error_space[error_sp] < size) {
-    if (error_stack[error_sp].msg)
-      myfree(error_stack[error_sp].msg);
+  --ctx->error_sp;
+  if (ctx->error_alloc[ctx->error_sp] < size) {
+    if (ctx->error_stack[ctx->error_sp].msg)
+      myfree(ctx->error_stack[ctx->error_sp].msg);

     /* memory allocated on the following line is only ever released when 
        we need a bigger string */
     /* size is size (len+1) of an existing string, overflow would mean
        the system is broken anyway */
     /* memory allocated on the following line is only ever released when 
        we need a bigger string */
     /* size is size (len+1) of an existing string, overflow would mean
        the system is broken anyway */

-    error_stack[error_sp].msg = mymalloc(size); /* checked 17jul05 tonyc */
-    error_space[error_sp] = size;
+    ctx->error_stack[ctx->error_sp].msg = mymalloc(size); /* checked 17jul05 tonyc */
+    ctx->error_alloc[ctx->error_sp] = size;

   }
   }

-  strcpy(error_stack[error_sp].msg, msg);
-  error_stack[error_sp].code = code;
-
-  if (error_cb)
-    error_cb(code, msg);
+  strcpy(ctx->error_stack[ctx->error_sp].msg, msg);
+  ctx->error_stack[ctx->error_sp].code = code;

 }
 
 /*
 }
 
 /*

-=item i_push_errorvf(int C<code>, char const *C<fmt>, va_list C<ap>)
-
+=item im_push_errorvf(ctx, code, format, args)
+X<im_push_error_vf API>X<i_push_errorvf API>
+=synopsis va_args args;
+=synopsis va_start(args, lastarg);
+=synopsis im_push_errorvf(ctx, code, format, args);

 =category Error handling
 
 Intended for use by higher level functions, takes a varargs pointer
 =category Error handling
 
 Intended for use by higher level functions, takes a varargs pointer


@@ -256,9 +177,12 @@ and a format to produce the finally pushed error message.
 
 Does not support perl specific format codes.
 
 
 Does not support perl specific format codes.
 

+Also callable as C<i_push_errorvf(code, format, args)>
+

 =cut
 */
 =cut
 */

-void i_push_errorvf(int code, char const *fmt, va_list ap) {
+void 
+im_push_errorvf(im_context_t ctx, int code, char const *fmt, va_list ap) {

   char buf[1024];
 #if defined(IMAGER_VSNPRINTF)
   vsnprintf(buf, sizeof(buf), fmt, ap);
   char buf[1024];
 #if defined(IMAGER_VSNPRINTF)
   vsnprintf(buf, sizeof(buf), fmt, ap);


@@ -271,7 +195,7 @@ void i_push_errorvf(int code, char const *fmt, va_list ap) {
    */
   vsprintf(buf, fmt, ap);
 #endif
    */
   vsprintf(buf, fmt, ap);
 #endif

-  i_push_error(code, buf);
+  im_push_error(ctx, code, buf);

 }
 
 /*
 }
 
 /*


@@ -285,13 +209,33 @@ Does not support perl specific format codes.
 
 =cut
 */
 
 =cut
 */

-void i_push_errorf(int code, char const *fmt, ...) {
+void
+i_push_errorf(int code, char const *fmt, ...) {

   va_list ap;
   va_start(ap, fmt);
   i_push_errorvf(code, fmt, ap);
   va_end(ap);
 }
 
   va_list ap;
   va_start(ap, fmt);
   i_push_errorvf(code, fmt, ap);
   va_end(ap);
 }
 

+/*
+=item im_push_errorf(ctx, code, char const *fmt, ...)
+=synopsis im_push_errorf(aIMCTX, errno, "Cannot open file %s: %d", filename, errno);
+=category Error handling
+
+A version of im_push_error() that does printf() like formatting.
+
+Does not support perl specific format codes.
+
+=cut
+*/
+void
+im_push_errorf(im_context_t ctx, int code, char const *fmt, ...) {
+  va_list ap;
+  va_start(ap, fmt);
+  im_push_errorvf(ctx, code, fmt, ap);
+  va_end(ap);
+}
+

 #ifdef IMAGER_I_FAILED
 #error "This isn't used and is untested"
 
 #ifdef IMAGER_I_FAILED
 #error "This isn't used and is untested"
 


@@ -369,7 +313,7 @@ void
 im_assert_fail(char const *file, int line, char const *message) {
   fprintf(stderr, "Assertion failed line %d file %s: %s\n", 
          line, file, message);
 im_assert_fail(char const *file, int line, char const *message) {
   fprintf(stderr, "Assertion failed line %d file %s: %s\n", 
          line, file, message);

-  exit(EXIT_FAILURE);
+  abort();

 }
 
 /*
 }
 
 /*