Jordi's addition to Combinators api: appCN and appCNc

This commit is contained in:
aarne
2014-03-15 06:09:58 +00:00
parent 7bfb2444af
commit 76afac499b
10 changed files with 109 additions and 21 deletions

View File

@@ -1,6 +1,15 @@
--# -path=.:alltenses
--# -path=.:alltenses:prelude
resource CombinatorsCat = Combinators with
resource CombinatorsCat = Combinators - [appCN, appCNc] with
(Cat = CatCat),
(Structural = StructuralCat),
(Constructors = ConstructorsCat) ;
(Noun = NounCat),
(Constructors = ConstructorsCat) **
{
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) ;
}