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 ; ask_V2Q = mkV2Q vragen_V noPrep ;
bad_A = mkA "slecht" ; bad_A = mkA "slecht" ;
beautiful_A = mkA "mooi" ; beautiful_A = mkA "mooi" ;
become_VA = mkVA worden_V ; become_VA = mkVA (zijnV worden_V) ;
beer_N = mkN "bier" "bieren" neuter ; beer_N = mkN "bier" "bieren" neuter ;
beg_V2V = mkV2V (mkV "smeken") noPrep ; ---- om te beg_V2V = mkV2V (mkV "smeken") noPrep ; ---- om te
big_A = mkA "groot" ; big_A = mkA "groot" ;

2
src/dutch/ResDut.gf
View File

@@ -610,7 +610,7 @@ param
-- To be used for ExtendDut.PastPartAP -- To be used for ExtendDut.PastPartAP
-- If we need more variants, extend mkClause' -- If we need more variants, extend mkClause'
infClause : Str -> Agr -> VP -> AForm -> Clause = \subj,agr,vp,af -> 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. -- Added a possibility to choose a participle verb form.
-- This is so far only used in ExtendDut.PastPartAP. /IL2018 -- 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 ; we_Pron = mkPronoun "we" "ons" "ons" "wij" "ons" "onze" "onze" Utr Pl P1 ;
whatSg_IP = {s = \\_ => "wat" ; n = Sg ; mergesWithPrep = True ; mergeForm = "waar"} ; 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_IAdv = ss "wanneer" ;
when_Subj = ss "als" ; 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. -- and choose its agreement based on the new object.
-- Otherwise, keep the old VP. -- Otherwise, keep the old VP.
newVP : VP = case hasInf of { newVP : VP = case hasInf of {
True => let emptyObjVP : VP = vp ** {n0, n2 = \\_ => [] } ; True => let emptyObjVP : VP = vp ** {n0, n2 = \\_ => [] } ;
infCompl = vp.n0 ! np.a ++ vp.n2 ! np.a ; infCompl = vp.n0 ! np.a ++ vp.n2 ! np.a ;
in insertInf infCompl emptyObjVP ; in insertInf infCompl emptyObjVP ;
_ => vp } ; _ => case hasPrep of {
True => vp ;
False => vp ** { n0 = \\_ => vp.n0 ! np.a ;
n2 = \\_ => vp.n2 ! np.a }
}
} ;
in insertArg newVP ; in insertArg newVP ;