From 128cae61d5e6bd0aa392823b040e5ace1bbc38d7 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Sat, 19 Aug 2017 22:19:14 +0200
Subject: [PATCH] this/that_Quant in Turkish

---
 src/turkish/ParadigmsTur.gf  | 2 ++
 src/turkish/ResTur.gf        | 3 ---
 src/turkish/StructuralTur.gf | 4 +++-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/turkish/ParadigmsTur.gf b/src/turkish/ParadigmsTur.gf
index 046f8efe4..8f53d59b9 100644
--- a/src/turkish/ParadigmsTur.gf
+++ b/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- )
diff --git a/src/turkish/ResTur.gf b/src/turkish/ResTur.gf
index 1f866c26c..c047bdde5 100644
--- a/src/turkish/ResTur.gf
+++ b/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;
diff --git a/src/turkish/StructuralTur.gf b/src/turkish/StructuralTur.gf
index a7a8a8fd6..0d054ca53 100644
--- a/src/turkish/StructuralTur.gf
+++ b/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 ;