Changeset 71 for trunk/IDE/UCore.pas

Timestamp:

Aug 1, 2012, 6:20:01 AM (12 years ago)

Author:

chronos

Message:

• Modified: Modules should use modularsystem API object.

File:

• trunk/IDE/UCore.pas (modified) (4 diffs)

trunk/IDE/UCore.pas

@@ -56 +56 @@
     procedure LoadFromRegistry(Root: HKEY; const Key: string);
     procedure SaveToRegistry(Root: HKEY; const Key: string);
-    procedure RegisterModules;
+    procedure RegisterIDEModules;
+    procedure RegisterCompilerModules;
   end;
 
@@ -67 +68 @@
 
 uses
-  UFormMain, UProjectTemplates, UIDEModulePascal;
+  UFormMain, UProjectTemplates, UIDEModulePascal, UModulePascal, UModuleGCC;
 
 { TCore }
@@ -108 +109 @@
 
   ModuleManager := TModuleManager.Create(nil);
-  RegisterModules;
+  RegisterIDEModules;
+
+  RegisterCompilerModules;
 end;
 
@@ -200 +203 @@
 end;
 
-procedure TCore.RegisterModules;
+procedure TCore.RegisterIDEModules;
 begin
   ModuleManager.RegisterModule(TIDEModulePascal.Create);
+end;
+
+procedure TCore.RegisterCompilerModules;
+begin
+  with Compiler.ModuleManager do begin
+    RegisterModule(TModulePascal.Create, True);
+    RegisterModule(TModuleGCC.Create, True);
+{    RegisterModule(TModuleInterpretter.Create);
+    RegisterModule(TModuleDelphi.Create);
+    RegisterModule(TModulePHP.Create);
+    RegisterModule(TModuleJava.Create);
+    RegisterModule(TModuleASM8051.Create);
+    RegisterModule(TModuleXML.Create);
+    RegisterModule(TModuleNASM.Create);}
+  end;
 end;