ronnie
2022-10-14 1504bb53e29d3d46222c0b3ea994fc494b48e153
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
      * Summary: Unicode character range checking
      * Description: this module exports interfaces for the character
      *               range validation APIs
      *
      * Copy: See Copyright for the status of this software.
      *
      * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
 
      /if not defined(XML_CHVALID_H__)
      /define XML_CHVALID_H__
 
      /include "libxmlrpg/xmlversion"
      /include "libxmlrpg/xmlTypesC"
      /include "libxmlrpg/xmlstring"
 
      * Define our typedefs and structures
 
     d xmlChSRangePtr  s               *   based(######typedef######)
 
     d xmlChSRange     ds                  based(xmlChSRangePtr)
     d                                     align qualified
     d  low                                like(xmlCushort)
     d  high                               like(xmlCushort)
 
     d xmlChLRangePtr  s               *   based(######typedef######)
 
     d xmlChLRange     ds                  based(xmlChLRangePtr)
     d                                     align qualified
     d  low                                like(xmlCuint)
     d  high                               like(xmlCuint)
 
     d xmlChRangeGroupPtr...
     d                 s               *   based(######typedef######)
 
     d xmlChRangeGroup...
     d                 ds                  based(xmlChRangeGroupPtr)
     d                                     align qualified
     d  nbShortRange                       like(xmlCint)
     d  nbLongRange                        like(xmlCint)
     d  shortRange                         like(xmlChSRangePtr)
     d  longRange                          like(xmlChLRangePtr)
 
      * Range checking routine
 
     d xmlCharInRange  pr                  extproc('xmlCharInRange')
     d                                     like(xmlCint)
     d val                                 value like(xmlCuint)
     d group                               like(xmlChRangeGroupPtr)             const
 
     d xmlIsBaseCharGroup...
     d                 ds                  import('xmlIsBaseCharGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsCharGroup...
     d                 ds                  import('xmlIsCharGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsCombiningGroup...
     d                 ds                  import('xmlIsCombiningGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsDigitGroup...
     d                 ds                  import('xmlIsDigitGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsExtenderGroup...
     d                 ds                  import('xmlIsExtenderGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsIdeographicGroup...
     d                 ds                  import('xmlIsIdeographicGroup')
     d                                     likeds(xmlChRangeGroup)              const
 
     d xmlIsBaseChar   pr                  extproc('xmlIsBaseChar')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsBlank      pr                  extproc('xmlIsBlank')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsChar       pr                  extproc('xmlIsChar')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsCombining  pr                  extproc('xmlIsCombining')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsDigit      pr                  extproc('xmlIsDigit')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsExtender   pr                  extproc('xmlIsExtender')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsIdeographic...
     d                 pr                  extproc('xmlIsIdeographic')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
     d xmlIsPubidChar  pr                  extproc('xmlIsPubidChar')
     d                                     like(xmlCint)
     d ch                                  value like(xmlCuint)
 
      /endif                                                                    XML_CHVALID_H__