Changeset 73


Ignore:
Timestamp:
May 2, 2013, 10:11:15 PM (11 years ago)
Author:
chronos
Message:
  • Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
Location:
trunk
Files:
210 added
4 deleted
10 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Modules/Brainfuck/UModuleBrainfuck.pas

    r72 r73  
    3333
    3434  TModuleBrainfuck = class(TModule)
    35     constructor Create; override;
    36     procedure Install; override;
    37     procedure Uninstall; override;
     35    constructor Create(AOwner: TComponent); override;
     36    procedure DoInstall; override;
     37    procedure DoUninstall; override;
    3838  end;
    3939
    … …  
    8181constructor TModuleBrainfuck.Create;
    8282begin
    83   inherited Create;
     83  inherited;
    8484  Name := 'Brainfuck';
    8585  Title := SBrainfuck;
    … …  
    8787end;
    8888
    89 procedure TModuleBrainfuck.Install;
     89procedure TModuleBrainfuck.DoInstall;
    9090begin
    91   inherited Install;
     91  inherited;
    9292  TCompilerAPI(API).RegisterConvertor(TConvertorTextToBF);
    9393  TCompilerAPI(API).RegisterConvertor(TConvertorBFToPascal);
    9494end;
    9595
    96 procedure TModuleBrainfuck.Uninstall;
     96procedure TModuleBrainfuck.DoUninstall;
    9797begin
    9898  TCompilerAPI(API).UnregisterConvertor(TConvertorTextToBF);
    9999  TCompilerAPI(API).UnregisterConvertor(TConvertorBFToPascal);
    100   inherited Uninstall;
     100  inherited;
    101101end;
    102102

  • trunk/Compiler/Modules/Delphi/UModuleDelphi.pas

    r72 r73  
    1919
    2020  TModuleDelphi = class(TModule)
    21     constructor Create; override;
    22     procedure Install; override;
    23     procedure Uninstall; override;
     21    constructor Create(AOwner: TComponent); override;
     22    procedure DoInstall; override;
     23    procedure DoUninstall; override;
    2424  end;
    2525
    … …  
    3535{ TModuleDelphi }
    3636
    37 constructor TModuleDelphi.Create;
     37constructor TModuleDelphi.Create(AOwner: TComponent);
    3838begin
    39   inherited Create;
     39  inherited;
    4040  Name := 'Delphi';
    4141  Title := SDelphi;
    4242end;
    4343
    44 procedure TModuleDelphi.Install;
     44procedure TModuleDelphi.DoInstall;
    4545begin
    4646  TCompilerAPI(API).RegisterConvertor(TProducerPascal);
    47   inherited Install;
     47  inherited;
    4848end;
    4949
    50 procedure TModuleDelphi.Uninstall;
     50procedure TModuleDelphi.DoUninstall;
    5151begin
    5252  TCompilerAPI(API).UnregisterConvertor(TProducerPascal);
    53   inherited Uninstall;
     53  inherited;
    5454end;
    5555

  • trunk/Compiler/Modules/Delphi/UProducerDelphi.pas

    r72 r73  
    6666  {$ENDIF}
    6767  {$IFDEF Linux}
    68   CompilerPath := '';
     68  Producer.CompilerPath := '';
    6969  {$ENDIF}
    7070end;

  • trunk/Compiler/Modules/GCC/UModuleGCC.pas

    r71 r73  
    11unit UModuleGCC;
    22
    3 {$mode objfpc}{$H+}
     3{$mode delphi}{$H+}
    44
    55interface
    … …  
    1414  TModuleGCC = class(TModule)
    1515    Target: TTargetGCC;
    16     constructor Create;
     16    constructor Create(AOwner: TComponent); override;
    1717    destructor Destroy; override;
    18     procedure Install; override;
    19     procedure Uninstall; override;
     18    procedure DoInstall; override;
     19    procedure DoUninstall; override;
    2020  end;
    2121
    … …  
    3030constructor TModuleGCC.Create;
    3131begin
     32  inherited;
    3233  Name := 'GCC';
    3334  Title := SGCC;
    … …  
    3940end;
    4041
    41 procedure TModuleGCC.Install;
     42procedure TModuleGCC.DoInstall;
    4243begin
    4344  Target := TTargetGCC.Create;
    44   inherited Install;
     45  inherited;
    4546end;
    4647
    47 procedure TModuleGCC.Uninstall;
     48procedure TModuleGCC.DoUninstall;
    4849begin
    49   inherited Uninstall;
     50  inherited;
    5051end;
    5152

  • trunk/Compiler/Modules/Interpretter/UModuleInterpretter.pas

    r72 r73  
    3939
    4040  TModuleInterpretter = class(TModule)
    41     constructor Create; override;
    42     procedure Install; override;
    43     procedure Uninstall; override;
     41    constructor Create(AOwner: TComponent); override;
     42    procedure DoInstall; override;
     43    procedure DoUninstall; override;
    4444  end;
    4545
    … …  
    5555{ TModuleInterpretter }
    5656
    57 constructor TModuleInterpretter.Create;
     57constructor TModuleInterpretter.Create(AOwner: TComponent);
    5858begin
    59   inherited Create;
     59  inherited;
    6060  Name := 'Interpretter';
    6161  Title := 'Interpretter';
    … …  
    6464end;
    6565
    66 procedure TModuleInterpretter.Install;
     66procedure TModuleInterpretter.DoInstall;
    6767begin
    68   inherited Install;
     68  inherited;
    6969  //TCompilerAPI(API).RegisterConvertor(TCovertor);
    7070end;
    7171
    72 procedure TModuleInterpretter.Uninstall;
     72procedure TModuleInterpretter.DoUninstall;
    7373begin
    74   inherited Uninstall;
     74  inherited;
    7575end;
    7676

  • trunk/Compiler/Modules/Pascal/UModulePascal.pas

    r72 r73  
    1414  TModulePascal = class(TModule)
    1515    Analyzer: TAnalyzerPascal;
    16     constructor Create; override;
     16    constructor Create(AOwner: TComponent); override;
    1717    destructor Destroy; override;
    18     procedure Install; override;
    19     procedure Uninstall; override;
     18    procedure DoInstall; override;
     19    procedure DoUninstall; override;
    2020  end;
    2121
    … …  
    2828{ TModulePascal }
    2929
    30 constructor TModulePascal.Create;
     30constructor TModulePascal.Create(AOwner: TComponent);
    3131begin
    32   inherited Create;
     32  inherited;
    3333  Name := 'Pascal';
    3434  Title := 'Pascal';
    … …  
    4141end;
    4242
    43 procedure TModulePascal.Install;
     43procedure TModulePascal.DoInstall;
    4444begin
    4545  with TCompilerAPI(API) do begin
    4646    RegisterConvertor(TAnalyzerPascal);
    4747  end;
    48   inherited Install;
     48  inherited;
    4949end;
    5050
    51 procedure TModulePascal.Uninstall;
     51procedure TModulePascal.DoUninstall;
    5252begin
    53   inherited Uninstall;
     53  inherited;
    5454  with TCompilerAPI(API) do begin
    5555    UnregisterConvertor(TAnalyzerPascal);

  • trunk/Compiler/UCompilerAPI.pas

    r72 r73  
    11unit UCompilerAPI;
    22
    3 {$mode objfpc}{$H+}
     3{$mode delphi}{$H+}
    44
    55interface

  • trunk/IDE/Modules/Pascal/UIDEModulePascal.pas

    r70 r73  
    1313
    1414  TIDEModulePascal = class(TModule)
    15     constructor Create; override;
     15    constructor Create(AOwner: TComponent); override;
    1616  end;
    1717
    … …  
    2020{ TIDEModulePascal }
    2121
    22 constructor TIDEModulePascal.Create;
     22constructor TIDEModulePascal.Create(AOwner: TComponent);
    2323begin
    2424  inherited;

  • trunk/IDE/Transpascal.lpi

    r72 r73  
    8080      </local>
    8181    </RunParams>
    82     <RequiredPackages Count="9">
     82    <RequiredPackages Count="8">
    8383      <Item1>
    8484        <PackageName Value="ModularSystem"/>
    8585        <MinVersion Minor="1" Valid="True"/>
     86        <DefaultFilename Value="..\Packages\ModularSystem\ModularSystem.lpk" Prefer="True"/>
    8687      </Item1>
    8788      <Item2>
    88         <PackageName Value="GeneralRegistry"/>
    89         <MinVersion Minor="1" Valid="True"/>
     89        <PackageName Value="Common"/>
     90        <MinVersion Minor="7" Valid="True"/>
     91        <DefaultFilename Value="..\Packages\Common\Common.lpk" Prefer="True"/>
    9092      </Item2>
    9193      <Item3>
    92         <PackageName Value="Common"/>
    93         <MinVersion Minor="7" Valid="True"/>
     94        <PackageName Value="CoolTranslator"/>
     95        <DefaultFilename Value="..\Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/>
    9496      </Item3>
    9597      <Item4>
    96         <PackageName Value="CoolTranslator"/>
     98        <PackageName Value="LCLBase"/>
     99        <MinVersion Major="1" Release="1" Valid="True"/>
    97100      </Item4>
    98101      <Item5>
    99         <PackageName Value="LCLBase"/>
    100         <MinVersion Major="1" Release="1" Valid="True"/>
     102        <PackageName Value="TemplateGenerics"/>
     103        <DefaultFilename Value="..\Packages\TemplateGenerics\TemplateGenerics.lpk" Prefer="True"/>
    101104      </Item5>
    102105      <Item6>
    103         <PackageName Value="TemplateGenerics"/>
     106        <PackageName Value="TranspascalCompiler"/>
     107        <DefaultFilename Value="..\Compiler\TranspascalCompiler.lpk" Prefer="True"/>
    104108      </Item6>
    105109      <Item7>
    106         <PackageName Value="TranspascalCompiler"/>
     110        <PackageName Value="SynEdit"/>
     111        <MinVersion Major="1" Valid="True"/>
    107112      </Item7>
    108113      <Item8>
    109         <PackageName Value="SynEdit"/>
    110         <MinVersion Major="1" Valid="True"/>
     114        <PackageName Value="LCL"/>
    111115      </Item8>
    112       <Item9>
    113         <PackageName Value="LCL"/>
    114       </Item9>
    115116    </RequiredPackages>
    116117    <Units Count="20">

  • trunk/IDE/UCore.pas

    r72 r73  
    176176      Free;
    177177    end;
    178   LastOpenedFiles.LoadFromRegistry(Root, Key + '\LastOpenedFiles'); //Root, Key + '\LastOpenedFiles');
     178  LastOpenedFiles.LoadFromRegistry(RegContext(Root, Key + '\LastOpenedFiles')); //Root, Key + '\LastOpenedFiles');
    179179  Compiler.LoadFromRegistry(Root, Key + '\Compiler');
    180180  FormMain.LoadFromRegistry(Root, Key);
    … …  
    198198      Free;
    199199    end;
    200   LastOpenedFiles.SaveToRegistry(Root, Key + '\LastOpenedFiles');
     200  LastOpenedFiles.SaveToRegistry(RegContext(Root, Key + '\LastOpenedFiles'));
    201201  Compiler.SaveToRegistry(Root, Key + '\Compiler');
    202202  FormMain.SaveToRegistry(Root, Key);
    … …  
    205205procedure TCore.RegisterIDEModules;
    206206begin
    207   ModuleManager.RegisterModule(TIDEModulePascal.Create);
     207  ModuleManager.RegisterModule(TIDEModulePascal.Create(nil));
    208208end;
    209209
    … …  
    211211begin
    212212  with Compiler.ModuleManager do begin
    213     RegisterModule(TModulePascal.Create, True);
    214     RegisterModule(TModuleGCC.Create, True);
     213    RegisterModule(TModulePascal.Create(nil));
     214    RegisterModule(TModuleGCC.Create(nil));
    215215{    RegisterModule(TModuleInterpretter.Create);
    216216    RegisterModule(TModuleDelphi.Create);
Note: See TracChangeset for help on using the changeset viewer.