first draft of coordination in Turkish

src/turkish/ResTur.gf

@@ -24,6 +24,10 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
     agrP3 : Number -> Agr ;
     agrP3 n = {n = n; p = P3} ;
     -- For $Adjective$
+
+    conjAgr : Agr -> Agr -> Agr = \a,b -> 
+      {n=conjNumber a.n b.n; p=conjPerson a.p b.p} ;
+
   oper
     Adjective = Noun ** { adv : Str } ;
 
@@ -95,28 +99,6 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
     mkDet : Str -> Number -> UseGen -> {s : Str; n : Number; useGen : UseGen} =
       \s, n, ug -> {s = s; n = n; useGen = ug} ;
 
-    mkConj : overload {
-      mkConj : Str -> {s : Str ; s1 : Str ; s2 : Str ; ct : ConjType} ;
-      mkConj : Str -> Str -> {s : Str ; s1 : Str ; s2 : Str ; ct : ConjType} ;
-    } ;
-
-    mkConj = overload {
-      mkConj : Str -> {s : Str ; s1 : Str ; s2 : Str ; ct : ConjType} =
-        \s -> {
-          s  = s  ;
-          s1 = s  ;
-          s2 = [] ;
-          ct = Infix
-        } ;
-      mkConj : Str -> Str -> {s : Str ; s1 : Str ; s2 : Str ; ct : ConjType} =
-        \s1, s2 -> {
-          s  = s1 ++ s2 ;
-          s1 = s1 ;
-          s2 = s2 ;
-          ct = Mixfix
-        } ;
-    } ;
-
     attachMe : Verb -> {s : Str} =
       \v ->
         let
@@ -126,4 +108,8 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
             (_ + #vowel + _ )* + (_ + #frontVowel + _) => ss (s ++ "me") ;
             (_ + #vowel + _)*  + (_ + #backVowel  + _) => ss (s ++ "ma")
           } ;
+
+    linCoord : Str -> Ints 4 => Str ;
+    linCoord comma = table {0 => "hem"; 1=>"ya"; 2=>"ne"; 3=>comma; 4=>[]} ;
+
 }