Turkish: scratch the NP category

next-lib/src/turkish/CatTur.gf

@@ -5,8 +5,12 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
   lincat
 
 -- Noun
+    CN = {s : Number => Case => Str} ;
     NP = {s : Case => Str ; a : Agr} ;
     Pron = ResTur.Pron ;
+    Det = {s : Str; n : Number} ;
+    Num  = {s : Str; n : Number} ;
+    Quant = {s : Str} ;
 
 -- Open lexical classes, e.g. Lexicon
     V, VS, VQ, VA = Verb ;

next-lib/src/turkish/GrammarTur.gf

@@ -1,6 +1,7 @@
 --# -path=.:../abstract:../common:prelude
 
 concrete GrammarTur of Grammar = 
+  NounTur,
   NumeralTur,
   StructuralTur
   ** {

next-lib/src/turkish/NounTur.gf

@@ -0,0 +1,27 @@
+concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
+
+  flags optimize=all_subs ;
+
+  lin
+    DetCN det cn = {
+      s = \\c => det.s ++ cn.s ! det.n ! c ; 
+      a = agrP3 det.n
+      } ;
+
+    DetQuant quant num = {
+      s  = quant.s ++ num.s ;
+      n  = num.n
+      } ;
+
+    NumSg = {s = []; n = Sg} ;
+    NumPl = {s = []; n = Pl} ;
+
+    DefArt = {
+      s = []
+      } ;
+    IndefArt = {
+      s = []
+      } ;
+
+    UseN n = n ;
+}

next-lib/src/turkish/ResTur.gf

@@ -17,6 +17,9 @@ resource ResTur = ParamX ** open Prelude, Predef in {
     Noun = {s : Number => Case => Str; gen : Number => Agr => Str} ;
     Pron = {s : Case => Str; a : Agr} ;
 
+    agrP3 : Number -> Agr ;
+    agrP3 n = {n = n; p = P3} ;
+
 -- For $Verb$.
 
   param