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

(Dut) misc. small fixes

Browse Source
This commit is contained in:
Inari Listenmaa
2018-05-07 16:32:12 +02:00
parent d5ba0733ec
commit 34c87d0de0
4 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/dutch/LexiconDut.gf
View File

@@ -16,7 +16,7 @@ lin
ask_V2Q = mkV2Q vragen_V noPrep ;
bad_A = mkA "slecht" ;
beautiful_A = mkA "mooi" ;
become_VA = mkVA worden_V ;
become_VA = mkVA (zijnV worden_V) ;
beer_N = mkN "bier" "bieren" neuter ;
beg_V2V = mkV2V (mkV "smeken") noPrep ; ---- om te
big_A = mkA "groot" ;

2
src/dutch/ResDut.gf
View File

@@ -610,7 +610,7 @@ param
-- To be used for ExtendDut.PastPartAP
-- If we need more variants, extend mkClause'
infClause : Str -> Agr -> VP -> AForm -> Clause = \subj,agr,vp,af ->
mkClause' subj agr vp af Inf ;
mkClause' subj agr vp af Inf ;
-- Added a possibility to choose a participle verb form.
-- This is so far only used in ExtendDut.PastPartAP. /IL2018

2
src/dutch/StructuralDut.gf
View File

@@ -92,7 +92,7 @@ concrete StructuralDut of Structural = CatDut, Prelude **
we_Pron = mkPronoun "we" "ons" "ons" "wij" "ons" "onze" "onze" Utr Pl P1 ;
whatSg_IP = {s = \\_ => "wat" ; n = Sg ; mergesWithPrep = True ; mergeForm = "waar"} ;
whatPl_IP = {s = \\_ => "wat" ; n = Pl ; mergesWithPrep = True ; mergeForm = "waar"} ;
whatPl_IP = {s = \\_ => "welke" ; n = Pl ; mergesWithPrep = True ; mergeForm = "waar"} ;
when_IAdv = ss "wanneer" ;
when_Subj = ss "als" ;

13
src/dutch/VerbDut.gf
View File

@@ -49,10 +49,15 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
-- and choose its agreement based on the new object.
-- Otherwise, keep the old VP.
newVP : VP = case hasInf of {
True => let emptyObjVP : VP = vp ** {n0, n2 = \\_ => [] } ;
infCompl = vp.n0 ! np.a ++ vp.n2 ! np.a ;
in insertInf infCompl emptyObjVP ;
_ => vp } ;
True => let emptyObjVP : VP = vp ** {n0, n2 = \\_ => [] } ;
infCompl = vp.n0 ! np.a ++ vp.n2 ! np.a ;
in insertInf infCompl emptyObjVP ;
_ => case hasPrep of {
True => vp ;
False => vp ** { n0 = \\_ => vp.n0 ! np.a ;
n2 = \\_ => vp.n2 ! np.a }
}
} ;
in insertArg newVP ;