1  /**
  2  ***     Additional procedures for ILE/RPG support.
  3  ***
  4  ***     See Copyright for the status of this software.
  5  ***
  6  ***     Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
  7  **/
  8  
  9  #include <sys/types.h>
 10  
 11  #include <stdarg.h>
 12  
 13  #include "libxml/xmlmemory.h"
 14  #include "libxml/xpath.h"
 15  #include "libxml/parser.h"
 16  #include "libxml/HTMLparser.h"
 17  
 18  #include "rpgsupport.h"
 19  
 20  
 21  /**
 22  ***     ILE/RPG cannot directly derefence a pointer and has no macros.
 23  ***     The following additional procedures supply these functions.
 24  ***     In addition, the following code is adjusted for threads control at
 25  ***             compile time via the C macros.
 26  **/
 27  
 28  #define THREADED_VAR(name, type)                                        \
 29                  type __get_##name(void) { return name; }                \
 30                  void __set_##name(type arg) { name = arg; }
 31  
 32  
 33  THREADED_VAR(xmlFree, xmlFreeFunc)
 34  
 35  void
 36  __call_xmlFree(void * mem)
 37  
 38  {
 39          xmlFree(mem);
 40  }
 41  
 42  
 43  THREADED_VAR(xmlMalloc, xmlMallocFunc)
 44  
 45  void *
 46  __call_xmlMalloc(size_t size)
 47  
 48  {
 49          return xmlMalloc(size);
 50  }
 51  
 52  
 53  THREADED_VAR(xmlMallocAtomic, xmlMallocFunc)
 54  
 55  void *
 56  __call_xmlMallocAtomic(size_t size)
 57  
 58  {
 59          return xmlMallocAtomic(size);
 60  }
 61  
 62  
 63  THREADED_VAR(xmlRealloc, xmlReallocFunc)
 64  
 65  void *
 66  __call_xmlRealloc(void * mem, size_t size)
 67  
 68  {
 69          return xmlRealloc(mem, size);
 70  }
 71  
 72  
 73  THREADED_VAR(xmlMemStrdup, xmlStrdupFunc)
 74  
 75  char *
 76  __call_xmlMemStrdup(const char * str)
 77  
 78  {
 79          return xmlMemStrdup(str);
 80  }
 81  
 82  
 83  #ifdef LIBXML_DOCB_ENABLED
 84  THREADED_VAR(docbDefaultSAXHandler, xmlSAXHandlerV1)
 85  #endif
 86  
 87  
 88  #ifdef LIBXML_HTML_ENABLED
 89  THREADED_VAR(htmlDefaultSAXHandler, xmlSAXHandlerV1)
 90  #endif
 91  
 92  
 93  THREADED_VAR(xmlLastError, xmlError)
 94  
 95  THREADED_VAR(oldXMLWDcompatibility, int)
 96  THREADED_VAR(xmlBufferAllocScheme, xmlBufferAllocationScheme)
 97  THREADED_VAR(xmlDefaultBufferSize, int)
 98  THREADED_VAR(xmlDefaultSAXHandler, xmlSAXHandlerV1)
 99  THREADED_VAR(xmlDefaultSAXLocator, xmlSAXLocator)
