summaryrefslogtreecommitdiff
path: root/indexing/hsindex/src/HsIndex/CharLists/French.hs
diff options
context:
space:
mode:
Diffstat (limited to 'indexing/hsindex/src/HsIndex/CharLists/French.hs')
-rw-r--r--indexing/hsindex/src/HsIndex/CharLists/French.hs108
1 files changed, 108 insertions, 0 deletions
diff --git a/indexing/hsindex/src/HsIndex/CharLists/French.hs b/indexing/hsindex/src/HsIndex/CharLists/French.hs
new file mode 100644
index 0000000000..a2b54e0a54
--- /dev/null
+++ b/indexing/hsindex/src/HsIndex/CharLists/French.hs
@@ -0,0 +1,108 @@
+-- |
+-- Module : HsIndex.CharLists.French
+-- 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 french language.
+
+
+module HsIndex.CharLists.French where
+
+import HsIndex.Functions
+import HsIndex.CharLists.Symbols
+import HsIndex.Types
+
+lstSubsLatin = take 1
+
+
+ordFrench = lstLatinLetter
+
+ordFrenchUpperLower = upperLower lstLatinLetter
+
+
+
+
+lstLatinLetter =
+ [ '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'
+ ]
+
+
+subsFrenchUpperLower = replaUpperLower subsFrench
+
+
+
+
+subsFrench =
+ [ ('à', "a")
+ , ('â', "a")
+ , ('å', "a")
+ , ('ä', "a")
+
+ , ('ç', "c")
+
+ , ('é', "e")
+ , ('è', "e")
+ , ('ê', "e")
+ , ('ë', "e")
+
+ , ('î', "i")
+ , ('ï', "i")
+
+ , ('ô', "o")
+ , ('ö', "o")
+
+ , ('ù', "u")
+ , ('û', "u")
+ , ('ü', "u")
+
+
+ , ('æ', "ae")
+ , ('œ', "oe")
+ ]
+
+
+subsSymb =
+ [ ('-', " ")
+ , ('_', " ")
+ , ('\\', " ")
+ ]
+
+
+
+langDefFrench = LangDef
+ { lstLetters = lstSpace ++ ordFrenchUpperLower -- ++ (map substituted subsFrenchUpperLower)
+ , lstNumbers = lstDigit
+ , lstSymbols = Nothing
+ , lstSubs = subsFrenchUpperLower++subsSymb
+ , lstSecOrder = [Symbols, Numbers, Letters]
+ }
+
+
+