Changeset 54 for branches/DelphiToC/Forms/UMainForm.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

• branches/DelphiToC/Forms/UMainForm.pas (modified) (9 diffs)

branches/DelphiToC/Forms/UMainForm.pas

@@ -9 +9 @@
   Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
-  UProducerPascal, Contnrs;
+  UProducerPascal, Contnrs, UProject;
 
 const
-  ExampleFileName = '../../Example.pas';
+  ProjectDir = '../../Project/';
 
 type
@@ -24 +24 @@
     SynEdit1: TSynEdit;
     SynPasSyn1: TSynPasSyn;
+    TreeViewProject: TTreeView;
     procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -31 +32 @@
     procedure FormDestroy(Sender: TObject);
     procedure ListBox1Click(Sender: TObject);
+    procedure TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
+  private
     procedure LoadErrorMessages;
-  private
+    procedure UpdateProjectTree;
+    procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
   public
+    Project: TProject;
     ProducerControl: TControl;
     Compiler: TCompiler;
-    SourceTree: TProducerTreeView;
   end;
 
@@ -52 +56 @@
   I: Integer;
 begin
-  MainForm.ListBox1.Clear;
-  Compiler.SourceCode.Assign(SynEdit1.Lines);
-
   ProducerControl.Free;
   if ComboBox1.ItemIndex = 0 then begin
     Compiler.Producer.Free;
     Compiler.Producer := TProducerPascal.Create;
-    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
-    Compiler.Compile;
+  end else
+  if ComboBox1.ItemIndex = 1 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TProducerC.Create;
+  end else
+  if ComboBox1.ItemIndex = 2 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TProducerAsm8051.Create;
+  end else
+  if ComboBox1.ItemIndex = 3 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TProducerTreeView.Create;
+    ProducerControl := TTreeView.Create(Self);
+    ProducerControl.Parent := Panel1;
+    ProducerControl.Align := alClient;
+    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
+  end;
+
+  // Compile all project files
+  for I := 0 to Project.Items.Count - 1 do begin
+    if TProjectNode(Project.Items[I]) is TProjectFile then begin
+      Compiler.Compile(TProjectFile(Project.Items[I]).Source,
+        TProjectFile(Project.Items[I]).ProducedCode);
+    end;
+  end;
+
+  if ComboBox1.ItemIndex = 0 then begin
     ProducerControl := TMemo.Create(Self);
     ProducerControl.Parent := Panel1;
@@ -66 +92 @@
     ProducerControl.Font.Name := 'Courier New';
     TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-    with TProducerPascal(Compiler.Producer) do
-      TMemo(ProducerControl).Lines.Assign(TextSource);
   end else
   if ComboBox1.ItemIndex = 1 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerC.Create;
-    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
-    Compiler.Compile;
     ProducerControl := TMemo.Create(Self);
     ProducerControl.Parent := Panel1;
@@ -79 +99 @@
     ProducerControl.Font.Name := 'Courier New';
     TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-    with TProducerC(Compiler.Producer) do
-      TMemo(ProducerControl).Lines.Assign(TextSource);
   end else
   if ComboBox1.ItemIndex = 2 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerAsm8051.Create;
-    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
-    Compiler.Compile;
     ProducerControl := TMemo.Create(Self);
     ProducerControl.Parent := Panel1;
@@ -92 +106 @@
     ProducerControl.Font.Name := 'Courier New';
     TMemo(ProducerControl).ScrollBars := ssAutoBoth;
-    with TProducerAsm8051(Compiler.Producer) do
-    for I := 0 to AssemblyCode.Count - 1 do
-      TMemo(ProducerControl).Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
-  end;
+  end else
   if ComboBox1.ItemIndex = 3 then begin
-    Compiler.Producer.Free;
-    Compiler.Producer := TProducerTreeView.Create;
-    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
-    ProducerControl := TTreeView.Create(Self);
-    ProducerControl.Parent := Panel1;
-    ProducerControl.Align := alClient;
-    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
-    Compiler.Compile;
-  end;
+  end;
+
   LoadErrorMessages;
 end;
@@ -128 +132 @@
 end;
 
+procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
+begin
+  if Assigned(Node) then begin
+    if TProjectNode(Node.Data) is TProjectFile then begin
+      SynEdit1.Lines.Assign(TProjectFile(Node.Data).Source);
+      if ProducerControl is TMemo then
+        TMemo(ProducerControl).Lines.Assign(TProjectFile(Node.Data).ProducedCode);
+    end;
+  end;
+end;
+
+procedure TMainForm.UpdateProjectTree;
+var
+  NewNode: TTreeNode;
+begin
+  with TreeViewProject, Items do begin
+    BeginUpdate;
+    Clear;
+    NewNode := AddChild(nil, Project.Name);
+    UpdateProjectGroup(NewNode, Project);
+    NewNode.Expand(True);
+    EndUpdate;
+  end;
+  TreeViewProject.TopItem.Items[0].Selected := True;
+end;
+
+procedure TMainForm.UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
+var
+  I: Integer;
+  NewNode: TTreeNode;
+begin
+  for I := 0 to Group.Items.Count - 1 do begin
+    NewNode := TreeViewProject.Items.AddChild(Node,
+      TProjectNode(Group.Items[I]).Name);
+    NewNode.Data := Pointer(Group.Items[I]);
+    if TProjectNode(Group.Items[I]) is TProjectGroup then
+      UpdateProjectGroup(NewNode, TProjectGroup(Group.Items[I]));
+  end;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  SynEdit1.Lines.SaveToFile(ExampleFileName);
+  Project.Save;
 end;
 
@@ -136 +180 @@
 begin
   Compiler := TCompiler.Create;
-  SourceTree := TProducerTreeView.Create;
+  Project := TProject.Create;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  Project.Free;
   Compiler.Free;
-  SourceTree.Free;
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
-begin
+var
+  NewProjectFile: TProjectFile;
+begin
+  Project.Name := 'Project';
+  NewProjectFile := TProjectFile.Create;
+  NewProjectFile.Name := 'Project.pas';
+  NewProjectFile.FileName := ProjectDir + 'Project.pas';
+  Project.Items.Add(NewProjectFile);
+  NewProjectFile := TProjectFile.Create;
+  NewProjectFile.Name := 'System.pas';
+  NewProjectFile.FileName := ProjectDir + 'System.pas';
+  Project.Items.Add(NewProjectFile);
+  Project.Load;
+  UpdateProjectTree;
+
   WindowState := wsMaximized;
-  SynEdit1.Lines.LoadFromFile(ExampleFileName);
   ButtonCompileClick(Self);
 end;