1 (* 2 * The contents of this file are subject to the Mozilla Public License 3 * Version 1.1 (the "License"); you may not use this file except in 4 * compliance with the License. You may obtain a copy of the License at 5 * http://www.mozilla.org/MPL/ 6 * 7 * Software distributed under the License is distributed on an "AS IS" 8 * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the 9 * License for the specific language governing rights and limitations 10 * under the License. 11 * 12 * The Initial Developer of this code is John Hansen. 13 * Portions created by John Hansen are Copyright (C) 2009 John Hansen. 14 * All Rights Reserved. 15 * 16 *) 17 unit uGenLexer; 18 19 interface 20 21 uses 22 mwGenericLex; 23 24 type 25 TGenLexer = class(TmwGenLex) 26 protected 27 procedure InitForLanguage(Lex: TGenLexer); virtual; abstract; 28 public 29 constructor CreateLexer; virtual; 30 end; 31 32 TGenLexerClass = class of TGenLexer; 33 34 35 implementation 36 37 { TGenLexer } 38 39 constructor TGenLexer.CreateLexer; 40 begin 41 inherited Create; 42 Sensitive := True; 43 Clear; 44 InitMainSelector; 45 InitForLanguage(Self); 46 end; 47 48 end.