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:prelude
resource CombinatorsIta = Combinators with
resource CombinatorsIta = Combinators - [appCN, appCNc] with
(Cat = CatIta),
(Structural = StructuralIta),
(Constructors = ConstructorsIta) ;
(Noun = NounIta),
(Constructors = ConstructorsIta) **
{
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) ;
}