Changeset 41 for trunk/Target/UTarget.pas

Timestamp:

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

Author:

chronos

Message:

• Added: New Java target.

File:

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

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;