Changeset 12 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Nov 8, 2010, 10:06:37 AM (14 years ago)

Author:

george

Message:

• Parser renamed to Analyzer.
• Modified: Specialized parsers and analyzers separated from compiler for purpose of creating custom parsers and analyzers. Units UParsers and UAnalyzers determine which classes will be really used.

Location:

trunk/IDE

Files:

• . (modified) (1 prop)
• Forms/UMainForm.pas (modified) (8 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -30 +30 @@
     Button1: TButton;
     CheckBoxLogParsing: TCheckBox;
-    ComboBoxAnalyzerType: TComboBox;
-    ComboBoxTargetSelection: TComboBox;
+    ComboBoxAnalyzer: TComboBox;
+    ComboBoxProducer: TComboBox;
     CoolDockClient1: TCoolDockClient;
     CoolDockMaster1: TCoolDockMaster;
@@ -55 +55 @@
     procedure AProjectSaveAsExecute(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
-    procedure ComboBoxTargetSelectionChange(Sender: TObject);
+    procedure ComboBoxProducerChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -91 +91 @@
 begin
   // Compile project file
-  if CheckBoxLogParsing.Checked then
-     Compiler.Parser.OnDebugLog := CompilerDebugLog
-     else Compiler.Parser.OnDebugLog := nil;
-  Compiler.ProducerType := TProducerType(ComboBoxTargetSelection.ItemIndex);
-  Compiler.Init;
-  Compiler.Parser.OnGetSource := GetSource;
-
-  if Project.Items.Count > 0 then
-  with TProjectFile(Project.Items[0]) do begin
-    Compiler.TargetFolder := Project.RootDir;
-    Compiler.Compile(Parent.GetDir + ExtractFileNameOnly(Name), Source);
-  end;
-
-  ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
-  MessagesForm.Reload;
+  if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
+    (ComboBoxProducer.Items.Count > 0) and (ComboBoxProducer.ItemIndex <> -1) then begin
+    Compiler.Producer := Compiler.Producers[ComboBoxProducer.ItemIndex];
+    Compiler.Analyzer := Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex];
+    Compiler.Analyzer.OnGetSource := GetSource;
+    Compiler.Init;
+
+    if CheckBoxLogParsing.Checked then
+      Compiler.Analyzer.OnDebugLog := CompilerDebugLog
+      else Compiler.Analyzer.OnDebugLog := nil;
+
+    if Project.Items.Count > 0 then
+    with TProjectFile(Project.Items[0]) do begin
+      Compiler.TargetFolder := Project.RootDir;
+      Compiler.Compile(Parent.GetDir + ExtractFileNameOnly(Name), Source);
+    end;
+    ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
+    MessagesForm.Reload;
+  end;
 end;
 
@@ -163 +167 @@
       OpenKey(RegistryKey, True);
       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
-      ComboBoxTargetSelection.ItemIndex :=
+      ComboBoxProducer.ItemIndex :=
         ReadIntegerWithDefault('ProducerType', 0);
-      ComboBoxAnalyzerType.ItemIndex :=
+      ComboBoxAnalyzer.ItemIndex :=
         ReadIntegerWithDefault('AnalyzerType', 0);
       CheckBoxLogParsing.Checked := ReadBoolWithDefault('LogParsing', False);
@@ -181 +185 @@
       OpenKey(RegistryKey, True);
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
-      WriteInteger('ProducerType', ComboBoxTargetSelection.ItemIndex);
-      WriteInteger('AnalyzerType', ComboBoxAnalyzerType.ItemIndex);
+      WriteInteger('ProducerType', ComboBoxProducer.ItemIndex);
+      WriteInteger('AnalyzerType', ComboBoxAnalyzer.ItemIndex);
       WriteBool('LogParsing', CheckBoxLogParsing.Checked);
     finally
@@ -208 +212 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 var
-  ProducerType: TProducerType;
-  AnalyzerType: TAnalyzerType;
+  I: Integer;
 begin
   DebugLog.FileName := 'DebugLog.txt';
@@ -219 +222 @@
   LastOpenedFiles.ClickAction := OpenRecentClick;
 
-  ComboBoxTargetSelection.Clear;
-  for ProducerType := Low(ProducerType) to High(ProducerType) do
-    ComboBoxTargetSelection.AddItem(ProducerTypeName[ProducerType], nil);
-  ComboBoxAnalyzerType.Clear;
-  for AnalyzerType := Low(AnalyzerType) to High(AnalyzerType) do
-    ComboBoxAnalyzerType.AddItem(AnalyzerTypeName[AnalyzerType], nil);
+  ComboBoxProducer.Clear;
+  for I := 0 to Compiler.Producers.Count - 1 do
+    ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
+  ComboBoxAnalyzer.Clear;
+  for I := 0 to Compiler.Analyzers.Count - 1 do
+    ComboBoxAnalyzer.AddItem(Compiler.Analyzers[I].Name, nil);
 end;
 
@@ -283 +286 @@
 end;
 
-procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
+procedure TMainForm.ComboBoxProducerChange(Sender: TObject);
 begin
   ABuildExecute(Self);