(Som) Add VPSlashPrep + fix bug in insertAdv

This commit is contained in:
Inari Listenmaa
2019-09-30 10:50:26 +02:00
parent 22503e0a7a
commit 4dba178d33
3 changed files with 14 additions and 9 deletions
+2 -5
View File
@@ -769,11 +769,7 @@ oper
passVP : VerbPhrase -> VerbPhrase = \vp -> vp ** {
c2 = case vp.c2 of {
Single NoPrep => Passive ;
Single Ku => Lagu ;
Single Ka => Laga ;
Single U => Loo ;
Single La => Lala ;
Single p => combinePassive p ;
_ => vp.c2 }
} ;
@@ -827,6 +823,7 @@ oper
-- if free complement slots, introduce adv.np with insertComp
Single NoPrep => insertCompLite (vp ** {c2 = Single adv.c2}) adv.np ** adv' ;
Single p => insertCompLite (vp ** {c2 = combine p adv.c2}) adv.np ** adv' ;
Passive => insertCompLite (vp ** {c2 = combinePassive adv.c2}) adv.np ** adv' ;
-- if complement slots are full, just insert strings.
_ => vp ** adv''