summaryrefslogtreecommitdiff
path: root/indexing/hsindex/src/HsIndex/CharLists/German.hs
blob: cb7df65686c8a1e085c84a79a9b2761d85297ddf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
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]
  }