mxml-private.c

Go to the documentation of this file.

/*
 * "$Id: mxml-private.c 315 2007-11-22 18:01:52Z mike $"
 *
 * Private functions for Mini-XML, a small XML-like file parsing library.
 *
 * Copyright 2003-2007 by Michael Sweet.
 *
 * This program 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, or (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * Contents:
 *
 *   mxml_error()      - Display an error message.
 *   mxml_integer_cb() - Default callback for integer values.
 *   mxml_opaque_cb()  - Default callback for opaque values.
 *   mxml_real_cb()    - Default callback for real number values.
 *   _mxml_global()    - Get global data.
 */

/*
 * Include necessary headers...
 */

#include "mxml-private.h"


/*
 * 'mxml_error()' - Display an error message.
 */

void
mxml_error(const char *format,      /* I - Printf-style format string */
           ...)             /* I - Additional arguments as needed */
{
  va_list   ap;         /* Pointer to arguments */
  char      s[1024];        /* Message string */
  _mxml_global_t *global = _mxml_global();
                    /* Global data */


 /*
  * Range check input...
  */

  if (!format)
    return;

 /*
  * Format the error message string...
  */

  va_start(ap, format);

  vsnprintf(s, sizeof(s), format, ap);

  va_end(ap);

 /*
  * And then display the error message...
  */

  if (global->error_cb)
    (*global->error_cb)(s);
  else
    fprintf(stderr, "mxml: %s\n", s);
}


/*
 * 'mxml_ignore_cb()' - Default callback for ignored values.
 */

mxml_type_t             /* O - Node type */
mxml_ignore_cb(mxml_node_t *node)   /* I - Current node */
{
  (void)node;

  return (MXML_IGNORE);
}


/*
 * 'mxml_integer_cb()' - Default callback for integer values.
 */

mxml_type_t             /* O - Node type */
mxml_integer_cb(mxml_node_t *node)  /* I - Current node */
{
  (void)node;

  return (MXML_INTEGER);
}


/*
 * 'mxml_opaque_cb()' - Default callback for opaque values.
 */

mxml_type_t             /* O - Node type */
mxml_opaque_cb(mxml_node_t *node)   /* I - Current node */
{
  (void)node;

  return (MXML_OPAQUE);
}


/*
 * 'mxml_real_cb()' - Default callback for real number values.
 */

mxml_type_t             /* O - Node type */
mxml_real_cb(mxml_node_t *node)     /* I - Current node */
{
  (void)node;

  return (MXML_REAL);
}


#ifdef HAVE_PTHREAD_H           /**** POSIX threading ****/
#  include <pthread.h>

static pthread_key_t    _mxml_key = -1; /* Thread local storage key */
static pthread_once_t   _mxml_key_once = PTHREAD_ONCE_INIT;
                    /* One-time initialization object */
static void     _mxml_init(void);
static void     _mxml_destructor(void *g);


/*
 * '_mxml_global()' - Get global data.
 */

_mxml_global_t *            /* O - Global data */
_mxml_global(void)
{
  _mxml_global_t    *global;    /* Global data */


  pthread_once(&_mxml_key_once, _mxml_init);

  if ((global = (_mxml_global_t *)pthread_getspecific(_mxml_key)) == NULL)
  {
    global = (_mxml_global_t *)calloc(1, sizeof(_mxml_global_t));
    pthread_setspecific(_mxml_key, global);

    global->num_entity_cbs = 1;
    global->entity_cbs[0]  = _mxml_entity_cb;
    global->wrap           = 72;
  }

  return (global);
}


/*
 * '_mxml_init()' - Initialize global data...
 */

static void
_mxml_init(void)
{
  pthread_key_create(&_mxml_key, _mxml_destructor);
}


/*
 * '_mxml_destructor()' - Free memory used for globals...
 */

static void
_mxml_destructor(void *g)       /* I - Global data */
{
  free(g);
}


#elif defined(WIN32)            /**** WIN32 threading ****/
#  include <windows.h>

static DWORD _mxml_tls_index;       /* Index for global storage */


/*
 * 'DllMain()' - Main entry for library.
 */

BOOL WINAPI             /* O - Success/failure */
DllMain(HINSTANCE hinst,        /* I - DLL module handle */
        DWORD     reason,       /* I - Reason */
        LPVOID    reserved)     /* I - Unused */
{
  _mxml_global_t    *global;    /* Global data */


  (void)hinst;
  (void)reserved;

  switch (reason)
  {
    case DLL_PROCESS_ATTACH :       /* Called on library initialization */
        if ((_mxml_tls_index = TlsAlloc()) == TLS_OUT_OF_INDEXES)
          return (FALSE);
        break;

    case DLL_THREAD_DETACH :        /* Called when a thread terminates */
        if ((global = (_mxml_global_t *)TlsGetValue(_mxml_tls_index)) != NULL)
          free(global);
        break;

    case DLL_PROCESS_DETACH :       /* Called when library is unloaded */
        if ((global = (_mxml_global_t *)TlsGetValue(_mxml_tls_index)) != NULL)
          free(global);

        TlsFree(_mxml_tls_index);
        break;

    default:
        break;
  }

  return (TRUE);
}


/*
 * '_mxml_global()' - Get global data.
 */

_mxml_global_t *            /* O - Global data */
_mxml_global(void)
{
  _mxml_global_t    *global;    /* Global data */


  if ((global = (_mxml_global_t *)TlsGetValue(_mxml_tls_index)) == NULL)
  {
    global = (_mxml_global_t *)calloc(1, sizeof(_mxml_global_t));

    global->num_entity_cbs = 1;
    global->entity_cbs[0]  = _mxml_entity_cb;
    global->wrap           = 72;

    TlsSetValue(_mxml_tls_index, (LPVOID)global);
  }

  return (global);
}


#else                   /**** No threading ****/
/*
 * '_mxml_global()' - Get global data.
 */

_mxml_global_t *            /* O - Global data */
_mxml_global(void)
{
  static _mxml_global_t global =    /* Global data */
  {
    NULL,               /* error_cb */
    1,                  /* num_entity_cbs */
    { _mxml_entity_cb },        /* entity_cbs */
    72,                 /* wrap */
    NULL,               /* custom_load_cb */
    NULL                /* custom_save_cb */
  };


  return (&global);
}
#endif /* HAVE_PTHREAD_H */