Changeset 34 for trunk/Target

Timestamp:

Feb 18, 2012, 11:17:14 PM (12 years ago)

Author:

chronos

Message:

• Removed: Action Compile and run. Now Compile is executed before Run action if not compiled yet.

Location:

trunk/Target

Files:

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

trunk/Target/UTarget.pas

@@ -259 +259 @@
     Process.Free;
   end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
-end;
-
-procedure TTarget.Run;
-var
-  CompiledFile: string;
-  Process: TProcess;
-begin
+
   CompiledFile := ExtractFilePath(ProjectFileName) +
     'compiled' + DirectorySeparator + Name + DirectorySeparator +
@@ -280 +274 @@
 end;
 
+procedure TTarget.Run;
+begin
+end;
+
 procedure TTarget.Pause;
 begin

trunk/Target/UTargetC.pas

@@ -139 +139 @@
 procedure TTargetC.Run;
 begin
-  inherited Run;
+  CompileToFile;
+  inherited;
 end;
 

trunk/Target/UTargetDelphi.pas

@@ -17 +17 @@
     constructor Create; override;
     procedure Compile; override;
+    procedure Run; override;
   end;
 
@@ -101 +102 @@
 end;
 
+procedure TTargetDelphi.Run;
+begin
+  CompileToFile;
+  inherited Run;
+end;
+
 end.
 

trunk/Target/UTargetPHP.pas

@@ -98 +98 @@
 procedure TTargetPHP.Run;
 begin
+  CompileToFile;
   inherited Run;
 end;