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

added ExtraFre.InvQuestIAdvCl

Browse Source
This commit is contained in:
Aarne Ranta
2017-12-13 09:09:39 +02:00
parent ced4be3a07
commit d0a65b19fd
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/french/ExtraFre.gf
View File

@@ -99,7 +99,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
let cls = cl.s ! DInv ! t ! a ! p
in table {
QDir => cls ! Indic ;
QIndir => subjIf ++ cls ! Indic
QIndir => subjIf ++ cl.s ! DDir ! t ! a ! p ! Indic
}
} ;
InvQuestIAdvCl iadv cl = {s = \\t,a,p => -- dort-il ?
let cls = cl.s ! DInv ! t ! a ! p
in table {
QDir => iadv.s ++ cls ! Indic ;
QIndir => iadv.s ++ cl.s ! DDir ! t ! a ! p ! Indic
}
} ;

1
src/french/ExtraFreAbs.gf
View File

@@ -56,6 +56,7 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
EstcequeQuestCl : Cl -> QCl ; -- est-ce qu'il dort
InvQuestCl : Cl -> QCl ; -- dort-il
InvQuestIAdvCl : IAdv -> Cl -> QCl ; -- dort-il
}