From df2901c9c0c18f67180a46916077032f91bac649 Mon Sep 17 00:00:00 2001 From: leiss Date: Tue, 23 Feb 2016 16:30:39 +0000 Subject: add lexer and unlexer for Ancient Greek accent normalization --- src/compiler/GF/Text/Lexing.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/compiler/GF/Text/Lexing.hs') 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 -- cgit v1.2.3