tparser

type tparser = class(tnullinterfacedobject)

public

  constructor create();

  destructor destroy; override;

  procedure reset;

  procedure clear; virtual;

  procedure initidents; virtual;

  procedure parse; virtual;

  property token: ptokenty; [r]

  property acttoken: tokenidty; [rw]

  procedure nexttoken;

  procedure nextnonwhitetoken;

  procedure lasttoken;

  procedure lastnonwhitetoken;

  function gettoken;

  function getorigtoken;

  function getorigtext();

  function getlastorigtext();

  function getident();

  function getnameorident();

  function getfirstident;

  function checkident();

  function testident();

  function checknamenoident;

  function skipnamenoident;

  function checkname();

  function getname();

  function getorigname();

  function getnamenoident();

  function getorignamenoident();

  function testname();

  function testnames();

  function getoperator;

  function getnextoperator;

  function testoperator();

  function checkoperator();

  function checknextoperator();

  function findoperator();

  function findclosingbracket;

  function getvaluestring(); virtual;

  function getnamelist;

  function getorignamelist;

  function skipcomment; virtual;

  function checknewline;

  function nextline;

  function skipwhitespace;

  function skipwhitespaceonly;

  function skipnamelist;

  function skipidents;

  property eof: Boolean; [r]

  function isfirstnonwhitetoken;

  procedure mark;

  function back;

  procedure pop;

  procedure setidents();

  function sourceoffset;

  function sourcepos;

  function nextsourcepos;

  function nexttokenornewlinepos;

  function getsourcepos();

  function lasttokenoffset;

  function lasttokenpos;

  function addscanner();

  function dogetincludefile(); virtual;

  function includefile();

  procedure callincludefile();

  function origoffset;

  property scanner: tscanner; [rw]

  property recursivecomment: Boolean; [rw]

  property ongetincludefile: getincludefileeventty; [rw]

  property includefiledirs: filenamearty; [rw]

  property startdefines: stringarty; [rw]

end;

tparser

tnullinterfacedobject,iunknown

tobject