From 01b155f445a5b96b14ca712e91d67ee2311eb2a6 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 8 May 2009 08:15:32 +0000
Subject: [PATCH] Turkish: implement NumCard and NumNumeral

---
 next-lib/src/turkish/CatTur.gf  | 1 +
 next-lib/src/turkish/NounTur.gf | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/next-lib/src/turkish/CatTur.gf b/next-lib/src/turkish/CatTur.gf
index 08ae99b3b..16e61c026 100644
--- a/next-lib/src/turkish/CatTur.gf
+++ b/next-lib/src/turkish/CatTur.gf
@@ -10,6 +10,7 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
     Pron = ResTur.Pron ;
     Det = {s : Str; n : Number} ;
     Num  = {s : Str; n : Number} ;
+    Card = {s : Str} ;
     Quant = {s : Str} ;
 
 -- Open lexical classes, e.g. Lexicon
diff --git a/next-lib/src/turkish/NounTur.gf b/next-lib/src/turkish/NounTur.gf
index c33591cc0..05c13fb0e 100644
--- a/next-lib/src/turkish/NounTur.gf
+++ b/next-lib/src/turkish/NounTur.gf
@@ -18,6 +18,10 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
     NumSg = {s = []; n = Sg} ;
     NumPl = {s = []; n = Pl} ;
 
+    NumCard n = n ** {n = Sg} ;
+
+    NumNumeral numeral = {s = numeral.s} ;
+
     DefArt = {
       s = []
       } ;