1 (*
2 This Source Code Form is subject to the terms of the Mozilla Public
3 License, v. 2.0. If a copy of the MPL was not distributed with this
4 file, You can obtain one at http://mozilla.org/MPL/2.0/.
5 
6 Copyright (c) Alexey Torgashin
7 *)
8 unit TreeHelpers_Proc;
9 
10 {$mode ObjFPC}{$H+}
11 
12 interface
13 
14 uses
15   SysUtils,
16   ATSynEdit,
17   TreeHelpers_Base;
18 
TreeHelperInPascalnull19 function TreeHelperInPascal(Ed: TATSynEdit; const ALexer: string;
20   Data: TATTreeHelperRecords): boolean;
21 
22 
23 implementation
24 
25 uses
26   TreeHelper_Markdown,
27   TreeHelper_MediaWiki,
28   TreeHelper_reST;
29 
30 //--------------------------------------------------------------
TreeHelperInPascalnull31 function TreeHelperInPascal(Ed: TATSynEdit; const ALexer: string;
32   Data: TATTreeHelperRecords): boolean;
33 begin
34   Result:= false;
35   Data.Clear;
36   case ALexer of
37     'Markdown':
38       begin
39         Result:= true;
40         TTreeHelperMarkdown.GetHeaders(Ed, Data);
41       end;
42     'MediaWiki':
43       begin
44         Result:= true;
45         TTreeHelperMediawiki.GetHeaders(Ed, Data);
46       end;
47     'reStructuredText':
48       begin
49         Result:= true;
50         TTreeHelperRest.GetHeaders(Ed, Data);
51       end;
52   end;
53 end;
54 
55 
56 end.
57 
58