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

nominalization in Extra Dut and Eng (from Ramona)

Browse Source
This commit is contained in:
aarne
2012-06-06 09:48:05 +00:00
parent 694564d275
commit 1838781123
6 changed files with 51 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/dutch/ParadigmsDut.gf
View File

@@ -40,7 +40,8 @@ oper
de : Gender ; -- non-neutrum
het : Gender ; -- neutrum
nominative : Case ; -- nominative of nouns
genitive : Case ; -- genitive of nouns
--2 Nouns
@@ -48,6 +49,8 @@ oper
mkN : (muis : Str) -> N ; -- de muis-muisen, with some predictable exceptions
mkN : (bit : Str) -> Gender -> N ; -- if gender is not predictable
mkN : (gat,gaten : Str) -> Gender -> N ; -- worst-case for nouns
mkN : (huis, boot : N) -> N ; -- compound huisboot
mkN : (station, hal : N) -> Case -> N ; -- compound stationshal
} ;
-- Relational nouns need a preposition. The most common is "van".
@@ -195,6 +198,10 @@ oper
= \a,b -> lin N (regNounG a b) ;
mkN : (gat,gaten : Str) -> Gender -> N
= \a,b,c -> lin N (mkNoun a b c) ;
mkN : (huis,boot : N) -> N
= \huis,boot -> lin N {s = \\n => huis.s ! NF Sg Nom + boot.s ! n ; g = boot.g} ;
mkN : (huis,boot : N) -> Case -> N
= \huis,boot,c -> lin N {s = \\n => huis.s ! NF Sg c + boot.s ! n ; g = boot.g} ;
} ;
mkN2 = overload {
@@ -213,6 +220,8 @@ oper
feminine = Utr ;
het,neuter = Neutr ;
de,utrum = Utr ;
nominative = Nom ;
genitive = Gen ;
mkA = overload {
mkA : (vers : Str) -> A = \a -> lin A (regAdjective a) ;