diff options
Diffstat (limited to 'indexing/hsindex/src/HsIndex/CharLists/German.hs')
-rw-r--r-- | indexing/hsindex/src/HsIndex/CharLists/German.hs | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/indexing/hsindex/src/HsIndex/CharLists/German.hs b/indexing/hsindex/src/HsIndex/CharLists/German.hs new file mode 100644 index 0000000000..cb7df65686 --- /dev/null +++ b/indexing/hsindex/src/HsIndex/CharLists/German.hs @@ -0,0 +1,76 @@ +-- | +-- Module : HsIndex.CharLists.German +-- Copyright : Jean-Luc JOULIN 2018-2019 +-- License : General Public Licence (GPLv3) +-- Maintainer : Jean-Luc JOULIN <jean-luc-joulin@orange.fr> +-- Stability : alpha +-- Portability : portable +-- The letters, numbers and symbol definition for the german language. + + +module HsIndex.CharLists.German where + + +import HsIndex.Functions +import HsIndex.Types +import HsIndex.CharLists.Symbols +import HsIndex.CharLists.French ( lstLatinLetter ) + + + +ordGerman = lstLatinLetter + +ordGermanLowerUpper = lowerUpper lstLatinLetter + +lstGermanLetter = + [ 'a' + , 'b' + , 'c' + , 'd' + , 'e' + , 'f' + , 'g' + , 'h' + , 'i' + , 'j' + , 'k' + , 'l' + , 'm' + , 'n' + , 'o' + , 'p' + , 'q' + , 'r' + , 's' + , 'ß' + , 't' + , 'u' + , 'v' + , 'w' + , 'x' + , 'y' + , 'z' + ] + + +charSubsGerman = + [ ('æ', "ae") + , ('ä', "a") + , ('ö', "o") + , ('ß', "ss") + , ('ü', "u") + ] + + + + +langDefGerman = LangDef + { lstLetters = lstSpace ++ ordGermanLowerUpper -- ++ map substituted charSubsGerman + , lstNumbers = lstDigit + , lstSymbols = Nothing + , lstSubs = charSubsGerman + , lstSecOrder = [Symbols, Letters, Numbers] + } + + + |