GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

worked on Finnish morphology

Browse Source
This commit is contained in:
aarne
2004-04-07 14:53:20 +00:00
parent 91546c91ff
commit 543e602bfe
2 changed files with 71 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/resource-0.6/finnish/ParadigmsFin.gf
View File

@@ -19,7 +19,7 @@
--
-- The following modules are presupposed:
resource ParadigmsFin = open (Predef=Predef), Prelude, SyntaxFin, ResourceFin in {
resource ParadigmsFin = open Prelude, SyntaxFin, ResourceFin in {
--2 Parameters
--
@@ -66,6 +66,13 @@ oper
nTalo : (talo : Str) -> Gender -> N ;
-- Another special case are nouns where the last two consonants
-- undergo regular weak-grade alternation:
-- "kukko - kukon", "rutto - ruton", "hyppy - hypyn", "sampo - sammon",
-- "kunto - kunnon", "sisältö - sisällön", .
nLukko : (lukko : Str) -> Gender -> N ;
-- Foreign words ending in consonants are actually similar to words like
-- "malli"/"mallin"/"malleja", with the exception that the "i" is not attached
-- to the singular nominative. Examples: "linux", "savett", "screen".
@@ -224,6 +231,7 @@ oper
mkNoun a b c d e f g h i j ** {g = k ; lock_N = <>} ;
nKukko = \a,b,c,g -> sKukko a b c ** {g = g ; lock_N = <>} ;
nLukko = \a,g -> sLukko a ** {g = g ; lock_N = <>} ;
nTalo = \a,g -> sTalo a ** {g = g ; lock_N = <>} ;
nLinux = \a,g -> sLinux a ** {g = g ; lock_N = <>} ;
nPeruna = \a,g -> sPeruna a ** {g = g ; lock_N = <>} ;