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.