GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-06 21:56:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

more mkN cases for Dan and Nor

Browse Source
This commit is contained in:
Aarne Ranta
2018-01-16 10:27:36 +01:00
parent a5652e7f1e
commit b2d55c064e
2 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/norwegian/ParadigmsNor.gf
View File

@@ -45,6 +45,7 @@ oper
masculine : Gender ; -- the "en" gender
feminine : Gender ; -- the "ei" gender
neutrum : Gender ; -- the "et" gender
utrum : Gender ; -- the "en" gender, same as masculine
-- To abstract over number names, we define the following.
@@ -281,6 +282,7 @@ oper
masculine = NUtr Masc ;
feminine = NUtr Fem ;
neutrum = NNeutr ;
utrum = masculine ;
singular = Sg ;
plural = Pl ;
nominative = Nom ;
@@ -307,6 +309,19 @@ oper
NNeutr => mk4N x (x + "et") (x + "") (x + "a")
}
} ;
mk2gN x y g = case last x of {
"e" => case g of {
NUtr Masc => mk4N x (x + "n") y (x + "ne") ;
NUtr Fem => mk4N x (init x + "a") y (x + "ne") ;
NNeutr => mk4N x (x + "t") y (init x + "a") ----
} ;
_ => case g of {
NUtr Masc => mk4N x (x + "en") y (x + "ene") ;
NUtr Fem => mk4N x (x + "a") y (x + "ene") ;
NNeutr => mk4N x (x + "et") y (x + "a")
}
} ;
mk2N x y = case last y of {
"n" => regGenN x masculine ;
@@ -437,15 +452,16 @@ oper
---------
mk2N : (bil,bilen : Str) -> N ;
mk2gN : (bil,bilen : Str) -> Gender -> N ;
mk4N : (dreng,drengen,drenger,drengene : Str) -> N ;
regN : Str -> N ;
regGenN : Str -> Gender -> N ;
mk2N : (bil,bilen : Str) -> N ;
mkN = overload {
mkN : Str -> N = regN ;
mkN : Str -> Gender -> N = regGenN ;
mkN : (bil,bilen : Str) -> N = mk2N ;
mkN : (bil,biler : Str) -> Gender -> N = mk2gN ;
mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N = \x,y,z,u,g -> mk4N x y z u ** {g = g} ;
mkN : (dreng,drengen,drenger,drengene : Str) -> N = mk4N
} ;