TTitanScripter

type TTitanScripter = class(TCustomScripter)

protected

  fCallStack: TCallStack;

  fOnAssignScript: TTitanScripterEvent;

  fOnAfterCompileStage: TTitanScripterEvent;

  fOnAfterRunStage: TTitanScripterEvent;

  fOnBeforeCompileStage: TTitanScripterEvent;

  fOnBeforeRunStage: TTitanScripterEvent;

  fOnHalt: TTitanScripterEvent;

  fOnScanProperties: TTitanScanPropertiesEvent;

  function GetModules;

  function GetScripterState;

  procedure SetScripterState();

  function GetOverrideHandlerMode;

  procedure SetOverrideHandlerMode();

  procedure ExtractCallStack;

  function GetSourceCode();

  procedure SetSourceCode();

  function GetOnCompilerProgress;

  procedure SetOnCompilerProgress();

  function GetOnPrint;

  procedure SetOnPrint();

  function GetOnDefine;

  procedure SetOnDefine();

  function GetOnChangedVariable;

  procedure SetOnChangedVariable();

  function GetOnRunning;

  procedure SetOnRunning();

  function GetOnInclude;

  procedure SetOnInclude();

  function GetOnHalt;

  procedure SetOnHalt();

  function GetOnLoadDll;

  procedure SetOnLoadDll();

  function GetOnVirtualObjectMethodCallEvent;

  procedure SetOnVirtualObjectMethodCallEvent();

  function GetOnVirtualObjectPutPropertyEvent;

  procedure SetOnVirtualObjectPutPropertyEvent();

  function GetOnRunningUpdate;

  procedure SetOnRunningUpdate();

  function GetOnRunningUpdateActive;

  procedure SetOnRunningUpdateActive();

  function GetOnRunningSync;

  procedure SetOnRunningSync();

  function GetOnUndeclaredIdentifier;

  procedure SetOnUndeclaredIdentifier();

  function GetOnReadExtraData;

  procedure SetOnReadExtraData();

  function GetOnWriteExtraData;

  procedure SetOnWriteExtraData();

  function GetOnUsedModule;

  procedure SetOnUsedModule();

  function GetOnLoadSourceCode;

  procedure SetOnLoadSourceCode();

  function GetOnChangeState;

  procedure SetOnChangeState();

  function GetOnTyphonInstanceCreate;

  procedure SetOnTyphonInstanceCreate();

  function GetOnTyphonInstanceDestroy;

  procedure SetOnTyphonInstanceDestroy();

  function GetTotalLineCount;

  function GetErrorClassType;

  function GetErrorDescription;

  function GetErrorModuleName;

  function GetErrorTextPos;

  function GetErrorPos;

  function GetErrorLine;

  function GetErrorMethodId;

  procedure InvokeOnAssignScript;

  function GetCurrentSourceLine;

  function GetCurrentModuleName;

  procedure RegisterLanguages;

  procedure UnregisterLanguages;

  procedure SetStackSize();

  function GetStackSize;

  procedure SetOptimization();

  function GetOptimization;

  function GetLanguage();

  procedure Unregister();

  function GetParam(); virtual;

  procedure SetParam(); virtual;

  function GetValue(); virtual;

  procedure SetValue(); virtual;

  function RegisterParser();

  procedure SetUpSearchPathes; virtual;

