parad fixes

This commit is contained in:
aarne
2004-08-27 15:21:09 +00:00
parent 42e8522757
commit eb83ed3743
2 changed files with 17 additions and 1 deletions

View File

@@ -185,6 +185,17 @@ oper
v3Dir : V -> Str -> V3 ; -- ge,_,till
v3DirDir : V -> V3 ; -- ge,_,_
-- Sentence complement verbs.
mkVS : V -> VS ; -- säga (att ...)
-- Verb phrase complement verbs.
vvInf : V -> VV ; -- orka (spela)
vvAtt : V -> VV ; -- gilla (att spela)
vvBoth : V -> VV ; -- försöka (spela | att spela)
-- The definitions should not bother the user of the API. So they are
-- hidden from the document.
--.
@@ -325,4 +336,9 @@ oper
v3Dir x y = mkV3 x [] y ;
v3DirDir x = v3Dir x [] ;
mkVS v = v ** {lock_VS = <>} ;
vvInf v = v ** {isAux = True ; lock_VV = <>} ;
vvAtt v = v ** {isAux = False ; lock_VV = <>} ;
vvBoth v = v ** {isAux = variants {False ; True} ; lock_VV = <>} ;
} ;