Blame os400/libxmlrpg/chvalid.rpgle

Packit Service a31ea6
      * Summary: Unicode character range checking
Packit Service a31ea6
      * Description: this module exports interfaces for the character
Packit Service a31ea6
      *               range validation APIs
Packit Service a31ea6
      *
Packit Service a31ea6
      * Copy: See Copyright for the status of this software.
Packit Service a31ea6
      *
Packit Service a31ea6
      * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
Packit Service a31ea6
Packit Service a31ea6
      /if not defined(XML_CHVALID_H__)
Packit Service a31ea6
      /define XML_CHVALID_H__
Packit Service a31ea6
Packit Service a31ea6
      /include "libxmlrpg/xmlversion"
Packit Service a31ea6
      /include "libxmlrpg/xmlTypesC"
Packit Service a31ea6
      /include "libxmlrpg/xmlstring"
Packit Service a31ea6
Packit Service a31ea6
      * Define our typedefs and structures
Packit Service a31ea6
Packit Service a31ea6
     d xmlChSRangePtr  s               *   based(######typedef######)
Packit Service a31ea6
Packit Service a31ea6
     d xmlChSRange     ds                  based(xmlChSRangePtr)
Packit Service a31ea6
     d                                     align qualified
Packit Service a31ea6
     d  low                                like(xmlCushort)
Packit Service a31ea6
     d  high                               like(xmlCushort)
Packit Service a31ea6
Packit Service a31ea6
     d xmlChLRangePtr  s               *   based(######typedef######)
Packit Service a31ea6
Packit Service a31ea6
     d xmlChLRange     ds                  based(xmlChLRangePtr)
Packit Service a31ea6
     d                                     align qualified
Packit Service a31ea6
     d  low                                like(xmlCuint)
Packit Service a31ea6
     d  high                               like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlChRangeGroupPtr...
Packit Service a31ea6
     d                 s               *   based(######typedef######)
Packit Service a31ea6
Packit Service a31ea6
     d xmlChRangeGroup...
Packit Service a31ea6
     d                 ds                  based(xmlChRangeGroupPtr)
Packit Service a31ea6
     d                                     align qualified
Packit Service a31ea6
     d  nbShortRange                       like(xmlCint)
Packit Service a31ea6
     d  nbLongRange                        like(xmlCint)
Packit Service a31ea6
     d  shortRange                         like(xmlChSRangePtr)
Packit Service a31ea6
     d  longRange                          like(xmlChLRangePtr)
Packit Service a31ea6
Packit Service a31ea6
      * Range checking routine
Packit Service a31ea6
Packit Service a31ea6
     d xmlCharInRange  pr                  extproc('xmlCharInRange')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d val                                 value like(xmlCuint)
Packit Service a31ea6
     d group                               like(xmlChRangeGroupPtr)             const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsBaseCharGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsBaseCharGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsCharGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsCharGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsCombiningGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsCombiningGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsDigitGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsDigitGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsExtenderGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsExtenderGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsIdeographicGroup...
Packit Service a31ea6
     d                 ds                  import('xmlIsIdeographicGroup')
Packit Service a31ea6
     d                                     likeds(xmlChRangeGroup)              const
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsBaseChar   pr                  extproc('xmlIsBaseChar')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsBlank      pr                  extproc('xmlIsBlank')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsChar       pr                  extproc('xmlIsChar')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsCombining  pr                  extproc('xmlIsCombining')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsDigit      pr                  extproc('xmlIsDigit')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsExtender   pr                  extproc('xmlIsExtender')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsIdeographic...
Packit Service a31ea6
     d                 pr                  extproc('xmlIsIdeographic')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
     d xmlIsPubidChar  pr                  extproc('xmlIsPubidChar')
Packit Service a31ea6
     d                                     like(xmlCint)
Packit Service a31ea6
     d ch                                  value like(xmlCuint)
Packit Service a31ea6
Packit Service a31ea6
      /endif                                                                    XML_CHVALID_H__