msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

mk4Noun in Swe

Browse Source
This commit is contained in:
Aarne Ranta
2025-04-07 17:26:26 +02:00
parent 3b11763e34
commit 67e586943d
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lectures/lecture-03/MorphologySwe.gf
View File

@@ -27,6 +27,29 @@ oper
g = g g = g
} ; } ;
addS : Str -> Str = \s -> case s of {
_ + ("s" | "x" | "z") => s ;
_ => s + "s"
} ;
mk4Noun : (sin, sdn, pin, pdn : Str) -> Noun =
\sin, sdn, pin, pdn -> {
s = table {
NF Sg Ind Nom => sin ;
NF Sg Ind Gen => addS sin ;
NF Sg Def Nom => sdn ;
NF Sg Def Gen => addS sdn ;
NF Pl Ind Nom => pin ;
NF Pl Ind Gen => addS pin ;
NF Pl Def Nom => pdn ;
NF Pl Def Gen => addS pdn
} ;
g = case sdn of {
_ + "n" => Com ;
_ => Neut
}
} ;
smartNoun : Str -> Noun = \mamma -> case mamma of { smartNoun : Str -> Noun = \mamma -> case mamma of {
mamm + "a" => mkNoun mamma (mamma + "s") (mamma + "n") (mamma + "ns") mamm + "a" => mkNoun mamma (mamma + "s") (mamma + "n") (mamma + "ns")
(mamm + "or") (mamm + "ors") (mamm + "orna") (mamm + "ornas") (mamm + "or") (mamm + "ors") (mamm + "orna") (mamm + "ornas")