Changeset 31 for trunk/Target

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.

Location:

trunk/Target

Files:

• UTarget.pas (modified) (4 diffs)
• UTargetC.pas (modified) (2 diffs)
• UTargetDelphi.pas (modified) (1 diff)
• UTargetInterpretter.pas (modified) (4 diffs)
• UTargetPHP.pas (modified) (1 diff)

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.

trunk/Target/UTargetC.pas

@@ -19 +19 @@
   end;
 
+
 implementation
 
@@ -29 +30 @@
   SourceExtension := '.c';
   CompiledExtension := '.exe';
+  Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}
   CompilerPath := 'c:\Program Files\MinGW\bin\gcc.exe -o %1:s';

trunk/Target/UTargetDelphi.pas

@@ -27 +27 @@
   SourceExtension := '.pas';
   CompiledExtension := '.exe';
+  Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}
   CompilerPath := 'c:\Program Files\Embarcadero\RAD Studio\9.0\bin\DCC32.EXE';

trunk/Target/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms, StrUtils;
+  Classes, SysUtils, Dialogs, Forms, StrUtils, UTarget;
 
 type
@@ -28 +28 @@
   { TTargetInterpretter }
 
-  TTargetInterpretter = class
+  TTargetInterpretter = class(TTarget)
   private
     FCellSize: Integer;
@@ -64 +64 @@
     procedure Reset;
     procedure SingleStep;
-    procedure Run;
-    procedure Pause;
-    procedure Stop;
+    procedure Run; override;
+    procedure Pause; override;
+    procedure Stop; override;
     constructor Create;
     destructor Destroy; override;
@@ -284 +284 @@
 constructor TTargetInterpretter.Create;
 begin
+  Name := 'Interpretter';
+  Capabilities := [tcRun, tcPause, tcStop];
   MemorySize := 30000;
   CellSize := 256;

trunk/Target/UTargetPHP.pas

@@ -28 +28 @@
   Name := 'PHP';
   SourceExtension := '.php';
+  Capabilities := [tcCompile, tcRun];
   {$IFDEF Windows}
   CompilerPath := 'c:\Program Files\PHP\php.exe';