TPSPascalCompiler

type TPSPascalCompiler = class

protected

  FAnyString: TPSType;

  FAnyMethod: TPSType;

  FUnitName: TbtString;

  FID: Pointer;

  FOnExportCheck: TPSOnExportCheck;

  FDefaultBoolType: TPSType;

  FRegProcs: TPSList;

  FConstants: TPSList;

  FProcs: TPSList;

  FTypes: TPSList;

  FAttributeTypes: TPSList;

  FVars: TPSList;

  FOutput: TbtString;

  FParser: TPSPascalParser;

  FParserHadError: Boolean;

  FMessages: TPSList;

  FOnUses: TPSOnUses;

  FUtf8Decode: Boolean;

  FIsUnit: Boolean;

  FAllowNoBegin: Boolean;

  FAllowNoEnd: Boolean;

  FAllowUnit: Boolean;

  FAllowDuplicateRegister: Boolean;

  FBooleanShortCircuit: Boolean;

  FDebugOutput: TbtString;

  FOnExternalProc: TPSOnExternalProc;

  FOnUseVariable: TPSOnUseVariable;

  FOnUseRegProc: TPSOnUseRegProc;

  FOnBeforeOutput: TPSOnNotify;

  FOnBeforeCleanup: TPSOnNotify;

  FOnWriteLine: TPSOnWriteLineEvent;

  FOnWriteLine2: TPSOnWriteLine2Event;

  FContinueOffsets: TPSList;

  FBreakOffsets: TPSList;

  FOnTranslateLineInfo: TPSOnTranslateLineInfoProc;

  FAutoFreeList: TPSList;

  FClasses: TPSList;

  FOnFunctionStart: TPSOnFunction;

  FOnFunctionEnd: TPSOnFunction;

  FAttributesOpenTokenID: TPSPasToken;

  FAttributesCloseTokenID: TPSPasToken;

  FWithCount: Integer;

  FTryCount: Integer;

  FExceptFinallyCount: Integer;

  fInCompile: Integer;

  FInterfaces: TPSList;

  FCurrUsedTypeNo: Cardinal;

  FGlobalBlock: TPSBlockInfo;

  function IsBoolean();

  function GetWideString();

  function GetUnicodeString();

  function PreCalc();

  function FindBaseType();

  function IsIntBoolType();

  function GetTypeCopyLink();

  function at2ut();

  procedure UseProc();

  function GetMsgCount;

  function GetMsg();

  function MakeExportDecl();

  procedure DefineStandardTypes;

  procedure DefineStandardProcedures;

  function ReadReal();

  function ReadString;

  function ReadInteger();

  function ReadAttributes();

  function ReadConstant();

  function ApplyAttribsToFunction();

  function ProcessFunction();

  function ValidateParameters();

  function IsVarInCompatible();

  function GetTypeNo();

  function DoVarBlock();

  function DoTypeBlock();

  function ReadType();

  function ProcessLabel();

  function ProcessSub();

  function ProcessLabelForwards();

  procedure WriteDebugData();

  procedure Debug_SavePosition();

  procedure Debug_WriteParams();

  procedure Debug_WriteLine();

  procedure Debug_WriteLine2();

  function IsCompatibleType();

  function IsDuplicate();

  function NewProc();

  function AddUsedFunction();

  function AddUsedFunction2();

  function CheckCompatProc();

  procedure ParserError();

  function ReadTypeAddProcedure();

  function VarIsDuplicate();

  function IsProcDuplicLabel();

  procedure CheckForUnusedVars();

  function ProcIsDuplic();

public

  function GetConstant();

  function UseExternalProc();

  function FindProc();

  function GetTypeCount;

  function GetType();

  function GetVarCount;

  function GetVar();

  function GetProcCount;

  function GetProc();

  function GetConstCount;

  function GetConst();

  function GetRegProcCount;

  function GetRegProc();

  function AddAttributeType;

  function FindAttributeType();

  procedure AddToFreeList();

  property ID: Pointer; [rw]

  function MakeError();

  function MakeWarning();

  function MakeHint();

  function AddInterface();

  function FindInterface();

  function AddClass();

  function AddClassN();

  function FindClass();

  function AddFunction();

  function AddDelphiFunction();

  function AddType();

  function AddTypeS();

  function AddTypeCopy();

  function AddTypeCopyN();

  function AddConstant();

  function AddConstantN();

  function AddVariable();

  function AddVariableN();

  function AddUsedVariable();

  function AddUsedVariableN();

  function AddUsedPtrVariable();

  function AddUsedPtrVariableN();

  function FindType();

  function MakeDecl();

  function Compile();

  function GetOutput();

  function GetDebugOutput();

  procedure Clear;

  constructor Create;

  destructor Destroy; override;

  property MsgCount: LongInt; [r]

  property Msg []: TPSPascalCompilerMessage; [r]

  property OnTranslateLineInfo: TPSOnTranslateLineInfoProc; [rw]

  property OnUses: TPSOnUses; [rw]

  property OnExportCheck: TPSOnExportCheck; [rw]

  property OnWriteLine: TPSOnWriteLineEvent; [rw]

  property OnWriteLine2: TPSOnWriteLine2Event; [rw]

  property OnExternalProc: TPSOnExternalProc; [rw]

  property OnUseVariable: TPSOnUseVariable; [rw]

  property OnUseRegProc: TPSOnUseRegProc; [rw]

  property OnBeforeOutput: TPSOnNotify; [rw]

  property OnBeforeCleanup: TPSOnNotify; [rw]

  property OnFunctionStart: TPSOnFunction; [rw]

  property OnFunctionEnd: TPSOnFunction; [rw]

  property IsUnit: Boolean; [r]

  property AllowNoBegin: Boolean; [rw]

  property AllowUnit: Boolean; [rw]

  property AllowNoEnd: Boolean; [rw]

  property AllowDuplicateRegister: Boolean; [rw]

  property BooleanShortCircuit: Boolean; [rw]

  property UTF8Decode: Boolean; [rw]

  property AttributesOpenTokenID: TPSPasToken; [rw]

  property AttributesCloseTokenID: TPSPasToken; [rw]

  property UnitName: TbtString; [r]

end;

TPSPascalCompiler

TObject