diff options
Diffstat (limited to 'packages/libxml/src/chvalid.inc')
| -rw-r--r-- | packages/libxml/src/chvalid.inc | 166 |
1 files changed, 62 insertions, 104 deletions
diff --git a/packages/libxml/src/chvalid.inc b/packages/libxml/src/chvalid.inc index 3a95e78360..2b6f112479 100644 --- a/packages/libxml/src/chvalid.inc +++ b/packages/libxml/src/chvalid.inc @@ -11,49 +11,40 @@ * Author: William Brack <wbrack@mmm.com.hk> *) -#ifndef __XML_CHVALID_H__ -#define __XML_CHVALID_H__ - -#include <libxml/xmlversion.h> -#include <libxml/xmlstring.h> - -{ __cplusplus -extern "C" { -#endif +{$IFDEF POINTER} + xmlChSRangePtr = ^xmlChSRange; + xmlChLRangePtr = ^xmlChLRange; + xmlChRangeGroupPtr = ^xmlChRangeGroup; +{$ENDIF} +{$IFDEF TYPE} (* * Define our typedefs and structures * *) -typedef struct _xmlChSRange xmlChSRange; -typedef xmlChSRange *xmlChSRangePtr; -struct _xmlChSRange { - unsigned short low; - unsigned short high; -}; - -typedef struct _xmlChLRange xmlChLRange; -typedef xmlChLRange *xmlChLRangePtr; -struct _xmlChLRange { - unsigned int low; - unsigned int high; -}; - -typedef struct _xmlChRangeGroup xmlChRangeGroup; -typedef xmlChRangeGroup *xmlChRangeGroupPtr; -struct _xmlChRangeGroup { - int nbShortRange; - int nbLongRange; - xmlChSRange *shortRange; (* points to an array of ranges *) - xmlChLRange *longRange; -}; + xmlChSRange = record + low : cushort; + high : cushort; + end; + + xmlChLRange = record + low : cuint; + high : cuint; + end; + xmlChRangeGroup = record + nbShortRange : cint; + nbLongRange : cint; + shortRange : xmlChSRangePtr; + longRange : xmlChLRangePtr; + end; +{$ENDIF} + +{$IFDEF FUNCTION} (** * Range checking routine *) -XMLPUBFUN int XMLCALL - xmlCharInRange(unsigned int val, xmlChRangeGroup *group); - +function xmlCharInRange(val: cint; group: xmlChRangeGroupPtr): cbool; XMLCALL; XMLPUBFUN; (** * xmlIsBaseChar_ch: @@ -61,11 +52,7 @@ XMLPUBFUN int XMLCALL * * Automatically generated by genChRanges.py *) -#define xmlIsBaseChar_ch(c) (((0x41 <= (c)) && ((c) <= 0x5a)) || \ - ((0x61 <= (c)) && ((c) <= 0x7a)) || \ - ((0xc0 <= (c)) && ((c) <= 0xd6)) || \ - ((0xd8 <= (c)) && ((c) <= 0xf6)) || \ - (0xf8 <= (c))) +function xmlIsBaseChar_ch(c: cint): cbool; (** * xmlIsBaseCharQ: @@ -73,11 +60,10 @@ XMLPUBFUN int XMLCALL * * Automatically generated by genChRanges.py *) -#define xmlIsBaseCharQ(c) (((c) < 0x100) ? \ - xmlIsBaseChar_ch((c)) : \ - xmlCharInRange((c), &xmlIsBaseCharGroup)) +function xmlIsBaseCharQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsBaseCharGroup; +var + xmlIsBaseCharGroup: xmlChRangeGroup; XMLPUBVAR; (** * xmlIsBlank_ch: @@ -85,9 +71,7 @@ XMLPUBVAR xmlChRangeGroup xmlIsBaseCharGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsBlank_ch(c) (((c) == 0x20) || \ - ((0x9 <= (c)) && ((c) <= 0xa)) || \ - ((c) == 0xd)) +function xmlIsBlank_ch(c: cint): cbool; (** * xmlIsBlankQ: @@ -95,9 +79,7 @@ XMLPUBVAR xmlChRangeGroup xmlIsBaseCharGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsBlankQ(c) (((c) < 0x100) ? \ - xmlIsBlank_ch((c)) : 0) - +function xmlIsBlankQ(c: cint): cbool; (** * xmlIsChar_ch: @@ -105,9 +87,7 @@ XMLPUBVAR xmlChRangeGroup xmlIsBaseCharGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsChar_ch(c) (((0x9 <= (c)) && ((c) <= 0xa)) || \ - ((c) == 0xd) || \ - (0x20 <= (c))) +function xmlIsChar_ch(c: cint): cbool; (** * xmlIsCharQ: @@ -115,13 +95,10 @@ XMLPUBVAR xmlChRangeGroup xmlIsBaseCharGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsCharQ(c) (((c) < 0x100) ? \ - xmlIsChar_ch((c)) :\ - (((0x100 <= (c)) && ((c) <= 0xd7ff)) || \ - ((0xe000 <= (c)) && ((c) <= 0xfffd)) || \ - ((0x10000 <= (c)) && ((c) <= 0x10ffff)))) +function xmlIsCharQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsCharGroup; +var + xmlIsCharGroup: xmlChRangeGroup; XMLPUBVAR; (** * xmlIsCombiningQ: @@ -129,11 +106,10 @@ XMLPUBVAR xmlChRangeGroup xmlIsCharGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsCombiningQ(c) (((c) < 0x100) ? \ - 0 : \ - xmlCharInRange((c), &xmlIsCombiningGroup)) +function xmlIsCombiningQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsCombiningGroup; +var + xmlIsCombiningGroup: xmlChRangeGroup; XMLPUBVAR; (** * xmlIsDigit_ch: @@ -141,7 +117,7 @@ XMLPUBVAR xmlChRangeGroup xmlIsCombiningGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsDigit_ch(c) (((0x30 <= (c)) && ((c) <= 0x39))) +function xmlIsDigit_ch(c: cint): cbool; (** * xmlIsDigitQ: @@ -149,11 +125,10 @@ XMLPUBVAR xmlChRangeGroup xmlIsCombiningGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsDigitQ(c) (((c) < 0x100) ? \ - xmlIsDigit_ch((c)) : \ - xmlCharInRange((c), &xmlIsDigitGroup)) +function xmlIsDigitQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsDigitGroup; +var + xmlIsDigitGroup: xmlChRangeGroup; XMLPUBVAR; (** * xmlIsExtender_ch: @@ -161,7 +136,7 @@ XMLPUBVAR xmlChRangeGroup xmlIsDigitGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsExtender_ch(c) (((c) == 0xb7)) +function xmlIsExtender_ch(c: cint): cbool; (** * xmlIsExtenderQ: @@ -169,11 +144,10 @@ XMLPUBVAR xmlChRangeGroup xmlIsDigitGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsExtenderQ(c) (((c) < 0x100) ? \ - xmlIsExtender_ch((c)) : \ - xmlCharInRange((c), &xmlIsExtenderGroup)) +function xmlIsExtenderQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsExtenderGroup; +var + xmlIsExtenderGroup: xmlChRangeGroup; XMLPUBVAR; (** * xmlIsIdeographicQ: @@ -181,14 +155,11 @@ XMLPUBVAR xmlChRangeGroup xmlIsExtenderGroup; * * Automatically generated by genChRanges.py *) -#define xmlIsIdeographicQ(c) (((c) < 0x100) ? \ - 0 :\ - (((0x4e00 <= (c)) && ((c) <= 0x9fa5)) || \ - ((c) == 0x3007) || \ - ((0x3021 <= (c)) && ((c) <= 0x3029)))) +function xmlIsIdeographicQ(c: cint): cbool; -XMLPUBVAR xmlChRangeGroup xmlIsIdeographicGroup; -XMLPUBVAR unsigned char xmlIsPubidChar_tab[256]; +var + xmlIsIdeographicGroup: xmlChRangeGroup; XMLPUBVAR; + xmlIsPubidChar_tab: array[0..255] of cbool; (** * xmlIsPubidChar_ch: @@ -196,7 +167,7 @@ XMLPUBVAR unsigned char xmlIsPubidChar_tab[256]; * * Automatically generated by genChRanges.py *) -#define xmlIsPubidChar_ch(c) (xmlIsPubidChar_tab[(c)]) +function xmlIsPubidChar_ch(c: cint): cbool; (** * xmlIsPubidCharQ: @@ -204,27 +175,14 @@ XMLPUBVAR unsigned char xmlIsPubidChar_tab[256]; * * Automatically generated by genChRanges.py *) -#define xmlIsPubidCharQ(c) (((c) < 0x100) ? \ - xmlIsPubidChar_ch((c)) : 0) - -XMLPUBFUN int XMLCALL - xmlIsBaseChar(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsBlank(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsChar(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsCombining(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsDigit(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsExtender(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsIdeographic(unsigned int ch); -XMLPUBFUN int XMLCALL - xmlIsPubidChar(unsigned int ch); - -{ __cplusplus -} -#endif -#endif (* __XML_CHVALID_H__ *) +function xmlIsPubidCharQ(c: cint): cbool; + +function xmlIsBaseChar(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsBlank(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsChar(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsCombining(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsDigit(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsExtender(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsIdeographic(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +function xmlIsPubidChar(ch: cuint): cbool; XMLCALL; XMLPUBFUN; +{$ENDIF}
\ No newline at end of file |