Jordi's addition to Combinators api: appCN and appCNc

2014-03-15 06:09:58 +00:00
parent 7bfb2444af
commit 76afac499b
10 changed files with 109 additions and 21 deletions
--- a/lib/src/api/CombinatorsSwe.gf
+++ b/lib/src/api/CombinatorsSwe.gf
@@ -1,6 +1,15 @@
 --# -path=.:alltenses:prelude

-resource CombinatorsSwe = Combinators with 
+resource CombinatorsSwe = Combinators - [appCN, appCNc] with 
  (Cat = CatSwe),
  (Structural = StructuralSwe),
-  (Constructors = ConstructorsSwe) ;
+  (Noun = NounSwe),
+  (Constructors = ConstructorsSwe) ** 
+{
+oper
+appCN : CN -> NP -> NP
+       = \cn,x -> mkNP the_Art (PossNP cn x) ;
+appCNc : CN -> [NP] -> NP
+       = \cn,xs -> let np : NP = mkNP and_Conj xs
+                   in mkNP the_Art (PossNP cn np) ; 
+}