diff options
Diffstat (limited to 'packages/libxml')
| -rw-r--r-- | packages/libxml/Makefile | 126 | ||||
| -rw-r--r-- | packages/libxml/Makefile.fpc | 2 | ||||
| -rw-r--r-- | packages/libxml/fpmake.pp | 3 | ||||
| -rw-r--r-- | packages/libxml/src/xmlxsd.pas | 1925 | ||||
| -rw-r--r-- | packages/libxml/src/xmlxsdparser.pas | 1752 |
5 files changed, 1921 insertions, 1887 deletions
diff --git a/packages/libxml/Makefile b/packages/libxml/Makefile index 706f7ce840..5200a0d7ab 100644 --- a/packages/libxml/Makefile +++ b/packages/libxml/Makefile @@ -1,5 +1,5 @@ # -# Don't edit, this file is generated by FPCMake Version 2.0.0 [2010/09/29] +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2011/01/10] # default: all MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian i386-nativent i386-iphonesim m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-solaris x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded mipsel-linux @@ -267,190 +267,190 @@ PACKAGESDIR:=$(wildcard $(FPCDIR) $(FPCDIR)/packages $(FPCDIR)/packages/base $(F override PACKAGE_NAME=libxml2 override PACKAGE_VERSION=2.5.1 ifeq ($(FULL_TARGET),i386-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-go32v2) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-win32) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-os2) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-freebsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-beos) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-haiku) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-netbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-solaris) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-qnx) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-netware) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-openbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-wdosx) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-darwin) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-emx) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-watcom) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-netwlibc) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-wince) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-symbian) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-nativent) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-iphonesim) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-freebsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-netbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-amiga) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-atari) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-openbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-palmos) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),m68k-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-netbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-amiga) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-macos) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-darwin) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-morphos) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),sparc-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),sparc-netbsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),sparc-solaris) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),sparc-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-freebsd) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-solaris) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-darwin) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-win64) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),x86_64-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-palmos) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-darwin) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-wince) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-gba) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-nds) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),arm-symbian) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc64-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc64-darwin) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),powerpc64-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),avr-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),armeb-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),armeb-embedded) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),mipsel-linux) -override TARGET_UNITS+=xml2 xmlxsd +override TARGET_UNITS+=xml2 xmlxsdparser xmlxsd endif ifeq ($(FULL_TARGET),i386-linux) override TARGET_EXAMPLEDIRS+=examples diff --git a/packages/libxml/Makefile.fpc b/packages/libxml/Makefile.fpc index bbedfe0ec0..a055665e3d 100644 --- a/packages/libxml/Makefile.fpc +++ b/packages/libxml/Makefile.fpc @@ -7,7 +7,7 @@ name=libxml2 version=2.5.1 [target] -units=xml2 xmlxsd +units=xml2 xmlxsdparser xmlxsd exampledirs=examples [require] diff --git a/packages/libxml/fpmake.pp b/packages/libxml/fpmake.pp index 09bd1a90bf..dba73d999b 100644 --- a/packages/libxml/fpmake.pp +++ b/packages/libxml/fpmake.pp @@ -71,6 +71,9 @@ begin AddInclude('schematron.inc'); end; + T:=P.Targets.AddUnit('xmlxsdparser.pas'); + T.ResourceStrings := True; + T:=P.Targets.AddUnit('xmlxsd.pas'); T.ResourceStrings := True; diff --git a/packages/libxml/src/xmlxsd.pas b/packages/libxml/src/xmlxsd.pas index 2c54162b86..e903313ea8 100644 --- a/packages/libxml/src/xmlxsd.pas +++ b/packages/libxml/src/xmlxsd.pas @@ -13,15 +13,15 @@ interface uses ctypes, xml2, + xmlxsdparser, Math, Classes, DateUtils, SysUtils; resourcestring - ParserError = 'parsing "%s" as "%s" failed'; - ChildNotFound = 'child %s not found'; - PropNotFound = 'attribute %s not found'; + SChildNotFound = 'child %s not found'; + SPropNotFound = 'attribute %s not found'; const IGNORE_LAST = Pointer(-1); @@ -32,167 +32,16 @@ type constructor CreateNode(const Msg: String; name, nameSpace: xmlCharPtr); end; - TTimezoneType = ( - tzUnknown, - tzUTC, - tzUser - ); - - PTimezone = ^TTimezone; - TTimezone = record - Kind : TTimezoneType; - Hour : Longint; // +/- [00..23] - Minute : Longword; // [00..59] - Convert: Boolean; // you have to initialize this field allways!!! - end; - -const - TIMEZONE_UTC: TTimezone = (Kind:tzUTC;Hour:0;Minute:0;Convert:False); - TIMEZONE_UNKNOWN: TTimezone = (Kind:tzUnknown;Hour:0;Minute:0;Convert:False); - CONVERT_TO_TIMEZONE_UTC: TTimezone = (Kind:tzUTC;Hour:0;Minute:0;Convert:True); - -{ Format functions } -function xsdFormatBase64(Value: TStream): Utf8String; -function xsdFormatBoolean(Value: Boolean; UseWords: Boolean = False): Utf8String; -function xsdFormatDate(Year, Month, Day: Longword; BC: Boolean; Timezone: PTimezone = nil): Utf8String; -function xsdFormatDate(Value: TDateTime; Timezone: PTimezone = nil): Utf8String; -function xsdFormatTime(Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): Utf8String; -function xsdFormatTime(Value: TDateTime; Timezone: PTimezone = nil): Utf8String; -function xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PTimezone = nil): Utf8String; -function xsdFormatDateTime(Value: TDateTime; Timezone: PTimezone): Utf8String; -function xsdFormatDecimal(Value: Extended; Precision: Integer = 4; Digits: Integer = 1): Utf8String; -function xsdFormatDouble(Value: Double): Utf8String; -function xsdFormatFloat(Value: Single): Utf8String; -function xsdFormatByte(Value: Shortint): Utf8String; -function xsdFormatShort(Value: Smallint): Utf8String; -function xsdFormatInt(Value: Longint): Utf8String; -function xsdFormatLong(Value: Int64): Utf8String; -function xsdFormatUnsignedByte(Value: Byte): Utf8String; -function xsdFormatUnsignedShort(Value: Word): Utf8String; -function xsdFormatUnsignedInt(Value: Longword): Utf8String; -function xsdFormatUnsignedLong(Value: QWord): Utf8String; -function xsdFormatEnum(enum: array of Utf8String; Value: Integer): Utf8String; - -{ DateTime functions } -procedure xsdTimeConvertTo(var Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TTimezone); -procedure xsdDateConvertTo(var Year, Month, Day: Longword; const Current, Target: TTimezone); -procedure xsdDateTimeConvertTo(var Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TTimezone); - -{ Parse functions } -function xsdTryParseBase64(Chars: xmlCharPtr; Len: Integer; const Value: TStream): Boolean; -function xsdTryParseString(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean; -function xsdTryParseStringLower(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean; -function xsdTryParseBoolean(Chars: xmlCharPtr; Len: Integer; out Value: Boolean): Boolean; -function xsdTryParseDate(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryParseDate(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryParseTime(Chars: xmlCharPtr; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): Boolean; -function xsdTryParseTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryParseDateTime(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryParseDateTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryParseDecimal(Chars: xmlCharPtr; Len: Integer; out Value: Extended): Boolean; -function xsdTryParseDouble(Chars: xmlCharPtr; Len: Integer; out Value: Double): Boolean; -function xsdTryParseFloat(Chars: xmlCharPtr; Len: Integer; out Value: Single): Boolean; -function xsdTryParseInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -function xsdTryParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -function xsdTryParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -function xsdTryParseNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -function xsdTryParsePositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -function xsdTryParseByte(Chars: xmlCharPtr; Len: Integer; out Value: Shortint): Boolean; -function xsdTryParseShort(Chars: xmlCharPtr; Len: Integer; out Value: Smallint): Boolean; -function xsdTryParseInt(Chars: xmlCharPtr; Len: Integer; out Value: Longint): Boolean; -function xsdTryParseLong(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -function xsdTryParseUnsignedByte(Chars: xmlCharPtr; Len: Integer; out Value: Byte): Boolean; -function xsdTryParseUnsignedShort(Chars: xmlCharPtr; Len: Integer; out Value: Word): Boolean; -function xsdTryParseUnsignedInt(Chars: xmlCharPtr; Len: Integer; out Value: Longword): Boolean; -function xsdTryParseUnsignedLong(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -function xsdTryParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; out Value: Integer): Boolean; - -function xsdParseStringDef(Chars: xmlCharPtr; Len: Integer; Default: Utf8String): Utf8String; -function xsdParseStringLowerDef(Chars: xmlCharPtr; Len: Integer; Default: Utf8String): Utf8String; -function xsdParseBooleanDef(Chars: xmlCharPtr; Len: Integer; Default: Boolean): Boolean; -function xsdParseDateDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone = nil): TDateTime; -function xsdParseTimeDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone = nil): TDateTime; -function xsdParseDateTimeDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone = nil): TDateTime; -function xsdParseDecimalDef(Chars: xmlCharPtr; Len: Integer; Default: Extended): Extended; -function xsdParseDoubleDef(Chars: xmlCharPtr; Len: Integer; Default: Double): Double; -function xsdParseFloatDef(Chars: xmlCharPtr; Len: Integer; Default: Single): Single; -function xsdParseIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -function xsdParseNonNegativeIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -function xsdParseNonPositiveIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -function xsdParseNegativeIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -function xsdParsePositiveIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -function xsdParseByteDef(Chars: xmlCharPtr; Len: Integer; Default: Shortint): Shortint; -function xsdParseShortDef(Chars: xmlCharPtr; Len: Integer; Default: Smallint): Smallint; -function xsdParseIntDef(Chars: xmlCharPtr; Len: Integer; Default: Longint): Longint; -function xsdParseLongDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -function xsdParseUnsignedByteDef(Chars: xmlCharPtr; Len: Integer; Default: Byte): Byte; -function xsdParseUnsignedShortDef(Chars: xmlCharPtr; Len: Integer; Default: Word): Word; -function xsdParseUnsignedIntDef(Chars: xmlCharPtr; Len: Integer; Default: Longword): Longword; -function xsdParseUnsignedLongDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -function xsdParseEnumDef(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; Default: Integer): Integer; - -procedure xsdParseBase64(Chars: xmlCharPtr; Len: Integer; const Value: TStream); -procedure xsdParseString(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String); -procedure xsdParseStringLower(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String); -procedure xsdParseBoolean(Chars: xmlCharPtr; Len: Integer; out Value: Boolean); -procedure xsdParseDate(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdParseDate(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdParseTime(Chars: xmlCharPtr; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil); -procedure xsdParseTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdParseDecimal(Chars: xmlCharPtr; Len: Integer; out Value: Extended); -procedure xsdParseDouble(Chars: xmlCharPtr; Len: Integer; out Value: Double); -procedure xsdParseFloat(Chars: xmlCharPtr; Len: Integer; out Value: Single); -procedure xsdParseInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -procedure xsdParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -procedure xsdParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -procedure xsdParseNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -procedure xsdParsePositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -procedure xsdParseByte(Chars: xmlCharPtr; Len: Integer; out Value: Shortint); -procedure xsdParseShort(Chars: xmlCharPtr; Len: Integer; out Value: Smallint); -procedure xsdParseInt(Chars: xmlCharPtr; Len: Integer; out Value: Longint); -procedure xsdParseLong(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -procedure xsdParseUnsignedByte(Chars: xmlCharPtr; Len: Integer; out Value: Byte); -procedure xsdParseUnsignedShort(Chars: xmlCharPtr; Len: Integer; out Value: Word); -procedure xsdParseUnsignedInt(Chars: xmlCharPtr; Len: Integer; out Value: Longword); -procedure xsdParseUnsignedLong(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -procedure xsdParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; out Value: Integer); - -function xsdParseString(Chars: xmlCharPtr; Len: Integer): Utf8String; -function xsdParseStringLower(Chars: xmlCharPtr; Len: Integer): Utf8String; -function xsdParseBoolean(Chars: xmlCharPtr; Len: Integer): Boolean; -function xsdParseDate(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone = nil): TDateTime; -function xsdParseTime(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone = nil): TDateTime; -function xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone = nil): TDateTime; -function xsdParseDecimal(Chars: xmlCharPtr; Len: Integer): Extended; -function xsdParseDouble(Chars: xmlCharPtr; Len: Integer): Double; -function xsdParseFloat(Chars: xmlCharPtr; Len: Integer): Single; -function xsdParseInteger(Chars: xmlCharPtr; Len: Integer): Int64; -function xsdParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer): QWord; -function xsdParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer): Int64; -function xsdParseNegativeInteger(Chars: xmlCharPtr; Len: Integer): Int64; -function xsdParsePositiveInteger(Chars: xmlCharPtr; Len: Integer): QWord; -function xsdParseByte(Chars: xmlCharPtr; Len: Integer): Shortint; -function xsdParseShort(Chars: xmlCharPtr; Len: Integer): Smallint; -function xsdParseInt(Chars: xmlCharPtr; Len: Integer): Longint; -function xsdParseLong(Chars: xmlCharPtr; Len: Integer): Int64; -function xsdParseUnsignedByte(Chars: xmlCharPtr; Len: Integer): Byte; -function xsdParseUnsignedShort(Chars: xmlCharPtr; Len: Integer): Word; -function xsdParseUnsignedInt(Chars: xmlCharPtr; Len: Integer): Longword; -function xsdParseUnsignedLong(Chars: xmlCharPtr; Len: Integer): QWord; -function xsdParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String): Integer; - { Node creation functions } function xsdNewChildBase64(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: TStream): xmlNodePtr; function xsdNewChildString(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Utf8String): xmlNodePtr; function xsdNewChildBoolean(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Boolean; UseWords: Boolean = False): xmlNodePtr; -function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean = False; Timezone: PTimezone = nil): xmlNodePtr; -function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PTimezone = nil): xmlNodePtr; -function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): xmlNodePtr; -function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PTimezone = nil): xmlNodePtr; -function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean = False; Timezone: PTimezone = nil): xmlNodePtr; -function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PTimezone = nil): xmlNodePtr; +function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean = False; Timezone: PXsdTimezone = nil): xmlNodePtr; +function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PXsdTimezone = nil): xmlNodePtr; +function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): xmlNodePtr; +function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PXsdTimezone = nil): xmlNodePtr; +function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean = False; Timezone: PXsdTimezone = nil): xmlNodePtr; +function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PXsdTimezone = nil): xmlNodePtr; function xsdNewChildDecimal(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Extended; Precision: Integer = 4; Digits: Integer = 1): xmlNodePtr; function xsdNewChildDouble(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Double): xmlNodePtr; function xsdNewChildFloat(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Single): xmlNodePtr; @@ -209,12 +58,12 @@ function xsdNewChildEnum(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; enu { Property creation functions } function xsdNewPropString(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Utf8String): xmlAttrPtr; function xsdNewPropBoolean(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Boolean; UseWords: Boolean = False): xmlAttrPtr; -function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean = False; Timezone: PTimezone = nil): xmlAttrPtr; -function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PTimezone = nil): xmlAttrPtr; -function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): xmlAttrPtr; -function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PTimezone = nil): xmlAttrPtr; -function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean = False; Timezone: PTimezone = nil): xmlAttrPtr; -function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PTimezone = nil): xmlAttrPtr; +function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean = False; Timezone: PXsdTimezone = nil): xmlAttrPtr; +function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PXsdTimezone = nil): xmlAttrPtr; +function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): xmlAttrPtr; +function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PXsdTimezone = nil): xmlAttrPtr; +function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean = False; Timezone: PXsdTimezone = nil): xmlAttrPtr; +function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PXsdTimezone = nil): xmlAttrPtr; function xsdNewPropDecimal(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Extended; Precision: Integer = 4; Digits: Integer = 1): xmlAttrPtr; function xsdNewPropDouble(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Double): xmlAttrPtr; function xsdNewPropFloat(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: Single): xmlAttrPtr; @@ -243,12 +92,12 @@ function xsdTryGetChildChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Inde function xsdTryGetChildBase64(node: xmlNodePtr; name, nameSpace: xmlCharPtr; const Value: TStream; Index: Integer = 0): Boolean; function xsdTryGetChildString(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String; Index: Integer = 0): Boolean; function xsdTryGetChildBoolean(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean; Index: Integer = 0): Boolean; -function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil; Index: Integer = 0): Boolean; -function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0): Boolean; -function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; Index: Integer = 0): Boolean; -function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0): Boolean; -function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil; Index: Integer = 0): Boolean; -function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil; Index: Integer = 0): Boolean; +function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0): Boolean; function xsdTryGetChildDecimal(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended; Index: Integer = 0): Boolean; function xsdTryGetChildDouble(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double; Index: Integer = 0): Boolean; function xsdTryGetChildFloat(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single; Index: Integer = 0): Boolean; @@ -267,12 +116,12 @@ function xsdGetChildChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: procedure xsdGetChildBase64(node: xmlNodePtr; name, nameSpace: xmlCharPtr; const Value: TStream; Index: Integer = 0); procedure xsdGetChildString(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String; Index: Integer = 0); procedure xsdGetChildBoolean(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean; Index: Integer = 0); -procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil; Index: Integer = 0); -procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0); -procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; Index: Integer = 0); -procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0); -procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil; Index: Integer = 0); -procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil; Index: Integer = 0); +procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil; Index: Integer = 0); +procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0); +procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; Index: Integer = 0); +procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0); +procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil; Index: Integer = 0); +procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil; Index: Integer = 0); procedure xsdGetChildDecimal(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended; Index: Integer = 0); procedure xsdGetChildDouble(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double; Index: Integer = 0); procedure xsdGetChildFloat(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single; Index: Integer = 0); @@ -293,12 +142,12 @@ function xsdTryNextChars(var node: xmlNodePtr; name, nameSpace: xmlCharPtr): xml function xsdTryNextBase64(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; const Value: TStream): Boolean; function xsdTryNextString(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String): Boolean; function xsdTryNextBoolean(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean): Boolean; -function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): Boolean; -function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; +function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; function xsdTryNextDecimal(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended): Boolean; function xsdTryNextDouble(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double): Boolean; function xsdTryNextFloat(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single): Boolean; @@ -317,12 +166,12 @@ function xsdNextChars(var node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCha procedure xsdNextBase64(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; const Value: TStream); procedure xsdNextString(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String); procedure xsdNextBoolean(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean); -procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil); -procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); +procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil); +procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); procedure xsdNextDecimal(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended); procedure xsdNextDouble(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double); procedure xsdNextFloat(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single); @@ -344,12 +193,12 @@ function xsdTryGetProp(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlAttrPt function xsdTryGetPropChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCharPtr; function xsdTryGetPropString(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String): Boolean; function xsdTryGetPropBoolean(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean): Boolean; -function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil): Boolean; -function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; -function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil): Boolean; -function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil): Boolean; +function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; function xsdTryGetPropDecimal(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended): Boolean; function xsdTryGetPropDouble(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double): Boolean; function xsdTryGetPropFloat(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single): Boolean; @@ -367,12 +216,12 @@ function xsdGetProp(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlAttrPtr; function xsdGetPropChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCharPtr; procedure xsdGetPropString(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Utf8String); procedure xsdGetPropBoolean(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Boolean); -procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil); -procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); -procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone = nil; BC: PBoolean = nil); -procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone = nil); +procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil); +procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone = nil); procedure xsdGetPropDecimal(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Extended); procedure xsdGetPropDouble(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Double); procedure xsdGetPropFloat(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: Single); @@ -400,1576 +249,6 @@ begin inherited CreateFmt(Msg, [S]); end; -function xsdFormatBase64(Value: TStream): Utf8String; -const - Base64: array[0..63] of char = ( - 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', - 'Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f', - 'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v', - 'w','x','y','z','0','1','2','3','4','5','6','7','8','9','+','/' - ); - BufferSize = 3*512; { buffer size must be a multiple of 3 } -var - Buffer: array[0..BufferSize-1] of Byte; - Num, Ofs: Integer; - b1, b2, b3: Byte; -begin - Result := ''; - while True do - begin - Num := Value.Read(Buffer, BufferSize); - if Num = 0 then - Exit; - - Ofs := 0; - while Num >= 3 do - begin - b1 := Buffer[Ofs]; - b2 := Buffer[Ofs+1]; - b3 := Buffer[Ofs+2]; - - Result := Result + - Base64[b1 shr 2] + - Base64[((b1 and $3) shl 4) or (b2 shr 4)] + - Base64[((b2 and $F) shl 2) or (b3 shr 6)] + - Base64[b3 and $3F]; - - Num := Num - 3; - Ofs := Ofs + 3; - end; - - case Num of - 1: begin - b1 := Buffer[Ofs]; - - Result := Result + - Base64[b1 shr 2] + - Base64[((b1 and $3) shl 4)] + - '=='; - - Exit; - end; - - 2: begin - b1 := Buffer[Ofs]; - b2 := Buffer[Ofs+1]; - - Result := Result + - Base64[b1 shr 2] + - Base64[((b1 and $3) shl 4) or (b2 shr 4)] + - Base64[((b2 and $F) shl 2)] + - '='; - - Exit; - end; - end; - end; -end; - -function xsdFormatBoolean(Value: Boolean; UseWords: Boolean): Utf8String; -begin - if UseWords then - if Value then - Result := 'true' - else - Result := 'false' - else - if Value then - Result := '1' - else - Result := '0'; -end; - -function xsdFormatDate(Year, Month, Day: Longword; BC: Boolean; Timezone: PTimezone): Utf8String; -begin - Result := Format('%4.4d-%2.2u-%2.2u', [Year, Month, Day]); - if BC then - Result := '-' + Result; - - if Assigned(Timezone) then - case Timezone^.Kind of - tzUTC: - Result := Result + 'Z'; - tzUser: - begin - if Timezone^.Hour >= 0 then - Result := Result + '+' - else - Result := Result + '-'; - Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); - end; - end; -end; - -function xsdFormatDate(Value: TDateTime; Timezone: PTimezone): Utf8String; -var - Year, Month, Day: Word; -begin - DecodeDate(Value, Year, Month, Day); - Result := xsdFormatDate(Year, Month, Day, False, Timezone); -end; - -function xsdFormatTime(Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): Utf8String; -begin - Result := Format('%2.2u:%2.2u:%2.2u', [Hour, Minute, Second]); - if Milliseconds > 0 then - Result := Result + '.' + IntToStr(Milliseconds); - - if Assigned(Timezone) then - case Timezone^.Kind of - tzUTC: - Result := Result + 'Z'; - tzUser: - begin - if Timezone^.Hour >= 0 then - Result := Result + '+' - else - Result := Result + '-'; - Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); - end; - end; -end; - -function xsdFormatTime(Value: TDateTime; Timezone: PTimezone): Utf8String; -var - Hour, Minute, Second, Milliseconds: Word; -begin - DecodeTime(Value, Hour, Minute, Second, Milliseconds); - Result := xsdFormatTime(Hour, Minute, Second, Milliseconds, Timezone); -end; - -function xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PTimezone): Utf8String; -begin - Result := xsdFormatDate(Year, Month, Day, BC, nil) + 'T' + xsdFormatTime(Hour, Minute, Second, Milliseconds, Timezone); -end; - -function xsdFormatDateTime(Value: TDateTime; Timezone: PTimezone): Utf8String; -var - Year, Month, Day, Hour, Minute, Second, Milliseconds: Word; -begin - DecodeDateTime(Value, Year, Month, Day, Hour, Minute, Second, Milliseconds); - Result := xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds, False, Timezone); -end; - -function xsdFormatDecimal(Value: Extended; Precision: Integer; Digits: Integer): Utf8String; -begin - Result := FloatToStrF(Value, ffFixed, Precision, Digits); -end; - -function xsdFormatDouble(Value: Double): Utf8String; -begin - Result := FloatToStr(Value); -end; - -function xsdFormatFloat(Value: Single): Utf8String; -begin - Result := FloatToStr(Value); -end; - -function xsdFormatByte(Value: Shortint): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatShort(Value: Smallint): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatInt(Value: Integer): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatLong(Value: Int64): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatUnsignedByte(Value: Byte): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatUnsignedShort(Value: Word): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatUnsignedInt(Value: Longword): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatUnsignedLong(Value: QWord): Utf8String; -begin - Result := IntToStr(Value); -end; - -function xsdFormatEnum(enum: array of Utf8String; Value: Integer): Utf8String; -begin - Result := enum[Value]; -end; - -procedure xsdTimeConvertTo(var Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TTimezone); -begin - {$warning xsdTimeConvertTo: not implemented} -end; - -procedure xsdDateConvertTo(var Year, Month, Day: Longword; const Current, Target: TTimezone); -begin - {$warning xsdDateConvertTo: not implemented} -end; - -procedure xsdDateTimeConvertTo(var Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TTimezone); -begin - {$warning xsdDateTimeConvertTo: not implemented} -end; - -function __parseNonNegativeInteger(var P: PChar; const L: PChar; out Value: QWord): Boolean; -begin - { expect integer } - Value := 0; - while (P < L) and (P^ in ['0'..'9']) do - begin - Value := 10*Value + Ord(P^) - Ord('0'); - Inc(P); - end; - - Result := True; -end; - -function __parseInteger(var P: PChar; const L: PChar; out Value: Int64): Boolean; -var - N: Boolean; -begin - { allow '-' } - N := (P < L) and (P^ = '-'); - if N then - Inc(P); - - { expect integer } - Value := 0; - while (P < L) and (P^ in ['0'..'9']) do - begin - Value := 10*Value + Ord(P^) - Ord('0'); - Inc(P); - end; - if N then - Value := -Value; - - Result := True; -end; - -function __parseFloat(var P: PChar; const L: PChar; out Value: Extended): Boolean; -var - N: Boolean; - Exp: Int64; - Int: QWord; -begin - { allow 'Nan' } - if (P+2 < L) and ((P^ = 'N') or (P^ = 'n')) then - begin - Inc(P); - if (P^ <> 'A') and (P^ <> 'a') then Exit(False); - Inc(P); - if (P^ <> 'N') and (P^ <> 'n') then Exit(False); - Inc(P); - Value := Nan; - Result := True; - Exit; - end; - - { allow '-' } - N := (P < L) and (P^ = '-'); - if N then - Inc(P); - - { allow 'Inf' } - if (P+2 < L) and ((P^ = 'I') or (P^ = 'i')) then - begin - Inc(P); - if (P^ <> 'N') and (P^ <> 'n') then Exit(False); - Inc(P); - if (P^ <> 'F') and (P^ <> 'f') then Exit(False); - Inc(P); - if N then - Value := NegInfinity - else - Value := Infinity; - Result := True; - Exit; - end; - - { expect integer } - Int := 0; - while (P < L) and (P^ in ['0'..'9']) do - begin - Int := 10*Int + Ord(P^) - Ord('0'); - Inc(P); - end; - Value := Int; - - { allow '.' } - if (P < L) and (P^ = '.') then - begin - Inc(P); - - { expect integer } - Exp := 1; - Int := 0; - while (P < L) and (P^ in ['0'..'9']) do - begin - Int := 10*Int + Ord(P^) - Ord('0'); - Exp := 10*Exp; - Inc(P); - end; - Value := Value + Int / Exp; - end; - - { allow 'E' or 'e' } - if (P < L) and ((P^ = 'E') or (P^ = 'e')) then - begin - Inc(P); - - { expect integer } - if not __parseInteger(P, L, Exp) then - Exit(False); - - while Exp > 0 do - begin - Value := Value * 10; - Dec(Exp); - end; - - while Exp < 0 do - begin - Value := Value * 0.1; - Inc(Exp); - end; - end; - - if N then - Value := -Value; - - Result := True; -end; - -function __parseTimezone(var P: PChar; const L: PChar; out T: TTimezone): Boolean; -var - I: Integer; - N: Boolean; -begin - { allow 'Z' } - if (P < L) and (P^ = 'Z') then - begin - T.Kind := tzUTC; - T.Hour := 0; - T.Minute := 0; - Inc(P); - end else - - { allow '+' or '-' } - if (P < L) and (P^ in ['+','-']) then - begin - N := P^ = '-'; - Inc(P); - - { expect 00..13 } - T.Hour := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - T.Hour := 10*T.Hour + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if T.Hour > 13 then - Exit(False); - if N then - T.Hour := -T.Hour; - - { expect ':' } - if (P >= L) or (P^ <> ':') then - Exit(False); - Inc(P); - - { expect 00..59 } - T.Minute := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - T.Minute := 10*T.Minute + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if T.Minute > 59 then - Exit(False); - end else - - { unknown } - begin - T.Kind := tzUnknown; - T.Hour := 0; - T.Minute := 0; - end; - - Result := True; -end; - -function __parseDate(var P: PChar; const L: PChar; out Year, Month, Day: Longword; BC: PBoolean): Boolean; -var - I: Integer; -begin - { allow '-' } - if (P < L) and (P^ = '-') then - begin - if Assigned(BC) then - BC^ := True - else - Exit(False); - Inc(P); - end else - if Assigned(BC) then - BC^ := False; - - { expect Integer } - Year := 0; - while (P < L) and (P^ in ['0'..'9']) do - begin - Year := 10*Year + Ord(P^) - Ord('0'); - Inc(P); - end; - - { expect '-' } - if (P >= L) or (P^ <> '-') then - Exit(False); - Inc(P); - - { expect 01..12 } - Month := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Month := 10*Month + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if (Month < 1) or (Month > 12) then - Exit(False); - - { expect '-' } - if (P >= L) or (P^ <> '-') then - Exit(False); - Inc(P); - - { expect 01..31 } - Day := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Day := 10*Day + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if (Day < 1) or (Day > 31) then - Exit(False); - - Result := True; -end; - -function __parseTime(var P: PChar; const L: PChar; out Hour, Minute, Second, Milliseconds: Longword): Boolean; -var - I: Integer; -begin - { expect 00..24 } - Hour := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Hour := 10*Hour + Ord(P^) - Ord('0'); - Inc(P); Dec(I); - end; - if Hour > 24 then - Exit(False); - - { expect ':' } - if (P >= L) or (P^ <> ':') then - Exit(False); - Inc(P); - - { expect 00..59 } - Minute := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Minute := 10*Minute + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if (Minute > 59) or ((Hour = 24) and (Minute > 0)) then - Exit(False); - - { expect ':' } - if (P >= L) or (P^ <> ':') then - Exit(False); - Inc(P); - - { expect 00..59 } - Second := 0; I := 2; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Second := 10*Second + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if (Second > 59) or ((Hour = 24) and (Second > 0)) then - Exit(False); - - { allow '.' } - if (P < L) and (P^ = '.') then - begin - Inc(P); - - { expect integer } - Milliseconds := 0; I := 4; - while (P < L) and (P^ in ['0'..'9']) and (I > 0) do - begin - Milliseconds := 10*Milliseconds + Ord(P^) - Ord('0'); - Dec(I); Inc(P); - end; - if (Milliseconds > 999) or ((Hour = 24) and (Milliseconds > 0)) then - Exit(False); - end else - Milliseconds := 0; - - Result := True; -end; - -function xsdTryParseBase64(Chars: xmlCharPtr; Len: Integer; const Value: TStream): Boolean; -const - BufferSize = 3*512; -var - Buffer: array[0..BufferSize-1] of Byte; - Ofs: Integer; - P,L: PByte; - p1,p2,p3,p4: Shortint; -begin - if Assigned(Chars) then - begin - Ofs := 0; - - P := PByte(Chars); - if Len >= 0 then - begin - if Len mod 4 <> 0 then - Exit(False); - - L := P + Len; - while P < L do - begin - case Chr(P^) of - 'A'..'Z': p1 := P^ - Ord('A'); - 'a'..'z': p1 := P^ - Ord('a') + 26; - '0'..'9': p1 := P^ - Ord('0') + 52; - '+' : p1 := 62; - '/' : p1 := 63; - else Exit(False); - end; - Inc(P); - - case Chr(P^) of - 'A'..'Z': p2 := P^ - Ord('A'); - 'a'..'z': p2 := P^ - Ord('a') + 26; - '0'..'9': p2 := P^ - Ord('0') + 52; - '+' : p2 := 62; - '/' : p2 := 63; - else Exit(False); - end; - Inc(P); - - case Chr(P^) of - 'A'..'Z': p3 := P^ - Ord('A'); - 'a'..'z': p3 := P^ - Ord('a') + 26; - '0'..'9': p3 := P^ - Ord('0') + 52; - '+' : p3 := 62; - '/' : p3 := 63; - '=' : p3 := -1; - else Exit(False); - end; - Inc(P); - - if (p3 >= 0) then - begin - case Chr(P^) of - 'A'..'Z': p4 := P^ - Ord('A'); - 'a'..'z': p4 := P^ - Ord('a') + 26; - '0'..'9': p4 := P^ - Ord('0') + 52; - '+' : p4 := 62; - '/' : p4 := 63; - '=' : p4 := -1; - else Exit(False); - end; - end else begin - if P^ <> Ord('=') then - Exit(False); - p4 := -1; - end; - Inc(P); - - Buffer[Ofs] := (p1 shl 2) or (p2 shr 4); - Ofs := Ofs + 1; - - if p3 >= 0 then - begin - Buffer[Ofs] := ((p2 and $F) shl 4) or (p3 shr 2); - Ofs := Ofs + 1; - - if p4 >= 0 then - begin - Buffer[Ofs] := ((p3 and $3) shl 6) or p4; - Ofs := Ofs + 1; - end; - end; - - if Ofs >= BufferSize-2 then - begin - Value.Write(Buffer, Ofs); - Ofs := 0; - end; - end; - end else begin - while P^ <> 0 do - begin - case Chr(P^) of - 'A'..'Z': p1 := P^ - Ord('A'); - 'a'..'z': p1 := P^ - Ord('a') + 26; - '0'..'9': p1 := P^ - Ord('0') + 52; - '+' : p1 := 62; - '/' : p1 := 63; - else Exit(False); - end; - Inc(P); - - case Chr(P^) of - 'A'..'Z': p2 := P^ - Ord('A'); - 'a'..'z': p2 := P^ - Ord('a') + 26; - '0'..'9': p2 := P^ - Ord('0') + 52; - '+' : p2 := 62; - '/' : p2 := 63; - else Exit(False); - end; - Inc(P); - - case Chr(P^) of - 'A'..'Z': p3 := P^ - Ord('A'); - 'a'..'z': p3 := P^ - Ord('a') + 26; - '0'..'9': p3 := P^ - Ord('0') + 52; - '+' : p3 := 62; - '/' : p3 := 63; - '=' : p3 := -1; - else Exit(False); - end; - Inc(P); - - if (p3 >= 0) then - begin - case Chr(P^) of - 'A'..'Z': p4 := P^ - Ord('A'); - 'a'..'z': p4 := P^ - Ord('a') + 26; - '0'..'9': p4 := P^ - Ord('0') + 52; - '+' : p4 := 62; - '/' : p4 := 63; - '=' : p4 := -1; - else Exit(False); - end; - end else begin - if P^ <> Ord('=') then - Exit(False); - p4 := -1; - end; - Inc(P); - - Buffer[Ofs] := (p1 shl 2) or (p2 shr 4); - Ofs := Ofs + 1; - - if p3 >= 0 then - begin - Buffer[Ofs] := ((p2 and $F) shl 4) or (p3 shr 2); - Ofs := Ofs + 1; - - if p4 >= 0 then - begin - Buffer[Ofs] := ((p3 and $3) shl 6) or p4; - Ofs := Ofs + 1; - end; - end; - - if Ofs >= BufferSize-2 then - begin - Value.Write(Buffer, Ofs); - Ofs := 0; - end; - end; - end; - - if Ofs > 0 then // flush - Value.Write(Buffer, Ofs); - - Result := True; - end else - Result := False; -end; - -function xsdTryParseString(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean; -const - AllocChars = 256; -var - P,L,D: PByte; -begin - if Assigned(Chars) then - begin - P := PByte(Chars); - if Len >= 0 then - begin - L := P + Len; - SetLength(Value, Len); - D := @Value[1]; - while P < L do - begin - D^ := P^; - Inc(D); - Inc(P); - end; - end else begin - SetLength(Value, AllocChars); - D := @Value[1]; - L := D + AllocChars; - while P^ <> 0 do - begin - if D = L then - begin - Len := Length(Value); - SetLength(Value, Len+AllocChars); - D := @Value[Len+1]; - L := D + AllocChars; - end; - D^ := P^; - Inc(D); - Inc(P); - end; - SetLength(Value, P-PByte(Chars)); - end; - Result := True; - end else - Result := False; -end; -{begin - if Assigned(Chars) then - begin - if Len >= 0 then - begin - SetLength(Value, Len); - Move(Chars^, Value[1], Len); - end else - Value := PChar(Chars); - Result := True; - end else - Result := False; -end;} - -function xsdTryParseStringLower(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String): Boolean; -const - AllocChars = 256; -var - P,L,D: PByte; - C: Byte; -begin - if Assigned(Chars) then - begin - P := PByte(Chars); - if Len >= 0 then - begin - L := P + Len; - SetLength(Value, Len); - D := @Value[1]; - while P < L do - begin - C := P^; - if (C>=65) and (C<=90) then Inc(C, 32); - D^ := C; - Inc(D); - Inc(P); - end; - end else begin - SetLength(Value, AllocChars); - D := @Value[1]; - L := D + AllocChars; - while P^ <> 0 do - begin - C := P^; - if (C>=65) and (C<=90) then Inc(C, 32); - if D = L then - begin - Len := Length(Value); - SetLength(Value, Len+AllocChars); - D := @Value[Len+1]; - L := D + AllocChars; - end; - D^ := C; - Inc(D); - Inc(P); - end; - SetLength(Value, P-PByte(Chars)); - end; - Result := True; - end else - Result := False; -end; - -function __strpas(Chars: xmlCharPtr; Len: Integer): Utf8String; -begin - if not xsdTryParseString(Chars, Len, Result) then - Result := ''; -end; - -function xsdTryParseBoolean(Chars: xmlCharPtr; Len: Integer; out Value: Boolean): Boolean; -var - P: PChar; - Num: QWord; -begin - if not Assigned(Chars) then - Exit(False); - - if Len < 0 then - begin - P := PChar(Chars); - Len := 0; - while (Len < 7) and (P^ <> #0) do - begin - Inc(Len); - Inc(P); - end; - end; - - case Len of - 1: Num := PByte(Chars)^; - 4: Num := PLongword(Chars)^; - 5: Num := PLongword(Chars)^ or (QWord(Chars[4]) shl 32); - else Exit(False); - end; - - case Num of - $30, - $65736C6166,$65736C6146,$65736C4166,$65736C4146,$65734C6166,$65734C6146,$65734C4166,$65734C4146, - $65536C6166,$65536C6146,$65536C4166,$65536C4146,$65534C6166,$65534C6146,$65534C4166,$65534C4146, - $45736C6166,$45736C6146,$45736C4166,$45736C4146,$45734C6166,$45734C6146,$45734C4166,$45734C4146, - $45536C6166,$45536C6146,$45536C4166,$45536C4146,$45534C6166,$45534C6146,$45534C4166,$45534C4146: - Value := False; - $31, - $65757274,$65757254,$65755274,$65755254,$65557274,$65557254,$65555274,$65555254, - $45757274,$45757254,$45755274,$45755254,$45557274,$45557254,$45555274,$45555254: - Value := True; - else Exit(False); - end; - - Result := True; -end; - -function xsdTryParseDate(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; -var - P: PChar; - L: PChar; - T: TTimezone; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and - __parseDate(P, L, Year, Month, Day, BC) and - __parseTimezone(P, L, T) and (P = L) - end else - Result := Assigned(P) and - __parseDate(P, IGNORE_LAST, Year, Month, Day, BC) and - __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); - - { assign Timezone if requested } - if Result and Assigned(Timezone) then - begin - if Timezone^.Convert then - xsdDateConvertTo(Year, Month, Day, T, Timezone^) - else - Timezone^ := T; - end; -end; - -function xsdTryParseDate(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone): Boolean; -var - Year, Month, Day: Longword; -begin - if xsdTryParseDate(Chars, Len, Year, Month, Day, Timezone, nil) then - Result := TryEncodeDate(Year, Month, Day, Value) - else - Result := False; -end; - -function xsdTryParseTime(Chars: xmlCharPtr; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): Boolean; -var - P: PChar; - L: PChar; - T: TTimezone; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and - __parseTime(P, L, Hour, Minute, Second, Milliseconds) and - __parseTimezone(P, L, T) and (P = L) - end else - Result := Assigned(P) and - __parseTime(P, IGNORE_LAST, Hour, Minute, Second, Milliseconds) and - __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); - - { assign Timezone if requested } - if Result and Assigned(Timezone) then - begin - if Timezone^.Convert then - xsdTimeConvertTo(Hour, Minute, Second, Milliseconds, T, Timezone^) - else - Timezone^ := T; - end; -end; - -function xsdTryParseTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone): Boolean; -var - Hour, Minute, Second, Milliseconds: Longword; -begin - if xsdTryParseTime(Chars, Len, Hour, Minute, Second, Milliseconds, Timezone) then - Result := TryEncodeTime(Hour, Minute, Second, Milliseconds, Value) - else - Result := False; -end; - -function xsdTryParseDateTime(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; - - function __parseT(var P: PChar; const L: PChar): Boolean; - begin - Result := (P < L) and (P^ = 'T'); - if Result then Inc(P); - end; - -var - P: PChar; - L: PChar; - T: TTimezone; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and - __parseDate(P, L, Year, Month, Day, BC) and - __parseT(P, L) and - __parseTime(P, L, Hour, Minute, Second, Milliseconds) and - __parseTimezone(P, L, T) and (P = L) - end else - Result := Assigned(P) and - __parseDate(P, IGNORE_LAST, Year, Month, Day, BC) and - __parseT(P, IGNORE_LAST) and - __parseTime(P, IGNORE_LAST, Hour, Minute, Second, Milliseconds) and - __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); - - { assign Timezone if requested } - if Result and Assigned(Timezone) then - begin - if Timezone^.Convert then - xsdDateTimeConvertTo(Year, Month, Day, Hour, Minute, Second, Milliseconds, T, Timezone^) - else - Timezone^ := T; - end; -end; - -function xsdTryParseDateTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone): Boolean; -var - Year, Month, Day: Longword; - Hour, Minute, Second, Milliseconds: Longword; -begin - if xsdTryParseDateTime(Chars, Len, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone) then - Result := TryEncodeDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds, Value) - else - Result := False; -end; - -function xsdTryParseDecimal(Chars: xmlCharPtr; Len: Integer; out Value: Extended): Boolean; -var - P: PChar; - L: PChar; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and __parseFloat(P, L, Value) and (P = L) - end else - Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Value) and (P^ = #0); -end; - -function xsdTryParseDouble(Chars: xmlCharPtr; Len: Integer; out Value: Double): Boolean; -var - P: PChar; - L: PChar; - Tmp: Extended; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and __parseFloat(P, L, Tmp) and (P = L) - end else - Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Tmp) and (P^ = #0); - Value := Tmp; -end; - -function xsdTryParseFloat(Chars: xmlCharPtr; Len: Integer; out Value: Single): Boolean; -var - P: PChar; - L: PChar; - Tmp: Extended; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and __parseFloat(P, L, Tmp) and (P = L) - end else - Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Tmp) and (P^ = #0); - Value := Tmp; -end; - -function xsdTryParseInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -var - P: PChar; - L: PChar; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and __parseInteger(P, L, Value) and (P = L) - end else - Result := Assigned(P) and __parseInteger(P, IGNORE_LAST, Value) and (P^ = #0); -end; - -function xsdTryParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -var - P: PChar; - L: PChar; -begin - P := PChar(Chars); - if Len >= 0 then - begin - L := P + Len; - Result := Assigned(P) and __parseNonNegativeInteger(P, L, Value) and (P = L) - end else - Result := Assigned(P) and __parseNonNegativeInteger(P, IGNORE_LAST, Value) and (P^ = #0); -end; - -function xsdTryParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -begin - Result := xsdTryParseInteger(Chars, Len, Value) and (Value <= 0); -end; - -function xsdTryParseNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -begin - Result := xsdTryParseInteger(Chars, Len, Value) and (Value <= -1); -end; - -function xsdTryParsePositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -begin - Result := xsdTryParseNonNegativeInteger(Chars, Len, Value) and (Value >= 1); -end; - -function xsdTryParseByte(Chars: xmlCharPtr; Len: Integer; out Value: Shortint): Boolean; -var - Tmp: Int64; -begin - Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 128) and (Tmp >= -127); - Value := Tmp; -end; - -function xsdTryParseShort(Chars: xmlCharPtr; Len: Integer; out Value: Smallint): Boolean; -var - Tmp: Int64; -begin - Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 32767) and (Tmp >= -32768); - Value := Tmp; -end; - -function xsdTryParseInt(Chars: xmlCharPtr; Len: Integer; out Value: Longint): Boolean; -var - Tmp: Int64; -begin - Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 2147483647) and (Tmp >= -2147483648); - Value := Tmp; -end; - -function xsdTryParseLong(Chars: xmlCharPtr; Len: Integer; out Value: Int64): Boolean; -begin - Result := xsdTryParseInteger(Chars, Len, Value); -end; - -function xsdTryParseUnsignedByte(Chars: xmlCharPtr; Len: Integer; out Value: Byte): Boolean; -var - Tmp: QWord; -begin - Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 255); - Value := Tmp; -end; - -function xsdTryParseUnsignedShort(Chars: xmlCharPtr; Len: Integer; out Value: Word): Boolean; -var - Tmp: QWord; -begin - Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 65535); - Value := Tmp; -end; - -function xsdTryParseUnsignedInt(Chars: xmlCharPtr; Len: Integer; out Value: Longword): Boolean; -var - Tmp: QWord; -begin - Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 4294967295); - Value := Tmp; -end; - -function xsdTryParseUnsignedLong(Chars: xmlCharPtr; Len: Integer; out Value: QWord): Boolean; -begin - Result := xsdTryParseNonNegativeInteger(Chars, Len, Value) -end; - -function xsdTryParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; out Value: Integer): Boolean; -var - Temp: Utf8String; - I: Integer; -begin - Temp := ''; - Result := xsdTryParseString(Chars, Len, Temp); - if Result then - begin - for I := 0 to High(enum) do - if Temp = enum[I] then - begin - Value := I; - Exit(True); - end; - Result := False; - end; -end; - -function xsdParseStringDef(Chars: xmlCharPtr; Len: Integer; Default: Utf8String): Utf8String; -begin - if not xsdTryParseString(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseStringLowerDef(Chars: xmlCharPtr; Len: Integer; Default: Utf8String): Utf8String; -begin - if not xsdTryParseStringLower(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseBooleanDef(Chars: xmlCharPtr; Len: Integer; Default: Boolean): Boolean; -begin - if not xsdTryParseBoolean(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseDateDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone): TDateTime; -begin - if not xsdTryParseDate(Chars, Len, Result, Timezone) then - Result := Default; -end; - -function xsdParseTimeDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone): TDateTime; -begin - if not xsdTryParseTime(Chars, Len, Result, Timezone) then - Result := Default; -end; - -function xsdParseDateTimeDef(Chars: xmlCharPtr; Len: Integer; Default: TDateTime; Timezone: PTimezone): TDateTime; -begin - if not xsdTryParseDateTime(Chars, Len, Result, Timezone) then - Result := Default; -end; - -function xsdParseDecimalDef(Chars: xmlCharPtr; Len: Integer; Default: Extended): Extended; -begin - if not xsdTryParseDecimal(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseDoubleDef(Chars: xmlCharPtr; Len: Integer; Default: Double): Double; -begin - if not xsdTryParseDouble(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseFloatDef(Chars: xmlCharPtr; Len: Integer; Default: Single): Single; -begin - if not xsdTryParseFloat(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -begin - if not xsdTryParseInteger(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseNonNegativeIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -begin - if not xsdTryParseNonNegativeInteger(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseNonPositiveIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -begin - if not xsdTryParseNonPositiveInteger(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseNegativeIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -begin - if not xsdTryParseNegativeInteger(Chars, Len, Result) then - Result := Default; -end; - -function xsdParsePositiveIntegerDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -begin - if not xsdTryParsePositiveInteger(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseByteDef(Chars: xmlCharPtr; Len: Integer; Default: Shortint): Shortint; -begin - if not xsdTryParseByte(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseShortDef(Chars: xmlCharPtr; Len: Integer; Default: Smallint): Smallint; -begin - if not xsdTryParseShort(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseIntDef(Chars: xmlCharPtr; Len: Integer; Default: Longint): Longint; -begin - if not xsdTryParseInt(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseLongDef(Chars: xmlCharPtr; Len: Integer; Default: Int64): Int64; -begin - if not xsdTryParseLong(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseUnsignedByteDef(Chars: xmlCharPtr; Len: Integer; Default: Byte): Byte; -begin - if not xsdTryParseUnsignedByte(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseUnsignedShortDef(Chars: xmlCharPtr; Len: Integer; Default: Word): Word; -begin - if not xsdTryParseUnsignedShort(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseUnsignedIntDef(Chars: xmlCharPtr; Len: Integer; Default: Longword): Longword; -begin - if not xsdTryParseUnsignedInt(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseUnsignedLongDef(Chars: xmlCharPtr; Len: Integer; Default: QWord): QWord; -begin - if not xsdTryParseUnsignedLong(Chars, Len, Result) then - Result := Default; -end; - -function xsdParseEnumDef(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; Default: Integer): Integer; -begin - if not xsdTryParseEnum(Chars, Len, enum, Result) then - Result := Default; -end; - -procedure xsdParseBase64(Chars: xmlCharPtr; Len: Integer; const Value: TStream); -begin - if not xsdTryParseBase64(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:base64Binary']); -end; - -procedure xsdParseString(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String); -begin - if not xsdTryParseString(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:string']); -end; - -procedure xsdParseStringLower(Chars: xmlCharPtr; Len: Integer; out Value: Utf8String); -begin - if not xsdTryParseStringLower(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:string']); -end; - -procedure xsdParseBoolean(Chars: xmlCharPtr; Len: Integer; out Value: Boolean); -begin - if not xsdTryParseBoolean(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:boolean']); -end; - -procedure xsdParseDate(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean); -begin - if not xsdTryParseDate(Chars, Len, Year, Month, Day, Timezone, BC) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:date']); -end; - -procedure xsdParseDate(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone); -begin - if not xsdTryParseDate(Chars, Len, Value, Timezone) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:date']); -end; - -procedure xsdParseTime(Chars: xmlCharPtr; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone); -begin - if not xsdTryParseTime(Chars, Len, Hour, Minute, Second, Milliseconds, Timezone) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:time']); -end; - -procedure xsdParseTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone); -begin - if not xsdTryParseTime(Chars, Len, Value, Timezone) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:time']); -end; - -procedure xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean); -begin - if not xsdTryParseDateTime(Chars, Len, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:dateTime']); -end; - -procedure xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; out Value: TDateTime; Timezone: PTimezone); -begin - if not xsdTryParseDateTime(Chars, Len, Value, Timezone) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:dateTime']); -end; - -procedure xsdParseDecimal(Chars: xmlCharPtr; Len: Integer; out Value: Extended); -begin - if not xsdTryParseDecimal(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:decimal']); -end; - -procedure xsdParseDouble(Chars: xmlCharPtr; Len: Integer; out Value: Double); -begin - if not xsdTryParseDouble(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:double']); -end; - -procedure xsdParseFloat(Chars: xmlCharPtr; Len: Integer; out Value: Single); -begin - if not xsdTryParseFloat(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:float']); -end; - -procedure xsdParseInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -begin - if not xsdTryParseInteger(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:integer']); -end; - -procedure xsdParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -begin - if not xsdTryParseNonNegativeInteger(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:nonNegativeInteger']); -end; - -procedure xsdParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -begin - if not xsdTryParseNonPositiveInteger(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:nonPositiveInteger']); -end; - -procedure xsdParseNegativeInteger(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -begin - if not xsdTryParseNegativeInteger(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:negativeInteger']); -end; - -procedure xsdParsePositiveInteger(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -begin - if not xsdTryParsePositiveInteger(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:positiveInteger']); -end; - -procedure xsdParseByte(Chars: xmlCharPtr; Len: Integer; out Value: Shortint); -begin - if not xsdTryParseByte(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:byte']); -end; - -procedure xsdParseShort(Chars: xmlCharPtr; Len: Integer; out Value: Smallint); -begin - if not xsdTryParseShort(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:short']); -end; - -procedure xsdParseInt(Chars: xmlCharPtr; Len: Integer; out Value: Longint); -begin - if not xsdTryParseInt(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:int']); -end; - -procedure xsdParseLong(Chars: xmlCharPtr; Len: Integer; out Value: Int64); -begin - if not xsdTryParseLong(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:long']); -end; - -procedure xsdParseUnsignedByte(Chars: xmlCharPtr; Len: Integer; out Value: Byte); -begin - if not xsdTryParseUnsignedByte(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:unsignedByte']); -end; - -procedure xsdParseUnsignedShort(Chars: xmlCharPtr; Len: Integer; out Value: Word); -begin - if not xsdTryParseUnsignedShort(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:unsignedShort']); -end; - -procedure xsdParseUnsignedInt(Chars: xmlCharPtr; Len: Integer; out Value: Longword); -begin - if not xsdTryParseUnsignedInt(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:unsignedInt']); -end; - -procedure xsdParseUnsignedLong(Chars: xmlCharPtr; Len: Integer; out Value: QWord); -begin - if not xsdTryParseUnsignedLong(Chars, Len, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:unsignedLong']); -end; - -procedure xsdParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String; out Value: Integer); -begin - if not xsdTryParseEnum(Chars, Len, enum, Value) then - raise XSDException.CreateFmt(ParserError, [__strpas(Chars,Len), 'xs:enum']); -end; - -function xsdParseString(Chars: xmlCharPtr; Len: Integer): Utf8String; -begin - xsdParseString(Chars, Len, Result); -end; - -function xsdParseStringLower(Chars: xmlCharPtr; Len: Integer): Utf8String; -begin - xsdParseStringLower(Chars, Len, Result); -end; - -function xsdParseBoolean(Chars: xmlCharPtr; Len: Integer): Boolean; -begin - xsdParseBoolean(Chars, Len, Result); -end; - -function xsdParseDate(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone): TDateTime; -begin - xsdParseDate(Chars, Len, Result, Timezone); -end; - -function xsdParseTime(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone): TDateTime; -begin - xsdParseTime(Chars, Len, Result, Timezone); -end; - -function xsdParseDateTime(Chars: xmlCharPtr; Len: Integer; Timezone: PTimezone): TDateTime; -begin - xsdParseDateTime(Chars, Len, Result, Timezone); -end; - -function xsdParseDecimal(Chars: xmlCharPtr; Len: Integer): Extended; -begin - xsdParseDecimal(Chars, Len, Result); -end; - -function xsdParseDouble(Chars: xmlCharPtr; Len: Integer): Double; -begin - xsdParseDouble(Chars, Len, Result); -end; - -function xsdParseFloat(Chars: xmlCharPtr; Len: Integer): Single; -begin - xsdParseFloat(Chars, Len, Result); -end; - -function xsdParseInteger(Chars: xmlCharPtr; Len: Integer): Int64; -begin - xsdParseInteger(Chars, Len, Result); -end; - -function xsdParseNonNegativeInteger(Chars: xmlCharPtr; Len: Integer): QWord; -begin - xsdParseNonNegativeInteger(Chars, Len, Result); -end; - -function xsdParseNonPositiveInteger(Chars: xmlCharPtr; Len: Integer): Int64; -begin - xsdParseNonPositiveInteger(Chars, Len, Result); -end; - -function xsdParseNegativeInteger(Chars: xmlCharPtr; Len: Integer): Int64; -begin - xsdParseNegativeInteger(Chars, Len, Result); -end; - -function xsdParsePositiveInteger(Chars: xmlCharPtr; Len: Integer): QWord; -begin - xsdParsePositiveInteger(Chars, Len, Result); -end; - -function xsdParseByte(Chars: xmlCharPtr; Len: Integer): Shortint; -begin - xsdParseByte(Chars, Len, Result); -end; - -function xsdParseShort(Chars: xmlCharPtr; Len: Integer): Smallint; -begin - xsdParseShort(Chars, Len, Result); -end; - -function xsdParseInt(Chars: xmlCharPtr; Len: Integer): Longint; -begin - xsdParseInt(Chars, Len, Result); -end; - -function xsdParseLong(Chars: xmlCharPtr; Len: Integer): Int64; -begin - xsdParseLong(Chars, Len, Result); -end; - -function xsdParseUnsignedByte(Chars: xmlCharPtr; Len: Integer): Byte; -begin - xsdParseUnsignedByte(Chars, Len, Result); -end; - -function xsdParseUnsignedShort(Chars: xmlCharPtr; Len: Integer): Word; -begin - xsdParseUnsignedShort(Chars, Len, Result); -end; - -function xsdParseUnsignedInt(Chars: xmlCharPtr; Len: Integer): Longword; -begin - xsdParseUnsignedInt(Chars, Len, Result); -end; - -function xsdParseUnsignedLong(Chars: xmlCharPtr; Len: Integer): QWord; -begin - xsdParseUnsignedLong(Chars, Len, Result); -end; - -function xsdParseEnum(Chars: xmlCharPtr; Len: Integer; enum: array of Utf8String): Integer; -begin - xsdParseEnum(Chars, Len, enum, Result); -end; function xsdNewChildBase64(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Value: TStream): xmlNodePtr; var Tmp: Utf8String; @@ -1991,7 +270,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -1999,7 +278,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -2007,7 +286,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -2015,7 +294,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildDate(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -2023,7 +302,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -2031,7 +310,7 @@ begin Result := xmlNewChild(parent, ns, name, PChar(Tmp)); end; -function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PTimezone): xmlNodePtr; +function xsdNewChildDateTime(parent: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PXsdTimezone): xmlNodePtr; var Tmp: Utf8String; begin @@ -2148,7 +427,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2156,7 +435,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Time: TDateTime; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2164,7 +443,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day: Longword; BC: Boolean; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2172,7 +451,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropDate(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Date: TDateTime; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2180,7 +459,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2188,7 +467,7 @@ begin Result := xmlNewNsProp(node, ns, name, PChar(Tmp)); end; -function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PTimezone): xmlAttrPtr; +function xsdNewPropDateTime(node: xmlNodePtr; ns: xmlNsPtr; name: xmlCharPtr; DateTime: TDateTime; Timezone: PXsdTimezone): xmlAttrPtr; var Tmp: Utf8String; begin @@ -2350,32 +629,32 @@ begin Result := xsdTryParseBoolean(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Value); end; -function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean; Index: Integer): Boolean; +function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean; Index: Integer): Boolean; begin Result := xsdTryParseDate(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Year, Month, Day, Timezone, BC); end; -function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer): Boolean; +function xsdTryGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer): Boolean; begin Result := xsdTryParseDate(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; -function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; Index: Integer): Boolean; +function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; Index: Integer): Boolean; begin Result := xsdTryParseTime(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer): Boolean; +function xsdTryGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer): Boolean; begin Result := xsdTryParseTime(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; -function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean; Index: Integer): Boolean; +function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean; Index: Integer): Boolean; begin Result := xsdTryParseDateTime(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer): Boolean; +function xsdTryGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer): Boolean; begin Result := xsdTryParseDateTime(xsdTryGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; @@ -2444,7 +723,7 @@ function xsdGetChild(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: Integ begin Result := xsdTryGetChild(node, name, nameSpace, Index); if not Assigned(Result) then - raise XSDException.CreateNode(ChildNotFound, name, nameSpace); + raise XSDException.CreateNode(SChildNotFound, name, nameSpace); end; function xsdGetChildChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr; Index: Integer): xmlCharPtr; @@ -2467,32 +746,32 @@ begin xsdParseBoolean(xsdGetChildChars(node, name, nameSpace, Index), -1, Value); end; -procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean; Index: Integer); +procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean; Index: Integer); begin xsdParseDate(xsdGetChildChars(node, name, nameSpace, Index), -1, Year, Month, Day, Timezone, BC); end; -procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer); +procedure xsdGetChildDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer); begin xsdParseDate(xsdGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; -procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; Index: Integer); +procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; Index: Integer); begin xsdParseTime(xsdGetChildChars(node, name, nameSpace, Index), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer); +procedure xsdGetChildTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer); begin xsdParseTime(xsdGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; -procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean; Index: Integer); +procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean; Index: Integer); begin xsdParseDateTime(xsdGetChildChars(node, name, nameSpace, Index), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone; Index: Integer); +procedure xsdGetChildDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone; Index: Integer); begin xsdParseDateTime(xsdGetChildChars(node, name, nameSpace, Index), -1, Value, Timezone); end; @@ -2596,32 +875,32 @@ begin Result := xsdTryParseBoolean(xsdTryNextChars(node, name, nameSpace), -1, Value); end; -function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; +function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; begin Result := xsdTryParseDate(xsdTryNextChars(node, name, nameSpace), -1, Year, Month, Day, Timezone, BC); end; -function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseDate(xsdTryNextChars(node, name, nameSpace), -1, Value, Timezone); end; -function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): Boolean; +function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseTime(xsdTryNextChars(node, name, nameSpace), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseTime(xsdTryNextChars(node, name, nameSpace), -1, Value, Timezone); end; -function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; +function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; begin Result := xsdTryParseDateTime(xsdTryNextChars(node, name, nameSpace), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseDateTime(xsdTryNextChars(node, name, nameSpace), -1, Value, Timezone); end; @@ -2690,7 +969,7 @@ function xsdNext(var node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlNodePtr; begin Result := xsdTryNext(node, name, nameSpace); if not Assigned(Result) then - raise XSDException.CreateNode(ChildNotFound, name, nameSpace); + raise XSDException.CreateNode(SChildNotFound, name, nameSpace); end; function xsdNextChars(var node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCharPtr; @@ -2713,32 +992,32 @@ begin xsdParseBoolean(xsdNextChars(node, name, nameSpace), -1, Value); end; -procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean); +procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean); begin xsdParseDate(xsdNextChars(node, name, nameSpace), -1, Year, Month, Day, Timezone, BC); end; -procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdNextDate(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseDate(xsdNextChars(node, name, nameSpace), -1, Value, Timezone); end; -procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone); +procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone); begin xsdParseTime(xsdNextChars(node, name, nameSpace), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdNextTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseTime(xsdNextChars(node, name, nameSpace), -1, Value, Timezone); end; -procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean); +procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean); begin xsdParseDateTime(xsdNextChars(node, name, nameSpace), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdNextDateTime(var node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseDateTime(xsdNextChars(node, name, nameSpace), -1, Value, Timezone); end; @@ -2852,32 +1131,32 @@ begin Result := xsdTryParseBoolean(xsdTryGetPropChars(node, name, nameSpace), -1, Value); end; -function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; +function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; begin Result := xsdTryParseDate(xsdTryGetPropChars(node, name, nameSpace), -1, Year, Month, Day, Timezone, BC); end; -function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseDate(xsdTryGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; -function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone): Boolean; +function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseTime(xsdTryGetPropChars(node, name, nameSpace), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseTime(xsdTryGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; -function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean): Boolean; +function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; begin Result := xsdTryParseDateTime(xsdTryGetPropChars(node, name, nameSpace), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone): Boolean; +function xsdTryGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; begin Result := xsdTryParseDateTime(xsdTryGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; @@ -2946,7 +1225,7 @@ function xsdGetProp(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlAttrPtr; begin Result := xsdTryGetProp(node, name, nameSpace); if not Assigned(Result) then - raise XSDException.CreateNode(PropNotFound, name, nameSpace); + raise XSDException.CreateNode(SPropNotFound, name, nameSpace); end; function xsdGetPropChars(node: xmlNodePtr; name, nameSpace: xmlCharPtr): xmlCharPtr; @@ -2964,32 +1243,32 @@ begin xsdParseBoolean(xsdGetPropChars(node, name, nameSpace), -1, Value); end; -procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PTimezone; BC: PBoolean); +procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean); begin xsdParseDate(xsdGetPropChars(node, name, nameSpace), -1, Year, Month, Day, Timezone, BC); end; -procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdGetPropDate(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseDate(xsdGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; -procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone); +procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone); begin xsdParseTime(xsdGetPropChars(node, name, nameSpace), -1, Hour, Minute, Second, Milliseconds, Timezone); end; -procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdGetPropTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseTime(xsdGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; -procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PTimezone; BC: PBoolean); +procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean); begin xsdParseDateTime(xsdGetPropChars(node, name, nameSpace), -1, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC); end; -procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PTimezone); +procedure xsdGetPropDateTime(node: xmlNodePtr; name, nameSpace: xmlCharPtr; out Value: TDateTime; Timezone: PXsdTimezone); begin xsdParseDateTime(xsdGetPropChars(node, name, nameSpace), -1, Value, Timezone); end; diff --git a/packages/libxml/src/xmlxsdparser.pas b/packages/libxml/src/xmlxsdparser.pas new file mode 100644 index 0000000000..4e7b803975 --- /dev/null +++ b/packages/libxml/src/xmlxsdparser.pas @@ -0,0 +1,1752 @@ +{ + Parser functions to parser xml xsd types + See: http://books.xmlschemata.org/relaxng/relax-CHP-19.html + + Copyright (C) 2011 by Ivo Steinmann +} + +unit xmlxsdparser; + +{$mode objfpc} +{$H+} + +interface + +uses + sysutils, + dateutils, + math, + Classes; + +resourcestring + SXsdParserError = 'parsing "%s" as "%s" failed'; + +type + TXsdTimezoneType = ( + tzUnknown, + tzUTC, + tzUser + ); + + PXsdTimezone = ^TXsdTimezone; + TXsdTimezone = record + Kind : TXsdTimezoneType; + Hour : Longint; // +/- [00..23] + Minute : Longword; // [00..59] + Convert: Boolean; // you have to initialize this field allways!!! + end; + +const + TIMEZONE_UTC: TXsdTimezone = (Kind:tzUTC;Hour:0;Minute:0;Convert:False); + TIMEZONE_UNKNOWN: TXsdTimezone = (Kind:tzUnknown;Hour:0;Minute:0;Convert:False); + CONVERT_TO_TIMEZONE_UTC: TXsdTimezone = (Kind:tzUTC;Hour:0;Minute:0;Convert:True); + +{ Format functions } +function xsdFormatBase64(Value: TStream): Utf8String; +function xsdFormatBoolean(Value: Boolean; UseWords: Boolean = False): Utf8String; +function xsdFormatDate(Year, Month, Day: Longword; BC: Boolean; Timezone: PXsdTimezone = nil): Utf8String; +function xsdFormatDate(Value: TDateTime; Timezone: PXsdTimezone = nil): Utf8String; +function xsdFormatTime(Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): Utf8String; +function xsdFormatTime(Value: TDateTime; Timezone: PXsdTimezone = nil): Utf8String; +function xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PXsdTimezone = nil): Utf8String; +function xsdFormatDateTime(Value: TDateTime; Timezone: PXsdTimezone): Utf8String; +function xsdFormatDecimal(Value: Extended; Precision: Integer = 4; Digits: Integer = 1): Utf8String; +function xsdFormatDouble(Value: Double): Utf8String; +function xsdFormatFloat(Value: Single): Utf8String; +function xsdFormatByte(Value: Shortint): Utf8String; +function xsdFormatShort(Value: Smallint): Utf8String; +function xsdFormatInt(Value: Longint): Utf8String; +function xsdFormatLong(Value: Int64): Utf8String; +function xsdFormatUnsignedByte(Value: Byte): Utf8String; +function xsdFormatUnsignedShort(Value: Word): Utf8String; +function xsdFormatUnsignedInt(Value: Longword): Utf8String; +function xsdFormatUnsignedLong(Value: QWord): Utf8String; +function xsdFormatEnum(enum: array of Utf8String; Value: Integer): Utf8String; + +{ DateTime functions } +procedure xsdTimeConvertTo(var Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TXsdTimezone); +procedure xsdDateConvertTo(var Year, Month, Day: Longword; const Current, Target: TXsdTimezone); +procedure xsdDateTimeConvertTo(var Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TXsdTimezone); + +{ Parse functions } +function xsdTryParseBase64(Chars: PChar; Len: Integer; const Value: TStream): Boolean; +function xsdTryParseString(Chars: PChar; Len: Integer; out Value: Utf8String): Boolean; +function xsdTryParseStringLower(Chars: PChar; Len: Integer; out Value: Utf8String): Boolean; +function xsdTryParseBoolean(Chars: PChar; Len: Integer; out Value: Boolean): Boolean; +function xsdTryParseDate(Chars: PChar; Len: Integer; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryParseDate(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryParseTime(Chars: PChar; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryParseTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryParseDateTime(Chars: PChar; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil): Boolean; +function xsdTryParseDateTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil): Boolean; +function xsdTryParseDecimal(Chars: PChar; Len: Integer; out Value: Extended): Boolean; +function xsdTryParseDouble(Chars: PChar; Len: Integer; out Value: Double): Boolean; +function xsdTryParseFloat(Chars: PChar; Len: Integer; out Value: Single): Boolean; +function xsdTryParseInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +function xsdTryParseNonNegativeInteger(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +function xsdTryParseNonPositiveInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +function xsdTryParseNegativeInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +function xsdTryParsePositiveInteger(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +function xsdTryParseByte(Chars: PChar; Len: Integer; out Value: Shortint): Boolean; +function xsdTryParseShort(Chars: PChar; Len: Integer; out Value: Smallint): Boolean; +function xsdTryParseInt(Chars: PChar; Len: Integer; out Value: Longint): Boolean; +function xsdTryParseLong(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +function xsdTryParseUnsignedByte(Chars: PChar; Len: Integer; out Value: Byte): Boolean; +function xsdTryParseUnsignedShort(Chars: PChar; Len: Integer; out Value: Word): Boolean; +function xsdTryParseUnsignedInt(Chars: PChar; Len: Integer; out Value: Longword): Boolean; +function xsdTryParseUnsignedLong(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +function xsdTryParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String; out Value: Integer): Boolean; + +function xsdParseStringDef(Chars: PChar; Len: Integer; Default: Utf8String): Utf8String; +function xsdParseStringLowerDef(Chars: PChar; Len: Integer; Default: Utf8String): Utf8String; +function xsdParseBooleanDef(Chars: PChar; Len: Integer; Default: Boolean): Boolean; +function xsdParseDateDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseTimeDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseDateTimeDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseDecimalDef(Chars: PChar; Len: Integer; Default: Extended): Extended; +function xsdParseDoubleDef(Chars: PChar; Len: Integer; Default: Double): Double; +function xsdParseFloatDef(Chars: PChar; Len: Integer; Default: Single): Single; +function xsdParseIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +function xsdParseNonNegativeIntegerDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +function xsdParseNonPositiveIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +function xsdParseNegativeIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +function xsdParsePositiveIntegerDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +function xsdParseByteDef(Chars: PChar; Len: Integer; Default: Shortint): Shortint; +function xsdParseShortDef(Chars: PChar; Len: Integer; Default: Smallint): Smallint; +function xsdParseIntDef(Chars: PChar; Len: Integer; Default: Longint): Longint; +function xsdParseLongDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +function xsdParseUnsignedByteDef(Chars: PChar; Len: Integer; Default: Byte): Byte; +function xsdParseUnsignedShortDef(Chars: PChar; Len: Integer; Default: Word): Word; +function xsdParseUnsignedIntDef(Chars: PChar; Len: Integer; Default: Longword): Longword; +function xsdParseUnsignedLongDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +function xsdParseEnumDef(Chars: PChar; Len: Integer; enum: array of Utf8String; Default: Integer): Integer; + +procedure xsdParseBase64(Chars: PChar; Len: Integer; const Value: TStream); +procedure xsdParseString(Chars: PChar; Len: Integer; out Value: Utf8String); +procedure xsdParseStringLower(Chars: PChar; Len: Integer; out Value: Utf8String); +procedure xsdParseBoolean(Chars: PChar; Len: Integer; out Value: Boolean); +procedure xsdParseDate(Chars: PChar; Len: Integer; out Year, Month, Day: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdParseDate(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdParseTime(Chars: PChar; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil); +procedure xsdParseTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdParseDateTime(Chars: PChar; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone = nil; BC: PBoolean = nil); +procedure xsdParseDateTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone = nil); +procedure xsdParseDecimal(Chars: PChar; Len: Integer; out Value: Extended); +procedure xsdParseDouble(Chars: PChar; Len: Integer; out Value: Double); +procedure xsdParseFloat(Chars: PChar; Len: Integer; out Value: Single); +procedure xsdParseInteger(Chars: PChar; Len: Integer; out Value: Int64); +procedure xsdParseNonNegativeInteger(Chars: PChar; Len: Integer; out Value: QWord); +procedure xsdParseNonPositiveInteger(Chars: PChar; Len: Integer; out Value: Int64); +procedure xsdParseNegativeInteger(Chars: PChar; Len: Integer; out Value: Int64); +procedure xsdParsePositiveInteger(Chars: PChar; Len: Integer; out Value: QWord); +procedure xsdParseByte(Chars: PChar; Len: Integer; out Value: Shortint); +procedure xsdParseShort(Chars: PChar; Len: Integer; out Value: Smallint); +procedure xsdParseInt(Chars: PChar; Len: Integer; out Value: Longint); +procedure xsdParseLong(Chars: PChar; Len: Integer; out Value: Int64); +procedure xsdParseUnsignedByte(Chars: PChar; Len: Integer; out Value: Byte); +procedure xsdParseUnsignedShort(Chars: PChar; Len: Integer; out Value: Word); +procedure xsdParseUnsignedInt(Chars: PChar; Len: Integer; out Value: Longword); +procedure xsdParseUnsignedLong(Chars: PChar; Len: Integer; out Value: QWord); +procedure xsdParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String; out Value: Integer); + +function xsdParseString(Chars: PChar; Len: Integer): Utf8String; +function xsdParseStringLower(Chars: PChar; Len: Integer): Utf8String; +function xsdParseBoolean(Chars: PChar; Len: Integer): Boolean; +function xsdParseDate(Chars: PChar; Len: Integer; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseTime(Chars: PChar; Len: Integer; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseDateTime(Chars: PChar; Len: Integer; Timezone: PXsdTimezone = nil): TDateTime; +function xsdParseDecimal(Chars: PChar; Len: Integer): Extended; +function xsdParseDouble(Chars: PChar; Len: Integer): Double; +function xsdParseFloat(Chars: PChar; Len: Integer): Single; +function xsdParseInteger(Chars: PChar; Len: Integer): Int64; +function xsdParseNonNegativeInteger(Chars: PChar; Len: Integer): QWord; +function xsdParseNonPositiveInteger(Chars: PChar; Len: Integer): Int64; +function xsdParseNegativeInteger(Chars: PChar; Len: Integer): Int64; +function xsdParsePositiveInteger(Chars: PChar; Len: Integer): QWord; +function xsdParseByte(Chars: PChar; Len: Integer): Shortint; +function xsdParseShort(Chars: PChar; Len: Integer): Smallint; +function xsdParseInt(Chars: PChar; Len: Integer): Longint; +function xsdParseLong(Chars: PChar; Len: Integer): Int64; +function xsdParseUnsignedByte(Chars: PChar; Len: Integer): Byte; +function xsdParseUnsignedShort(Chars: PChar; Len: Integer): Word; +function xsdParseUnsignedInt(Chars: PChar; Len: Integer): Longword; +function xsdParseUnsignedLong(Chars: PChar; Len: Integer): QWord; +function xsdParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String): Integer; + +implementation + +const + IGNORE_LAST = Pointer(-1); + +function xsdFormatBase64(Value: TStream): Utf8String; +const + Base64: array[0..63] of char = ( + 'A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P', + 'Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f', + 'g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v', + 'w','x','y','z','0','1','2','3','4','5','6','7','8','9','+','/' + ); + BufferSize = 3*512; { buffer size must be a multiple of 3 } +var + Buffer: array[0..BufferSize-1] of Byte; + Num, Ofs: Integer; + b1, b2, b3: Byte; +begin + Result := ''; + while True do + begin + Num := Value.Read(Buffer, BufferSize); + if Num = 0 then + Exit; + + Ofs := 0; + while Num >= 3 do + begin + b1 := Buffer[Ofs]; + b2 := Buffer[Ofs+1]; + b3 := Buffer[Ofs+2]; + + Result := Result + + Base64[b1 shr 2] + + Base64[((b1 and $3) shl 4) or (b2 shr 4)] + + Base64[((b2 and $F) shl 2) or (b3 shr 6)] + + Base64[b3 and $3F]; + + Num := Num - 3; + Ofs := Ofs + 3; + end; + + case Num of + 1: begin + b1 := Buffer[Ofs]; + + Result := Result + + Base64[b1 shr 2] + + Base64[((b1 and $3) shl 4)] + + '=='; + + Exit; + end; + + 2: begin + b1 := Buffer[Ofs]; + b2 := Buffer[Ofs+1]; + + Result := Result + + Base64[b1 shr 2] + + Base64[((b1 and $3) shl 4) or (b2 shr 4)] + + Base64[((b2 and $F) shl 2)] + + '='; + + Exit; + end; + end; + end; +end; + +function xsdFormatBoolean(Value: Boolean; UseWords: Boolean): Utf8String; +begin + if UseWords then + if Value then + Result := 'true' + else + Result := 'false' + else + if Value then + Result := '1' + else + Result := '0'; +end; + +function xsdFormatDate(Year, Month, Day: Longword; BC: Boolean; Timezone: PXsdTimezone): Utf8String; +begin + Result := Format('%4.4d-%2.2u-%2.2u', [Year, Month, Day]); + if BC then + Result := '-' + Result; + + if Assigned(Timezone) then + case Timezone^.Kind of + tzUTC: + Result := Result + 'Z'; + tzUser: + begin + if Timezone^.Hour >= 0 then + Result := Result + '+' + else + Result := Result + '-'; + Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); + end; + end; +end; + +function xsdFormatDate(Value: TDateTime; Timezone: PXsdTimezone): Utf8String; +var + Year, Month, Day: Word; +begin + DecodeDate(Value, Year, Month, Day); + Result := xsdFormatDate(Year, Month, Day, False, Timezone); +end; + +function xsdFormatTime(Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): Utf8String; +begin + Result := Format('%2.2u:%2.2u:%2.2u', [Hour, Minute, Second]); + if Milliseconds > 0 then + Result := Result + '.' + IntToStr(Milliseconds); + + if Assigned(Timezone) then + case Timezone^.Kind of + tzUTC: + Result := Result + 'Z'; + tzUser: + begin + if Timezone^.Hour >= 0 then + Result := Result + '+' + else + Result := Result + '-'; + Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); + end; + end; +end; + +function xsdFormatTime(Value: TDateTime; Timezone: PXsdTimezone): Utf8String; +var + Hour, Minute, Second, Milliseconds: Word; +begin + DecodeTime(Value, Hour, Minute, Second, Milliseconds); + Result := xsdFormatTime(Hour, Minute, Second, Milliseconds, Timezone); +end; + +function xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; BC: Boolean; Timezone: PXsdTimezone): Utf8String; +begin + Result := xsdFormatDate(Year, Month, Day, BC, nil) + 'T' + xsdFormatTime(Hour, Minute, Second, Milliseconds, Timezone); +end; + +function xsdFormatDateTime(Value: TDateTime; Timezone: PXsdTimezone): Utf8String; +var + Year, Month, Day, Hour, Minute, Second, Milliseconds: Word; +begin + DecodeDateTime(Value, Year, Month, Day, Hour, Minute, Second, Milliseconds); + Result := xsdFormatDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds, False, Timezone); +end; + +function xsdFormatDecimal(Value: Extended; Precision: Integer; Digits: Integer): Utf8String; +begin + Result := FloatToStrF(Value, ffFixed, Precision, Digits); +end; + +function xsdFormatDouble(Value: Double): Utf8String; +begin + Result := FloatToStr(Value); +end; + +function xsdFormatFloat(Value: Single): Utf8String; +begin + Result := FloatToStr(Value); +end; + +function xsdFormatByte(Value: Shortint): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatShort(Value: Smallint): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatInt(Value: Integer): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatLong(Value: Int64): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatUnsignedByte(Value: Byte): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatUnsignedShort(Value: Word): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatUnsignedInt(Value: Longword): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatUnsignedLong(Value: QWord): Utf8String; +begin + Result := IntToStr(Value); +end; + +function xsdFormatEnum(enum: array of Utf8String; Value: Integer): Utf8String; +begin + Result := enum[Value]; +end; + +procedure xsdTimeConvertTo(var Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TXsdTimezone); +begin + {$warning xsdTimeConvertTo: not implemented} +end; + +procedure xsdDateConvertTo(var Year, Month, Day: Longword; const Current, Target: TXsdTimezone); +begin + {$warning xsdDateConvertTo: not implemented} +end; + +procedure xsdDateTimeConvertTo(var Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; const Current, Target: TXsdTimezone); +begin + {$warning xsdDateTimeConvertTo: not implemented} +end; + +function __parseNonNegativeInteger(var P: PChar; const L: PChar; out Value: QWord): Boolean; +begin + { expect integer } + Value := 0; + while (P < L) and (P^ in ['0'..'9']) do + begin + Value := 10*Value + Ord(P^) - Ord('0'); + Inc(P); + end; + + Result := True; +end; + +function __parseInteger(var P: PChar; const L: PChar; out Value: Int64): Boolean; +var + N: Boolean; +begin + { allow '-' } + N := (P < L) and (P^ = '-'); + if N then + Inc(P); + + { expect integer } + Value := 0; + while (P < L) and (P^ in ['0'..'9']) do + begin + Value := 10*Value + Ord(P^) - Ord('0'); + Inc(P); + end; + if N then + Value := -Value; + + Result := True; +end; + +function __parseFloat(var P: PChar; const L: PChar; out Value: Extended): Boolean; +var + N: Boolean; + Exp: Int64; + Int: QWord; +begin + { allow 'Nan' } + if (P+2 < L) and ((P^ = 'N') or (P^ = 'n')) then + begin + Inc(P); + if (P^ <> 'A') and (P^ <> 'a') then Exit(False); + Inc(P); + if (P^ <> 'N') and (P^ <> 'n') then Exit(False); + Inc(P); + Value := Nan; + Result := True; + Exit; + end; + + { allow '-' } + N := (P < L) and (P^ = '-'); + if N then + Inc(P); + + { allow 'Inf' } + if (P+2 < L) and ((P^ = 'I') or (P^ = 'i')) then + begin + Inc(P); + if (P^ <> 'N') and (P^ <> 'n') then Exit(False); + Inc(P); + if (P^ <> 'F') and (P^ <> 'f') then Exit(False); + Inc(P); + if N then + Value := NegInfinity + else + Value := Infinity; + Result := True; + Exit; + end; + + { expect integer } + Int := 0; + while (P < L) and (P^ in ['0'..'9']) do + begin + Int := 10*Int + Ord(P^) - Ord('0'); + Inc(P); + end; + Value := Int; + + { allow '.' } + if (P < L) and (P^ = '.') then + begin + Inc(P); + + { expect integer } + Exp := 1; + Int := 0; + while (P < L) and (P^ in ['0'..'9']) do + begin + Int := 10*Int + Ord(P^) - Ord('0'); + Exp := 10*Exp; + Inc(P); + end; + Value := Value + Int / Exp; + end; + + { allow 'E' or 'e' } + if (P < L) and ((P^ = 'E') or (P^ = 'e')) then + begin + Inc(P); + + { expect integer } + if not __parseInteger(P, L, Exp) then + Exit(False); + + while Exp > 0 do + begin + Value := Value * 10; + Dec(Exp); + end; + + while Exp < 0 do + begin + Value := Value * 0.1; + Inc(Exp); + end; + end; + + if N then + Value := -Value; + + Result := True; +end; + +function __parseTimezone(var P: PChar; const L: PChar; out T: TXsdTimezone): Boolean; +var + I: Integer; + N: Boolean; +begin + { allow 'Z' } + if (P < L) and (P^ = 'Z') then + begin + T.Kind := tzUTC; + T.Hour := 0; + T.Minute := 0; + Inc(P); + end else + + { allow '+' or '-' } + if (P < L) and (P^ in ['+','-']) then + begin + N := P^ = '-'; + Inc(P); + + { expect 00..13 } + T.Hour := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + T.Hour := 10*T.Hour + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if T.Hour > 13 then + Exit(False); + if N then + T.Hour := -T.Hour; + + { expect ':' } + if (P >= L) or (P^ <> ':') then + Exit(False); + Inc(P); + + { expect 00..59 } + T.Minute := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + T.Minute := 10*T.Minute + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if T.Minute > 59 then + Exit(False); + end else + + { unknown } + begin + T.Kind := tzUnknown; + T.Hour := 0; + T.Minute := 0; + end; + + Result := True; +end; + +function __parseDate(var P: PChar; const L: PChar; out Year, Month, Day: Longword; BC: PBoolean): Boolean; +var + I: Integer; +begin + { allow '-' } + if (P < L) and (P^ = '-') then + begin + if Assigned(BC) then + BC^ := True + else + Exit(False); + Inc(P); + end else + if Assigned(BC) then + BC^ := False; + + { expect Integer } + Year := 0; + while (P < L) and (P^ in ['0'..'9']) do + begin + Year := 10*Year + Ord(P^) - Ord('0'); + Inc(P); + end; + + { expect '-' } + if (P >= L) or (P^ <> '-') then + Exit(False); + Inc(P); + + { expect 01..12 } + Month := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Month := 10*Month + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if (Month < 1) or (Month > 12) then + Exit(False); + + { expect '-' } + if (P >= L) or (P^ <> '-') then + Exit(False); + Inc(P); + + { expect 01..31 } + Day := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Day := 10*Day + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if (Day < 1) or (Day > 31) then + Exit(False); + + Result := True; +end; + +function __parseTime(var P: PChar; const L: PChar; out Hour, Minute, Second, Milliseconds: Longword): Boolean; +var + I: Integer; +begin + { expect 00..24 } + Hour := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Hour := 10*Hour + Ord(P^) - Ord('0'); + Inc(P); Dec(I); + end; + if Hour > 24 then + Exit(False); + + { expect ':' } + if (P >= L) or (P^ <> ':') then + Exit(False); + Inc(P); + + { expect 00..59 } + Minute := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Minute := 10*Minute + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if (Minute > 59) or ((Hour = 24) and (Minute > 0)) then + Exit(False); + + { expect ':' } + if (P >= L) or (P^ <> ':') then + Exit(False); + Inc(P); + + { expect 00..59 } + Second := 0; I := 2; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Second := 10*Second + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if (Second > 59) or ((Hour = 24) and (Second > 0)) then + Exit(False); + + { allow '.' } + if (P < L) and (P^ = '.') then + begin + Inc(P); + + { expect integer } + Milliseconds := 0; I := 4; + while (P < L) and (P^ in ['0'..'9']) and (I > 0) do + begin + Milliseconds := 10*Milliseconds + Ord(P^) - Ord('0'); + Dec(I); Inc(P); + end; + if (Milliseconds > 999) or ((Hour = 24) and (Milliseconds > 0)) then + Exit(False); + end else + Milliseconds := 0; + + Result := True; +end; + +function xsdTryParseBase64(Chars: PChar; Len: Integer; const Value: TStream): Boolean; +const + BufferSize = 3*512; +var + Buffer: array[0..BufferSize-1] of Byte; + Ofs: Integer; + P,L: PByte; + p1,p2,p3,p4: Shortint; +begin + if Assigned(Chars) then + begin + Ofs := 0; + + P := PByte(Chars); + if Len >= 0 then + begin + if Len mod 4 <> 0 then + Exit(False); + + L := P + Len; + while P < L do + begin + case Chr(P^) of + 'A'..'Z': p1 := P^ - Ord('A'); + 'a'..'z': p1 := P^ - Ord('a') + 26; + '0'..'9': p1 := P^ - Ord('0') + 52; + '+' : p1 := 62; + '/' : p1 := 63; + else Exit(False); + end; + Inc(P); + + case Chr(P^) of + 'A'..'Z': p2 := P^ - Ord('A'); + 'a'..'z': p2 := P^ - Ord('a') + 26; + '0'..'9': p2 := P^ - Ord('0') + 52; + '+' : p2 := 62; + '/' : p2 := 63; + else Exit(False); + end; + Inc(P); + + case Chr(P^) of + 'A'..'Z': p3 := P^ - Ord('A'); + 'a'..'z': p3 := P^ - Ord('a') + 26; + '0'..'9': p3 := P^ - Ord('0') + 52; + '+' : p3 := 62; + '/' : p3 := 63; + '=' : p3 := -1; + else Exit(False); + end; + Inc(P); + + if (p3 >= 0) then + begin + case Chr(P^) of + 'A'..'Z': p4 := P^ - Ord('A'); + 'a'..'z': p4 := P^ - Ord('a') + 26; + '0'..'9': p4 := P^ - Ord('0') + 52; + '+' : p4 := 62; + '/' : p4 := 63; + '=' : p4 := -1; + else Exit(False); + end; + end else begin + if P^ <> Ord('=') then + Exit(False); + p4 := -1; + end; + Inc(P); + + Buffer[Ofs] := (p1 shl 2) or (p2 shr 4); + Ofs := Ofs + 1; + + if p3 >= 0 then + begin + Buffer[Ofs] := ((p2 and $F) shl 4) or (p3 shr 2); + Ofs := Ofs + 1; + + if p4 >= 0 then + begin + Buffer[Ofs] := ((p3 and $3) shl 6) or p4; + Ofs := Ofs + 1; + end; + end; + + if Ofs >= BufferSize-2 then + begin + Value.Write(Buffer, Ofs); + Ofs := 0; + end; + end; + end else begin + while P^ <> 0 do + begin + case Chr(P^) of + 'A'..'Z': p1 := P^ - Ord('A'); + 'a'..'z': p1 := P^ - Ord('a') + 26; + '0'..'9': p1 := P^ - Ord('0') + 52; + '+' : p1 := 62; + '/' : p1 := 63; + else Exit(False); + end; + Inc(P); + + case Chr(P^) of + 'A'..'Z': p2 := P^ - Ord('A'); + 'a'..'z': p2 := P^ - Ord('a') + 26; + '0'..'9': p2 := P^ - Ord('0') + 52; + '+' : p2 := 62; + '/' : p2 := 63; + else Exit(False); + end; + Inc(P); + + case Chr(P^) of + 'A'..'Z': p3 := P^ - Ord('A'); + 'a'..'z': p3 := P^ - Ord('a') + 26; + '0'..'9': p3 := P^ - Ord('0') + 52; + '+' : p3 := 62; + '/' : p3 := 63; + '=' : p3 := -1; + else Exit(False); + end; + Inc(P); + + if (p3 >= 0) then + begin + case Chr(P^) of + 'A'..'Z': p4 := P^ - Ord('A'); + 'a'..'z': p4 := P^ - Ord('a') + 26; + '0'..'9': p4 := P^ - Ord('0') + 52; + '+' : p4 := 62; + '/' : p4 := 63; + '=' : p4 := -1; + else Exit(False); + end; + end else begin + if P^ <> Ord('=') then + Exit(False); + p4 := -1; + end; + Inc(P); + + Buffer[Ofs] := (p1 shl 2) or (p2 shr 4); + Ofs := Ofs + 1; + + if p3 >= 0 then + begin + Buffer[Ofs] := ((p2 and $F) shl 4) or (p3 shr 2); + Ofs := Ofs + 1; + + if p4 >= 0 then + begin + Buffer[Ofs] := ((p3 and $3) shl 6) or p4; + Ofs := Ofs + 1; + end; + end; + + if Ofs >= BufferSize-2 then + begin + Value.Write(Buffer, Ofs); + Ofs := 0; + end; + end; + end; + + if Ofs > 0 then // flush + Value.Write(Buffer, Ofs); + + Result := True; + end else + Result := False; +end; + +function xsdTryParseString(Chars: PChar; Len: Integer; out Value: Utf8String): Boolean; +const + AllocChars = 256; +var + P,L,D: PByte; +begin + if Assigned(Chars) then + begin + P := PByte(Chars); + if Len >= 0 then + begin + L := P + Len; + SetLength(Value, Len); + D := @Value[1]; + while P < L do + begin + D^ := P^; + Inc(D); + Inc(P); + end; + end else begin + SetLength(Value, AllocChars); + D := @Value[1]; + L := D + AllocChars; + while P^ <> 0 do + begin + if D = L then + begin + Len := Length(Value); + SetLength(Value, Len+AllocChars); + D := @Value[Len+1]; + L := D + AllocChars; + end; + D^ := P^; + Inc(D); + Inc(P); + end; + SetLength(Value, P-PByte(Chars)); + end; + Result := True; + end else + Result := False; +end; +{begin + if Assigned(Chars) then + begin + if Len >= 0 then + begin + SetLength(Value, Len); + Move(Chars^, Value[1], Len); + end else + Value := PChar(Chars); + Result := True; + end else + Result := False; +end;} + +function xsdTryParseStringLower(Chars: PChar; Len: Integer; out Value: Utf8String): Boolean; +const + AllocChars = 256; +var + P,L,D: PByte; + C: Byte; +begin + if Assigned(Chars) then + begin + P := PByte(Chars); + if Len >= 0 then + begin + L := P + Len; + SetLength(Value, Len); + D := @Value[1]; + while P < L do + begin + C := P^; + if (C>=65) and (C<=90) then Inc(C, 32); + D^ := C; + Inc(D); + Inc(P); + end; + end else begin + SetLength(Value, AllocChars); + D := @Value[1]; + L := D + AllocChars; + while P^ <> 0 do + begin + C := P^; + if (C>=65) and (C<=90) then Inc(C, 32); + if D = L then + begin + Len := Length(Value); + SetLength(Value, Len+AllocChars); + D := @Value[Len+1]; + L := D + AllocChars; + end; + D^ := C; + Inc(D); + Inc(P); + end; + SetLength(Value, P-PByte(Chars)); + end; + Result := True; + end else + Result := False; +end; + +function __strpas(Chars: PChar; Len: Integer): Utf8String; +begin + if not xsdTryParseString(Chars, Len, Result) then + Result := ''; +end; + +function xsdTryParseBoolean(Chars: PChar; Len: Integer; out Value: Boolean): Boolean; +var + P: PChar; + Num: QWord; +begin + if not Assigned(Chars) then + Exit(False); + + if Len < 0 then + begin + P := PChar(Chars); + Len := 0; + while (Len < 7) and (P^ <> #0) do + begin + Inc(Len); + Inc(P); + end; + end; + + case Len of + 1: Num := PByte(Chars)^; + 4: Num := PLongword(Chars)^; + 5: Num := PLongword(Chars)^ or (QWord(Chars[4]) shl 32); + else Exit(False); + end; + + case Num of + $30, + $65736C6166,$65736C6146,$65736C4166,$65736C4146,$65734C6166,$65734C6146,$65734C4166,$65734C4146, + $65536C6166,$65536C6146,$65536C4166,$65536C4146,$65534C6166,$65534C6146,$65534C4166,$65534C4146, + $45736C6166,$45736C6146,$45736C4166,$45736C4146,$45734C6166,$45734C6146,$45734C4166,$45734C4146, + $45536C6166,$45536C6146,$45536C4166,$45536C4146,$45534C6166,$45534C6146,$45534C4166,$45534C4146: + Value := False; + $31, + $65757274,$65757254,$65755274,$65755254,$65557274,$65557254,$65555274,$65555254, + $45757274,$45757254,$45755274,$45755254,$45557274,$45557254,$45555274,$45555254: + Value := True; + else Exit(False); + end; + + Result := True; +end; + +function xsdTryParseDate(Chars: PChar; Len: Integer; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; +var + P: PChar; + L: PChar; + T: TXsdTimezone; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and + __parseDate(P, L, Year, Month, Day, BC) and + __parseTimezone(P, L, T) and (P = L) + end else + Result := Assigned(P) and + __parseDate(P, IGNORE_LAST, Year, Month, Day, BC) and + __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); + + { assign Timezone if requested } + if Result and Assigned(Timezone) then + begin + if Timezone^.Convert then + xsdDateConvertTo(Year, Month, Day, T, Timezone^) + else + Timezone^ := T; + end; +end; + +function xsdTryParseDate(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; +var + Year, Month, Day: Longword; +begin + if xsdTryParseDate(Chars, Len, Year, Month, Day, Timezone, nil) then + Result := TryEncodeDate(Year, Month, Day, Value) + else + Result := False; +end; + +function xsdTryParseTime(Chars: PChar; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone): Boolean; +var + P: PChar; + L: PChar; + T: TXsdTimezone; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and + __parseTime(P, L, Hour, Minute, Second, Milliseconds) and + __parseTimezone(P, L, T) and (P = L) + end else + Result := Assigned(P) and + __parseTime(P, IGNORE_LAST, Hour, Minute, Second, Milliseconds) and + __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); + + { assign Timezone if requested } + if Result and Assigned(Timezone) then + begin + if Timezone^.Convert then + xsdTimeConvertTo(Hour, Minute, Second, Milliseconds, T, Timezone^) + else + Timezone^ := T; + end; +end; + +function xsdTryParseTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; +var + Hour, Minute, Second, Milliseconds: Longword; +begin + if xsdTryParseTime(Chars, Len, Hour, Minute, Second, Milliseconds, Timezone) then + Result := TryEncodeTime(Hour, Minute, Second, Milliseconds, Value) + else + Result := False; +end; + +function xsdTryParseDateTime(Chars: PChar; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean): Boolean; + + function __parseT(var P: PChar; const L: PChar): Boolean; + begin + Result := (P < L) and (P^ = 'T'); + if Result then Inc(P); + end; + +var + P: PChar; + L: PChar; + T: TXsdTimezone; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and + __parseDate(P, L, Year, Month, Day, BC) and + __parseT(P, L) and + __parseTime(P, L, Hour, Minute, Second, Milliseconds) and + __parseTimezone(P, L, T) and (P = L) + end else + Result := Assigned(P) and + __parseDate(P, IGNORE_LAST, Year, Month, Day, BC) and + __parseT(P, IGNORE_LAST) and + __parseTime(P, IGNORE_LAST, Hour, Minute, Second, Milliseconds) and + __parseTimezone(P, IGNORE_LAST, T) and (P^ = #0); + + { assign Timezone if requested } + if Result and Assigned(Timezone) then + begin + if Timezone^.Convert then + xsdDateTimeConvertTo(Year, Month, Day, Hour, Minute, Second, Milliseconds, T, Timezone^) + else + Timezone^ := T; + end; +end; + +function xsdTryParseDateTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone): Boolean; +var + Year, Month, Day: Longword; + Hour, Minute, Second, Milliseconds: Longword; +begin + if xsdTryParseDateTime(Chars, Len, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone) then + Result := TryEncodeDateTime(Year, Month, Day, Hour, Minute, Second, Milliseconds, Value) + else + Result := False; +end; + +function xsdTryParseDecimal(Chars: PChar; Len: Integer; out Value: Extended): Boolean; +var + P: PChar; + L: PChar; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and __parseFloat(P, L, Value) and (P = L) + end else + Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Value) and (P^ = #0); +end; + +function xsdTryParseDouble(Chars: PChar; Len: Integer; out Value: Double): Boolean; +var + P: PChar; + L: PChar; + Tmp: Extended; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and __parseFloat(P, L, Tmp) and (P = L) + end else + Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Tmp) and (P^ = #0); + Value := Tmp; +end; + +function xsdTryParseFloat(Chars: PChar; Len: Integer; out Value: Single): Boolean; +var + P: PChar; + L: PChar; + Tmp: Extended; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and __parseFloat(P, L, Tmp) and (P = L) + end else + Result := Assigned(P) and __parseFloat(P, IGNORE_LAST, Tmp) and (P^ = #0); + Value := Tmp; +end; + +function xsdTryParseInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +var + P: PChar; + L: PChar; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and __parseInteger(P, L, Value) and (P = L) + end else + Result := Assigned(P) and __parseInteger(P, IGNORE_LAST, Value) and (P^ = #0); +end; + +function xsdTryParseNonNegativeInteger(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +var + P: PChar; + L: PChar; +begin + P := PChar(Chars); + if Len >= 0 then + begin + L := P + Len; + Result := Assigned(P) and __parseNonNegativeInteger(P, L, Value) and (P = L) + end else + Result := Assigned(P) and __parseNonNegativeInteger(P, IGNORE_LAST, Value) and (P^ = #0); +end; + +function xsdTryParseNonPositiveInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +begin + Result := xsdTryParseInteger(Chars, Len, Value) and (Value <= 0); +end; + +function xsdTryParseNegativeInteger(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +begin + Result := xsdTryParseInteger(Chars, Len, Value) and (Value <= -1); +end; + +function xsdTryParsePositiveInteger(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +begin + Result := xsdTryParseNonNegativeInteger(Chars, Len, Value) and (Value >= 1); +end; + +function xsdTryParseByte(Chars: PChar; Len: Integer; out Value: Shortint): Boolean; +var + Tmp: Int64; +begin + Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 128) and (Tmp >= -127); + Value := Tmp; +end; + +function xsdTryParseShort(Chars: PChar; Len: Integer; out Value: Smallint): Boolean; +var + Tmp: Int64; +begin + Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 32767) and (Tmp >= -32768); + Value := Tmp; +end; + +function xsdTryParseInt(Chars: PChar; Len: Integer; out Value: Longint): Boolean; +var + Tmp: Int64; +begin + Result := xsdTryParseInteger(Chars, Len, Tmp) and (Tmp <= 2147483647) and (Tmp >= -2147483648); + Value := Tmp; +end; + +function xsdTryParseLong(Chars: PChar; Len: Integer; out Value: Int64): Boolean; +begin + Result := xsdTryParseInteger(Chars, Len, Value); +end; + +function xsdTryParseUnsignedByte(Chars: PChar; Len: Integer; out Value: Byte): Boolean; +var + Tmp: QWord; +begin + Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 255); + Value := Tmp; +end; + +function xsdTryParseUnsignedShort(Chars: PChar; Len: Integer; out Value: Word): Boolean; +var + Tmp: QWord; +begin + Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 65535); + Value := Tmp; +end; + +function xsdTryParseUnsignedInt(Chars: PChar; Len: Integer; out Value: Longword): Boolean; +var + Tmp: QWord; +begin + Result := xsdTryParseNonNegativeInteger(Chars, Len, Tmp) and (Tmp <= 4294967295); + Value := Tmp; +end; + +function xsdTryParseUnsignedLong(Chars: PChar; Len: Integer; out Value: QWord): Boolean; +begin + Result := xsdTryParseNonNegativeInteger(Chars, Len, Value) +end; + +function xsdTryParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String; out Value: Integer): Boolean; +var + Temp: Utf8String; + I: Integer; +begin + Temp := ''; + Result := xsdTryParseString(Chars, Len, Temp); + if Result then + begin + for I := 0 to High(enum) do + if Temp = enum[I] then + begin + Value := I; + Exit(True); + end; + Result := False; + end; +end; + +function xsdParseStringDef(Chars: PChar; Len: Integer; Default: Utf8String): Utf8String; +begin + if not xsdTryParseString(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseStringLowerDef(Chars: PChar; Len: Integer; Default: Utf8String): Utf8String; +begin + if not xsdTryParseStringLower(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseBooleanDef(Chars: PChar; Len: Integer; Default: Boolean): Boolean; +begin + if not xsdTryParseBoolean(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseDateDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone): TDateTime; +begin + if not xsdTryParseDate(Chars, Len, Result, Timezone) then + Result := Default; +end; + +function xsdParseTimeDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone): TDateTime; +begin + if not xsdTryParseTime(Chars, Len, Result, Timezone) then + Result := Default; +end; + +function xsdParseDateTimeDef(Chars: PChar; Len: Integer; Default: TDateTime; Timezone: PXsdTimezone): TDateTime; +begin + if not xsdTryParseDateTime(Chars, Len, Result, Timezone) then + Result := Default; +end; + +function xsdParseDecimalDef(Chars: PChar; Len: Integer; Default: Extended): Extended; +begin + if not xsdTryParseDecimal(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseDoubleDef(Chars: PChar; Len: Integer; Default: Double): Double; +begin + if not xsdTryParseDouble(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseFloatDef(Chars: PChar; Len: Integer; Default: Single): Single; +begin + if not xsdTryParseFloat(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +begin + if not xsdTryParseInteger(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseNonNegativeIntegerDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +begin + if not xsdTryParseNonNegativeInteger(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseNonPositiveIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +begin + if not xsdTryParseNonPositiveInteger(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseNegativeIntegerDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +begin + if not xsdTryParseNegativeInteger(Chars, Len, Result) then + Result := Default; +end; + +function xsdParsePositiveIntegerDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +begin + if not xsdTryParsePositiveInteger(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseByteDef(Chars: PChar; Len: Integer; Default: Shortint): Shortint; +begin + if not xsdTryParseByte(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseShortDef(Chars: PChar; Len: Integer; Default: Smallint): Smallint; +begin + if not xsdTryParseShort(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseIntDef(Chars: PChar; Len: Integer; Default: Longint): Longint; +begin + if not xsdTryParseInt(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseLongDef(Chars: PChar; Len: Integer; Default: Int64): Int64; +begin + if not xsdTryParseLong(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseUnsignedByteDef(Chars: PChar; Len: Integer; Default: Byte): Byte; +begin + if not xsdTryParseUnsignedByte(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseUnsignedShortDef(Chars: PChar; Len: Integer; Default: Word): Word; +begin + if not xsdTryParseUnsignedShort(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseUnsignedIntDef(Chars: PChar; Len: Integer; Default: Longword): Longword; +begin + if not xsdTryParseUnsignedInt(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseUnsignedLongDef(Chars: PChar; Len: Integer; Default: QWord): QWord; +begin + if not xsdTryParseUnsignedLong(Chars, Len, Result) then + Result := Default; +end; + +function xsdParseEnumDef(Chars: PChar; Len: Integer; enum: array of Utf8String; Default: Integer): Integer; +begin + if not xsdTryParseEnum(Chars, Len, enum, Result) then + Result := Default; +end; + +procedure xsdParseBase64(Chars: PChar; Len: Integer; const Value: TStream); +begin + if not xsdTryParseBase64(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:base64Binary']); +end; + +procedure xsdParseString(Chars: PChar; Len: Integer; out Value: Utf8String); +begin + if not xsdTryParseString(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:string']); +end; + +procedure xsdParseStringLower(Chars: PChar; Len: Integer; out Value: Utf8String); +begin + if not xsdTryParseStringLower(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:string']); +end; + +procedure xsdParseBoolean(Chars: PChar; Len: Integer; out Value: Boolean); +begin + if not xsdTryParseBoolean(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:boolean']); +end; + +procedure xsdParseDate(Chars: PChar; Len: Integer; out Year, Month, Day: Longword; Timezone: PXsdTimezone; BC: PBoolean); +begin + if not xsdTryParseDate(Chars, Len, Year, Month, Day, Timezone, BC) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:date']); +end; + +procedure xsdParseDate(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone); +begin + if not xsdTryParseDate(Chars, Len, Value, Timezone) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:date']); +end; + +procedure xsdParseTime(Chars: PChar; Len: Integer; out Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone); +begin + if not xsdTryParseTime(Chars, Len, Hour, Minute, Second, Milliseconds, Timezone) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:time']); +end; + +procedure xsdParseTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone); +begin + if not xsdTryParseTime(Chars, Len, Value, Timezone) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:time']); +end; + +procedure xsdParseDateTime(Chars: PChar; Len: Integer; out Year, Month, Day, Hour, Minute, Second, Milliseconds: Longword; Timezone: PXsdTimezone; BC: PBoolean); +begin + if not xsdTryParseDateTime(Chars, Len, Year, Month, Day, Hour, Minute, Second, Milliseconds, Timezone, BC) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:dateTime']); +end; + +procedure xsdParseDateTime(Chars: PChar; Len: Integer; out Value: TDateTime; Timezone: PXsdTimezone); +begin + if not xsdTryParseDateTime(Chars, Len, Value, Timezone) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:dateTime']); +end; + +procedure xsdParseDecimal(Chars: PChar; Len: Integer; out Value: Extended); +begin + if not xsdTryParseDecimal(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:decimal']); +end; + +procedure xsdParseDouble(Chars: PChar; Len: Integer; out Value: Double); +begin + if not xsdTryParseDouble(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:double']); +end; + +procedure xsdParseFloat(Chars: PChar; Len: Integer; out Value: Single); +begin + if not xsdTryParseFloat(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:float']); +end; + +procedure xsdParseInteger(Chars: PChar; Len: Integer; out Value: Int64); +begin + if not xsdTryParseInteger(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:integer']); +end; + +procedure xsdParseNonNegativeInteger(Chars: PChar; Len: Integer; out Value: QWord); +begin + if not xsdTryParseNonNegativeInteger(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:nonNegativeInteger']); +end; + +procedure xsdParseNonPositiveInteger(Chars: PChar; Len: Integer; out Value: Int64); +begin + if not xsdTryParseNonPositiveInteger(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:nonPositiveInteger']); +end; + +procedure xsdParseNegativeInteger(Chars: PChar; Len: Integer; out Value: Int64); +begin + if not xsdTryParseNegativeInteger(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:negativeInteger']); +end; + +procedure xsdParsePositiveInteger(Chars: PChar; Len: Integer; out Value: QWord); +begin + if not xsdTryParsePositiveInteger(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:positiveInteger']); +end; + +procedure xsdParseByte(Chars: PChar; Len: Integer; out Value: Shortint); +begin + if not xsdTryParseByte(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:byte']); +end; + +procedure xsdParseShort(Chars: PChar; Len: Integer; out Value: Smallint); +begin + if not xsdTryParseShort(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:short']); +end; + +procedure xsdParseInt(Chars: PChar; Len: Integer; out Value: Longint); +begin + if not xsdTryParseInt(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:int']); +end; + +procedure xsdParseLong(Chars: PChar; Len: Integer; out Value: Int64); +begin + if not xsdTryParseLong(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:long']); +end; + +procedure xsdParseUnsignedByte(Chars: PChar; Len: Integer; out Value: Byte); +begin + if not xsdTryParseUnsignedByte(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:unsignedByte']); +end; + +procedure xsdParseUnsignedShort(Chars: PChar; Len: Integer; out Value: Word); +begin + if not xsdTryParseUnsignedShort(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:unsignedShort']); +end; + +procedure xsdParseUnsignedInt(Chars: PChar; Len: Integer; out Value: Longword); +begin + if not xsdTryParseUnsignedInt(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:unsignedInt']); +end; + +procedure xsdParseUnsignedLong(Chars: PChar; Len: Integer; out Value: QWord); +begin + if not xsdTryParseUnsignedLong(Chars, Len, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:unsignedLong']); +end; + +procedure xsdParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String; out Value: Integer); +begin + if not xsdTryParseEnum(Chars, Len, enum, Value) then + raise EConvertError.CreateFmt(SXsdParserError, [__strpas(Chars,Len), 'xs:enum']); +end; + +function xsdParseString(Chars: PChar; Len: Integer): Utf8String; +begin + xsdParseString(Chars, Len, Result); +end; + +function xsdParseStringLower(Chars: PChar; Len: Integer): Utf8String; +begin + xsdParseStringLower(Chars, Len, Result); +end; + +function xsdParseBoolean(Chars: PChar; Len: Integer): Boolean; +begin + xsdParseBoolean(Chars, Len, Result); +end; + +function xsdParseDate(Chars: PChar; Len: Integer; Timezone: PXsdTimezone): TDateTime; +begin + xsdParseDate(Chars, Len, Result, Timezone); +end; + +function xsdParseTime(Chars: PChar; Len: Integer; Timezone: PXsdTimezone): TDateTime; +begin + xsdParseTime(Chars, Len, Result, Timezone); +end; + +function xsdParseDateTime(Chars: PChar; Len: Integer; Timezone: PXsdTimezone): TDateTime; +begin + xsdParseDateTime(Chars, Len, Result, Timezone); +end; + +function xsdParseDecimal(Chars: PChar; Len: Integer): Extended; +begin + xsdParseDecimal(Chars, Len, Result); +end; + +function xsdParseDouble(Chars: PChar; Len: Integer): Double; +begin + xsdParseDouble(Chars, Len, Result); +end; + +function xsdParseFloat(Chars: PChar; Len: Integer): Single; +begin + xsdParseFloat(Chars, Len, Result); +end; + +function xsdParseInteger(Chars: PChar; Len: Integer): Int64; +begin + xsdParseInteger(Chars, Len, Result); +end; + +function xsdParseNonNegativeInteger(Chars: PChar; Len: Integer): QWord; +begin + xsdParseNonNegativeInteger(Chars, Len, Result); +end; + +function xsdParseNonPositiveInteger(Chars: PChar; Len: Integer): Int64; +begin + xsdParseNonPositiveInteger(Chars, Len, Result); +end; + +function xsdParseNegativeInteger(Chars: PChar; Len: Integer): Int64; +begin + xsdParseNegativeInteger(Chars, Len, Result); +end; + +function xsdParsePositiveInteger(Chars: PChar; Len: Integer): QWord; +begin + xsdParsePositiveInteger(Chars, Len, Result); +end; + +function xsdParseByte(Chars: PChar; Len: Integer): Shortint; +begin + xsdParseByte(Chars, Len, Result); +end; + +function xsdParseShort(Chars: PChar; Len: Integer): Smallint; +begin + xsdParseShort(Chars, Len, Result); +end; + +function xsdParseInt(Chars: PChar; Len: Integer): Longint; +begin + xsdParseInt(Chars, Len, Result); +end; + +function xsdParseLong(Chars: PChar; Len: Integer): Int64; +begin + xsdParseLong(Chars, Len, Result); +end; + +function xsdParseUnsignedByte(Chars: PChar; Len: Integer): Byte; +begin + xsdParseUnsignedByte(Chars, Len, Result); +end; + +function xsdParseUnsignedShort(Chars: PChar; Len: Integer): Word; +begin + xsdParseUnsignedShort(Chars, Len, Result); +end; + +function xsdParseUnsignedInt(Chars: PChar; Len: Integer): Longword; +begin + xsdParseUnsignedInt(Chars, Len, Result); +end; + +function xsdParseUnsignedLong(Chars: PChar; Len: Integer): QWord; +begin + xsdParseUnsignedLong(Chars, Len, Result); +end; + +function xsdParseEnum(Chars: PChar; Len: Integer; enum: array of Utf8String): Integer; +begin + xsdParseEnum(Chars, Len, enum, Result); +end; + +end. |