some fragments in the Turkish grammar

src/turkish/AdjectiveTur.gf

@@ -0,0 +1,10 @@
+concrete AdjectiveTur of Adjective = CatTur ** open ResTur, Prelude in {
+
+  lin
+    PositA  a = {s=a.s} ;
+
+    ComparA a np = {
+      s = \\n,c => np.s ! Ablat ++ a.s ! n ! c ; 
+      } ;
+
+}

src/turkish/CatTur.gf

@@ -21,6 +21,10 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
     Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;
     Digits  = {s : CardOrd => Number => Case => Str ; n : Number; tail : DTail} ;
 
+-- Adjective
+
+    AP = {s : Number => Case => Str} ;
+
 -- Open lexical classes, e.g. Lexicon
     V, VS, VQ, VA = Verb ;
     V2, V2Q, V2V, V2A, V2S = Verb ** {c : Compl} ;

src/turkish/GrammarTur.gf

@@ -2,6 +2,7 @@
 
 concrete GrammarTur of Grammar = 
   NounTur,
+  AdjectiveTur,
   NumeralTur,
   StructuralTur
   ** {

src/turkish/NounTur.gf

@@ -36,4 +36,8 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
       } ;
 
     UseN n = n ;
-}
+
+    AdjCN ap cn = {
+      s = \\n,c => ap.s ! n ! c ++ cn.s ! n ! c
+      } ;
+}