texts and idioms

This commit is contained in:
aarne
2006-02-20 14:52:37 +00:00
parent 4cd96c5d52
commit b6957f4e41
13 changed files with 80 additions and 6 deletions

View File

@@ -39,6 +39,13 @@ oper
_ => Ton c
} ;
-- Pronouns in $NP$ lists are always in stressed forms.
stressedCase : NPForm -> NPForm = \c -> case c of {
Aton k => Ton k ;
_ => c
} ;
appCompl : Compl -> (NPForm => Str) -> Str = \comp,np ->
comp.s ++ np ! Ton comp.c ;