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 TreeHelperInPascalnull19function 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 //-------------------------------------------------------------- TreeHelperInPascalnull31function 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