Changeset 73 for trunk/Compiler/Modules


Ignore:
Timestamp:
May 2, 2013, 10:11:15 PM (12 years ago)
Author:
chronos
Message:
  • Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
Location:
trunk/Compiler/Modules
Files:
6 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);
Note: See TracChangeset for help on using the changeset viewer.