Changeset 19 for branches/DelphiToC/UPascalCompiler.pas

Timestamp:

Apr 9, 2009, 2:08:56 PM (16 years ago)

Author:

george

Message:

• Přidáno: Nástřel parsování funkcí.
• Přidáno: Zobrazení stromu struktury programu.
• Opraveno: Zobrazení chybových hlášení.

File:

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

branches/DelphiToC/UPascalCompiler.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UPascalSource, UCodeProducer, UPascalParser, UAssemblerSource;
+  Dialogs, StdCtrls, UPascalSource, UCodeProducer, UPascalParser, UAssemblerSource,
+  UCSource;
 
 type
   TCompiler = class
   private
-    ProgramCode: TProgram;
     FOnErrorMessage: TOnErrorMessage;
     procedure ErrorMessage(Text: string);
   public
+    ProgramCode: TProgram;
     SourceCode: TStringList;
     Parser: TPascalParser;
@@ -38 +39 @@
   SourceCode := TStringList.Create;
   ProgramCode := TProgram.Create;
-  Producer := TAssemblerProducer.Create;
+  Producer := TCProducer.Create;
   Producer.ProgramCode := ProgramCode;
   Parser := TPascalParser.Create;
   Parser.SourceCode := SourceCode;
+  Parser.OnErrorMessage := ErrorMessage;
 end;