forked from GitHub/gf-core
change example nouns in ParadigmsDut
This commit is contained in:
@@ -46,7 +46,7 @@ oper
|
|||||||
--2 Nouns
|
--2 Nouns
|
||||||
|
|
||||||
mkN : overload {
|
mkN : overload {
|
||||||
mkN : (boek : Str) -> N ; -- de boek-boeken, with some predictable exceptions
|
mkN : (bank : Str) -> N ; -- de bank-banken, with some predictable exceptions
|
||||||
mkN : (bit : Str) -> Gender -> N ; -- if gender is not predictable
|
mkN : (bit : Str) -> Gender -> N ; -- if gender is not predictable
|
||||||
mkN : (gat, gaten : Str) -> Gender -> N ; -- worst-case for nouns
|
mkN : (gat, gaten : Str) -> Gender -> N ; -- worst-case for nouns
|
||||||
mkN : (werk, plaats : N) -> N ; -- compound werkplaats
|
mkN : (werk, plaats : N) -> N ; -- compound werkplaats
|
||||||
@@ -208,7 +208,7 @@ oper
|
|||||||
mkOrd : A -> Ord = \a -> lin Ord {s = a.s ! Posit} ;
|
mkOrd : A -> Ord = \a -> lin Ord {s = a.s ! Posit} ;
|
||||||
|
|
||||||
mkN = overload {
|
mkN = overload {
|
||||||
mkN : (muis : Str) -> N
|
mkN : (bank : Str) -> N
|
||||||
= \a -> lin N (regNoun a) ;
|
= \a -> lin N (regNoun a) ;
|
||||||
mkN : (bit : Str) -> Gender -> N
|
mkN : (bit : Str) -> Gender -> N
|
||||||
= \a,b -> lin N (regNounG a b) ;
|
= \a,b -> lin N (regNounG a b) ;
|
||||||
@@ -216,10 +216,10 @@ oper
|
|||||||
= \a,g1,g2 -> lin N (regNounG a g1) | lin N (regNounG a g2) ; -- there are many nouns with variant genders
|
= \a,g1,g2 -> lin N (regNounG a g1) | lin N (regNounG a g2) ; -- there are many nouns with variant genders
|
||||||
mkN : (gat,gaten : Str) -> Gender -> N
|
mkN : (gat,gaten : Str) -> Gender -> N
|
||||||
= \a,b,c -> lin N (mkNoun a b c) ;
|
= \a,b,c -> lin N (mkNoun a b c) ;
|
||||||
mkN : (huis,boot : N) -> N
|
mkN : (werk,plaats : N) -> N
|
||||||
= \huis,boot -> lin N {s = \\n => huis.s ! NF Sg Nom + boot.s ! n ; g = boot.g} ;
|
= \werk,plaats -> lin N {s = \\n => werk.s ! NF Sg Nom + plaats.s ! n ; g = plaats.g} ;
|
||||||
mkN : (huis,boot : N) -> Case -> N
|
mkN : (werk,plaats : N) -> Case -> N
|
||||||
= \huis,boot,c -> lin N {s = \\n => huis.s ! NF Sg c + boot.s ! n ; g = boot.g} ;
|
= \werk,plaats,c -> lin N {s = \\n => werk.s ! NF Sg c + plaats.s ! n ; g = plaats.g} ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkN2 = overload {
|
mkN2 = overload {
|
||||||
|
|||||||
Reference in New Issue
Block a user