mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-30 10:28:53 -06:00
(Dut) misc. small fixes
This commit is contained in:
@@ -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" ;
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
@@ -52,7 +52,12 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
|
||||
True => let emptyObjVP : VP = vp ** {n0, n2 = \\_ => [] } ;
|
||||
infCompl = vp.n0 ! np.a ++ vp.n2 ! np.a ;
|
||||
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 ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user