Guessed implementation of left and right in spanish, french and italian.

3 files changed, 24 insertions, 6 deletions

diff --git a/examples/bronzeage/SwadeshFin.gf b/examples/bronzeage/SwadeshFin.gf
index e85bee80a..fa8615ccb 100644
--- a/examples/bronzeage/SwadeshFin.gf
+++ b/examples/bronzeage/SwadeshFin.gf
@@ -41,8 +41,14 @@ concrete SwadeshFin of Swadesh = CatFin
     few_Det  = mkDet Sg (regN "harva") ;
     other_Det = mkDet Sg (regN "muu") ;
 
---    left_Ord = mkA (regN "vasen") ;
---    right_Ord = mkA (regN "oikea") ;
+    left_Ord = mkOrd (regN "vasen") ;
+    right_Ord = mkOrd (regN "oikea") ;
+
+  oper
+    mkOrd : N -> Ord ;
+    mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;
+
+  lin
 
     -- Adverbs
 
diff --git a/examples/bronzeage/SwadeshFre.gf b/examples/bronzeage/SwadeshFre.gf
index 134266a22..8a4c0b787 100644
--- a/examples/bronzeage/SwadeshFre.gf
+++ b/examples/bronzeage/SwadeshFre.gf
@@ -37,8 +37,14 @@ concrete SwadeshFre of Swadesh = CatFre
       n = Pl
       } ;
 
---    left_Ord = regA "gauche" ;
---    right_Ord = regA "droite" ;
+    left_Ord = mkOrd (regA "gauche") ;
+    right_Ord = mkOrd (regA "droite") ;
+
+  oper
+    mkOrd : A -> Ord ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
+
+  lin
 
     -- Adverbs
 
diff --git a/examples/bronzeage/SwadeshIta.gf b/examples/bronzeage/SwadeshIta.gf
index f3afd9243..d80d5e594 100644
--- a/examples/bronzeage/SwadeshIta.gf
+++ b/examples/bronzeage/SwadeshIta.gf
@@ -36,8 +36,14 @@ concrete SwadeshIta of Swadesh = CatIta
       n = Pl
       } ;
 
---    left_Ord = regA "sinistro" ;
---    right_Ord = regA "destro" ;
+    left_Ord = mkOrd (regA "sinistro") ;
+    right_Ord = mkOrd (regA "destro") ;
+
+  oper
+    mkOrd : A -> Ord ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
+
+  lin
 
     -- Adverbs