Changeset 73 for trunk/Compiler/Modules/Brainfuck
- Timestamp:
- May 2, 2013, 10:11:15 PM (12 years ago)
- File:
-
- 1 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
Note:
See TracChangeset
for help on using the changeset viewer.