Changeset 67 for branches/Transpascal/Compiler/UCompiler.pas

Timestamp:

Oct 18, 2010, 12:39:37 PM (14 years ago)

Author:

george

Message:

• Fixed: Parsing of strings.
• Modified: Now supported C target "Dynamic C" dialect.

File:

• branches/Transpascal/Compiler/UCompiler.pas (modified) (3 diffs)

branches/Transpascal/Compiler/UCompiler.pas

@@ -45 +45 @@
     destructor Destroy; override;
     procedure Init;
-    procedure Compile(ModuleName: string; Source: TStringList);
+    procedure Compile(ModuleName: string; Source: TStringList; TargetFolder: string);
     property OnErrorMessage: TOnErrorMessage read FOnErrorMessage
       write FOnErrorMessage;
@@ -54 +54 @@
 { TCompiler }
 
-procedure TCompiler.Compile(ModuleName: string; Source: TStringList);
+procedure TCompiler.Compile(ModuleName: string; Source: TStringList;
+  TargetFolder: string);
 var
   NewModule: TModule;
@@ -70 +71 @@
       Producer.Produce(TModule(ProgramCode.Modules[I]));
       Producer.AssignToStringList(ProducedCode);
-      ForceDirectories(CompiledFolder + DirectorySeparator + Producer.ClassName);
-      ProducedCode.SaveToFile(CompiledFolder + DirectorySeparator + Producer.ClassName +
+      ForceDirectories(TargetFolder + DirectorySeparator +
+        CompiledFolder + DirectorySeparator + Producer.ClassName);
+      ProducedCode.SaveToFile(TargetFolder + DirectorySeparator +
+        CompiledFolder + DirectorySeparator + Producer.ClassName +
         DirectorySeparator + TModule(ProgramCode.Modules[I]).Name + Producer.FileExtension);
     end;