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