ThtmlLexer

type ThtmlLexer = class

protected

  FReader: TUnicodeReader;

  FReaderOwner: Boolean;

  FNoLineBreakToken: Boolean;

  FContext: ThtmlLexerContext;

  FTokenType: ThtmlTokenType;

  FTokenStr: string;

  FTokenStrResolved: Boolean;

  FTokenStrBuf: PWideChar;

  FTokenStrLen: Integer;

  FTagToken: ThtmlTokenType;

  FTagID: ThtmlTagID;

  FAttrID: ThtmlAttrID;

  FAttrQuote: AnsiChar;

  FAttrDelim: ByteCharSet;

  FTokenCount: Integer;

  function GetTokenTypeDescription;

  function GetTokenTypeIDStr;

  function GetTokenStr;

  function SkipSpace;

  procedure ExtractTextRef();

  function ExtractNumber;

  function ExtractHexDigits;

  procedure ExtractNameRef();

  procedure ExtractToRef();

  procedure SetTokenText();

  procedure SetTokenTextRef();

  procedure ParseText();

  procedure ParseCommentStart;

  procedure ParseCommentText;

  procedure ParseComment;

  procedure ParseQTag;

  procedure ParsePI;

  procedure ParseDeclaration;

  procedure ParseTagName;

  procedure ParseStartTag;

  procedure ParseAttrName;

  procedure ParseTagAttrName();

  procedure ParseTagAttrValue;

  procedure ParseTagAttrValueText;

  procedure ParseScriptText;

  procedure ParseEndTag;

  procedure ParseETag;

  procedure ParseTag;

  procedure ParseEntity;

  procedure ParseTop;

  procedure ParseToken;

public

  constructor Create();

  destructor Destroy; override;

  property Reader: TUnicodeReader; [r]

  property ReaderOwner: Boolean; [rw]

  property NoLineBreakToken: Boolean; [rw]

  procedure Reset;

  function GetNextToken;

  property Context: ThtmlLexerContext; [r]

  property TokenCount: Integer; [r]

  property TokenType: ThtmlTokenType; [r]

  property TokenTypeDescription: string; [r]

  property TokenTypeIDStr: string; [r]

  property TokenStr: string; [r]

  property TagID: ThtmlTagID; [r]

  property AttrID: ThtmlAttrID; [r]

  function CharRefValue;

  function ResolveCharRef();

  function ResolveEntityRef();

  function ResolveReference();

end;

ThtmlLexer

TObject