msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added est-ce que IAdv questions to Fre

Browse Source
This commit is contained in:
Aarne Ranta
2018-02-22 09:08:49 +01:00
parent ba62b9c82a
commit 4a17d46d8b
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/french/ExtraFre.gf
View File

@@ -95,6 +95,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
QIndir => subjIf ++ cls ! Indic 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 ? InvQuestCl cl = {s = \\t,a,p => -- dort-il ?
let cls = cl.s ! DInv ! t ! a ! p let cls = cl.s ! DInv ! t ! a ! p
in table { in table {

1
src/french/ExtraFreAbs.gf
View File

@@ -55,6 +55,7 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
-- alternative forms of questions -- alternative forms of questions
EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort
EstcequeQuestIAdvCl : IAdv -> Cl -> QCl ; -- où est-ce qu'il dort
InvQuestCl : Cl -> QCl ; -- dort-il InvQuestCl : Cl -> QCl ; -- dort-il
InvQuestIAdvCl : IAdv -> Cl -> QCl ; -- dort-il InvQuestIAdvCl : IAdv -> Cl -> QCl ; -- dort-il