Home | History | Annotate | Download | only in libxmlrpg
      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 (a] 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__
    255