kc3-lang/libxml2/os400/rpgsupport.c

• Show log

  Commit

• Hash : 20c60886
  Author :
  Date : 2020-03-08T17:19:42
  

  Fix typos
  
  Resolves #133.
  

Download

• os400/rpgsupport.c

• /**
  ***     Additional procedures for ILE/RPG support.
  ***
  ***     See Copyright for the status of this software.
  ***
  ***     Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
  **/
  
  #include <sys/types.h>
  
  #include <stdarg.h>
  
  #include "libxml/xmlmemory.h"
  #include "libxml/xpath.h"
  #include "libxml/parser.h"
  #include "libxml/HTMLparser.h"
  
  #include "rpgsupport.h"
  
  
  /**
  ***     ILE/RPG cannot directly dereference a pointer and has no macros.
  ***     The following additional procedures supply these functions.
  ***     In addition, the following code is adjusted for threads control at
  ***             compile time via the C macros.
  **/
  
  #define THREADED_VAR(name, type)                                        \
                  type __get_##name(void) { return name; }                \
                  void __set_##name(type arg) { name = arg; }
  
  
  THREADED_VAR(xmlFree, xmlFreeFunc)
  
  void
  __call_xmlFree(void * mem)
  
  {
          xmlFree(mem);
  }
  
  
  THREADED_VAR(xmlMalloc, xmlMallocFunc)
  
  void *
  __call_xmlMalloc(size_t size)
  
  {
          return xmlMalloc(size);
  }
  
  
  THREADED_VAR(xmlMallocAtomic, xmlMallocFunc)
  
  void *
  __call_xmlMallocAtomic(size_t size)
  
  {
          return xmlMallocAtomic(size);
  }
  
  
  THREADED_VAR(xmlRealloc, xmlReallocFunc)
  
  void *
  __call_xmlRealloc(void * mem, size_t size)
  
  {
          return xmlRealloc(mem, size);
  }
  
  
  THREADED_VAR(xmlMemStrdup, xmlStrdupFunc)
  
  char *
  __call_xmlMemStrdup(const char * str)
  
  {
          return xmlMemStrdup(str);
  }
  
  
  #ifdef LIBXML_DOCB_ENABLED
  THREADED_VAR(docbDefaultSAXHandler, xmlSAXHandlerV1)
  #endif
  
  
  #ifdef LIBXML_HTML_ENABLED
  THREADED_VAR(htmlDefaultSAXHandler, xmlSAXHandlerV1)
  #endif
  
  
  THREADED_VAR(xmlLastError, xmlError)
  
  THREADED_VAR(oldXMLWDcompatibility, int)
  THREADED_VAR(xmlBufferAllocScheme, xmlBufferAllocationScheme)
  THREADED_VAR(xmlDefaultBufferSize, int)
  THREADED_VAR(xmlDefaultSAXHandler, xmlSAXHandlerV1)
  THREADED_VAR(xmlDefaultSAXLocator, xmlSAXLocator)
  THREADED_VAR(xmlDoValidityCheckingDefaultValue, int)
  
  /* No caller to xmlGenericError() because the argument list is unknown. */
  THREADED_VAR(xmlGenericError, xmlGenericErrorFunc)
  
  
  THREADED_VAR(xmlStructuredError, xmlStructuredErrorFunc)
  
  void
  __call_xmlStructuredError(void * userData, xmlErrorPtr error)
  
  {
          xmlStructuredError(userData, error);
  }
  
  THREADED_VAR(xmlGenericErrorContext, void *)
  THREADED_VAR(xmlStructuredErrorContext, void *)
  THREADED_VAR(xmlGetWarningsDefaultValue, int)
  THREADED_VAR(xmlIndentTreeOutput, int)
  THREADED_VAR(xmlTreeIndentString, const char *)
  THREADED_VAR(xmlKeepBlanksDefaultValue, int)
  THREADED_VAR(xmlLineNumbersDefaultValue, int)
  THREADED_VAR(xmlLoadExtDtdDefaultValue, int)
  THREADED_VAR(xmlParserDebugEntities, int)
  THREADED_VAR(xmlParserVersion, const char *)
  THREADED_VAR(xmlPedanticParserDefaultValue, int)
  THREADED_VAR(xmlSaveNoEmptyTags, int)
  THREADED_VAR(xmlSubstituteEntitiesDefaultValue, int)
  
  
  THREADED_VAR(xmlRegisterNodeDefaultValue, xmlRegisterNodeFunc)
  
  void
  __call_xmlRegisterNodeDefaultValue(xmlNodePtr node)
  
  {
          xmlRegisterNodeDefaultValue(node);
  }
  
  
  THREADED_VAR(xmlDeregisterNodeDefaultValue, xmlDeregisterNodeFunc)
  
  void
  __call_xmlDeregisterNodeDefaultValue(xmlNodePtr node)
  
  {
          xmlDeregisterNodeDefaultValue(node);
  }
  
  
  THREADED_VAR(xmlParserInputBufferCreateFilenameValue, xmlParserInputBufferCreateFilenameFunc)
  
  xmlParserInputBufferPtr
  __call_xmlParserInputBufferCreateFilenameValue(const char *URI,
                                                          xmlCharEncoding enc)
  
  {
          return xmlParserInputBufferCreateFilenameValue(URI, enc);
  }
  
  
  THREADED_VAR(xmlOutputBufferCreateFilenameValue, xmlOutputBufferCreateFilenameFunc)
  
  xmlOutputBufferPtr
  __call_xmlOutputBufferCreateFilenameValue(const char *URI,
                          xmlCharEncodingHandlerPtr encoder, int compression)
  
  {
          return xmlOutputBufferCreateFilenameValue(URI, encoder, compression);
  }
  
  
  
  /**
  ***     va_list support.
  **/
  
  void
  __xmlVaStart(char * * list, char * lastargaddr, size_t lastargsize)
  
  {
          list[1] = lastargaddr + lastargsize;
  }
  
  
  void *
  __xmlVaArg(char * * list, void * dest, size_t argsize)
  
  {
          size_t align;
  
          if (!argsize)
                  return (void *) NULL;
  
          for (align = 16; align > argsize; align >>= 1)
                  ;
  
          align--;
          list[0] = list[1] + (align - (((size_t) list[0] - 1) & align));
          list[1] = list[0] + argsize;
  
          if (dest)
                  memcpy(dest, list[0], argsize);
  
          return (void *) list[0];
  }
  
  
  void
  __xmlVaEnd(char * * list)
  
  {
          /* Nothing to do. */
  }
  
  
  #ifdef LIBXML_XPATH_ENABLED
  
  int
  __xmlXPathNodeSetGetLength(const xmlNodeSet * ns)
  
  {
          return xmlXPathNodeSetGetLength(ns);
  }
  
  
  xmlNodePtr
  __xmlXPathNodeSetItem(const xmlNodeSet * ns, int index)
  
  {
          return xmlXPathNodeSetItem(ns, index);
  }
  
  
  int
  __xmlXPathNodeSetIsEmpty(const xmlNodeSet * ns)
  
  {
          return xmlXPathNodeSetIsEmpty(ns);
  }
  
  #endif
  
  
  #ifdef LIBXML_HTML_ENABLED
  
  const char *
  __htmlDefaultSubelement(const htmlElemDesc * elt)
  
  {
          return htmlDefaultSubelement(elt);
  }
  
  
  int
  __htmlElementAllowedHereDesc(const htmlElemDesc * parent,
                                                  const htmlElemDesc * elt)
  
  {
          return htmlElementAllowedHereDesc(parent, elt);
  }
  
  
  const char * *
  __htmlRequiredAttrs(const htmlElemDesc * elt)
  
  {
          return htmlRequiredAttrs(elt);
  }
  
  #endif
  

Download