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

(Dut) useInfVP depend on agreement; ProgrVP adds a complement, not adverb

Browse Source
This commit is contained in:
Inari Listenmaa
2018-04-17 10:13:04 +02:00
parent 7e03f0f5a2
commit afd2976439
5 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/dutch/ExtraDut.gf
View File

@@ -11,7 +11,7 @@ concrete ExtraDut of ExtraDutAbs = CatDut **
BaseVPI = twoTable Bool ; BaseVPI = twoTable Bool ;
ConsVPI = consrTable Bool comma ; ConsVPI = consrTable Bool comma ;
MkVPI vp = {s = \\b => useInfVP b vp} ; MkVPI vp = {s = \\b => useInfVP b vp ! agrP3 Sg } ;
ConjVPI = conjunctDistrTable Bool ; ConjVPI = conjunctDistrTable Bool ;
ComplVPIVV v vpi = ComplVPIVV v vpi =

2
src/dutch/IdiomDut.gf
View File

@@ -32,7 +32,7 @@ concrete IdiomDut of Idiom = CatDut **
} }
} ; } ;
ProgrVP vp = insertAdv ("aan" ++ "het" ++ useInfVP True vp) (predV zijn_V) ; ProgrVP vp = insertObj (\\agr => "aan" ++ "het" ++ useInfVP True vp ! agr) (predV zijn_V) ;
ImpPl1 vp = ImpPl1 vp =
let let

2
src/dutch/PhraseDut.gf
View File

@@ -16,7 +16,7 @@ concrete PhraseDut of Phrase = CatDut ** open Prelude, ResDut in
UttIP ip = {s = ip.s ! NPNom} ; --- Acc also UttIP ip = {s = ip.s ! NPNom} ; --- Acc also
UttIAdv iadv = iadv ; UttIAdv iadv = iadv ;
UttNP np = {s = np.s ! NPNom} ; UttNP np = {s = np.s ! NPNom} ;
UttVP vp = {s = useInfVP True vp} ; -- without zu UttVP vp = {s = useInfVP True vp ! agrP3 Sg } ; -- without zu
UttAdv adv = adv ; UttAdv adv = adv ;
UttCN n = {s = n.s ! Strong ! NF Sg Nom} ; UttCN n = {s = n.s ! Strong ! NF Sg Nom} ;
UttCard n = {s = n.s ! Utr ! Nom} ; UttCard n = {s = n.s ! Utr ! Nom} ;

4
src/dutch/ResDut.gf
View File

@@ -642,9 +642,9 @@ param
vp.inf.p1 ++ vp.ext vp.inf.p1 ++ vp.ext
> ; > ;
useInfVP : Bool -> VP -> Str = \isAux,vp -> useInfVP : Bool -> VP -> Agr => Str = \isAux,vp ->
let vpi = infVP isAux vp in let vpi = infVP isAux vp in
vpi.p1 ! agrP3 Sg ++ vpi.p2 ++ vpi.p3 ; -- TODO \\agr => vpi.p1 ! agr ++ vpi.p2 ++ vpi.p3 ;
reflPron : Agr => Str = table { reflPron : Agr => Str = table {
{n = Sg ; p = P1} => "mijzelf" ; {n = Sg ; p = P1} => "mijzelf" ;

2
src/dutch/SentenceDut.gf
View File

@@ -51,7 +51,7 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
EmbedS s = {s = conjThat ++ s.s ! Sub} ; EmbedS s = {s = conjThat ++ s.s ! Sub} ;
EmbedQS qs = {s = qs.s ! QIndir} ; EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = useInfVP False vp} ; EmbedVP vp = {s = useInfVP False vp ! agrP3 Sg } ;
UseCl t p cl = { UseCl t p cl = {
s = \\o => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! o s = \\o => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! o