GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-25 19:16:28 -06:00
Code Issues Packages Projects Releases Wiki 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
src/french/ExtraFre.gf
+8 -1
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
}
} ;