use CPrep instead of Acc in several places

This commit is contained in:
Krasimir Angelov
2018-07-04 14:06:41 +02:00
parent 237a68f05e
commit fa966ab212
7 changed files with 16 additions and 19 deletions
+6 -7
View File
@@ -10,8 +10,8 @@ concrete AdjectiveBul of Adjective = CatBul ** open ResBul, Prelude in {
} ;
ComparA a np = {
s = \\aform,_ => "ïî" ++ hyphen ++ a.s ! aform ++ "îò" ++ np.s ! RObj Acc ;
adv = "ïî" ++ hyphen ++ a.adv ++ "îò" ++ np.s ! RObj Acc ;
s = \\aform,_ => "ïî" ++ hyphen ++ a.s ! aform ++ "îò" ++ np.s ! RObj CPrep ;
adv = "ïî" ++ hyphen ++ a.adv ++ "îò" ++ np.s ! RObj CPrep ;
isPre = True
} ;
UseComparA a = {
@@ -28,16 +28,15 @@ 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,p => ad.s ++ ap.s ! a ! p ++ ad.sn ++ np.s ! RObj Acc ;
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj Acc ;
s = \\a,p => ad.s ++ ap.s ! a ! p ++ ad.sn ++ np.s ! RObj CPrep ;
adv = ad.s ++ ap.adv ++ ad.sn ++ np.s ! RObj CPrep ;
isPre = False
} ;
ComplA2 a np = {
s = \\aform,p => a.s ! aform ++ a.c2 ++ np.s ! RObj Acc ;
adv = a.adv ++ a.c2 ++ np.s ! RObj Acc ;
s = \\aform,p => a.s ! aform ++ a.c2 ++ np.s ! RObj CPrep ;
adv = a.adv ++ a.c2 ++ np.s ! RObj CPrep ;
isPre = False
} ;