parametrized participle-clitic agreement

This commit is contained in:
aarne
2006-01-30 19:59:24 +00:00
parent 9d6586b43c
commit c0b8ec02fd
4 changed files with 41 additions and 23 deletions

View File

@@ -49,10 +49,13 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
} ;
partAgr : VType -> VPAgr = \vtyp -> case vtyp of {
VHabere => VPAgrNone ;
VHabere => vpAgrNone ;
_ => VPAgrSubj
} ;
vpAgrClit : Agr -> VPAgr = \a ->
VPAgrClit (aagr a.g a.n) ; --- subty
negation : Polarity => (Str * Str) = table {
Pos => <[],[]> ;
Neg => <elisNe,"pas">