forked from GitHub/gf-rgl
added est-ce que IAdv questions to Fre
This commit is contained in:
@@ -95,6 +95,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
|
||||
QIndir => subjIf ++ cls ! Indic
|
||||
}
|
||||
} ;
|
||||
EstcequeQuestIAdvCl iadv cl =
|
||||
{s = \\t,a,p => -- est-ce qu'il dort ?
|
||||
let cls = cl.s ! DDir ! t ! a ! p
|
||||
in table {
|
||||
QDir => iadv.s ++ "est-ce" ++ elisQue ++ cls ! Indic ;
|
||||
QIndir => iadv.s ++ cls ! Indic
|
||||
}
|
||||
} ;
|
||||
InvQuestCl cl = {s = \\t,a,p => -- dort-il ?
|
||||
let cls = cl.s ! DInv ! t ! a ! p
|
||||
in table {
|
||||
|
||||
@@ -55,6 +55,7 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
|
||||
-- alternative forms of questions
|
||||
|
||||
EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort
|
||||
EstcequeQuestIAdvCl : IAdv -> Cl -> QCl ; -- où est-ce qu'il dort
|
||||
InvQuestCl : Cl -> QCl ; -- dort-il
|
||||
InvQuestIAdvCl : IAdv -> Cl -> QCl ; -- dort-il
|
||||
|
||||
|
||||
Reference in New Issue
Block a user