adding tense to french

This commit is contained in:
aarne
2004-11-17 21:26:26 +00:00
parent 15fd8ec71b
commit 2754a5a758
4 changed files with 62 additions and 23 deletions

View File

@@ -105,7 +105,7 @@ oper
-- Exampe: 'to be or not to be'.
etreNetre : Bool -> VerbPres = \b ->
etreNetre : Bool -> Verb = \b ->
{s = \\w => posNeg b (verbEtre.s ! w) []} ; ---- v reveals a BUG in refresh
embedConj = elisQue ;
@@ -175,8 +175,8 @@ oper
intVerbPhrase = \qui, dort ->
{s = table {
DirQ => qui.s ! Nom ++ optStr (estCeQue Nom) ++
dort.s ! qui.g ! VFin Ind qui.n P3 ;
IndirQ => "ce" ++ qui.s ! Nom ++ dort.s ! qui.g ! VFin Ind qui.n P3
dort.s ! qui.g ! VFin presInd qui.n P3 ;
IndirQ => "ce" ++ qui.s ! Nom ++ dort.s ! qui.g ! VFin presInd qui.n P3
}
} ;