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,16 @@
--# -path=.:alltenses:prelude
resource CombinatorsFin = Combinators with
resource CombinatorsFin = Combinators - [appCN, appCNc] with
(Cat = CatFin),
(Structural = StructuralFin),
(Constructors = ConstructorsFin) ;
(Noun = NounFin),
(Constructors = ConstructorsFin) **
{
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) ;
}