Implement DetQuantOrd

2017-08-23 15:38:24 +03:00
parent b2a155b309
commit be6a44e573
1 changed files with 6 additions and 0 deletions
--- a/src/turkish/NounTur.gf
+++ b/src/turkish/NounTur.gf
@@ -25,6 +25,12 @@ concrete NounTur of Noun = CatTur ** open ResTur, SuffixTur, HarmonyTur, Prelude
      useGen = quant.useGen
    } ;

+    DetQuantOrd quant num o = {
+      s  = quant.s ++ num.s ! Sg ! Nom ++ o.s ! num.n ! Nom ;
+      n  = num.n;
+      useGen = quant.useGen
+    } ;
+
    NumSg = {s = \\num,c => []; n = Sg} ;
    NumPl = {s = \\num,c => []; n = Pl} ;