Changeset 70 for trunk/IDE


Ignore:
Timestamp:
Jul 31, 2012, 4:06:07 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Code related to pascal language in compiler moved to module.
Location:
trunk/IDE
Files:
2 added
2 deleted
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Transpascal.lpi

    r68 r70  
    8080      </local>
    8181    </RunParams>
    82     <RequiredPackages Count="8">
     82    <RequiredPackages Count="9">
    8383      <Item1>
    84         <PackageName Value="GeneralRegistry"/>
     84        <PackageName Value="ModularSystem"/>
    8585        <MinVersion Minor="1" Valid="True"/>
    8686      </Item1>
    8787      <Item2>
     88        <PackageName Value="GeneralRegistry"/>
     89        <MinVersion Minor="1" Valid="True"/>
     90      </Item2>
     91      <Item3>
    8892        <PackageName Value="Common"/>
    8993        <MinVersion Minor="7" Valid="True"/>
    90       </Item2>
    91       <Item3>
    92         <PackageName Value="CoolTranslator"/>
    9394      </Item3>
    9495      <Item4>
     96        <PackageName Value="CoolTranslator"/>
     97      </Item4>
     98      <Item5>
    9599        <PackageName Value="LCLBase"/>
    96100        <MinVersion Major="1" Release="1" Valid="True"/>
    97       </Item4>
    98       <Item5>
    99         <PackageName Value="TemplateGenerics"/>
    100101      </Item5>
    101102      <Item6>
    102         <PackageName Value="TranspascalCompiler"/>
     103        <PackageName Value="TemplateGenerics"/>
    103104      </Item6>
    104105      <Item7>
     106        <PackageName Value="TranspascalCompiler"/>
     107      </Item7>
     108      <Item8>
    105109        <PackageName Value="SynEdit"/>
    106110        <MinVersion Major="1" Valid="True"/>
    107       </Item7>
    108       <Item8>
     111      </Item8>
     112      <Item9>
    109113        <PackageName Value="LCL"/>
    110       </Item8>
     114      </Item9>
    111115    </RequiredPackages>
    112     <Units Count="21">
     116    <Units Count="20">
    113117      <Unit0>
    114118        <Filename Value="Transpascal.lpr"/>
    … …  
    245249      </Unit18>
    246250      <Unit19>
    247         <Filename Value="Common\UModule.pas"/>
    248         <IsPartOfProject Value="True"/>
    249         <UnitName Value="UModule"/>
     251        <Filename Value="Modules\Pascal\UIDEModulePascal.pas"/>
     252        <IsPartOfProject Value="True"/>
     253        <UnitName Value="UIDEModulePascal"/>
    250254      </Unit19>
    251       <Unit20>
    252         <Filename Value="Modules\Pascal\UModulePascal.pas"/>
    253         <IsPartOfProject Value="True"/>
    254         <UnitName Value="UModulePascal"/>
    255       </Unit20>
    256255    </Units>
    257256  </ProjectOptions>
    … …  
    264263    <SearchPaths>
    265264      <IncludeFiles Value="$(ProjOutDir)"/>
    266       <OtherUnitFiles Value="Forms;Common;Modules\Pascal"/>
     265      <OtherUnitFiles Value="Forms;Modules\Pascal"/>
    267266      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    268267    </SearchPaths>

  • trunk/IDE/Transpascal.lpr

    r68 r70  
    1414  UFormAbout, UFormOptions, UFormTargets,
    1515UFormProjectNew, UProjectTemplates, UFormTargetProject, UCore,
    16 UFormTargetOptions, UFormExternalProducerOutput, UModule, UModulePascal;
     16UFormTargetOptions, UFormExternalProducerOutput, UIDEModulePascal;
    1717
    1818{$R *.res}

  • trunk/IDE/UCore.pas

    r69 r70  
    88  Classes, SysUtils, FileUtil, ULastOpenedList, UProject, UApplicationInfo,
    99  UCompiler, URegistry, Registry, UDebugLog, UCoolTranslator, UTarget,
    10   USourceCode, UModule;
     10  USourceCode, UModularSystem;
    1111
    1212type
    … …  
    6767
    6868uses
    69   UFormMain, UProjectTemplates, UModulePascal;
     69  UFormMain, UProjectTemplates, UIDEModulePascal;
    7070
    7171{ TCore }
    … …  
    107107  LogParsing := False;
    108108
    109   ModuleManager := TModuleManager.Create;
     109  ModuleManager := TModuleManager.Create(nil);
    110110  RegisterModules;
    111111end;
    … …  
    202202procedure TCore.RegisterModules;
    203203begin
    204   ModuleManager.Register(TModulePascal, True);
     204  ModuleManager.RegisterModule(TIDEModulePascal.Create);
    205205end;
    206206
Note: See TracChangeset for help on using the changeset viewer.