GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 22:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

ParadigmsFin.foreignPN, to deal with foreign names

Browse Source
This commit is contained in:
aarne
2014-06-17 15:45:57 +00:00
parent c389b71096
commit b6881e1521
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/src/finnish/ParadigmsFin.gf
View File

@@ -155,6 +155,10 @@ oper
mkPN : N -> PN -- any noun made into name
} ;
-- A special function for foreign names: no grade alternation, no final aspiration.
foreignPN : Str -> PN ; -- Dieppe-Dieppen
--2 Adjectives
-- Non-comparison one-place adjectives are just like nouns.
@@ -605,6 +609,16 @@ mkVS = overload {
mkPN_1 : Str -> PN = \s -> lin PN (snoun2spn (mk1N s)) ;
foreignPN : Str -> PN = \s -> (lin PN (snoun2spn (nforms2snoun (noun s)))) where {
noun : Str -> NForms = \s -> case s of {
_ + "i" => dPaatti s (s + "n") ;
_ + "e" => dNukke s (s + "n") ;
_ + ("a" | "o" | "u" | "y" | "ä" | "ö" | "ü") => dUkko s (s + "n") ;
_ => dUnix s
}
} ;
-- adjectives
mkA = overload {