(Ara) Normalise the order of combining characters ّ + vowel

2018-10-12 15:42:33 +02:00
parent 0bce38800c
commit 145fc773cb
3 changed files with 14 additions and 8 deletions
@@ -11,6 +11,13 @@ flags coding=utf8 ;
    -- "Sun letters": assimilate with def. article
    sun : pattern Str = #("ت"|"ث"|"د"|"ذ"|"ر"|"ز"|"س"|"ش"|"ص"|"ض"|"ط"|"ظ"|"ل"|"ن") ;

+  -- Shadda: https://www.unicode.org/L2/L2017/17253-arabic-ordering.pdf
+    fixShd : Str -> Str -> Str = \word,vowel ->
+      case word of {
+        x + "ّ" => x + vowel + "ّ" ;
+        x       => x + vowel
+      } ;
+
  -- Hamza
    hamza : pattern Str = #("ء"|"؟") ;