From ba308dcf957ca349ece36c8106172cdd87eea73e Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 30 Sep 2019 15:40:09 +0200
Subject: [PATCH] (Som) More phonological assimilation rules

---
 src/somali/LexiconSom.gf | 2 +-
 src/somali/ResSom.gf     | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/somali/LexiconSom.gf b/src/somali/LexiconSom.gf
index 107f07f7..d36ebd0d 100644
--- a/src/somali/LexiconSom.gf
+++ b/src/somali/LexiconSom.gf
@@ -252,7 +252,7 @@ lin name_N = mkN "magac" ;
 --
 -- lin oil_N = mkN "" ;
 -- lin old_A = mkA "" ;
--- lin open_V2 = mkV2 "" ;
+lin open_V2 = mkV2 "fur" ;
 lin paint_V2A = mkV2A "rinjiyee" ;
 -- lin paper_N = mkN "" ;
 -- lin paris_PN = mkPN "Paris" ;
diff --git a/src/somali/ResSom.gf b/src/somali/ResSom.gf
index 01b3a646..97b1f05c 100644
--- a/src/somali/ResSom.gf
+++ b/src/somali/ResSom.gf
@@ -515,8 +515,10 @@ oper
                _ + ("i"|"e") => "ey" ;
                _             => "ay" } ;
         n : Str = case arag of {
-               _ + #v => "nn" ; -- n duplicates after vowel
-               _      => "n" } ;
+               _ + #v  => "nn" ; -- n duplicates after vowel
+               _ + "r" => "r" ; -- Saeed p. 35: agreement marker n (1PL)
+               _ + "l" => "l" ; -- assimilates to stem final r or.
+               _       => "n" } ;
         an : Str = case qaado of {
                _ + "o" => "an" ; -- Allomorph for imperatives
                _       => "in" } ;