1
0
forked from GitHub/gf-rgl

(Dut) small fixes in lexicon, prepositions etc.

This commit is contained in:
Inari Listenmaa
2018-02-08 16:26:46 +01:00
parent 54d60b60da
commit fac435afc3
3 changed files with 8 additions and 9 deletions

View File

@@ -3,7 +3,7 @@
-- work by Aarne Ranta
concrete LexiconDut of Lexicon = CatDut **
open Prelude, ParadigmsDut, IrregDut in {
open Prelude, ParadigmsDut, IrregDut, StructuralDut in {
flags
coding=utf8 ;
@@ -32,9 +32,9 @@ lin
die_V = sterven_V ;
distance_N3 = mkN3 (mkN "afstand") van_Prep (mkPrep "naar") ;
drink_V2 = mkV2 drinken_V ;
easy_A2V = mkA2 (mkA "gemakkelijk") noPrep ;
easy_A2V = mkA2 (mkA "gemakkelijk") for_Prep ; -- "gemakkelijk voor me" or "gemakkelijk te doen"?
eat_V2 = mkV2 eten_V ;
father_N2 = mkN2 (mkN "vader") van_Prep ;
father_N2 = mkN2 (mkN "vader") ;
fear_VS = mkVS (mkV "vrezen") ;
fish_N = mkN "vis" ;
go_V = zijnV gaan_V ;
@@ -42,7 +42,7 @@ lin
house_N = mkN "huis" neuter ;
know_VQ = mkVQ weten_V ;
know_VS = mkVS weten_V ;
married_A2 = mkA2 (mkA "getrouwd") (mkPrep "met") ;
married_A2 = mkA2 (mkA "getrouwd") with_Prep ;
mother_N2 = mkN2 (mkN "moeder") ;
now_Adv = mkAdv "nu" ;
paint_V2A = mkV2A (mkV "schilderen" "schildert") ;

View File

@@ -115,7 +115,6 @@ oper
van_Prep : Prep ;
te_Prep : Prep ;
--
--2 Verbs
@@ -231,7 +230,7 @@ oper
mkN2 = overload {
mkN2 : N -> N2
= \n -> lin N2 (n ** {c2 = mkPrep "van"}) ;
= \n -> lin N2 (n ** {c2 = van_Prep}) ;
mkN2 : N -> Prep -> N2
= \n,p -> lin N2 (n ** {c2 = p}) ;
} ;

View File

@@ -364,7 +364,7 @@ param
VPastSg => "kon" ; --# notpresent
VPastPl => "konden" ; --# notpresent
VImp2 => "kan" ; ---- not used
VImp3 => "kant" ;
VImp3 => "kan" ;
VImpPl => "kunnen" ; ----
VPerf => "gekund" ;
VPresPart => "kunnende" ;
@@ -396,7 +396,7 @@ param
het_Pron : Pronoun = mkPronoun "het" "het" "ze" "hij" "hem" "zijn" "zijne" Neutr Sg P3 ; -- cunger: 't -> het
MergesWithPrep = { mergesWithPrep : Bool ; mergeForm : Str } ;
MergesWithPrep : Type = { mergesWithPrep : Bool ; mergeForm : Str } ;
noMerge : MergesWithPrep = { mergesWithPrep = False ; mergeForm = [] } ;
-- Complex $CN$s, like adjectives, have strong and weak forms.
@@ -432,7 +432,7 @@ param
-- Applying a preposition to a noun phrase
-- In order to decide whether to merge, have to check both NP and Prep:
-- e.g. deze + met -> hiermee , but zonder + deze -> "zonder deze"
-- e.g. met + deze -> hiermee , but zonder + deze -> "zonder deze"
appPrep : Preposition -> NPLite -> Str
= \prep,np ->
case <np.mergesWithPrep,prep.mergesWithPrep> of {