Changeset 31 for trunk/Target/UTarget.pas

Timestamp:

Feb 18, 2012, 8:02:50 PM (13 years ago)

Author:

chronos

Message:

• Modified: Renamed classes from Compiler to Target. Interpretter registred as possible and default target.

File:

• trunk/Target/UTarget.pas (modified) (4 diffs)

trunk/Target/UTarget.pas

@@ -11 +11 @@
 type
   TCompilerOptimization = (coNone, coNormal);
+
+  TTargetCapability = (tcRun, tcPause, tcStop, tcStepOut, tsStepOver, tsStepInto,
+    tsRunToCursor, tcCompile, tcBreakpoint);
+  TTargetCapabilities = set of TTargetCapability;
 
   { TTarget }
@@ -29 +33 @@
     CompiledExtension: string;
     ProjectFileName: string;
+    Capabilities: TTargetCapabilities;
     constructor Create; virtual;
     procedure OptimizeSource;
@@ -34 +39 @@
     procedure CompileToFile; virtual;
     procedure Run; virtual;
+    procedure Pause; virtual;
+    procedure Stop; virtual;
+    procedure StepOver; virtual;
+    procedure StepInto; virtual;
+    procedure StepOut; virtual;
+    procedure RunToCursor; virtual;
   end;
 
@@ -168 +179 @@
 end;
 
-
+procedure TTarget.Pause;
+begin
+
+end;
+
+procedure TTarget.Stop;
+begin
+
+end;
+
+procedure TTarget.StepOver;
+begin
+
+end;
+
+procedure TTarget.StepInto;
+begin
+
+end;
+
+procedure TTarget.StepOut;
+begin
+
+end;
+
+procedure TTarget.RunToCursor;
+begin
+
+end;
 
 end.