Context Navigation

ModulePascal.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: 906 bytes

Line
1	unit ModulePascal;
2
3	interface
4
5	uses
6	Classes, SysUtils, ModularSystem, AnalyzerPascal;
7
8	type
9
10	{ TModulePascal }
11
12	TModulePascal = class(TModule)
13	Analyzer: TAnalyzerPascal;
14	constructor Create(AOwner: TComponent); override;
15	destructor Destroy; override;
16	procedure DoInstall; override;
17	procedure DoUninstall; override;
18	end;
19
20
21	implementation
22
23	uses
24	CompilerAPI;
25
26	{ TModulePascal }
27
28	constructor TModulePascal.Create(AOwner: TComponent);
29	begin
30	inherited;
31	Identification := 'Pascal';
32	Title := 'Pascal';
33	Version := '0.1';
34	end;
35
36	destructor TModulePascal.Destroy;
37	begin
38	inherited;
39	end;
40
41	procedure TModulePascal.DoInstall;
42	begin
43	with TCompilerAPI(API) do begin
44	RegisterConvertor(TAnalyzerPascal);
45	end;
46	inherited;
47	end;
48
49	procedure TModulePascal.DoUninstall;
50	begin
51	inherited;
52	with TCompilerAPI(API) do begin
53	UnregisterConvertor(TAnalyzerPascal);
54	end;
55	end;
56
57	end.
58

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