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

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") ;
+    left_Ord = mkOrd (regN "vasen") ;
---    right_Ord = mkA (regN "oikea") ;
+    right_Ord = mkOrd (regN "oikea") ;
+
+  oper
+    mkOrd : N -> Ord ;
+    mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;
+
+  lin
 
     -- Adverbs
 

examples/bronzeage/SwadeshFre.gf

@@ -37,8 +37,14 @@ concrete SwadeshFre of Swadesh = CatFre
       n = Pl
       } ;
 
---    left_Ord = regA "gauche" ;
+    left_Ord = mkOrd (regA "gauche") ;
---    right_Ord = regA "droite" ;
+    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
 

examples/bronzeage/SwadeshIta.gf

@@ -36,8 +36,14 @@ concrete SwadeshIta of Swadesh = CatIta
       n = Pl
       } ;
 
---    left_Ord = regA "sinistro" ;
+    left_Ord = mkOrd (regA "sinistro") ;
---    right_Ord = regA "destro" ;
+    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