开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 2D图形编程 > 查看源码
LibXmlParser.pas
资源名称：asphyre410.rar　[点击查看]
上传用户：ctlcnc
上传日期：2021-12-10
资源大小：4933k
文件大小：101k
源码类别：

2D图形编程

开发平台：

Delphi

LibXmlParser.pas：源码内容
  1. (**
  2. ===============================================================================================
  3. Name    : LibXmlParser
  4. ===============================================================================================
  5. Project : All Projects
  6. ===============================================================================================
  7. Subject : Progressive XML Parser for all types of XML Files
  8. ===============================================================================================
  9. Author  : Stefan Heymann
  10.           Eschenweg 3
  11.           72076 T黚ingen
  12.           GERMANY
  14. E-Mail:   stefan@destructor.de
  15. URL:      www.destructor.de
  16. ===============================================================================================
  17. Source, Legals ("Licence")
  18. --------------------------
  19. The official site to get this parser is http://www.destructor.de/
  21. Usage and Distribution of this Source Code is ruled by the
  22. "Destructor.de Source code Licence" (DSL) which comes with this file or
  23. can be downloaded at http://www.destructor.de/
  25. IN SHORT: Usage and distribution of this source code is free.
  26.           You use it completely on your own risk.
  28. Postcardware
  29. ------------
  30. If you like this code, please send a postcard of your city to my above address.
  31. ===============================================================================================
  32. !!!  All parts of this code which are not finished or not conforming exactly to
  33.      the XmlSpec are marked with three exclamation marks
  35. -!-  Parts where the parser may be able to detect errors in the document's syntax are
  36.      marked with the dash-exlamation mark-dash sequence.
  37. ===============================================================================================
  38. Terminology:
  39. ------------
  40. - Start:   Start of a buffer part
  41. - Final:   End (last character) of a buffer part
  42. - DTD:     Document Type Definition
  43. - DTDc:    Document Type Declaration
  44. - XMLSpec: The current W3C XML Recommendation (version 1.0 as of 1998-02-10), Chapter No.
  45. - Cur*:    Fields concerning the "Current" part passed back by the "Scan" method
  46. ===============================================================================================
  47. Scanning the XML document
  48. -------------------------
  49. - Create TXmlParser Instance                     MyXml := TXmlParser.Create;
  50. - Load XML Document                              MyXml.LoadFromFile (Filename);
  51. - Start Scanning                                 MyXml.StartScan;
  52. - Scan Loop                                      WHILE MyXml.Scan DO
  53. - Test for Part Type                               CASE MyXml.CurPartType OF
  54. - Handle Parts                                       ... : ;;;
  55. - Handle Parts                                       ... : ;;;
  56. - Handle Parts                                       ... : ;;;
  57.                                                      END;
  58. - Destroy                                        MyXml.Free;
  59. ===============================================================================================
  60. Loading the XML document
  61. ------------------------
  62. You can load the XML document from a file with the "LoadFromFile" method.
  63. It is beyond the scope of this parser to perform HTTP or FTP accesses. If you want your
  64. application to handle such requests (URLs), you can load the XML via HTTP or FTP or whatever
  65. protocol and hand over the data buffer using the "LoadFromBuffer" or "SetBuffer" method.
  66. "LoadFromBuffer" loads the internal buffer of TXmlParser with the given null-terminated
  67. string, thereby creating a copy of that buffer.
  68. "SetBuffer" just takes the pointer to another buffer, which means that the given
  69. buffer pointer must be valid while the document is accessed via TXmlParser.
  70. ===============================================================================================
  71. Encodings:
  72. ----------
  73. This XML parser kind of "understands" the following encodings:
  74. - UTF-8
  75. - ISO-8859-1
  76. - Windows-1252
  78. Any flavor of multi-byte characters (and this includes UTF-16) is not supported. Sorry.
  80. Every string which has to be passed to the application passes the virtual method
  81. "TranslateEncoding" which translates the string from the current encoding (stored in
  82. "CurEncoding") into the encoding the application wishes to receive.
  83. The "TranslateEncoding" method that is built into TXmlParser assumes that the application
  84. wants to receive Windows ANSI (Windows-1252, about the same as ISO-8859-1) and is able
  85. to convert UTF-8 and ISO-8859-1 encodings.
  86. For other source and target encodings, you will have to override "TranslateEncoding".
  87. ===============================================================================================
  88. Buffer Handling
  89. ---------------
  90. - The document must be loaded completely into a piece of RAM
  91. - All character positions are referenced by PChar pointers
  92. - The TXmlParser instance can either "own" the buffer itself (then, FBufferSize is > 0)
  93.   or reference the buffer of another instance or object (then, FBuffersize is 0 and
  94.   FBuffer is not NIL)
  95. - The Property DocBuffer passes back a pointer to the first byte of the document. If there
  96.   is no document stored (FBuffer is NIL), the DocBuffer returns a pointer to a NULL character.
  97. ===============================================================================================
  98. Whitespace Handling
  99. -------------------
  100. The TXmlParser property "PackSpaces" determines how Whitespace is returned in Text Content:
  101. While PackSpaces is true, all leading and trailing whitespace characters are trimmed of, all
  102. Whitespace is converted to Space #x20 characters and contiguous Whitespace characters are
  103. compressed to one.
  104. If the "Scan" method reports a ptContent part, the application can get the original text
  105. with all whitespace characters by extracting the characters from "CurStart" to "CurFinal".
  106. If the application detects an xml:space attribute, it can set "PackSpaces" accordingly or
  107. use CurStart/CurFinal.
  108. Please note that TXmlParser does _not_ normalize Line Breaks to single LineFeed characters
  109. as the XmlSpec requires (XmlSpec 2.11).
  110. The xml:space attribute is not handled by TXmlParser. This is on behalf of the application.
  111. ===============================================================================================
  112. Non-XML-Conforming
  113. ------------------
  114. TXmlParser does not conform 100 % exactly to the XmlSpec:
  115. - UTF-16 is not supported (XmlSpec 2.2)
  116.   (Workaround: Convert UTF-16 to UTF-8 and hand the buffer over to TXmlParser)
  117. - As the parser only works with single byte strings, all Unicode characters > 255
  118.   can currently not be handled correctly.
  119. - Line breaks are not normalized to single Linefeed #x0A characters (XmlSpec 2.11)
  120.   (Workaround: The Application can access the text contents on its own [CurStart, CurFinal],
  121.   thereby applying every normalization it wishes to)
  122. - The attribute value normalization does not work exactly as defined in the
  123.   Second Edition of the XML 1.0 specification.
  124. - See also the code parts marked with three consecutive exclamation marks. These are
  125.   parts which are not finished in the current code release.
  127. This list may be incomplete, so it may grow if I get to know any other points.
  128. As work on the parser proceeds, this list may also shrink.
  129. ===============================================================================================
  130. Things Todo
  131. -----------
  132. - Introduce a new event/callback which is called when there is an unresolvable
  133.   entity or character reference
  134. - Support Unicode
  135. - Use Streams instead of reading the whole XML into memory
  136. ===============================================================================================
  137. Change History, Version numbers
  138. -------------------------------
  139. The Date is given in ISO Year-Month-Day (YYYY-MM-DD) order.
  140. Versions are counted from 1.0.0 beginning with the version from 2000-03-16.
  141. Unreleased versions don't get a version number.
  143. Date        Author Version Changes
  144. -----------------------------------------------------------------------------------------------
  145. 2000-03-16  HeySt  1.0.0   Start
  146. 2000-03-28  HeySt  1.0.1   Initial Publishing of TXmlParser on the destructor.de Web Site
  147. 2000-03-30  HeySt  1.0.2   TXmlParser.AnalyzeCData: Call "TranslateEncoding" for CurContent
  148. 2000-03-31  HeySt  1.0.3   Deleted the StrPosE function (was not needed anyway)
  149. 2000-04-04  HeySt  1.0.4   TDtdElementRec modified: Start/Final for all Elements;
  150.                            Should be backwards compatible.
  151.                            AnalyzeDtdc: Set CurPartType to ptDtdc
  152. 2000-04-23  HeySt  1.0.5   New class TObjectList. Eliminated reference to the Delphi 5
  153.                            "Contnrs" unit so LibXmlParser is Delphi 4 compatible.
  154. 2000-07-03  HeySt  1.0.6   TNvpNode: Added Constructor
  155. 2000-07-11  HeySt  1.0.7   Removed "Windows" from USES clause
  156.                            Added three-exclamation-mark comments for Utf8ToAnsi/AnsiToUtf8
  157.                            Added three-exclamation-mark comments for CHR function calls
  158. 2000-07-23  HeySt  1.0.8   TXmlParser.Clear: CurAttr.Clear; EntityStack.Clear;
  159.                            (This was not a bug; just defensive programming)
  160. 2000-07-29  HeySt  1.0.9   TNvpList: Added methods: Node(Index), Value(Index), Name(Index);
  161. 2000-10-07  HeySt          Introduced Conditional Defines
  162.                            Uses Contnrs unit and its TObjectList class again for
  163.                            Delphi 5 and newer versions
  164. 2001-01-30  HeySt          Introduced Version Numbering
  165.                            Made LoadFromFile and LoadFromBuffer BOOLEAN functions
  166.                            Introduced FileMode parameter for LoadFromFile
  167.                            BugFix: TAttrList.Analyze: Must add CWhitespace to ExtractName call
  168.                            Comments worked over
  169. 2001-02-28  HeySt  1.0.10  Completely worked over and tested the UTF-8 functions
  170.                            Fixed a bug in TXmlParser.Scan which caused it to start over when it
  171.                            was called after the end of scanning, resulting in an endless loop
  172.                            TEntityStack is now a TObjectList instead of TList
  173. 2001-07-03  HeySt  1.0.11  Updated Compiler Version IFDEFs for Kylix
  174. 2001-07-11  HeySt  1.0.12  New TCustomXmlScanner component (taken over from LibXmlComps.pas)
  175. 2001-07-14  HeySt  1.0.13  Bugfix TCustomXmlScanner.FOnTranslateEncoding
  176. 2001-10-22  HeySt          Don't clear CurName anymore when the parser finds a CDATA section.
  177. 2001-12-03  HeySt  1.0.14  TObjectList.Clear: Make call to INHERITED method (fixes a memory leak)
  178. 2001-12-05  HeySt  1.0.15  TObjectList.Clear: removed call to INHERITED method
  179.                            TObjectList.Destroy: Inserted SetCapacity call.
  180.                            Reduces need for frequent re-allocation of pointer buffer
  181.                            Dedicated to my father, Theodor Heymann
  182. 2002-06-26  HeySt  1.0.16  TXmlParser.Scan: Fixed a bug with PIs whose name is beginning
  183.                            with 'xml'. Thanks to Uwe Kamm for submitting this bug.
  184.                            The CurEncoding property is now always in uppercase letters (the XML
  185.                            spec wants it to be treated case independently so when it's uppercase
  186.                            comparisons are faster)
  187. 2002-03-04  HeySt  1.0.17  Included an IFDEF for Delphi 7 (VER150) and Kylix
  188.                            There is a new symbol HAS_CONTNRS_UNIT which is used now to
  189.                            distinguish between IDEs which come with the Contnrs unit and
  190.                            those that don't.
  191. *)
  194.  // --- Delphi/Kylix Version Numbers
  195.  //     As this is no code, this does not blow up your object or executable code at all
  196.  (*$IFDEF LINUX *)
  197.  (*$DEFINE K1_OR_NEWER *)
  198.  (*$ENDIF *)
  200.  (*$IFDEF MSWINDOWS *)
  201.  (*$DEFINE D1_OR_NEWER *)
  202.  (*$IFNDEF VER80 *)
  203.  (*$DEFINE D2_OR_NEWER *)
  204.  (*$IFNDEF VER90 *)
  205.  (*$DEFINE D3_OR_NEWER *)
  206.  (*$IFNDEF VER100 *)
  207.  (*$DEFINE D4_OR_NEWER *)
  208.  (*$IFNDEF VER120 *)
  209.  (*$DEFINE D5_OR_NEWER *)
  210.  (*$IFNDEF VER130 *)
  211.  (*$IFNDEF VER140 *)
  212.  (*$IFNDEF VER150 *)
  213. {                       If the compiler gets stuck here,
  214.                        you are using a compiler version unknown to this code.
  215.                        You will probably have to change this code accordingly.
  216.                        At first, try to comment out these lines and see what will happen.}
  217.  (*$ENDIF *)
  218.  (*$ENDIF *)
  219.  (*$ENDIF *)
  220.  (*$ENDIF *)
  221.  (*$ENDIF *)
  222.  (*$ENDIF *)
  223.  (*$ENDIF *)
  224.  (*$ENDIF *)
  226.  (*$IFDEF D5_OR_NEWER *)
  227.  (*$DEFINE HAS_CONTNRS_UNIT *)
  228.  (*$ENDIF *)
  230.  (*$IFDEF K1_OR_NEWER *)
  231.  (*$DEFINE HAS_CONTNRS_UNIT *)
  232.  (*$ENDIF *)
  235. unit LibXmlParser;
  237. interface
  239. uses
  240.   SysUtils, Classes,
  241.   (*$IFDEF HAS_CONTNRS_UNIT *)// The Contnrs Unit was introduced in Delphi 5
  242.   Contnrs,
  243.   (*$ENDIF*)
  244.   Math;
  246. const
  247.   CVersion = '1.0.17';  // This variable will be updated for every release
  248.  // (I hope, I won't forget to do it everytime ...)
  250. type
  251.   TPartType = // --- Document Part Types
  252.     (ptNone,            // Nothing
  253.     ptXmlProlog,       // XML Prolog                  XmlSpec 2.8 / 4.3.1
  254.     ptComment,         // Comment                     XmlSpec 2.5
  255.     ptPI,              // Processing Instruction      XmlSpec 2.6
  256.     ptDtdc,            // Document Type Declaration   XmlSpec 2.8
  257.     ptStartTag,        // Start Tag                   XmlSpec 3.1
  258.     ptEmptyTag,        // Empty-Element Tag           XmlSpec 3.1
  259.     ptEndTag,          // End Tag                     XmlSpec 3.1
  260.     ptContent,         // Text Content between Tags
  261.     ptCData);          // CDATA Section               XmlSpec 2.7
  263.   TDtdElemType = // --- DTD Elements
  264.     (deElement,         // !ELEMENT declaration
  265.     deAttList,         // !ATTLIST declaration
  266.     deEntity,          // !ENTITY declaration
  267.     deNotation,        // !NOTATION declaration
  268.     dePI,              // PI in DTD
  269.     deComment,         // Comment in DTD
  270.     deError);          // Error found in the DTD
  272. type
  273.   TAttrList    = class;
  274.   TEntityStack = class;
  275.   TNvpList     = class;
  276.   TElemDef     = class;
  277.   TElemList    = class;
  278.   TEntityDef   = class;
  279.   TNotationDef = class;
  281.   TDtdElementRec = record
  282.     // --- This Record is returned by the DTD parser callback function
  283.     Start, Final: PChar;
  284.       // Start/End of the Element's Declaration
  285.     case ElementType: TDtdElemType of
  286.       // Type of the Element
  287.       deElement,                                      // <!ELEMENT>
  288.       deAttList: (ElemDef: TElemDef);         // <!ATTLIST>
  289.       deEntity: (EntityDef: TEntityDef);       // <!ENTITY>
  290.       deNotation: (NotationDef: TNotationDef);     // <!NOTATION>
  291.       dePI: (Target: PChar;             // <?PI ?>
  292.         Content: PChar;
  293.         AttrList: TAttrList);
  294.       deError: (Pos: PChar);            // Error
  295.     // deComment : ((No additional fields here));   // <!-- Comment -->
  296.   end;
  298.   TXmlParser = class                             // --- Internal Properties and Methods
  299.   protected
  300.     FBuffer:     PChar;           // NIL if there is no buffer available
  301.     FBufferSize: integer;
  302.     // 0 if the buffer is not owned by the Document instance
  303.     FSource:     string;
  304.     // Name of Source of document. Filename for Documents loaded with LoadFromFile
  306.     FXmlVersion: string;
  307.     // XML version from Document header. Default is '1.0'
  308.     FEncoding:   string;
  309.     // Encoding from Document header. Default is 'UTF-8'
  310.     FStandalone: boolean;
  311.     // Standalone declaration from Document header. Default is 'yes'
  312.     FRootName:   string;          // Name of the Root Element (= DTD name)
  313.     FDtdcFinal:  PChar;
  314.     // Pointer to the '>' character terminating the DTD declaration
  316.     FNormalize:   boolean;
  317.     // If true: Pack Whitespace and don't return empty contents
  318.     EntityStack:  TEntityStack;
  319.     // Entity Stack for Parameter and General Entities
  320.     FCurEncoding: string;
  321.     // Current Encoding during parsing (always uppercase)
  323.     procedure AnalyzeProlog;
  324.     // Analyze XML Prolog or Text Declaration
  325.     procedure AnalyzeComment(Start: PChar; var Final: PChar);
  326.     // Analyze Comments
  327.     procedure AnalyzePI(Start: PChar; var Final: PChar);
  328.     // Analyze Processing Instructions (PI)
  329.     procedure AnalyzeDtdc;
  330.     // Analyze Document Type Declaration
  331.     procedure AnalyzeDtdElements(Start: PChar; var Final: PChar);
  332.     // Analyze DTD declarations
  333.     procedure AnalyzeTag;
  334.     // Analyze Start/End/Empty-Element Tags
  335.     procedure AnalyzeCData;
  336.     // Analyze CDATA Sections
  337.     procedure AnalyzeText(var IsDone: boolean);
  338.     // Analyze Text Content between Tags
  339.     procedure AnalyzeElementDecl(Start: PChar; var Final: PChar);
  340.     procedure AnalyzeAttListDecl(Start: PChar; var Final: PChar);
  341.     procedure AnalyzeEntityDecl(Start: PChar; var Final: PChar);
  342.     procedure AnalyzeNotationDecl(Start: PChar; var Final: PChar);
  344.     procedure PushPE(var Start: PChar);
  345.     procedure ReplaceCharacterEntities(var Str: string);
  346.     procedure ReplaceParameterEntities(var Str: string);
  347.     procedure ReplaceGeneralEntities(var Str: string);
  349.     function GetDocBuffer: PChar;
  350.     // Returns FBuffer or a pointer to a NUL char if Buffer is empty
  352.   public                         // --- Document Properties
  353.     property XmlVersion: string Read FXmlVersion;
  354.     // XML version from the Document Prolog
  355.     property Encoding: string Read FEncoding;
  356.     // Document Encoding from Prolog
  357.     property Standalone: boolean Read FStandalone;
  358.     // Standalone Declaration from Prolog
  359.     property RootName: string Read FRootName;
  360.     // Name of the Root Element
  361.     property Normalize: boolean Read FNormalize Write FNormalize;
  362.     // True if Content is to be normalized
  363.     property Source: string Read FSource;
  364.     // Name of Document Source (Filename)
  365.     property DocBuffer: PChar Read GetDocBuffer;
  366.     // Returns document buffer
  367.   public                         // --- DTD Objects
  368.     Elements:    TElemList;
  369.     // Elements: List of TElemDef (contains Attribute Definitions)
  370.     Entities:    TNvpList;      // General Entities: List of TEntityDef
  371.     ParEntities: TNvpList;      // Parameter Entities: List of TEntityDef
  372.     Notations:   TNvpList;      // Notations: List of TNotationDef
  373.   public
  374.     constructor Create;
  375.     destructor Destroy; override;
  377.     // --- Document Handling
  378.     function LoadFromFile(Filename: string;
  379.       FileMode: integer =
  380.       fmOpenRead or fmShareDenyNone): boolean;
  381.     // Loads Document from given file
  382.     function LoadFromBuffer(Buffer: PChar): boolean;
  383.     // Loads Document from another buffer
  384.     procedure SetBuffer(Buffer: PChar);
  385.     // References another buffer
  386.     procedure Clear;
  387.     // Clear Document
  389.   public
  390.     // --- Scanning through the document
  391.     CurPartType: TPartType;                         // Current Type
  392.     CurName:     string;                            // Current Name
  393.     CurContent:  string;
  394.     // Current Normalized Content
  395.     CurStart:    PChar;
  396.     // Current First character
  397.     CurFinal:    PChar;
  398.     // Current Last character
  399.     CurAttr:     TAttrList;
  400.     // Current Attribute List
  401.     property CurEncoding: string Read FCurEncoding; // Current Encoding
  402.     procedure StartScan;
  403.     function Scan: boolean;
  405.     // --- Events / Callbacks
  406.     function LoadExternalEntity(SystemId, PublicId,
  407.       Notation: string): TXmlParser;
  408.       virtual;
  409.     function TranslateEncoding(const Source: string): string;
  410.       virtual;
  411.     procedure DtdElementFound(DtdElementRec: TDtdElementRec);
  412.       virtual;
  413.   end;
  415.   TValueType =      // --- Attribute Value Type
  416.     (vtNormal,       // Normal specified Attribute
  417.     vtImplied,      // #IMPLIED attribute value
  418.     vtFixed,        // #FIXED attribute value
  419.     vtDefault);
  420.   // Attribute value from default value in !ATTLIST declaration
  422.   TAttrDefault =     // --- Attribute Default Type
  423.     (adDefault,      // Normal default value
  424.     adRequired,      // #REQUIRED attribute
  425.     adImplied,       // #IMPLIED attribute
  426.     adFixed);        // #FIXED attribute
  428.   TAttrType = // --- Type of attribute
  429.     (atUnknown,      // Unknown type
  430.     atCData,        // Character data only
  431.     atID,           // ID
  432.     atIdRef,        // ID Reference
  433.     atIdRefs,       // Several ID References, separated by Whitespace
  434.     atEntity,       // Name of an unparsed Entity
  435.     atEntities,
  436.     // Several unparsed Entity names, separated by Whitespace
  437.     atNmToken,      // Name Token
  438.     atNmTokens,     // Several Name Tokens, separated by Whitespace
  439.     atNotation,     // A selection of Notation names (Unparsed Entity)
  440.     atEnumeration); // Enumeration
  442.   TElemType = // --- Element content type
  443.     (etEmpty,        // Element is always empty
  444.     etAny,
  445.     // Element can have any mixture of PCDATA and any elements
  446.     etChildren,     // Element must contain only elements
  447.     etMixed);       // Mixed PCDATA and elements
  449.   (*$IFDEF HAS_CONTNRS_UNIT *)
  450.   TObjectList = Contnrs.TObjectList;    // Re-Export this identifier
  451.   (*$ELSE *)
  452.   TObjectList = class(TList)
  453.     destructor Destroy; override;
  454.     procedure Delete(Index: integer);
  455.     procedure Clear; override;
  456.   end;
  458.   (*$ENDIF *)
  460.   TNvpNode = class                     // Name-Value Pair Node
  461.     Name:  string;
  462.     Value: string;
  463.     constructor Create(TheName: string = ''; TheValue: string = '');
  464.   end;
  466.   TNvpList = class(TObjectList)       // Name-Value Pair List
  467.     procedure Add(Node: TNvpNode);
  468.     function Node(Name: string): TNvpNode; overload;
  469.     function Node(Index: integer): TNvpNode; overload;
  470.     function Value(Name: string): string; overload;
  471.     function Value(Index: integer): string; overload;
  472.     function Name(Index: integer): string;
  473.   end;
  475.   TAttr = class(TNvpNode)          // Attribute of a Start-Tag or Empty-Element-Tag
  476.     ValueType: TValueType;
  477.     AttrType:  TAttrType;
  478.   end;
  480.   TAttrList = class(TNvpList)          // List of Attributes
  481.     procedure Analyze(Start: PChar; var Final: PChar);
  482.   end;
  484.   TEntityStack = class(TObjectList)
  485.     // Stack where current position is stored before parsing entities
  486.   protected
  487.     Owner: TXmlParser;
  488.   public
  489.     constructor Create(TheOwner: TXmlParser);
  490.     procedure Push(LastPos: PChar); overload;
  491.     procedure Push(Instance: TObject; LastPos: PChar); overload;
  492.     function Pop: PChar;
  493.     // Returns next char or NIL if EOF is reached. Frees Instance.
  494.   end;
  496.   TAttrDef = class(TNvpNode)
  497.     // Represents a <!ATTLIST Definition. "Value" is the default value
  498.     TypeDef:     string;           // Type definition from the DTD
  499.     Notations:   string;
  500.     // Notation List, separated by pipe symbols '|'
  501.     AttrType:    TAttrType;        // Attribute Type
  502.     DefaultType: TAttrDefault;     // Default Type
  503.   end;
  505.   TElemDef = class(TNvpList)
  506.     // Represents a <!ELEMENT Definition. Is a list of TAttrDef-Nodes
  507.     Name:     string;            // Element name
  508.     ElemType: TElemType;         // Element type
  509.     Definition: string;            // Element definition from DTD
  510.   end;
  512.   TElemList = class(TObjectList)    // List of TElemDef nodes
  513.     function Node(Name: string): TElemDef;
  514.     procedure Add(Node: TElemDef);
  515.   end;
  517.   TEntityDef = class(TNvpNode)       // Represents a <!ENTITY Definition.
  518.     SystemId:     string;
  519.     PublicId:     string;
  520.     NotationName: string;
  521.   end;
  523.   TNotationDef = class(TNvpNode)
  524.     // Represents a <!NOTATION Definition. Value is the System ID
  525.     PublicId: string;
  526.   end;
  528.   TCharset = set of char;
  531. const
  532.   CWhitespace = [#32, #9, #13, #10];
  533.   // Whitespace characters (XmlSpec 2.3)
  534.   CLetter     = [#$41..#$5A, #$61..#$7A, #$C0..#$D6, #$D8..#$F6, #$F8..#$FF];
  535.   CDigit      = [#$30..#$39];
  536.   CNameChar   = CLetter + CDigit + ['.', '-', '_', ':', #$B7];
  537.   CNameStart  = CLetter + ['_', ':'];
  538.   CQuoteChar  = ['"', ''''];
  539.   CPubidChar  = [#32, ^M, ^J, #9, 'a'..'z', 'A'..'Z', '0'..'9',
  540.     '-', '''', '(', ')', '+', ',', '.', '/', ':',
  541.     '=', '?', ';', '!', '*', '#', '@', '$', '_', '%'];
  543.   CDStart = '<![CDATA[';
  544.   CDEnd   = ']]>';
  546.   // --- Name Constants for the above enumeration types
  547.   CPartType_Name: array [TPartType] of string =
  548.     ('', 'XML Prolog', 'Comment', 'PI',
  549.     'DTD Declaration', 'Start Tag', 'Empty Tag', 'End Tag',
  550.     'Text', 'CDATA');
  551.   CValueType_Name: array [TValueType] of string =
  552.     ('Normal', 'Implied', 'Fixed', 'Default');
  553.   CAttrDefault_Name: array [TAttrDefault] of string =
  554.     ('Default', 'Required', 'Implied', 'Fixed');
  555.   CElemType_Name: array [TElemType] of string =
  556.     ('Empty', 'Any', 'Childs only', 'Mixed');
  557.   CAttrType_Name: array [TAttrType] of string = ('Unknown', 'CDATA',
  558.     'ID', 'IDREF', 'IDREFS',
  559.     'ENTITY', 'ENTITIES',
  560.     'NMTOKEN', 'NMTOKENS',
  561.     'Notation', 'Enumeration');
  563. function ConvertWs(Source: string; PackWs: boolean): string;
  564. // Convert WS to spaces #x20
  565. procedure SetStringSF(var S: string; BufferStart, BufferFinal: PChar);
  566. // SetString by Start/Final of buffer
  567. function StrSFPas(Start, Finish: PChar): string;
  568. // Convert buffer part to Pascal string
  569. function TrimWs(Source: string): string;
  570. // Trim Whitespace
  572. function AnsiToUtf8(Source: ansistring): string;
  573. // Convert Win-1252 to UTF-8
  574. function Utf8ToAnsi(Source: string; UnknownChar: char = '