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

added Ice.mkN : Str -> N following textbook heuristics

Browse Source
This commit is contained in:
Aarne Ranta
2019-08-01 18:24:46 +02:00
parent 3700527c4a
commit fb5943a58e
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/icelandic/ParadigmsIce.gf
View File

@@ -64,6 +64,9 @@ resource ParadigmsIce = open
mkN = overload { mkN = overload {
-- Given Sg.Nom. -- Given Sg.Nom.
mkN : Str -> N = mk0N ;
-- Given Sg.Nom. and gender
mkN : Str -> Gender -> N = mk1N ; mkN : Str -> Gender -> N = mk1N ;
-- Given Sg.Nom and Pl.Nom - different Pl.Nom part -- Given Sg.Nom and Pl.Nom - different Pl.Nom part
@@ -96,6 +99,14 @@ resource ParadigmsIce = open
<front + "a",_> => lin N (nForms2NeutrNoun (dAuga stelpa (front + "na"))) <front + "a",_> => lin N (nForms2NeutrNoun (dAuga stelpa (front + "na")))
} ; } ;
-- AR 2019-08-01 following Neijmann, "Colloquial Icelandic" Kindle Loc. 439
--- very simplified heuristics I guess
mk0N : Str -> N = \s -> case s of {
_ + ("ur" | "i" | "ll" | "nn") => mk1N s Masc ;
_ + ("a" | "ing" | "un") => mk1N s Fem ;
_ => mk1N s Neutr
} ;
mk1N : Str -> Gender -> N = \s,g -> case g of { mk1N : Str -> Gender -> N = \s,g -> case g of {
Neutr => lin N (nForms2NeutrNoun (neutrNForms1 s)) ; Neutr => lin N (nForms2NeutrNoun (neutrNForms1 s)) ;