From 24207d40e9cb56173de22d9a424975f0da0bc416 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 3 Oct 2008 20:42:09 +0000
Subject: extended AP with Ord and compar in 1.5

---
 next-lib/src/scandinavian/AdjectiveScand.gf | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'next-lib/src/scandinavian')

diff --git a/next-lib/src/scandinavian/AdjectiveScand.gf b/next-lib/src/scandinavian/AdjectiveScand.gf
index 1570574cb..3dfe36fec 100644
--- a/next-lib/src/scandinavian/AdjectiveScand.gf
+++ b/next-lib/src/scandinavian/AdjectiveScand.gf
@@ -15,8 +15,18 @@ incomplete concrete AdjectiveScand of Adjective =
         ++ conjThan ++ np.s ! nominative ; 
       isPre = False
       } ;
+    UseComparA a = {
+      s = \\ap => case a.isComp of {
+        True => compMore ++ a.s ! AF (APosit ap) Nom ;
+        _    => a.s ! AF ACompar Nom
+        } ;
+      isPre = False
+      } ;
 
--- $SuperlA$ belongs to determiner syntax in $Noun$.
+    AdjOrd ord = {
+      s = \\_ => ord.s ;
+      isPre = True
+      } ;
 
     ComplA2 a np = {
       s = \\ap => a.s ! AF (APosit ap) Nom ++ a.c2.s ++ np.s ! accusative ; 
@@ -39,6 +49,9 @@ incomplete concrete AdjectiveScand of Adjective =
       isPre = ap.isPre
       } ;
 
-    UseA2 a = a ;
+    UseA2 a = {
+      s = \\ap => a.s ! AF (APosit ap) Nom ;
+      isPre = True
+      } ;
 
 }
-- 
cgit v1.2.3