defined AdjectiveBul.CAdvAP and RS functions in ConjunctionBul, to make the API compile - these might have errors

This commit is contained in:
aarne
2010-04-07 19:37:57 +00:00
parent db30578e9f
commit e8e01acf73
3 changed files with 19 additions and 1 deletions

View File

@@ -27,6 +27,13 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
-- $SuperlA$ belongs to determiner syntax in $Noun$.
---- just to make the API compile. AR 7/4/2010
CAdvAP ad ap np = {
s = \\a => ad.s ++ ap.s ! a ++ ad.sn ++ np.s ! RObj Acc ;
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj Acc ;
isPre = False
} ;
ComplA2 a np = {
s = \\aform => a.s ! aform ++ a.c2 ++ np.s ! RObj Acc ;
adv = a.adv ++ a.c2 ++ np.s ! RObj Acc ;