Changeset 55 for branches/DelphiToC/UCompiler.pas

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/UCompiler.pas (modified) (5 diffs)

branches/DelphiToC/UCompiler.pas

@@ -15 +15 @@
     Text: string;
     Position: TPoint;
+    FileName: string;
   end;
 
@@ -22 +23 @@
   private
     FOnErrorMessage: TOnErrorMessage;
+    FFileName: string;
     procedure ErrorMessage(Text: string; Position: TPoint);
   public
@@ -30 +32 @@
     constructor Create;
     procedure Init;
-    procedure Compile(Source: TStringList; ProducedCode: TStringList);
+    procedure Compile(ModuleName: string; Source: TStringList; ProducedCode: TStringList);
     destructor Destroy; override;
-    property OnErrorMessage: TOnErrorMessage read FOnErrorMessage write FOnErrorMessage;
+    property OnErrorMessage: TOnErrorMessage read FOnErrorMessage
+      write FOnErrorMessage;
   end;
 
@@ -39 +42 @@
 { TCompiler }
 
-procedure TCompiler.Compile(Source: TStringList; ProducedCode: TStringList);
+procedure TCompiler.Compile(ModuleName: string; Source: TStringList; ProducedCode: TStringList);
 var
   NewModule: TModule;
 begin
+  FFileName := ModuleName;
   Parser.SourceCodeText := Source;
   Parser.Init;
-  NewModule := TModule.Create;
-  ProgramCode.Modules.Add(NewModule);
-  Parser.ParseModule(NewModule);
+  ProgramCode.Modules.Add(Parser.ParseModule);
   Producer.Produce(NewModule, ProducedCode);
 end;
@@ -81 +83 @@
   NewMessage.Text := Text;
   NewMessage.Position := Position;
+  NewMessage.FileName := FFileName;
   ErrorMessages.Add(NewMessage);
   if Assigned(FOnErrorMessage) then FOnErrorMessage(Text, Position);