Changeset 49 for branches/DelphiToC/UPascalCompiler.pas

Timestamp:

Aug 9, 2010, 2:24:24 PM (14 years ago)

Author:

george

Message:

Added support for setting cursor position to place of error code for error messages.

File:

• branches/DelphiToC/UPascalCompiler.pas (modified) (6 diffs)

branches/DelphiToC/UPascalCompiler.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, UPascalSource, UCodeProducer, UPascalParser,
-  UProducerC;
+  UProducerC, Contnrs;
 
 type
+
+  TErrorMessage = class
+    Text: string;
+    Position: TPoint;
+  end;
 
   { TCompiler }
@@ -17 +22 @@
   private
     FOnErrorMessage: TOnErrorMessage;
-    procedure ErrorMessage(Text: string);
+    procedure ErrorMessage(Text: string; Position: TPoint);
     procedure InitSystem;
   public
@@ -24 +29 @@
     Parser: TPascalParser;
     Producer: TCodeProducer;
+    ErrorMessages: TObjectList;
     constructor Create;
     procedure Compile;
@@ -37 +43 @@
 begin
   InitSystem;
+  ErrorMessages.Clear;
   Parser.Init;
   Parser.ParseAll(ProgramCode);
@@ -51 +58 @@
   Parser.SourceCodeText := SourceCode;
   Parser.OnErrorMessage := ErrorMessage;
+  ErrorMessages := TObjectList.Create;
 end;
 
@@ -59 +67 @@
   Parser.Free;
   Producer.Free;
+  ErrorMessages.Free;
 end;
 
-procedure TCompiler.ErrorMessage(Text: string);
+procedure TCompiler.ErrorMessage(Text: string; Position: TPoint);
+var
+  NewMessage: TErrorMessage;
 begin
-  if Assigned(FOnErrorMessage) then FOnErrorMessage(Text);
+  NewMessage := TErrorMessage.Create;
+  NewMessage.Text := Text;
+  NewMessage.Position := Position;
+  ErrorMessages.Add(NewMessage);
+  if Assigned(FOnErrorMessage) then FOnErrorMessage(Text, Position);
 end;