Context Navigation

ModuleDelphi.pas

Last change on this file was 75, checked in by chronos, 6 months ago
Modified: Removed U prefix from unit names. Modified: Updated Common package.
File size: 929 bytes

Line
1	unit ModuleDelphi;
2
3	interface
4
5	uses
6	Classes, SysUtils, Target, Executor, ModularSystem;
7
8	type
9
10	{ TExecutorDelphi }
11
12	TExecutorDelphi = class(TExecutor)
13	procedure Run; override;
14	end;
15
16	{ TModuleDelphi }
17
18	TModuleDelphi = class(TModule)
19	constructor Create(AOwner: TComponent); override;
20	procedure DoInstall; override;
21	procedure DoUninstall; override;
22	end;
23
24
25	implementation
26
27	uses
28	ProducerDelphi, CompilerAPI;
29
30	resourcestring
31	SDelphi = 'Delphi';
32
33	{ TModuleDelphi }
34
35	constructor TModuleDelphi.Create(AOwner: TComponent);
36	begin
37	inherited;
38	Identification := 'Delphi';
39	Title := SDelphi;
40	end;
41
42	procedure TModuleDelphi.DoInstall;
43	begin
44	TCompilerAPI(API).RegisterConvertor(TProducerPascal);
45	inherited;
46	end;
47
48	procedure TModuleDelphi.DoUninstall;
49	begin
50	TCompilerAPI(API).UnregisterConvertor(TProducerPascal);
51	inherited;
52	end;
53
54	{ TExecutorDelphi }
55
56	procedure TExecutorDelphi.Run;
57	begin
58
59	end;
60
61	end.
62

Note: See TracBrowser for help on using the repository browser.