this/that_Quant in Turkish

src/turkish/ParadigmsTur.gf

@@ -510,6 +510,8 @@ oper
   dat_Case   = mkPrep [] Dat;
   acc_Case   = mkPrep [] Dat;
 
+  mkQuant : Str -> Quant = \s -> lin Quant {s=s} ;
+
 param
   AoristType = PlSyl         -- more than one syllable, takes -ir
 	    | SgSylConIrreg -- one syllable ending with consonant, but takes -ir (here is the list: al-, bil-, bul-, dur-, gel-, gör-, kal-, ol-, öl-, var-, ver-, vur-, san- )

src/turkish/ResTur.gf

@@ -45,9 +45,7 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
     DForm = unit | ten ;
     CardOrd = NCard | NOrd ;
 
--- For $Numeral$.
   oper
-
     mkPron : (ben,beni,bana,banin,bende,benden,benli,bensiz:Str) -> Number -> Person -> Pron =
      \ben,beni,bana,benim,bende,benden,benli,bensiz,n,p -> {
      s = table {
@@ -63,7 +61,6 @@ resource ResTur = ParamX ** open Prelude, Predef, HarmonyTur in {
      a = {n=n; p=p} ;
      } ;
 
-
 --Prep
 
     no_Prep = mkPrep [] Acc;

src/turkish/StructuralTur.gf

@@ -1,7 +1,7 @@
 --# -path=.:../abstract:../common:../../prelude
 
 concrete StructuralTur of Structural = CatTur ** 
-  open ResTur in {
+  open ResTur, ParadigmsTur in {
 
   flags 
     optimize=all ; coding = utf8 ;
@@ -11,7 +11,9 @@ concrete StructuralTur of Structural = CatTur **
     i_Pron  = mkPron "ben" "beni" "bana" "benim" "bende" "benden" "benli" "bensiz" Sg P1 ;
     it_Pron  = mkPron "o" "onu" "ona" "onun" "onda" "ondan" "onlu" "onsuz" Sg P3 ;
     she_Pron = mkPron "o" "onu" "ona" "onun" "onda" "ondan" "onlu" "onsuz" Sg P3 ;
+    that_Quant = mkQuant "o" ;
     they_Pron = mkPron "onlar" "onları" "onlara" "onların" "onlarda" "onlardan" "onlarlı" "onlarsız" Pl P3 ;
+    this_Quant = mkQuant "bu" ;
     we_Pron = mkPron "biz" "bizi" "bize" "bizim" "bizde" "bizden" "bizli" "bizsiz" Pl P1 ;
     youSg_Pron = mkPron "sen" "seni" "sana" "senin" "sende" "senden" "senli" "sensiz" Sg P2 ;
     youPl_Pron = mkPron "siz" "sizi" "size" "sizin" "sizde" "sizden" "sizli" "sizsiz" Pl P2 ;