TCondDirectiveEvaluator

type TCondDirectiveEvaluator = class

protected

type

  TPrecedenceLevel = (

  ceplFirst,

  ceplSecond,

  ceplThird,

  ceplFourth

);

  TStackItem = record

  Level: TPrecedenceLevel;

  Operathor: TToken;

  Operand: TPasScannerString;

  OperandPos: Integer;

end;

protected

  FTokenStart: PAnsiChar;

  FTokenEnd: PAnsiChar;

  FToken: TToken;

  FStack: array of TStackItem;

  FStackTop: Integer;

  function IsFalse();

  function IsTrue();

  function IsInteger();

  function IsExtended();

  procedure NextToken;

  procedure Log();

  procedure LogXExpectedButTokenFound();

  procedure ReadOperand();

  procedure ReadExpression;

  procedure ResolveStack();

  function GetTokenString;

  function GetStringLiteralValue;

  procedure Push();

public

  Expression: TPasScannerString;

  MsgCurLine: Integer;

  MsgPos: Integer;

  MsgNumber: Integer;

  MsgType: TMessageType;

  MsgPattern: string;

  isMac: Boolean;

  constructor Create();

  destructor Destroy; override;

  function Eval();

  property OnEvalVariable: TCEEvalVarEvent; [rw]

  property OnEvalFunction: TCEEvalFunctionEvent; [rw]

  property OnLog: TCELogEvent; [rw]

end;

TCondDirectiveEvaluator

TObject