diff options
Diffstat (limited to 'os400/libxmlrpg/chvalid.rpgle')
-rw-r--r-- | os400/libxmlrpg/chvalid.rpgle | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/os400/libxmlrpg/chvalid.rpgle b/os400/libxmlrpg/chvalid.rpgle new file mode 100644 index 0000000..33393f6 --- /dev/null +++ b/os400/libxmlrpg/chvalid.rpgle @@ -0,0 +1,97 @@ + * 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/xmlstring" + + * Define our typedefs and structures + + d xmlChSRangePtr s * based(######typedef######) + + d xmlChSRange ds based(xmlChSRangePtr) + d align qualified + d low 5u 0 + d high 5u 0 + + d xmlChLRangePtr s * based(######typedef######) + + d xmlChLRange ds based(xmlChLRangePtr) + d align qualified + d low 10u 0 + d high 10u 0 + + d xmlChRangeGroupPtr... + d s * based(######typedef######) + + d xmlChRangeGroup... + d ds based(xmlChRangeGroupPtr) + d align qualified + d nbShortRange 10i 0 + d nbLongRange 10i 0 + d shortRange like(xmlChSRangePtr) + d longRange like(xmlChLRangePtr) + + * Range checking routine + + d xmlCharInRange pr 10i 0 extproc('xmlCharInRange') + d val 10u 0 value + 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 10i 0 extproc('xmlIsBaseChar') + d ch 10u 0 value + + d xmlIsBlank pr 10i 0 extproc('xmlIsBlank') + d ch 10u 0 value + + d xmlIsChar pr 10i 0 extproc('xmlIsChar') + d ch 10u 0 value + + d xmlIsCombining pr 10i 0 extproc('xmlIsCombining') + d ch 10u 0 value + + d xmlIsDigit pr 10i 0 extproc('xmlIsDigit') + d ch 10u 0 value + + d xmlIsExtender pr 10i 0 extproc('xmlIsExtender') + d ch 10u 0 value + + d xmlIsIdeographic... + d pr 10i 0 extproc('xmlIsIdeographic') + d ch 10u 0 value + + d xmlIsPubidChar pr 10i 0 extproc('xmlIsPubidChar') + d ch 10u 0 value + + /endif XML_CHVALID_H__ |