Changeset 41 for trunk/IDE

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.

Location:

trunk/IDE

Files:

• Forms/UCompilersForm.lfm (modified) (1 diff)
• Forms/UCompilersForm.pas (modified) (3 diffs)
• Forms/UMainForm.lfm (modified) (1 diff)
• Forms/UMainForm.lrt (modified) (1 diff)
• Forms/UMainForm.pas (modified) (7 diffs)
• Languages/Transpascal.cs.po (modified) (1 diff)
• Languages/Transpascal.po (modified) (1 diff)
• Transpascal.lpi (modified) (1 diff)
• UApplicationInfo.pas (modified) (2 diffs)
• UProducerTreeView.pas (added)

trunk/IDE/Forms/UCompilersForm.lfm

@@ -22 +22 @@
       item
         Caption = 'Execution path'
-        Width = 200
+        Width = 247
       end>
     OwnerData = True

trunk/IDE/Forms/UCompilersForm.pas

@@ -31 +31 @@
 
 uses
-  UMainForm, UCompiler, UCompilerSettingsForm, UProducer;
+  UMainForm, UCompiler, UCompilerSettingsForm, UProducer, UTarget;
 
 resourcestring
@@ -46 +46 @@
 procedure TFormProducers.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Producers.Count) then
-  with TProducer(MainForm.Compiler.Producers[Item.Index]) do begin
+  if (Item.Index >= 0) and (Item.Index < MainForm.Compiler.Targets.Count) then
+  with TTarget(MainForm.Compiler.Targets[Item.Index]) do begin
     Item.Caption := Name;
-    Item.Data := MainForm.Compiler.Producers[Item.Index];
-    Item.SubItems.Add(CompilerPath);
+    Item.Data := MainForm.Compiler.Targets[Item.Index];
+    Item.SubItems.Add(Producer.CompilerPath);
   end;
 end;
@@ -66 +66 @@
 procedure TFormProducers.ReloadList;
 begin
-  ListView1.Items.Count := MainForm.Compiler.Producers.Count;
+  ListView1.Items.Count := MainForm.Compiler.Targets.Count;
   ListView1.Refresh;
 end;

trunk/IDE/Forms/UMainForm.lfm

@@ -472 +472 @@
           0000000000000000000000000000000000000000000000000000
         }
-      end
-      object MenuItemAnalyzer: TMenuItem
-        Caption = 'Analyzer'
       end
       object MenuItemProducer: TMenuItem

trunk/IDE/Forms/UMainForm.lrt

@@ -11 +11 @@
 TMAINFORM.MENUITEM12.CAPTION=-
 TMAINFORM.MENUITEM7.CAPTION=Run
-TMAINFORM.MENUITEMANALYZER.CAPTION=Analyzer
 TMAINFORM.MENUITEMPRODUCER.CAPTION=Producer
 TMAINFORM.MENUITEM15.CAPTION=View

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;

trunk/IDE/Languages/Transpascal.cs.po

@@ -229 +229 @@
 msgstr "Nápověda"
 
-#: tmainform.menuitemanalyzer.caption
-msgid "Analyzer"
-msgstr "Analyzátor"
-
 #: tmainform.menuitemopenrecent.caption
 msgid "Open recent"

trunk/IDE/Languages/Transpascal.po

@@ -221 +221 @@
 msgstr ""
 
-#: tmainform.menuitemanalyzer.caption
-msgid "Analyzer"
-msgstr ""
-
 #: tmainform.menuitemopenrecent.caption
 msgid "Open recent"

trunk/IDE/Transpascal.lpi

@@ -90 +90 @@
       <Item3>
         <PackageName Value="LCLBase"/>
-        <MinVersion Major="1" Valid="True" Release="1"/>
+        <MinVersion Major="1" Release="1" Valid="True"/>
       </Item3>
       <Item4>

trunk/IDE/UApplicationInfo.pas

@@ -2 +2 @@
 
 {$MODE Delphi}
-
-// Date: 2010-06-16
 
 interface
@@ -55 +53 @@
   Name := 'Transpascal IDE';
   Identification := 1;
-  ReleaseDate := EncodeDate(2012, 2, 25);
+  ReleaseDate := EncodeDate(2012, 2, 28);
   MajorVersion := 0;
   MinorVersion := 1;