os400/libxmlrpg/xmlschemastypes.rpgle

   1       * Summary: implementation of XML Schema Datatypes
   2       * Description: module providing the XML Schema Datatypes implementation
   3       *              both definition and validity checking
   4       *
   5       * Copy: See Copyright for the status of this software.
   6       *
   7       * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
   8
   9       /if not defined(XML_SCHEMA_TYPES_H__)
  10       /define XML_SCHEMA_TYPES_H__
  11
  12       /include "libxmlrpg/xmlversion"
  13
  14       /if defined(LIBXML_SCHEMAS_ENABLED)
  15
  16       /include "libxmlrpg/schemasInternals"
  17       /include "libxmlrpg/xmlschemas"
  18
  19      d xmlSchemaWhitespaceValueType...
  20      d                 s             10i 0 based(######typedef######)           enum
  21      d  XML_SCHEMA_WHITESPACE_UNKNOWN...
  22      d                 c                   0
  23      d  XML_SCHEMA_WHITESPACE_PRESERVE...
  24      d                 c                   1
  25      d  XML_SCHEMA_WHITESPACE_REPLACE...
  26      d                 c                   2
  27      d  XML_SCHEMA_WHITESPACE_COLLAPSE...
  28      d                 c                   3
  29
  30      d xmlSchemaInitTypes...
  31      d                 pr                  extproc('xmlSchemaInitTypes')
  32
  33      d xmlSchemaCleanupTypes...
  34      d                 pr                  extproc('xmlSchemaCleanupTypes')
  35
  36      d xmlSchemaGetPredefinedType...
  37      d                 pr                  extproc('xmlSchemaGetPredefinedType')
  38      d                                     like(xmlSchemaTypePtr)
  39      d  name                           *   value options(*string)               const xmlChar *
  40      d  ns                             *   value options(*string)               const xmlChar *
  41
  42      d xmlSchemaValidatePredefinedType...
  43      d                 pr            10i 0 extproc(
  44      d                                     'xmlSchemaValidatePredefinedType')
  45      d  type                               value like(xmlSchemaTypePtr)
  46      d  value                          *   value options(*string)               const xmlChar *
  47      d  val                            *   value                                xmlSchemaValPtr *
  48
  49      d xmlSchemaValPredefTypeNode...
  50      d                 pr            10i 0 extproc('xmlSchemaValPredefTypeNode')
  51      d  type                               value like(xmlSchemaTypePtr)
  52      d  value                          *   value options(*string)               const xmlChar *
  53      d  val                            *   value                                xmlSchemaValPtr *
  54      d  node                               value like(xmlNodePtr)
  55
  56      d xmlSchemaValidateFacet...
  57      d                 pr            10i 0 extproc('xmlSchemaValidateFacet')
  58      d  base                               value like(xmlSchemaTypePtr)
  59      d  facet                              value like(xmlSchemaFacetPtr)
  60      d  value                          *   value options(*string)               const xmlChar *
  61      d  val                                value like(xmlSchemaValPtr)
  62
  63      d xmlSchemaValidateFacetWhtsp...
  64      d                 pr            10i 0 extproc(
  65      d                                     'xmlSchemaValidateFacetWhtsp')
  66      d  facet                              value like(xmlSchemaFacetPtr)
  67      d  fws                                value
  68      d                                     like(xmlSchemaWhitespaceValueType)
  69      d  valType                            value like(xmlSchemaValType)
  70      d  value                          *   value options(*string)               const xmlChar *
  71      d  val                                value like(xmlSchemaValPtr)
  72      d  ws                                 value
  73      d                                     like(xmlSchemaWhitespaceValueType)
  74
  75      d xmlSchemaFreeValue...
  76      d                 pr                  extproc('xmlSchemaFreeValue')
  77      d  val                                value like(xmlSchemaValPtr)
  78
  79      d xmlSchemaNewFacet...
  80      d                 pr                  extproc('xmlSchemaNewFacet')
  81      d                                     like(xmlSchemaFacetPtr)
  82
  83      d xmlSchemaCheckFacet...
  84      d                 pr            10i 0 extproc('xmlSchemaCheckFacet')
  85      d  facet                              value like(xmlSchemaFacetPtr)
  86      d  typeDecl                           value like(xmlSchemaTypePtr)
  87      d  ctxt                               value like(xmlSchemaParserCtxtPtr)
  88      d  name                           *   value options(*string)               const xmlChar *
  89
  90      d xmlSchemaFreeFacet...
  91      d                 pr                  extproc('xmlSchemaFreeFacet')
  92      d  facet                              value like(xmlSchemaFacetPtr)
  93
  94      d xmlSchemaCompareValues...
  95      d                 pr            10i 0 extproc('xmlSchemaCompareValues')
  96      d  x                                  value like(xmlSchemaValPtr)
  97      d  y                                  value like(xmlSchemaValPtr)
  98
  99      d xmlSchemaGetBuiltInListSimpleTypeItemType...
 100      d                 pr                  extproc('xmlSchemaGetBuiltInListSimp-
 101      d                                     leTypeItemType')
 102      d                                     like(xmlSchemaTypePtr)
 103      d  type                               value like(xmlSchemaTypePtr)
 104
 105      d xmlSchemaValidateListSimpleTypeFacet...
 106      d                 pr            10i 0 extproc('xmlSchemaValidateListSimple-
 107      d                                     TypeFacet')
 108      d  facet                              value like(xmlSchemaFacetPtr)
 109      d  value                          *   value options(*string)               const xmlChar *
 110      d  actualLen                    20u 0 value
 111      d  expectedLen                    *   value                                unsigned long *
 112
 113      d xmlSchemaGetBuiltInType...
 114      d                 pr                  extproc('xmlSchemaGetBuiltInType')
 115      d                                     like(xmlSchemaTypePtr)
 116      d  type                               value like(xmlSchemaValType)
 117
 118      d xmlSchemaIsBuiltInTypeFacet...
 119      d                 pr            10i 0 extproc(
 120      d                                     'xmlSchemaIsBuiltInTypeFacet')
 121      d  type                               value like(xmlSchemaTypePtr)
 122      d  facetType                    10i 0 value
 123
 124      d xmlSchemaCollapseString...
 125      d                 pr              *   extproc('xmlSchemaCollapseString')   xmlChar *
 126      d  value                          *   value options(*string)               const xmlChar *
 127
 128      d xmlSchemaWhiteSpaceReplace...
 129      d                 pr              *   extproc('xmlSchemaWhiteSpaceReplace')xmlChar *
 130      d  value                          *   value options(*string)               const xmlChar *
 131
 132      d xmlSchemaGetFacetValueAsULong...
 133      d                 pr            20u 0 extproc(
 134      d                                     'xmlSchemaGetFacetValueAsULong')
 135      d  facet                              value like(xmlSchemaFacetPtr)
 136
 137      d xmlSchemaValidateLengthFacet...
 138      d                 pr            10i 0 extproc(
 139      d                                     'xmlSchemaValidateLengthFacet')
 140      d  type                               value like(xmlSchemaTypePtr)
 141      d  facet                              value like(xmlSchemaFacetPtr)
 142      d  value                          *   value options(*string)               const xmlChar *
 143      d  val                                value like(xmlSchemaValPtr)
 144      d  length                       20u 0
 145
 146      d xmlSchemaValidateLengthFacetWhtsp...
 147      d                 pr            10i 0 extproc(
 148      d                                     'xmlSchemaValidateLengthFacetWhtsp')
 149      d  facet                              value like(xmlSchemaFacetPtr)
 150      d  valType                            value like(xmlSchemaValType)
 151      d  value                          *   value options(*string)               const xmlChar *
 152      d  val                                value like(xmlSchemaValPtr)
 153      d  length                       20u 0
 154      d  ws                                 value
 155      d                                     like(xmlSchemaWhitespaceValueType)
 156
 157      d xmlSchemaValPredefTypeNodeNoNorm...
 158      d                 pr            10i 0 extproc(
 159      d                                     'xmlSchemaValPredefTypeNodeNoNorm')
 160      d  type                               value like(xmlSchemaTypePtr)
 161      d  value                          *   value options(*string)               const xmlChar *
 162      d  val                                like(xmlSchemaValPtr)
 163      d  node                               value like(xmlNodePtr)
 164
 165      d xmlSchemaGetCanonValue...
 166      d                 pr            10i 0 extproc('xmlSchemaGetCanonValue')
 167      d  val                                value like(xmlSchemaValPtr)
 168      d  retValue                       *   value                                const xmlChar * *
 169
 170      d xmlSchemaGetCanonValueWhtsp...
 171      d                 pr            10i 0 extproc(
 172      d                                     'xmlSchemaGetCanonValueWhtsp')
 173      d  val                                value like(xmlSchemaValPtr)
 174      d  retValue                       *   value                                const xmlChar * *
 175      d  ws                                 value
 176      d                                     like(xmlSchemaWhitespaceValueType)
 177
 178      d xmlSchemaValueAppend...
 179      d                 pr            10i 0 extproc('xmlSchemaValueAppend')
 180      d  prev                               value like(xmlSchemaValPtr)
 181      d  cur                                value like(xmlSchemaValPtr)
 182
 183      d xmlSchemaValueGetNext...
 184      d                 pr                  extproc('xmlSchemaValueGetNext')
 185      d                                     like(xmlSchemaValPtr)
 186      d  cur                                value like(xmlSchemaValPtr)
 187
 188      d xmlSchemaValueGetAsString...
 189      d                 pr              *   extproc('xmlSchemaValueGetAsString') const xmlChar *
 190      d  val                                value like(xmlSchemaValPtr)
 191
 192      d xmlSchemaValueGetAsBoolean...
 193      d                 pr            10i 0 extproc('xmlSchemaValueGetAsBoolean')
 194      d  val                                value like(xmlSchemaValPtr)
 195
 196      d xmlSchemaNewStringValue...
 197      d                 pr                  extproc('xmlSchemaNewStringValue')
 198      d                                     like(xmlSchemaValPtr)
 199      d  type                               value like(xmlSchemaValType)
 200      d  value                          *   value options(*string)               const xmlChar *
 201
 202      d xmlSchemaNewNOTATIONValue...
 203      d                 pr                  extproc('xmlSchemaNewNOTATIONValue')
 204      d                                     like(xmlSchemaValPtr)
 205      d  name                           *   value options(*string)               const xmlChar *
 206      d  ns                             *   value options(*string)               const xmlChar *
 207
 208      d xmlSchemaNewQNameValue...
 209      d                 pr                  extproc('xmlSchemaNewQNameValue')
 210      d                                     like(xmlSchemaValPtr)
 211      d  namespaceName                  *   value options(*string)               const xmlChar *
 212      d  localName                      *   value options(*string)               const xmlChar *
 213
 214      d xmlSchemaCompareValuesWhtsp...
 215      d                 pr            10i 0 extproc(
 216      d                                     'xmlSchemaCompareValuesWhtsp')
 217      d  x                                  value like(xmlSchemaValPtr)
 218      d  xws                                value
 219      d                                     like(xmlSchemaWhitespaceValueType)
 220      d  y                                  value like(xmlSchemaValPtr)
 221      d  yws                                value
 222      d                                     like(xmlSchemaWhitespaceValueType)
 223
 224      d xmlSchemaCopyValue...
 225      d                 pr                  extproc('xmlSchemaCopyValue')
 226      d                                     like(xmlSchemaValPtr)
 227      d  val                                value like(xmlSchemaValPtr)
 228
 229      d xmlSchemaGetValType...
 230      d                 pr                  extproc('xmlSchemaGetValType')
 231      d                                     like(xmlSchemaValType)
 232      d  val                                value like(xmlSchemaValPtr)
 233
 234       /endif                                                                    LIBXML_SCHEMAS_ENBLD
 235       /endif                                                                    XML_SCHEMA_TYPES_H__