GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-30 10:28:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed notpresent in ResDut

Browse Source
This commit is contained in:
Aarne Ranta
2018-04-18 16:49:17 +02:00
parent de5ce221b6
commit b5ca8710cf
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/dutch/ResDut.gf
View File

@@ -123,7 +123,7 @@ param
| VImp3 -- weest | VImp3 -- weest
| VImpPl -- wezen | VImpPl -- wezen
| VPerf -- geweest | VPerf -- geweest
| VPerfInfl -- geweeste --# notpresent | VPerfInfl -- geweeste
| VPresPart -- zijnde | VPresPart -- zijnde
| VGer -- zijnde | VGer -- zijnde
; ;
@@ -149,7 +149,7 @@ param
VPastSg => aaide; -- ik aaide --# notpresent VPastSg => aaide; -- ik aaide --# notpresent
VPastPl => aaiden; -- hij/zij/het/wij aaiden --# notpresent VPastPl => aaiden; -- hij/zij/het/wij aaiden --# notpresent
VPerf => geaaid ; -- ik heb geaaid VPerf => geaaid ; -- ik heb geaaid
VPerfInfl => geaaide ; -- inflected form of participle --# notpresent VPerfInfl => geaaide ; -- inflected form of participle
VPresPart => aaien + "de" ; VPresPart => aaien + "de" ;
VGer => aaien + "d" VGer => aaien + "d"
} }
@@ -617,10 +617,10 @@ param
verb : Str * Str = case <isPart,t,a> of { verb : Str * Str = case <isPart,t,a> of {
-- <Experimental: only used in ExtendDut.PastPartAP> -- <Experimental: only used in ExtendDut.PastPartAP>
<Inf,Fut|Pres, _> => <vp.s.s ! VPresPart, []> ; --# notpresent <Inf,Pres, _> => <vp.s.s ! VPresPart, []> ;
<Inf,Past|Cond,_> => <case agr.g of { Utr => vp.s.s ! VPerfInfl ; <Inf,_,_> => <case agr.g of { Utr => vp.s.s ! VPerfInfl ;
_ => vperf } _ => vperf }
,[]> ; --# notpresent ,[]> ;
-- </Experimental> -- </Experimental>
<_,Fut|Cond,Simul> => <zullen_V.s ! vform, vp.s.s ! VInf> ; --# notpresent <_,Fut|Cond,Simul> => <zullen_V.s ! vform, vp.s.s ! VInf> ; --# notpresent
@@ -633,8 +633,8 @@ param
obj0 = vp.n0 ! agr ; obj0 = vp.n0 ! agr ;
obj = vp.n2 ! agr ; obj = vp.n2 ! agr ;
part = vp.s.particle ; part = vp.s.particle ;
pref = case a of { pref = case <a : Anteriority> of {
Anter => [] ; -- prefix is part of participle: toegevoegd Anter => [] ; -- prefix is part of participle: toegevoegd --# notpresent
_ => vp.s.prefix -- prefix not present in verb form _ => vp.s.prefix -- prefix not present in verb form
} ; } ;
compl = case vp.negPos of { compl = case vp.negPos of {
@@ -654,10 +654,10 @@ param
-- gezien zou/zal hebben -- gezien zou/zal hebben
<Fut|Cond,Anter,False> => vperf ++ fin ++ auxv ! VInf ++ vp.inf.p1 ; --# notpresent <Fut|Cond,Anter,False> => vperf ++ fin ++ auxv ! VInf ++ vp.inf.p1 ; --# notpresent
-- zou/zal zien -- zou/zal zien
<Fut|Cond,Simul,False> => fin ++ verb.p2 ++ vp.inf.p1 ; <Fut|Cond,Simul,False> => fin ++ verb.p2 ++ vp.inf.p1 ; --# notpresent
-- wil kunnen zien (first line in inf) -- wil kunnen zien (first line in inf)
_ => fin ++ inf -- double inf --# notpresent _ => fin ++ inf -- double inf
} }
in in
case o of { case o of {