summaryrefslogtreecommitdiff
path: root/indexing/hsindex/src/HsIndex/CharLists/German.hs
diff options
context:
space:
mode:
Diffstat (limited to 'indexing/hsindex/src/HsIndex/CharLists/German.hs')
-rw-r--r--indexing/hsindex/src/HsIndex/CharLists/German.hs76
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]
+ }
+
+
+