From 817f6702b1431c26e408ab28fbaf10e4fcf46d0e Mon Sep 17 00:00:00 2001
From: Arianna Masciolini <uzkamascio@gmail.com>
Date: Fri, 10 Mar 2023 18:13:25 +0100
Subject: [PATCH] more cases where lo is used(and not il)

---
 src/italian/PhonoIta.gf | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

diff --git a/src/italian/PhonoIta.gf b/src/italian/PhonoIta.gf
index f30017cb..1330e5b6 100644
--- a/src/italian/PhonoIta.gf
+++ b/src/italian/PhonoIta.gf
@@ -12,13 +12,33 @@ oper
     } ;
 
   sImpuro : Strs = strs {
-    "z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
-    "Z" ; "Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sm" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
+    "sb" ; "sc" ; "sd" ; "sf" ; "sg" ; "sh" ; "sl" ; "sm" ; "sn" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" ;
+    "Sb" ; "Sc" ; "Sd" ; "Sf" ; "Sg" ; "Sh" ; "Sl" ; "Sm" ; "Sn" ; "Sp" ; "Sq" ; "Sr" ; "St" ; "Sv"
     } ;
 
+  z : Strs = strs {
+    "z" ; "Z"
+  } ;
+
+  x : Strs = strs {
+    "x" ; "X"
+  } ;
+
+  gn : Strs = strs {
+    "gn" ; "Gn"
+  } ;
+
+  pn : Strs = strs {
+    "pn" ; "Pn"
+  } ;
+
+  ps : Strs = strs {
+    "ps" ; "Pn"
+  } ;
+
   elision : (_,_,_ : Str) -> Str = \il, l', lo -> 
     let ll = case last l' of {"'" => l' ++ Predef.BIND ; _ => l'} in
-    pre {il ; ll / vocale ; lo / sImpuro} ;
+    pre {il ; ll / vocale ; lo / sImpuro ; lo / z ; lo / x ; lo / gn ; lo / pn ; lo / ps } ;
 ---    pre {vocale => l' ;  sImpuro => lo ; _ => il} ;  --- doesn't work properly 15/4/2014
 
 }