diff options
Diffstat (limited to 'os400/libxmlrpg/chvalid.rpgle')
-rw-r--r-- | os400/libxmlrpg/chvalid.rpgle | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/os400/libxmlrpg/chvalid.rpgle b/os400/libxmlrpg/chvalid.rpgle deleted file mode 100644 index 33393f6..0000000 --- a/os400/libxmlrpg/chvalid.rpgle +++ /dev/null @@ -1,97 +0,0 @@ - * 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__ |