286 lines
5.8 KiB
C
Executable File
286 lines
5.8 KiB
C
Executable File
/*
|
|
* "$Id: //BBN_Linux/Branch/Branch_for_Rel_TP_ASEAN_20161216/tclinux_phoenix/apps/public/mxml-2.4/mxml-private.c#1 $"
|
|
*
|
|
* 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 */
|
|
|
|
|
|
/*
|
|
* End of "$Id: //BBN_Linux/Branch/Branch_for_Rel_TP_ASEAN_20161216/tclinux_phoenix/apps/public/mxml-2.4/mxml-private.c#1 $".
|
|
*/
|