TO32RegexEngine

type TO32RegexEngine = class

protected

  FAnchorEnd: Boolean;

  FAnchorStart: Boolean;

  FErrorCode: TO32RegexError;

  FIgnoreCase: Boolean;

  FPosn: PAnsiChar;

  FRegexStr: string;

  FStartState: Integer;

  FTable: TList;

  FUpcase: TO32UpcaseChar;

  FLogging: Boolean;

  Log: System.Text;

  FLogFile: string;

  procedure SetLogFile();

  procedure rcSetIgnoreCase();

  procedure rcSetRegexStr();

  procedure rcSetUpcase();

  procedure rcSetLogging();

  procedure rcClear;

  procedure rcLevel1Optimize;

  procedure rcLevel2Optimize;

  function rcMatchSubString();

  function rcAddState();

  function rcSetState();

  function rcParseAnchorExpr;

  function rcParseAtom;

  function rcParseCCChar;

  function rcParseChar;

  function rcParseCharClass();

  function rcParseCharRange();

  function rcParseExpr;

  function rcParseFactor;

  function rcParseTerm;

  procedure rcWalkNoCostTree();

  procedure rcDumpTable;

public

  constructor Create();

  destructor Destroy; override;

  function Parse();

  function MatchString();

  property IgnoreCase: Boolean; [rw]

  property RegexString: string; [rw]

  property Upcase: TO32UpcaseChar; [rw]

  property Logging: Boolean; [rw]

  property LogFile: string; [rw]

end;

TO32RegexEngine

TObject