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

new mkN cases for Dan and Nor

Browse Source
This commit is contained in:
Aarne Ranta
2018-01-16 09:53:49 +01:00
parent 3703b76856
commit a5652e7f1e
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/danish/ParadigmsDan.gf
View File

@@ -91,7 +91,8 @@ oper
-- Worst case: give all four forms. The gender is computed from the -- Worst case: give all four forms. The gender is computed from the
-- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). -- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$).
mkN : (dreng,drengen,drenge,drengene : Str) -> N ; -- worst case mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N ; -- worst case
mkN : (dreng,drengen,drenge,drengene : Str) -> N ; -- worst case, gender guessed
} ; } ;
@@ -453,6 +454,7 @@ oper
mkN : Str -> Gender -> N = regGenN ; mkN : Str -> Gender -> N = regGenN ;
mkN : (bil,bilen : Str) -> N = mk2N ; mkN : (bil,bilen : Str) -> N = mk2N ;
mkN : (bil,bilen,biler : Str) -> N = mk3N ; mkN : (bil,bilen,biler : Str) -> N = mk3N ;
mkN : (dreng,drengen,drenge,drengene : Str) -> Gender -> N = \x,y,z,u,g -> mk4N x y z u ** {g = g} ;
mkN : (dreng,drengen,drenge,drengene : Str) -> N = mk4N ; mkN : (dreng,drengen,drenge,drengene : Str) -> N = mk4N ;
} ; } ;

5
src/norwegian/ParadigmsNor.gf
View File

@@ -82,7 +82,9 @@ oper
mkN : Str -> N ; -- predictable noun, feminine for "-e" otherwise masculine mkN : Str -> N ; -- predictable noun, feminine for "-e" otherwise masculine
mkN : Str -> Gender -> N ; -- force gender mkN : Str -> Gender -> N ; -- force gender
mkN : (bil,bilen : Str) -> N ; --% mkN : (bil,bilen : Str) -> N ; --%
mkN : (dreng,drengen,drenger,drengene : Str) -> N -- worst case mkN : (dreng,drengen,drenger,drengene : Str) -> N ; -- worst case, gender guessed
mkN : (dreng,drengen,drenger,drengene : Str) -> Gender -> N ; -- worst case
} ; } ;
@@ -444,6 +446,7 @@ oper
mkN : Str -> N = regN ; mkN : Str -> N = regN ;
mkN : Str -> Gender -> N = regGenN ; mkN : Str -> Gender -> N = regGenN ;
mkN : (bil,bilen : Str) -> N = mk2N ; mkN : (bil,bilen : Str) -> N = mk2N ;
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 mkN : (dreng,drengen,drenger,drengene : Str) -> N = mk4N
} ; } ;