From 69ac75b0a88c8fc0cebc78b13153d5df80cadf67 Mon Sep 17 00:00:00 2001 From: bringert Date: Sat, 21 Apr 2007 10:23:32 +0000 Subject: [PATCH] Constructors: added mkCl : NP -> A -> Cl --- lib/resource-1.0/api/Constructors.gf | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/resource-1.0/api/Constructors.gf b/lib/resource-1.0/api/Constructors.gf index 23de2f8d4..c2f8c0487 100644 --- a/lib/resource-1.0/api/Constructors.gf +++ b/lib/resource-1.0/api/Constructors.gf @@ -89,7 +89,8 @@ incomplete resource Constructors = open Grammar in { mkCl : NP -> RS -> Cl ; -- it is you who did it mkCl : Adv -> S -> Cl ; -- it is yesterday she arrived mkCl : NP -> Cl ; -- there is a house - mkCl : NP -> AP -> Cl ; -- John is warm + mkCl : NP -> AP -> Cl ; -- John is warmer than Mary + mkCl : NP -> A -> Cl ; -- John is warm mkCl : NP -> NP -> Cl ; -- John is a man mkCl : NP -> Adv -> Cl -- John is here } ; @@ -343,8 +344,10 @@ incomplete resource Constructors = open Grammar in { = CleftAdv ; mkCl : NP -> Cl -- there is a house = ExistNP ; - mkCl : NP -> AP -> Cl -- John is warm + mkCl : NP -> AP -> Cl -- John is warmer than Mary = \x,y -> PredVP x (UseComp (CompAP y)) ; + mkCl : NP -> A -> Cl -- John is warm + = \x,y -> PredVP x (UseComp (CompAP (PositA y))) ; mkCl : NP -> NP -> Cl -- John is a man = \x,y -> PredVP x (UseComp (CompNP y)) ; mkCl : NP -> Adv -> Cl -- John is here