Romance almost complete

This commit is contained in:
aarne
2005-03-31 16:14:12 +00:00
parent 3d248a8576
commit e9063a42dc
4 changed files with 11 additions and 15 deletions

View File

@@ -50,19 +50,10 @@ oper
npGenPossNum = \nu,ton,mec ->
\\c => prepCase c ++ ton.s ! Poss Pl mec.g ++ nu.s ! mec.g ++ mec.s ! Pl ;
---- We miss "il y en a"
existNounPhrase = \unemaison ->
predVerbGroupClause
pronImpers
(predClauseGroup
verbAvoir
(complTransVerbGen
(mkTransVerbCas verbAvoir dative)
pronY
(\\_,_,_ => unemaison.s ! Ton Acc)
)
) ;
sats2clause (
insertObject (mkSatsObject pronImpers (mkTransVerbCas verbAvoir dative) pronY)
accusative [] unemaison) ;
reflPron : Number => Person => NPFormA => Str = \\n,p =>
case p of {