TPSExec

type TPSExec = class(TObject)

protected

  FReturnAddressType: TPSTypeRec;

  FVariantType: TPSTypeRec;

  FVariantArrayType: TPSTypeRec;

  FAttributeTypes: TPSList;

  FExceptionStack: TPSList;

  FResources: TPSList;

  FExportedVars: TPSList;

  FTypes: TPSList;

  FProcs: TPSList;

  FGlobalVars: TPSStack;

  FTempVars: TPSStack;

  FStack: TPSStack;

  FMainProc: Cardinal;

  FStatus: TPSStatus;

  FCurrProc: TPSInternalProcRec;

  FData: PByteArray;

  FDataLength: Cardinal;

  FCurrentPosition: Cardinal;

  FCurrStackBase: Cardinal;

  FOnRunLine: TPSOnLineEvent;

  FSpecialProcList: TPSList;

  FRegProcs: TPSList;

  ExObject: TObject;

  ExProc: Cardinal;

  ExPos: Cardinal;

  ExEx: TPSError;

  ExParam: TbtString;

  function InvokeExternalMethod();

  function InnerfuseCall();

  procedure RunLine; virtual;

  function ImportProc(); virtual;

  procedure ExceptionProc(); virtual;

  function FindSpecialProcImport();

public

  function LastEx;

  function LastExParam;

  function LastExProc;

  function LastExPos;

  function LastExObject;

  procedure CMD_Err();

  procedure CMD_Err2();

  procedure CMD_Err3();

  property Id: Pointer; [rw]

  class function About;

  function RunProc();

  function RunProcP();

  function RunProcPVar();

  function RunProcPN();

  function FindType();

  function FindType2();

  function GetTypeNo();

  function GetType();

  function GetProc();

  function GetVar();

  function GetVar2();

  function GetVarNo();

  function GetProcNo();

  function GetProcCount;

  function GetVarCount;

  function GetTypeCount;

  constructor Create;

  destructor Destroy; override;

  function RunScript;

  function LoadData(); virtual;

  procedure Clear; virtual;

  procedure Cleanup; virtual;

  procedure Stop; virtual;

  procedure Pause; virtual;

  property CallCleanup: Boolean; [rw]

  property Status: TPSStatus; [r]

  property OnRunLine: TPSOnLineEvent; [rw]

  procedure ClearspecialProcImports;

  procedure AddSpecialProcImport();

  function RegisterFunctionName();

  procedure RegisterDelphiFunction();

  procedure RegisterDelphiMethod();

  function GetProcAsMethod();

  function GetProcAsMethodN();

  procedure RegisterAttributeType();

  procedure ClearFunctionList;

  property ExceptionProcNo: Cardinal; [r]

  property ExceptionPos: Cardinal; [r]

  property ExceptionCode: TPSError; [r]

  property ExceptionString: TbtString; [r]

  property ExceptionObject: TObject; [rw]

  procedure AddResource();

  function IsValidResource();

  procedure DeleteResource();

  function FindProcResource();

  function FindProcResource2();

  procedure RaiseCurrentException;

  property OnException: TPSOnException; [rw]

  property OnGetNVariant: TPSOnGetNVariant; [rw]

  property OnSetNVariant: TPSOnSetNVariant; [rw]

end;

TPSExec

TObject