mirror of
https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git
synced 2026-02-08 22:41:05 -07:00
38 lines
1.1 KiB
Plaintext
38 lines
1.1 KiB
Plaintext
resource MorphologySwe = {
|
|
|
|
param
|
|
Case = Nom | Gen ;
|
|
Definite = Ind | Def ;
|
|
Gender = Com | Neut ;
|
|
Number = Sg | Pl ;
|
|
|
|
NForm = NF Number Definite Case ; -- NF is a constructor
|
|
|
|
oper
|
|
-- Noun = {s : Number => Definite => Case => Str ; g : Gender} ;
|
|
Noun = {s : NForm => Str ; g : Gender} ;
|
|
|
|
mkNoun : (sin, sig, sdn, sdg, pin, pig, pdn, pdg : Str) -> Gender -> Noun =
|
|
\sin, sig, sdn, sdg, pin, pig, pdn, pdg, g -> {
|
|
s = table {
|
|
NF Sg Ind Nom => sin ;
|
|
NF Sg Ind Gen => sig ;
|
|
NF Sg Def Nom => sdn ;
|
|
NF Sg Def Gen => sdg ;
|
|
NF Pl Ind Nom => pin ;
|
|
NF Pl Ind Gen => pig ;
|
|
NF Pl Def Nom => pdn ;
|
|
NF Pl Def Gen => pdg
|
|
} ;
|
|
g = g
|
|
} ;
|
|
|
|
smartNoun : Str -> Noun = \mamma -> case mamma of {
|
|
mamm + "a" => mkNoun mamma (mamma + "s") (mamma + "n") (mamma + "ns")
|
|
(mamm + "or") (mamm + "ors") (mamm + "orna") (mamm + "ornas")
|
|
Com ;
|
|
bil => mkNoun bil (bil + "s") (bil + "en") (bil + "ens")
|
|
(bil + "ar") (bil + "ars") (bil + "arna") (bil + "arnas") Com
|
|
} ;
|
|
|
|
} |