Changeset 73 for trunk/Compiler
- Timestamp:
- May 2, 2013, 10:11:15 PM (12 years ago)
- Location:
- trunk/Compiler
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/Modules/Brainfuck/UModuleBrainfuck.pas
r72 r73 33 33 34 34 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; 38 38 end; 39 39 … … 81 81 constructor TModuleBrainfuck.Create; 82 82 begin 83 inherited Create;83 inherited; 84 84 Name := 'Brainfuck'; 85 85 Title := SBrainfuck; … … 87 87 end; 88 88 89 procedure TModuleBrainfuck. Install;89 procedure TModuleBrainfuck.DoInstall; 90 90 begin 91 inherited Install;91 inherited; 92 92 TCompilerAPI(API).RegisterConvertor(TConvertorTextToBF); 93 93 TCompilerAPI(API).RegisterConvertor(TConvertorBFToPascal); 94 94 end; 95 95 96 procedure TModuleBrainfuck. Uninstall;96 procedure TModuleBrainfuck.DoUninstall; 97 97 begin 98 98 TCompilerAPI(API).UnregisterConvertor(TConvertorTextToBF); 99 99 TCompilerAPI(API).UnregisterConvertor(TConvertorBFToPascal); 100 inherited Uninstall;100 inherited; 101 101 end; 102 102 -
trunk/Compiler/Modules/Delphi/UModuleDelphi.pas
r72 r73 19 19 20 20 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; 24 24 end; 25 25 … … 35 35 { TModuleDelphi } 36 36 37 constructor TModuleDelphi.Create ;37 constructor TModuleDelphi.Create(AOwner: TComponent); 38 38 begin 39 inherited Create;39 inherited; 40 40 Name := 'Delphi'; 41 41 Title := SDelphi; 42 42 end; 43 43 44 procedure TModuleDelphi. Install;44 procedure TModuleDelphi.DoInstall; 45 45 begin 46 46 TCompilerAPI(API).RegisterConvertor(TProducerPascal); 47 inherited Install;47 inherited; 48 48 end; 49 49 50 procedure TModuleDelphi. Uninstall;50 procedure TModuleDelphi.DoUninstall; 51 51 begin 52 52 TCompilerAPI(API).UnregisterConvertor(TProducerPascal); 53 inherited Uninstall;53 inherited; 54 54 end; 55 55 -
trunk/Compiler/Modules/Delphi/UProducerDelphi.pas
r72 r73 66 66 {$ENDIF} 67 67 {$IFDEF Linux} 68 CompilerPath := '';68 Producer.CompilerPath := ''; 69 69 {$ENDIF} 70 70 end; -
trunk/Compiler/Modules/GCC/UModuleGCC.pas
r71 r73 1 1 unit UModuleGCC; 2 2 3 {$mode objfpc}{$H+}3 {$mode delphi}{$H+} 4 4 5 5 interface … … 14 14 TModuleGCC = class(TModule) 15 15 Target: TTargetGCC; 16 constructor Create ;16 constructor Create(AOwner: TComponent); override; 17 17 destructor Destroy; override; 18 procedure Install; override;19 procedure Uninstall; override;18 procedure DoInstall; override; 19 procedure DoUninstall; override; 20 20 end; 21 21 … … 30 30 constructor TModuleGCC.Create; 31 31 begin 32 inherited; 32 33 Name := 'GCC'; 33 34 Title := SGCC; … … 39 40 end; 40 41 41 procedure TModuleGCC. Install;42 procedure TModuleGCC.DoInstall; 42 43 begin 43 44 Target := TTargetGCC.Create; 44 inherited Install;45 inherited; 45 46 end; 46 47 47 procedure TModuleGCC. Uninstall;48 procedure TModuleGCC.DoUninstall; 48 49 begin 49 inherited Uninstall;50 inherited; 50 51 end; 51 52 -
trunk/Compiler/Modules/Interpretter/UModuleInterpretter.pas
r72 r73 39 39 40 40 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; 44 44 end; 45 45 … … 55 55 { TModuleInterpretter } 56 56 57 constructor TModuleInterpretter.Create ;57 constructor TModuleInterpretter.Create(AOwner: TComponent); 58 58 begin 59 inherited Create;59 inherited; 60 60 Name := 'Interpretter'; 61 61 Title := 'Interpretter'; … … 64 64 end; 65 65 66 procedure TModuleInterpretter. Install;66 procedure TModuleInterpretter.DoInstall; 67 67 begin 68 inherited Install;68 inherited; 69 69 //TCompilerAPI(API).RegisterConvertor(TCovertor); 70 70 end; 71 71 72 procedure TModuleInterpretter. Uninstall;72 procedure TModuleInterpretter.DoUninstall; 73 73 begin 74 inherited Uninstall;74 inherited; 75 75 end; 76 76 -
trunk/Compiler/Modules/Pascal/UModulePascal.pas
r72 r73 14 14 TModulePascal = class(TModule) 15 15 Analyzer: TAnalyzerPascal; 16 constructor Create ; override;16 constructor Create(AOwner: TComponent); override; 17 17 destructor Destroy; override; 18 procedure Install; override;19 procedure Uninstall; override;18 procedure DoInstall; override; 19 procedure DoUninstall; override; 20 20 end; 21 21 … … 28 28 { TModulePascal } 29 29 30 constructor TModulePascal.Create ;30 constructor TModulePascal.Create(AOwner: TComponent); 31 31 begin 32 inherited Create;32 inherited; 33 33 Name := 'Pascal'; 34 34 Title := 'Pascal'; … … 41 41 end; 42 42 43 procedure TModulePascal. Install;43 procedure TModulePascal.DoInstall; 44 44 begin 45 45 with TCompilerAPI(API) do begin 46 46 RegisterConvertor(TAnalyzerPascal); 47 47 end; 48 inherited Install;48 inherited; 49 49 end; 50 50 51 procedure TModulePascal. Uninstall;51 procedure TModulePascal.DoUninstall; 52 52 begin 53 inherited Uninstall;53 inherited; 54 54 with TCompilerAPI(API) do begin 55 55 UnregisterConvertor(TAnalyzerPascal); -
trunk/Compiler/UCompilerAPI.pas
r72 r73 1 1 unit UCompilerAPI; 2 2 3 {$mode objfpc}{$H+}3 {$mode delphi}{$H+} 4 4 5 5 interface
Note:
See TracChangeset
for help on using the changeset viewer.