/* * "$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. */voidmxml_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 *//* * End of "$Id: mxml-private.c 315 2007-11-22 18:01:52Z mike $". */