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

Timestamp:

Feb 28, 2012, 8:34:31 PM (13 years ago)

Author:

chronos

Message:

• Modified: Instead of TProducer class will be used TTarget as real target definition.
• Added: For execution of compiled code TExecutor class is introduced.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (7 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -11 +11 @@
   UCDConjoinForm, UCDWindowList, UCDLayout, UCDCustomize, UCoolTranslator,
   UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
-  UDebugLog, UAnalyzer, UProducer;
+  UDebugLog;
 
 const
@@ -68 +68 @@
     MenuItem23: TMenuItem;
     MenuItem24: TMenuItem;
-    MenuItemAnalyzer: TMenuItem;
     MenuItemProducer: TMenuItem;
     MenuItem3: TMenuItem;
@@ -157 +156 @@
 uses
   UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
-  UCompilersForm;
+  UCompilersForm, UTarget, UAnalyzer, UProducer;
 
 resourcestring
@@ -171 +170 @@
     try
       RootKey := Root;
-      for I := 0 to Producers.Count - 1 do
-      with TProducer(Producers[I]) do begin
-        OpenKey(Key + '\Producers\' + Name, True);
+      for I := 0 to Targets.Count - 1 do
+      with TTarget(Targets[I]) do begin
+        OpenKey(Key + '\Targets\' + Name, True);
         if ValueExists('CompilerPath') then
-          CompilerPath := ReadStringWithDefault('CompilerPath', CompilerPath);
+          Producer.CompilerPath := ReadStringWithDefault('CompilerPath', Producer.CompilerPath);
       end;
+      if ValueExists('SelectedTarget') then
+      Target := Targets.SearchBySysName(ReadString('SelectedTarget'))
+        else Target := nil;
     finally
       Free;
@@ -189 +191 @@
     try
       RootKey := Root;
-      for I := 0 to Producers.Count - 1 do
-      with TProducer(Producers[I]) do begin
-        OpenKey(Key + '\Producers\' + Name, True);
-        if CompilerPath <> '' then WriteString('CompilerPath', CompilerPath)
-          else DeleteValue('CompilerPath');
+      for I := 0 to Targets.Count - 1 do
+      with TTarget(Targets[I]) do begin
+        OpenKey(Key + '\Targets\' + Name, True);
+        if Assigned(Producer) then begin
+          if Producer.CompilerPath <> '' then WriteString('CompilerPath', Producer.CompilerPath)
+            else DeleteValue('CompilerPath');
+        end;
       end;
+      if Assigned(Target) then WriteString('SelectedTarget', Target.SysName)
+        else DeleteValue('SelectedTarget');
     finally
       Free;
@@ -207 +213 @@
 
   // Compile project file
-    Compiler.Producer := TProducer(Compiler.Producers[SelectedProducerIndex]);
-    Compiler.Analyzer := TAnalyzer(Compiler.Analyzers[SelectedAnalyzerIndex]);
     Compiler.Init;
 
@@ -434 +438 @@
   NewMenuItem: TMenuItem;
 begin
-  MenuItemAnalyzer.Clear;
-  for I := 0 to Compiler.Analyzers.Count - 1 do begin
-    NewMenuItem := TMenuItem.Create(MenuItemAnalyzer);
-    NewMenuItem.Caption := TAnalyzer(Compiler.Analyzers[I]).Name;
-    NewMenuItem.OnClick := MenuItemAnalyzerClick;
-    if I = SelectedAnalyzerIndex then NewMenuItem.Checked := True;
-    MenuItemAnalyzer.Add(NewMenuItem);
-  end;
   MenuItemProducer.Clear;
-  for I := 0 to Compiler.Producers.Count - 1 do begin
+  for I := 0 to Compiler.Targets.Count - 1 do begin
     NewMenuItem := TMenuItem.Create(MenuItemProducer);
-    NewMenuItem.Caption := TProducer(Compiler.Producers[I]).Name;
+    NewMenuItem.Caption := TTarget(Compiler.Targets[I]).Name;
     NewMenuItem.OnClick := MenuItemProducerClick;
     if I = SelectedProducerIndex then NewMenuItem.Checked := True;