100  THREADED_VAR(xmlDoValidityCheckingDefaultValue, int)
101  
102  /* No caller to xmlGenericError() because the argument list is unknown. */
103  THREADED_VAR(xmlGenericError, xmlGenericErrorFunc)
104  
105  
106  THREADED_VAR(xmlStructuredError, xmlStructuredErrorFunc)
107  
108  void
109  __call_xmlStructuredError(void * userData, xmlErrorPtr error)
110  
111  {
112          xmlStructuredError(userData, error);
113  }
114  
115  THREADED_VAR(xmlGenericErrorContext, void *)
116  THREADED_VAR(xmlStructuredErrorContext, void *)
117  THREADED_VAR(xmlGetWarningsDefaultValue, int)
118  THREADED_VAR(xmlIndentTreeOutput, int)
119  THREADED_VAR(xmlTreeIndentString, const char *)
120  THREADED_VAR(xmlKeepBlanksDefaultValue, int)
121  THREADED_VAR(xmlLineNumbersDefaultValue, int)
122  THREADED_VAR(xmlLoadExtDtdDefaultValue, int)
123  THREADED_VAR(xmlParserDebugEntities, int)
124  THREADED_VAR(xmlParserVersion, const char *)
125  THREADED_VAR(xmlPedanticParserDefaultValue, int)
126  THREADED_VAR(xmlSaveNoEmptyTags, int)
127  THREADED_VAR(xmlSubstituteEntitiesDefaultValue, int)
128  
129  
130  THREADED_VAR(xmlRegisterNodeDefaultValue, xmlRegisterNodeFunc)
131  
132  void
133  __call_xmlRegisterNodeDefaultValue(xmlNodePtr node)
134  
135  {
136          xmlRegisterNodeDefaultValue(node);
137  }
138  
139  
140  THREADED_VAR(xmlDeregisterNodeDefaultValue, xmlDeregisterNodeFunc)
141  
142  void
143  __call_xmlDeregisterNodeDefaultValue(xmlNodePtr node)
144  
145  {
146          xmlDeregisterNodeDefaultValue(node);
147  }
148  
149  
150  THREADED_VAR(xmlParserInputBufferCreateFilenameValue, xmlParserInputBufferCreateFilenameFunc)
151  
152  xmlParserInputBufferPtr
153  __call_xmlParserInputBufferCreateFilenameValue(const char *URI,
154                                                          xmlCharEncoding enc)
155  
156  {
157          return xmlParserInputBufferCreateFilenameValue(URI, enc);
158  }
159  
160  
161  THREADED_VAR(xmlOutputBufferCreateFilenameValue, xmlOutputBufferCreateFilenameFunc)
162  
163  xmlOutputBufferPtr
164  __call_xmlOutputBufferCreateFilenameValue(const char *URI,
165                          xmlCharEncodingHandlerPtr encoder, int compression)
166  
167  {
168          return xmlOutputBufferCreateFilenameValue(URI, encoder, compression);
169  }
170  
171  
172  
173  /**
174  ***     va_list support.
175  **/
176  
177  void
178  __xmlVaStart(char * * list, char * lastargaddr, size_t lastargsize)
179  
180  {
181          list[1] = lastargaddr + lastargsize;
182  }
183  
184  
185  void *
186  __xmlVaArg(char * * list, void * dest, size_t argsize)
187  
188  {
189          size_t align;
190  
191          if (!argsize)
192                  return (void *) NULL;
193  
194          for (align = 16; align > argsize; align >>= 1)
195                  ;
196  
197          align--;
198          list[0] = list[1] + (align - (((size_t) list[0] - 1) & align));
199          list[1] = list[0] + argsize;
200  
201          if (dest)
202                  memcpy(dest, list[0], argsize);
203  
204          return (void *) list[0];
205  }
206  
207  
208  void
209  __xmlVaEnd(char * * list)
210  
211  {
212          /* Nothing to do. */
213  }
214  
215  
216  #ifdef LIBXML_XPATH_ENABLED
217  
218  int
219  __xmlXPathNodeSetGetLength(const xmlNodeSet * ns)
220  
221  {
222          return xmlXPathNodeSetGetLength(ns);
223  }
224  
225  
226  xmlNodePtr
227  __xmlXPathNodeSetItem(const xmlNodeSet * ns, int index)
228  
229  {
230          return xmlXPathNodeSetItem(ns, index);
231  }
232  
233  
234  int
235  __xmlXPathNodeSetIsEmpty(const xmlNodeSet * ns)
236  
237  {
238          return xmlXPathNodeSetIsEmpty(ns);
239  }
240  
241  #endif
242  
243  
244  #ifdef LIBXML_HTML_ENABLED
245  
246  const char *
247  __htmlDefaultSubelement(const htmlElemDesc * elt)
248  
249  {
250          return htmlDefaultSubelement(elt);
251  }
252  
253  
254  int
255  __htmlElementAllowedHereDesc(const htmlElemDesc * parent,
256                                                  const htmlElemDesc * elt)
257  
258  {
259          return htmlElementAllowedHereDesc(parent, elt);
260  }
261  
262  
263  const char * *
264  __htmlRequiredAttrs(const htmlElemDesc * elt)
265  
266  {
267          return htmlRequiredAttrs(elt);
268  }
269  
270  #endif