Changeset 73
- Timestamp:
- May 2, 2013, 10:11:15 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 210 added
- 4 deleted
- 10 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 -
trunk/IDE/Modules/Pascal/UIDEModulePascal.pas
r70 r73 13 13 14 14 TIDEModulePascal = class(TModule) 15 constructor Create ; override;15 constructor Create(AOwner: TComponent); override; 16 16 end; 17 17 … … 20 20 { TIDEModulePascal } 21 21 22 constructor TIDEModulePascal.Create ;22 constructor TIDEModulePascal.Create(AOwner: TComponent); 23 23 begin 24 24 inherited; -
trunk/IDE/Transpascal.lpi
r72 r73 80 80 </local> 81 81 </RunParams> 82 <RequiredPackages Count=" 9">82 <RequiredPackages Count="8"> 83 83 <Item1> 84 84 <PackageName Value="ModularSystem"/> 85 85 <MinVersion Minor="1" Valid="True"/> 86 <DefaultFilename Value="..\Packages\ModularSystem\ModularSystem.lpk" Prefer="True"/> 86 87 </Item1> 87 88 <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"/> 90 92 </Item2> 91 93 <Item3> 92 <PackageName Value="Co mmon"/>93 < MinVersion Minor="7" Valid="True"/>94 <PackageName Value="CoolTranslator"/> 95 <DefaultFilename Value="..\Packages\CoolTranslator\CoolTranslator.lpk" Prefer="True"/> 94 96 </Item3> 95 97 <Item4> 96 <PackageName Value="CoolTranslator"/> 98 <PackageName Value="LCLBase"/> 99 <MinVersion Major="1" Release="1" Valid="True"/> 97 100 </Item4> 98 101 <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"/> 101 104 </Item5> 102 105 <Item6> 103 <PackageName Value="TemplateGenerics"/> 106 <PackageName Value="TranspascalCompiler"/> 107 <DefaultFilename Value="..\Compiler\TranspascalCompiler.lpk" Prefer="True"/> 104 108 </Item6> 105 109 <Item7> 106 <PackageName Value="TranspascalCompiler"/> 110 <PackageName Value="SynEdit"/> 111 <MinVersion Major="1" Valid="True"/> 107 112 </Item7> 108 113 <Item8> 109 <PackageName Value="SynEdit"/> 110 <MinVersion Major="1" Valid="True"/> 114 <PackageName Value="LCL"/> 111 115 </Item8> 112 <Item9>113 <PackageName Value="LCL"/>114 </Item9>115 116 </RequiredPackages> 116 117 <Units Count="20"> -
trunk/IDE/UCore.pas
r72 r73 176 176 Free; 177 177 end; 178 LastOpenedFiles.LoadFromRegistry(R oot, Key + '\LastOpenedFiles'); //Root, Key + '\LastOpenedFiles');178 LastOpenedFiles.LoadFromRegistry(RegContext(Root, Key + '\LastOpenedFiles')); //Root, Key + '\LastOpenedFiles'); 179 179 Compiler.LoadFromRegistry(Root, Key + '\Compiler'); 180 180 FormMain.LoadFromRegistry(Root, Key); … … 198 198 Free; 199 199 end; 200 LastOpenedFiles.SaveToRegistry(R oot, Key + '\LastOpenedFiles');200 LastOpenedFiles.SaveToRegistry(RegContext(Root, Key + '\LastOpenedFiles')); 201 201 Compiler.SaveToRegistry(Root, Key + '\Compiler'); 202 202 FormMain.SaveToRegistry(Root, Key); … … 205 205 procedure TCore.RegisterIDEModules; 206 206 begin 207 ModuleManager.RegisterModule(TIDEModulePascal.Create );207 ModuleManager.RegisterModule(TIDEModulePascal.Create(nil)); 208 208 end; 209 209 … … 211 211 begin 212 212 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)); 215 215 { RegisterModule(TModuleInterpretter.Create); 216 216 RegisterModule(TModuleDelphi.Create);
Note:
See TracChangeset
for help on using the changeset viewer.