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

added ParadigmsFin.foreignN and ParadigmsSwe.geoPN

Browse Source
This commit is contained in:
aarneranta
2021-06-04 16:28:19 +02:00
parent 4f70384664
commit ace36f7129
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/finnish/ParadigmsFin.gf
View File

@@ -159,6 +159,8 @@ oper
s = \\c => (StemFin.snoun2nounBind veri).s ! NCase n Gen + paine.s ! c
} ;
foreignN : Str -> N ; -- foreign word without Finnish alternations, e.g. sake/saken/sakeja
-- Nouns used as functions need a case, of which the default is
-- the genitive.
@@ -667,7 +669,8 @@ mkVS = overload {
mkPN_1 : Str -> PN = \s -> lin PN (snoun2spn (mk1N s)) ;
foreignPN : Str -> PN = \s -> (lin PN (snoun2spn (nforms2snoun (noun s)))) where {
foreignPN : Str -> PN = \s -> mkPN (foreignN s) ;
foreignN : Str -> N = \s -> (lin N (nforms2snoun (noun s))) where {
noun : Str -> NForms = \s -> case s of {
_ + "i" => dPaatti s (s + "n") ;
_ + "e" => dNukke s (s + "n") ;