From 320140747478ccc984285fa5cfbbd39fcfdcffe3 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Sat, 19 Aug 2017 22:04:46 +0200
Subject: [PATCH] some fragments in the Turkish grammar

---
 src/turkish/AdjectiveTur.gf | 10 ++++++++++
 src/turkish/CatTur.gf       |  4 ++++
 src/turkish/GrammarTur.gf   |  1 +
 src/turkish/NounTur.gf      |  6 +++++-
 4 files changed, 20 insertions(+), 1 deletion(-)
 create mode 100644 src/turkish/AdjectiveTur.gf

diff --git a/src/turkish/AdjectiveTur.gf b/src/turkish/AdjectiveTur.gf
new file mode 100644
index 00000000..a005a279
--- /dev/null
+++ b/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 ; 
+      } ;
+
+}
diff --git a/src/turkish/CatTur.gf b/src/turkish/CatTur.gf
index a80fa791..e3ace03f 100644
--- a/src/turkish/CatTur.gf
+++ b/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} ;
diff --git a/src/turkish/GrammarTur.gf b/src/turkish/GrammarTur.gf
index 8d6c94b9..bea10806 100644
--- a/src/turkish/GrammarTur.gf
+++ b/src/turkish/GrammarTur.gf
@@ -2,6 +2,7 @@
 
 concrete GrammarTur of Grammar = 
   NounTur,
+  AdjectiveTur,
   NumeralTur,
   StructuralTur
   ** {
diff --git a/src/turkish/NounTur.gf b/src/turkish/NounTur.gf
index 9c5b5148..05091d98 100644
--- a/src/turkish/NounTur.gf
+++ b/src/turkish/NounTur.gf
@@ -36,4 +36,8 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
       } ;
 
     UseN n = n ;
-}
\ No newline at end of file
+
+    AdjCN ap cn = {
+      s = \\n,c => ap.s ! n ! c ++ cn.s ! n ! c
+      } ;
+}