GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Dutch lexicon closer to complete, but not verified.

Browse Source
This commit is contained in:
aarne
2009-11-17 12:52:32 +00:00
parent 200b1d5473
commit 7a26b95adf
4 changed files with 111 additions and 396 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/src/dutch/ResDut.gf
View File

@@ -31,9 +31,9 @@ resource ResDut = ParamX ** open Prelude in {
regNoun : Str -> Noun = \s -> case s of {
_ + ("a" | "o" | "y" | "u" | "oe" | "é") => mkNoun s (s + "'s") Utr ;
_ + ("oir" | "ion") => mkNoun s (s + "s") Neutr ;
_ + ("oir" | "ion" | "je") => mkNoun s (s + "s") Neutr ;
? + ? + ? + _ + ("el" | "em" | "en" | "er" | "erd" | "aar" | "aard") => -- unstressed
mkNoun s (s + s) Utr ;
mkNoun s (s + "s") Utr ;
_ + ("i"|"u") => mkNoun s (endCons s + "en") Utr ;
b + v@("aa"|"ee"|"oo"|"uu") + c@? => mkNoun s (b + shortVoc v c + "en") Utr ;
b + v@("a" |"e" |"o" |"u" ) + c@? => mkNoun s (b + v + c + c + "en") Utr ;
@@ -313,6 +313,24 @@ resource ResDut = ParamX ** open Prelude in {
vtype = VAct ;
} ;
kunnen_V : VVerb = {
s = table {
VInf => "kunnen" ;
VPresSg1 => "kan" ;
VPresSg2 => "kunt" ;
VPresSg3 => "kan" ; ---- kun je
VPastSg => "kon" ;
VPastPl => "konden" ;
VImp2 => "kan" ; ---- not used
VImp3 => "kant" ;
VImpPl => "kunnen" ; ----
VPerf => "gekund"
} ;
aux = VHebben ;
prefix = [] ;
vtype = VAct ;
} ;
worden_V = irregVerb2 "worden" "werd" "werden" "geworden" ** {
aux = VZijn ; prefix = [] ; vtype = VAct} ;