TPascalScanner

type TPascalScanner = class

protected

  function IndexOfResourceHandler();

  function FindResourceHandler();

  function ReadIdentifier();

  function FetchLine;

  procedure AddFile(); virtual;

  function GetMacroName();

  procedure SetCurMsg();

  procedure DoLog();

  procedure Error();

  procedure PushSkipMode;

  function GetMultiLineStringLineEnd();

  function MakeLibAlias(); virtual;

  function HandleDirective(); virtual;

  function HandleLetterDirective(); virtual;

  procedure HandleBoolDirective(); virtual;

  procedure DoHandleComment(); virtual;

  procedure DoHandleDirective(); virtual;

  procedure HandleMultilineStringTrimLeft();

  procedure HandleMultilineStringLineEnding();

  function HandleMultilineComment;

  function HandleMultilineCommentOldStyle;

  procedure HandleIFDEF();

  procedure HandleIFNDEF();

  procedure HandleIFOPT();

  procedure HandleIF();

  procedure HandleELSEIF();

  procedure HandleELSE();

  procedure HandleENDIF();

  procedure HandleDefine(); virtual;

  procedure HandleDispatchField(); virtual;

  procedure HandleError(); virtual;

  procedure HandleMessageDirective(); virtual;

  procedure HandleIncludeFile(); virtual;

  procedure HandleIncludeString(); virtual;

  procedure HandleResource(); virtual;

  procedure HandleLinkLib(); virtual;

  procedure HandleOptimizations(); virtual;

  procedure DoHandleOptimization(); virtual;

  procedure HandleUnDefine(); virtual;

  function HandleInclude(); virtual;

  procedure HandleMode(); virtual;

  procedure HandleModeSwitch(); virtual;

  function HandleMacro(); virtual;

  procedure HandleInterfaces(); virtual;

  procedure HandleWarn(); virtual;

  procedure HandleWarnIdentifier(); virtual;

  procedure PushStackItem; virtual;

  procedure PopStackItem; virtual;

  function DoFetchTextToken;

  function DoFetchMultilineTextToken;

  function DoFetchToken;

  procedure ClearFiles;

  procedure ClearMacros;

  procedure SetCurToken();

  procedure SetCurTokenString();

  procedure SetCurrentBoolSwitches(); virtual;

  procedure SetCurrentModeSwitches(); virtual;

  procedure SetCurrentValueSwitch();

  procedure SetWarnMsgState(); virtual;

  function GetWarnMsgState(); virtual;

  function LogEvent();

  property TokenPos: TPasScannerTokenPos; [rw]

public

  constructor Create();

  destructor Destroy; override;

  procedure RegisterResourceHandler();

  procedure OpenFile();

  procedure FinishedModule; virtual;

  function FormatPath(); virtual;

  procedure SetNonToken();

  procedure UnsetNonToken();

  procedure SetTokenOption();

  procedure UnSetTokenOption();

  function CheckToken();

  function FetchToken;

  function ReadNonPascalTillEndToken(); virtual;

  function AddDefine();

  function RemoveDefine();

  function UnDefine();

  function IsDefined();

  function IfOpt();

  function AddMacro();

  function RemoveMacro();

  procedure SetCompilerMode();

  procedure SetModeSwitch();

  function CurSourcePos;

  function SetForceCaret();

  function IgnoreMsgType(); virtual;

  property FileResolver: TBaseFileResolver; [r]

  property Files: TStrings; [r]

  property CurSourceFile: TLineReader; [r]

  property CurFilename: string; [r]

  property CurModuleName: string; [rw]

  property CurLine: string; [r]

  property CurRow: Integer; [r]

  property CurColumn: Integer; [r]

  property CurToken: TToken; [r]

  property CurTokenString: string; [r]

  property CurTokenEscaped: Boolean; [r]

  property CurTokenPos: TPasSourcePos; [r]

  property PreviousToken: TToken; [r]

  property ModuleRow: Integer; [r]

  property NonTokens: TTokens; [r]

  property TokenOptions: TTokenOptions; [rw]

  property Defines: TStrings; [r]

  property Macros: TStrings; [r]

  property MacrosOn: Boolean; [rw]

  property AllowedModeSwitches: TModeSwitches; [rw]

  property ReadOnlyModeSwitches: TModeSwitches; [rw]

  property CurrentModeSwitches: TModeSwitches; [rw]

  property AllowedBoolSwitches: TBoolSwitches; [rw]

  property ReadOnlyBoolSwitches: TBoolSwitches; [rw]

  property CurrentBoolSwitches: TBoolSwitches; [rw]

  property AllowedValueSwitches: TValueSwitches; [rw]

  property ReadOnlyValueSwitches: TValueSwitches; [rw]

  property CurrentValueSwitch []: string; [rw]

  property WarnMsgState []: TWarnMsgState; [rw]

  property Options: TPOptions; [rw]

  property SkipWhiteSpace: Boolean; [rw]

  property SkipComments: Boolean; [rw]

  property SkipGlobalSwitches: Boolean; [rw]

  property MaxIncludeStackDepth: Integer; [rw]

  property ForceCaret: Boolean; [r]

  property MultilineStringsEOLStyle: TEOLStyle; [rw]

  property MultilineStringsTrimLeft: Integer; [rw]

  property OnDirectiveForConditionals: Boolean; [rw]

  property LogEvents: TPScannerLogEvents; [rw]

  property OnLog: TPScannerLogHandler; [rw]

  property OnFormatPath: TPScannerFormatPathEvent; [rw]

  property ConditionEval: TCondDirectiveEvaluator; [r]

  property OnEvalVariable: TCEEvalVarEvent; [rw]

  property OnEvalFunction: TCEEvalFunctionEvent; [rw]

  property OnWarnDirective: TPScannerWarnEvent; [rw]

  property OnModeChanged: TPScannerModeDirective; [rw]

  property OnDirective: TPScannerDirectiveEvent; [rw]

  property OnComment: TPScannerCommentEvent; [rw]

  property OnLinkLib: TPScannerLinkLibEvent; [rw]

  property LastMsg: string; [rw]

  property LastMsgNumber: Integer; [rw]

  property LastMsgType: TMessageType; [rw]

  property LastMsgPattern: string; [rw]

  property LastMsgArgs: TMessageArgs; [rw]

end;

TPascalScanner

TObject