public

  fScripter: TTitanBaseScripter;

  constructor Create(); override;

  destructor Destroy; override;

  function FindTempObject();

  function AddTempObject();

  function AddModule();

  procedure AddCode();

  procedure AddCodeLine();

  procedure AddCodeFromFile();

  procedure AddTyphonForm();

  procedure LoadProject();

  function CompileModule();

  function Compile();

  procedure Run();

  procedure RunInstruction;

  function InstructionCount;

  function CurrentInstructionNumber;

  function GetInstruction();

  procedure SetInstruction();

  function Eval();

  function EvalStatementList();

  function EvalJS();

  function CallFunction();

  function CallFunctionEx();

  function CallFunctionByID();

  function CallFunctionByIDEx();

  function CallMethod();

  function CallMethodByID();

  function GetLastResult;

  procedure CancelCompiling();

  procedure Dump;

  procedure RemoveAllBreakpoints;

  function AddBreakpoint();

  function RemoveBreakpoint();

  procedure RegisterConstant();

  procedure RegisterVariable();

  procedure RegisterObject();

  procedure RegisterVirtualObject();

  procedure RegisterObjectSimple();

  procedure RegisterInterfaceVar();

  procedure UnregisterConstant();

  procedure UnregisterVariable();

  procedure UnregisterObject();

  procedure UnregisterAllVariables;

  procedure UnregisterAllObjects;

  procedure UnregisterAllConstants;

  procedure ForbidAllPublishedProperties();

  procedure ForbidPublishedProperty();

  procedure RegisterField();

  function ToString();

  procedure ResetScripter;

  procedure ResetScripterEx;

  procedure Terminate;

  procedure DisconnectObjects;

  function IsError;

  procedure DiscardError;

  function GetMemberID();

  function GetParamID();

  function GetResultID();

  function GetParamCount();

  function GetTypeName();

  function GetParamTypeName();

  function GetSignature();

  function GetParamName();

  function GetTypeID();

  function GetName();

  function GetFullName();

  function GetPosition();

  function GetStartPosition();

  function GetModule();

  function GetAddress();

  function GetUserData();

  function IsLocalVariable();

  function GetOwnerID();

  function GetKind();

  function GetCurrentProcID;

  function IsStatic();

  function IsConstructor();

  function IsDestructor();

  function IsVarParameter();

  function IsConstParameter();

  function IDCount;

  function IsMethod();

  function GetOnShowError;

  procedure SetOnShowError();

  property ErrorClassType: TClass; [r]

  property ErrorDescription: string; [r]

  property ErrorModuleName: string; [r]

  property ErrorTextPos: Integer; [r]

  property ErrorPos: Integer; [r]

  property ErrorLine: Integer; [r]

  property ErrorMethodId: Integer; [r]

  function GetSourceLine();

  function IsExecutableSourceLine();

  function LanguageCount;

  function FindLanguage();

  function FileExtToLanguageName();

  procedure RegisterLanguage();

  procedure UnregisterLanguage();

  function GetRootID;

  procedure EnumMembers();

  function GetValueByID();

  procedure SetValueByID();

  procedure SaveToStream();

  procedure LoadFromStream();

  procedure SaveToFile();

  procedure LoadFromFile();

  procedure SaveModuleToStream();

  procedure SaveModuleToFile();

  procedure LoadModuleFromStream();

  procedure LoadModuleFromFile();

  procedure AssignEventHandlerRunner();

  function AssignEventHandler();

  function GeTTitanModule();

  procedure DeleteModule();

  function FindFullFileName();

  function FindNamespaceHandle();

  function ToScriptObject();

  procedure Rename();

  procedure GetClassInfo();

  function GetHostClass();

  procedure ScanProperties();

  property ScripterState: TScripterState; [rw]

  property CallStack: TCallStack; [r]

  property SourceCode []: string; [rw]

  property Modules: TStringList; [r]

  property TotalLineCount: Integer; [r]

  property CurrentSourceLine: Integer; [r]

  property CurrentModuleName: string; [r]

  property Params []: Variant; [rw]

  property Values []: Variant; [rw]

  property Languages []: TTitanLanguage; [r]

published

  property OverrideHandlerMode: TTitanOverrideHandlerMode; [rw]

  property StackSize: Integer; [rw]

  property Optimization: Boolean; [rw]

  property OnAfterCompileStage: TTitanScripterEvent; [rw]

  property OnAfterRunStage: TTitanScripterEvent; [rw]

  property OnAssignScript: TTitanScripterEvent; [rw]

  property OnBeforeCompileStage: TTitanScripterEvent; [rw]

  property OnBeforeRunStage: TTitanScripterEvent; [rw]

  property OnCompilerProgress: TTitanCompilerProgressEvent; [rw]

  property OnPrint: TTitanScripterPrintEvent; [rw]

  property OnDefine: TTitanScripterDefineEvent; [rw]

  property OnRunning: TTitanCodeEvent; [rw]

  property OnRunningUpdate: TTitanScripterEvent; [rw]

  property OnRunningUpdateActive: Boolean; [rw]

  property OnRunningSync: TTitanScripterEvent; [rw]

  property OnShowError: TTitanScripterEvent; [rw]

  property OnUndeclaredIdentifier: TTitanScripterVarEventEx; [rw]

  property OnChangedVariable: TTitanScripterVarEvent; [rw]

  property OnReadExtraData: TTitanScripterStreamEvent; [rw]

  property OnWriteExtraData: TTitanScripterStreamEvent; [rw]

  property OnUsedModule: TTitanUsedModuleEvent; [rw]

  property OnLoadSourceCode: TTitanLoadSourceCodeEvent; [rw]

  property OnChangeState: TTitanScripterChangeStateEvent; [rw]

  property OnInclude: TTitanIncludeEvent; [rw]

  property OnHalt: TTitanScripterEvent; [rw]

  property OnTyphonInstanceCreate: TTitanScripterInstanceEvent; [rw]

  property OnTyphonInstanceDestroy: TTitanScripterInstanceEvent; [rw]

  property OnLoadDll: TTitanLoadDllEvent; [rw]

  property OnVirtualObjectMethodCallEvent: TTitanVirtualObjectMethodCallEvent; [rw]

  property OnVirtualObjectPutPropertyEvent: TTitanVirtualObjectPutPropertyEvent; [rw]

  property OnScanProperties: TTitanScanPropertiesEvent; [rw]

end;

TTitanScripter

TCustomScripter

TObject