diff options
| author | aarne <unknown> | 2005-09-29 12:20:08 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-09-29 12:20:08 +0000 |
| commit | 1db8b90811b280a61acb3dc2961fe1ef45c6a2fb (patch) | |
| tree | ec4b1524f493cb2b8dc50c253018c8f4b1aa84bb /src/GF/UseGrammar/Custom.hs | |
| parent | 34c0e7925922a353397802987ef61511504589f0 (diff) | |
lexer=ignore
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index c7c68362b..15e909004 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/18 22:55:46 $ +-- > CVS $Date: 2005/09/29 13:20:08 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.74 $ +-- > CVS $Revision: 1.75 $ -- -- A database for customizable GF shell commands. -- @@ -410,6 +410,7 @@ customTokenizer = ,(strCI "codelit", lexHaskellLiteral . stateIsWord) ,(strCI "textlit", lexTextLiteral . stateIsWord) ,(strCI "codeC", const $ lexC2M) + ,(strCI "ignore", \gr -> lexIgnore (stateIsWord gr) . tokLits) ,(strCI "codeCHigh", const $ lexC2M' True) -- add your own tokenizers here ] |