diff options
| author | leiss <leiss@cis.uni-muenchen.de> | 2016-02-23 16:30:39 +0000 |
|---|---|---|
| committer | leiss <leiss@cis.uni-muenchen.de> | 2016-02-23 16:30:39 +0000 |
| commit | df2901c9c0c18f67180a46916077032f91bac649 (patch) | |
| tree | eb0c56328221bc36dee4b09f71752eecb4a11b0e /src/compiler/GF/Text/Lexing.hs | |
| parent | 8548979d1cc6646c159a9a5fe19095aa753c5975 (diff) | |
add lexer and unlexer for Ancient Greek accent normalization
Diffstat (limited to 'src/compiler/GF/Text/Lexing.hs')
| -rw-r--r-- | src/compiler/GF/Text/Lexing.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/compiler/GF/Text/Lexing.hs b/src/compiler/GF/Text/Lexing.hs index bfe38ca83..782e6ea9a 100644 --- a/src/compiler/GF/Text/Lexing.hs +++ b/src/compiler/GF/Text/Lexing.hs @@ -3,6 +3,7 @@ module GF.Text.Lexing (stringOp,opInEnv) where import GF.Text.Transliterations import PGF.Lexing +import PGF.LexingAGreek(lexAGreek,unlexAGreek,lexAGreek2) -- HL 20.2.2016 import Data.Char (isSpace) import Data.List (intersperse) @@ -13,12 +14,15 @@ stringOp name = case name of "lextext" -> Just $ appLexer lexText "lexcode" -> Just $ appLexer lexCode "lexmixed" -> Just $ appLexer lexMixed + "lexgreek" -> Just $ appLexer lexAGreek + "lexgreek2" -> Just $ appLexer lexAGreek2 "words" -> Just $ appLexer words "bind" -> Just $ appUnlexer (unwords . bindTok) "unchars" -> Just $ appUnlexer concat "unlextext" -> Just $ appUnlexer (unlexText . unquote) "unlexcode" -> Just $ appUnlexer unlexCode "unlexmixed" -> Just $ appUnlexer (unlexMixed . unquote) + "unlexgreek" -> Just $ appUnlexer unlexAGreek "unwords" -> Just $ appUnlexer unwords "to_html" -> Just wrapHTML _ -> transliterate name |