Changeset 19 for branches/DelphiToC/UMainForm.pas

Timestamp:

Apr 9, 2009, 2:08:56 PM (15 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/UMainForm.pas (modified) (5 diffs)

branches/DelphiToC/UMainForm.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource;
+  Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource,
+  UCSource, ComCtrls;
 
 type
@@ -13 +14 @@
     Memo2: TMemo;
     Memo3: TMemo;
+    TreeView1: TTreeView;
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -20 +22 @@
     procedure ErrorMessage(Text: string);
   private
-    { Private declarations }
+    procedure FillTreeView;
   public
     Compiler: TCompiler;
@@ -41 +43 @@
   Compiler.SourceCode.Assign(Memo1.Lines);
   Compiler.Compile;
+  FillTreeView;
   Memo2.Clear;
-  with TAssemblerProducer(Compiler.Producer) do
-  for I := 0 to AssemblyCode.Count - 1 do
-    Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
+  if Compiler.Producer is TAssemblerProducer then begin
+    with TAssemblerProducer(Compiler.Producer) do
+    for I := 0 to AssemblyCode.Count - 1 do
+      Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
+  end else
+  if Compiler.Producer is TCProducer then begin
+    with TCProducer(Compiler.Producer) do
+      Memo2.Lines.Assign(TextSource);
+  end;
 end;
 
@@ -50 +59 @@
 begin
   MainForm.Memo3.Lines.Add(Text);
+end;
+
+procedure TMainForm.FillTreeView;
+var
+  NewNode: TTreeNode;
+  NewNode2: TTreeNode;
+  ModuleNode: TTreeNode;
+  I: Integer;
+  M: Integer;
+begin
+  with TreeView1, Items, Compiler do begin
+    BeginUpdate;
+    Clear;
+    AddChild(nil, 'Projekt');
+    for M := 0 to ProgramCode.Modules.Count - 1 do
+      with TModule(ProgramCode.Modules[M]) do begin
+        ModuleNode := AddChild(TopItem, Name);
+        NewNode := AddChild(ModuleNode, 'Typy');
+        for I := 0 to Types.Count - 1 do
+        with TType(Types[I]) do
+          NewNode2 := AddChild(NewNode, Name);
+        NewNode := AddChild(ModuleNode, 'Funkce');
+        for I := 0 to Methods.Count - 1 do
+        with TFunction(Methods[I]) do
+          NewNode2 := AddChild(NewNode, Name);
+        NewNode := AddChild(ModuleNode, 'Promìnné');
+        for I := 0 to Variables.Count - 1 do
+        with TVariable(Variables[I]) do
+          NewNode2 := AddChild(NewNode, Name);
+        NewNode := AddChild(ModuleNode, 'Konstanty');
+        for I := 0 to Constants.Count - 1 do
+        with TConstant(Constants[I]) do
+          NewNode2 := AddChild(NewNode, Name);
+        NewNode := AddChild(ModuleNode, 'Program');
+      end;
+    TopItem.Expand(True);
+    EndUpdate;
+  end;
 end;