Spanish verbs (almost) corrected

This commit is contained in:
aarne
2005-05-23 15:42:54 +00:00
parent 05b233b7b2
commit e2fbde46f9
5 changed files with 232 additions and 82 deletions

View File

@@ -204,6 +204,10 @@ oper
verboV : Verbum -> V ;
-- Verbs with a deviant passive participle: just give the participle
-- in masculine singular form as second argument.
special_ppV : V -> Str -> V ;
--3 Two-place verbs
--
@@ -326,6 +330,15 @@ oper
verboV ve = verbPres ve AHabere ** {lock_V = <>} ;
special_ppV ve pa = {
s = table {
VPart g n => (adjSolo pa).s ! AF g n ;
p => ve.s ! p
} ;
lock_V = <> ;
aux = AHabere
} ;
mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ;
dirV2 v = mkV2 v accusative ;
v2V v = v ** {lock_V = <>} ;