Changeset 41 for trunk/Target

Timestamp:

Feb 19, 2012, 5:26:03 PM (13 years ago)

Author:

chronos

Message:

• Added: New Java target.

Location:

trunk/Target

Files:

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

trunk/Target/UTarget.pas

@@ -79 +79 @@
     procedure SetSourceCode(AValue: string); virtual;
     function GetTargetCode: string; virtual;
-    procedure AddLine(Text: string);
+    procedure AddLine(Text: string = '');
     function LongFileName(FileName: string): string;
     function GetExecutionPosition: Integer; virtual;
@@ -88 +88 @@
     Optimization: TCompilerOptimization;
     CompilerPath: string;
+    ExecutorPath: string;
     SourceExtension: string;
     CompiledExtension: string;
@@ -101 +102 @@
     procedure Compile; virtual;
     procedure CompileToFile; virtual;
+    procedure RunFromFile; virtual;
     procedure Run; virtual;
     procedure Pause; virtual;
@@ -309 +311 @@
 end;
 
-procedure TTarget.AddLine(Text: string);
+procedure TTarget.AddLine(Text: string = '');
 begin
   FTargetCode := FTargetCode + DupeString('  ', Indent) + Text + LineEnding;
@@ -384 +386 @@
     Process.Free;
   end else raise Exception.Create(Format(SCompilerNotFound, [CompilerPath]));
-
+end;
+
+procedure TTarget.RunFromFile;
+var
+  Process: TProcess;
+  CompiledFile: string;
+begin
   CompiledFile := ExtractFilePath(ProjectFileName) +
     'compiled' + DirectorySeparator + Name + DirectorySeparator +
@@ -391 +399 @@
   try
     Process := TProcess.Create(nil);
-    Process.CommandLine := LongFileName(CompiledFile);
+    Process.CommandLine := LongFileName(ExecutorPath) + ' ' + LongFileName(CompiledFile);
     Process.Options := [poWaitOnExit];
     Process.Execute;

trunk/Target/UTargetC.pas

@@ -107 +107 @@
   Dec(Indent);
   AddLine('}');
+
+  CompileToFile;
 end;
 
@@ -140 +142 @@
 procedure TTargetC.Run;
 begin
-  CompileToFile;
   inherited;
+  RunFromFile;
 end;
 

trunk/Target/UTargetDelphi.pas

@@ -101 +101 @@
   Dec(Indent);
   AddLine('end.');
+
+  CompileToFile;
 end;
 
 procedure TTargetDelphi.Run;
 begin
-  CompileToFile;
   inherited Run;
+  RunFromFile;
 end;
 

trunk/Target/UTargetPHP.pas

@@ -95 +95 @@
   AddLine('');
   AddLine('?>');
+
+  CompileToFile;
 end;
 
 procedure TTargetPHP.Run;
 begin
-  CompileToFile;
   inherited Run;
+  RunFromFile;
 end;