Blame os400/libxmlrpg/xmlschemastypes.rpgle

Packit 423ecb
      * Summary: implementation of XML Schema Datatypes
Packit 423ecb
      * Description: module providing the XML Schema Datatypes implementation
Packit 423ecb
      *              both definition and validity checking
Packit 423ecb
      *
Packit 423ecb
      * Copy: See Copyright for the status of this software.
Packit 423ecb
      *
Packit 423ecb
      * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
Packit 423ecb
Packit 423ecb
      /if not defined(XML_SCHEMA_TYPES_H__)
Packit 423ecb
      /define XML_SCHEMA_TYPES_H__
Packit 423ecb
Packit 423ecb
      /include "libxmlrpg/xmlversion"
Packit 423ecb
Packit 423ecb
      /if defined(LIBXML_SCHEMAS_ENABLED)
Packit 423ecb
Packit 423ecb
      /include "libxmlrpg/xmlTypesC"
Packit 423ecb
      /include "libxmlrpg/schemasInternals"
Packit 423ecb
      /include "libxmlrpg/xmlschemas"
Packit 423ecb
Packit 423ecb
     d xmlSchemaWhitespaceValueType...
Packit 423ecb
     d                 s                   based(######typedef######)
Packit 423ecb
     d                                     like(xmlCenum)
Packit 423ecb
     d  XML_SCHEMA_WHITESPACE_UNKNOWN...
Packit 423ecb
     d                 c                   0
Packit 423ecb
     d  XML_SCHEMA_WHITESPACE_PRESERVE...
Packit 423ecb
     d                 c                   1
Packit 423ecb
     d  XML_SCHEMA_WHITESPACE_REPLACE...
Packit 423ecb
     d                 c                   2
Packit 423ecb
     d  XML_SCHEMA_WHITESPACE_COLLAPSE...
Packit 423ecb
     d                 c                   3
Packit 423ecb
Packit 423ecb
     d xmlSchemaInitTypes...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaInitTypes')
Packit 423ecb
Packit 423ecb
     d xmlSchemaCleanupTypes...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaCleanupTypes')
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetPredefinedType...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaGetPredefinedType')
Packit 423ecb
     d                                     like(xmlSchemaTypePtr)
Packit 423ecb
     d  name                           *   value options(*string)               const xmlChar *
Packit 423ecb
     d  ns                             *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidatePredefinedType...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaValidatePredefinedType')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                            *   value                                xmlSchemaValPtr *
Packit 423ecb
Packit 423ecb
     d xmlSchemaValPredefTypeNode...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValPredefTypeNode')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                            *   value                                xmlSchemaValPtr *
Packit 423ecb
     d  node                               value like(xmlNodePtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidateFacet...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValidateFacet')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  base                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidateFacetWhtsp...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaValidateFacetWhtsp')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  fws                                value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
     d  valType                            value like(xmlSchemaValType)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
     d  ws                                 value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
Packit 423ecb
     d xmlSchemaFreeValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaFreeValue')
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaNewFacet...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaNewFacet')
Packit 423ecb
     d                                     like(xmlSchemaFacetPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaCheckFacet...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaCheckFacet')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  typeDecl                           value like(xmlSchemaTypePtr)
Packit 423ecb
     d  ctxt                               value like(xmlSchemaParserCtxtPtr)
Packit 423ecb
     d  name                           *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaFreeFacet...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaFreeFacet')
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaCompareValues...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaCompareValues')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  x                                  value like(xmlSchemaValPtr)
Packit 423ecb
     d  y                                  value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetBuiltInListSimpleTypeItemType...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaGetBuiltInListSimp-
Packit 423ecb
     d                                     leTypeItemType')
Packit 423ecb
     d                                     like(xmlSchemaTypePtr)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidateListSimpleTypeFacet...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValidateListSimple-
Packit 423ecb
     d                                     TypeFacet')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  actualLen                          value like(xmlCulong)
Packit 423ecb
     d  expectedLen                    *   value                                unsigned long *
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetBuiltInType...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaGetBuiltInType')
Packit 423ecb
     d                                     like(xmlSchemaTypePtr)
Packit 423ecb
     d  type                               value like(xmlSchemaValType)
Packit 423ecb
Packit 423ecb
     d xmlSchemaIsBuiltInTypeFacet...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaIsBuiltInTypeFacet')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  facetType                          value like(xmlCint)
Packit 423ecb
Packit 423ecb
     d xmlSchemaCollapseString...
Packit 423ecb
     d                 pr              *   extproc('xmlSchemaCollapseString')   xmlChar *
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaWhiteSpaceReplace...
Packit 423ecb
     d                 pr              *   extproc('xmlSchemaWhiteSpaceReplace')xmlChar *
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetFacetValueAsULong...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaGetFacetValueAsULong')
Packit 423ecb
     d                                     like(xmlCulong)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidateLengthFacet...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaValidateLengthFacet')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
     d  length                             like(xmlCulong)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValidateLengthFacetWhtsp...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaValidateLengthFacetWhtsp')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  facet                              value like(xmlSchemaFacetPtr)
Packit 423ecb
     d  valType                            value like(xmlSchemaValType)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
     d  length                             like(xmlCulong)
Packit 423ecb
     d  ws                                 value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValPredefTypeNodeNoNorm...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaValPredefTypeNodeNoNorm')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  type                               value like(xmlSchemaTypePtr)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
     d  val                                like(xmlSchemaValPtr)
Packit 423ecb
     d  node                               value like(xmlNodePtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetCanonValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaGetCanonValue')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
     d  retValue                       *   value                                const xmlChar * *
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetCanonValueWhtsp...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaGetCanonValueWhtsp')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
     d  retValue                       *   value                                const xmlChar * *
Packit 423ecb
     d  ws                                 value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValueAppend...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValueAppend')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  prev                               value like(xmlSchemaValPtr)
Packit 423ecb
     d  cur                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValueGetNext...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValueGetNext')
Packit 423ecb
     d                                     like(xmlSchemaValPtr)
Packit 423ecb
     d  cur                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValueGetAsString...
Packit 423ecb
     d                 pr              *   extproc('xmlSchemaValueGetAsString') const xmlChar *
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaValueGetAsBoolean...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaValueGetAsBoolean')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaNewStringValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaNewStringValue')
Packit 423ecb
     d                                     like(xmlSchemaValPtr)
Packit 423ecb
     d  type                               value like(xmlSchemaValType)
Packit 423ecb
     d  value                          *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaNewNOTATIONValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaNewNOTATIONValue')
Packit 423ecb
     d                                     like(xmlSchemaValPtr)
Packit 423ecb
     d  name                           *   value options(*string)               const xmlChar *
Packit 423ecb
     d  ns                             *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaNewQNameValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaNewQNameValue')
Packit 423ecb
     d                                     like(xmlSchemaValPtr)
Packit 423ecb
     d  namespaceName                  *   value options(*string)               const xmlChar *
Packit 423ecb
     d  localName                      *   value options(*string)               const xmlChar *
Packit 423ecb
Packit 423ecb
     d xmlSchemaCompareValuesWhtsp...
Packit 423ecb
     d                 pr                  extproc(
Packit 423ecb
     d                                     'xmlSchemaCompareValuesWhtsp')
Packit 423ecb
     d                                     like(xmlCint)
Packit 423ecb
     d  x                                  value like(xmlSchemaValPtr)
Packit 423ecb
     d  xws                                value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
     d  y                                  value like(xmlSchemaValPtr)
Packit 423ecb
     d  yws                                value
Packit 423ecb
     d                                     like(xmlSchemaWhitespaceValueType)
Packit 423ecb
Packit 423ecb
     d xmlSchemaCopyValue...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaCopyValue')
Packit 423ecb
     d                                     like(xmlSchemaValPtr)
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
     d xmlSchemaGetValType...
Packit 423ecb
     d                 pr                  extproc('xmlSchemaGetValType')
Packit 423ecb
     d                                     like(xmlSchemaValType)
Packit 423ecb
     d  val                                value like(xmlSchemaValPtr)
Packit 423ecb
Packit 423ecb
      /endif                                                                    LIBXML_SCHEMAS_ENBLD
Packit 423ecb
      /endif                                                                    XML_SCHEMA_TYPES_H__