TYAMLParser

type TYAMLParser = class(TObject)

protected

  procedure Error();

  function Peek;

  procedure ConsumeToken;

  function ConsumeAnchor;

  function ConsumeVersion;

  class function TokenToScalarKind();

  function GuessTagFromScalarValue(); virtual;

  function CreateScanner(); virtual;

  function CreateYAMLData(); virtual;

  function CreateDocument;

  function CreateTagData;

  function CreateStream;

  function CreateSequence();

  function CreateMapping();

  function CreateScalar(); virtual;

  procedure ParseAnchor; virtual;

  procedure ParseVersion; virtual;

  function ParseAlias; virtual;

  function ParseBlockMapping; virtual;

  function ParseFlowMapping; virtual;

  function ParseScalar; virtual;

  function ParseBlockSequence(); virtual;

  function ParseFlowSequence; virtual;

  function ParseValue(); virtual;

  function ParseTagDirective; virtual;

  function ParseDocument; virtual;

  function ParseSingleDocument();

  property Scanner: TYAMLScanner; [r]

public

  constructor Create();

  destructor Destroy; override;

  class function IsYamlFileName();

  function Parse;

end;

TYAMLParser

TObject