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

(Dut) lexical fixes

Browse Source
This commit is contained in:
Inari Listenmaa
2018-04-18 10:12:30 +02:00
parent d2ecf37427
commit 100bb34dcd
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/dutch/IdiomDut.gf
View File

@@ -7,11 +7,11 @@ concrete IdiomDut of Idiom = CatDut **
ImpersCl vp = mkClause "het" (agrP3 Sg) vp ; -- cunger: 't -> het ImpersCl vp = mkClause "het" (agrP3 Sg) vp ; -- cunger: 't -> het
GenericCl vp = mkClause "men" (agrP3 Sg) vp ; GenericCl vp = mkClause "men" (agrP3 Sg) vp ;
CleftNP np rs = mkClause "'t" (agrP3 Sg) CleftNP np rs = mkClause "het" (agrP3 Sg)
(insertExtrapos (rs.s ! np.a.g ! np.a.n) ---- (insertExtrapos (rs.s ! np.a.g ! np.a.n) ----
(insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ; (insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ;
CleftAdv ad s = mkClause "'t" (agrP3 Sg) CleftAdv ad s = mkClause "het" (agrP3 Sg)
(insertExtrapos (conjThat ++ s.s ! Sub) (insertExtrapos (conjThat ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV zijn_V))) ; (insertObj (\\_ => ad.s) (predV zijn_V))) ;

2
src/dutch/LexiconDut.gf
View File

@@ -54,7 +54,7 @@ lin
send_V3 = mkV3 (mkV "sturen") (mkPrep "naar") ; send_V3 = mkV3 (mkV "sturen") (mkPrep "naar") ;
sleep_V = slapen_V ; sleep_V = slapen_V ;
small_A = mkA "klein" ; small_A = mkA "klein" ;
talk_V3 = mkV3 (mkV "praten") (mkPrep "met") (mkPrep "over") ; talk_V3 = mkV3 (mkV "praten") with_Prep (mkPrep "over") ;
warm_A = mkA "warm" ; warm_A = mkA "warm" ;
wine_N = mkN "wijn" ; wine_N = mkN "wijn" ;
john_PN = mkPN "Jan" ; john_PN = mkPN "Jan" ;