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

Overload partV ; fix typo in IrregDut ; fix word order in subordinate clauses in ResDut

Browse Source
This commit is contained in:
inari
2014-06-19 15:04:36 +00:00
parent b953e782f6
commit 7cc6787454
3 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/dutch/IrregDut.gf
View File

@@ -176,7 +176,7 @@ lin wrijven_V = mkV "wrijven" "wreef" "wreven" "gewreven" ;
lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ; lin wringen_V = mkV "wringen" "wrong" "wrongen" "gewrongen" ;
lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ; lin zeggen_V = mkV "zeggen" "zei" "zeiden" "gezegd" ;
lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ; lin zenden_V = mkV "zenden" "zond" "zonden" "gezonden" ;
lin zien_V = mkV "zien" "ziet" "zien" "zag" "zagen" "gezien" ; lin zien_V = mkV "zie" "ziet" "zien" "zag" "zagen" "gezien" ;
lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ; lin zijgen_V = mkZijnV "zijgen" "zeeg" "zegen" "gezegen" ;
lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ; lin zingen_V = mkV "zingen" "zong" "zongen" "gezongen" ;
lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ; lin zinken_V = mkZijnV "zinken" "zonk" "zonken" "gezonken" ;

8
lib/src/dutch/ParadigmsDut.gf
View File

@@ -269,8 +269,12 @@ oper
zijnV v = lin V (v2vvAux v VZijn) ; zijnV v = lin V (v2vvAux v VZijn) ;
reflV v = lin V {s = v.s ; aux = v.aux ; particle = v.particle ; prefix = v.prefix ; vtype = VRefl} ; reflV v = lin V {s = v.s ; aux = v.aux ; particle = v.particle ; prefix = v.prefix ; vtype = VRefl} ;
partV : V -> Str -> V = \vinden,leuk -> partV = overload {
vinden ** {particle = leuk} ; partV : Str -> V -> V = \leuk,vinden ->
vinden ** {particle = leuk} ;
partV : V -> Str -> V = \vinden,leuk ->
vinden ** {particle = leuk} ;
} ;
no_geV v = let vs = v.s in { no_geV v = let vs = v.s in {
s = table { s = table {

17
lib/src/dutch/ResDut.gf
View File

@@ -605,11 +605,20 @@ param
} --# notpresent } --# notpresent
; ;
extra = vp.ext ; extra = vp.ext ;
--for the Sub word order
inffin = inffin =
case <a,vp.isAux> of { --# notpresent case <t,a,vp.isAux> of { --# notpresent
<Anter,True> => fin ++ inf ; -- double inf --# notpresent -- gezien zou/zal hebben
_ => --# notpresent <Cond,Anter,False> => vperf ++ fin ++ auxv ! VInf ; --# notpresent
inf ++ fin --- or just auxiliary vp <Fut,Anter,False> => vperf ++ fin ++ auxv ! VInf ; --# notpresent
-- zou/zal zien
<Cond,Simul,False> => fin ++ verb.p2 ; --# notpresent
<Fut,Simul,False> => fin ++ verb.p2 ; --# notpresent
-- wil kunnen zien (first line in inf)
<_,Anter,True> => fin ++ inf ; -- double inf --# notpresent
_ => fin ++ inf --# notpresent
-- no inf ++ fin, this is not German :-P
} --# notpresent } --# notpresent
in in
case o of { case o of {