GitHub/comp-syntax-gu-mlt
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git synced 2026-02-09 06:41:07 -07:00
Code Issues Packages Projects Releases Wiki Activity

after lecture 5 (will finish AgreementSwe on Wednesday)

Browse Source
This commit is contained in:
Arianna Masciolini
2025-04-14 12:03:38 +02:00
parent 9dac582f1c
commit cb72c1da1b
5 changed files with 110 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lectures/lecture-05/MorphologySwe.gf
View File

@@ -7,11 +7,14 @@ param
Number = Sg | Pl ;
NForm = NF Number Definite Case ; -- NF is a constructor
NPAgreement = NPAgr Number Definite Gender ;
oper
-- Noun = {s : Number => Definite => Case => Str ; g : Gender} ;
Noun = {s : NForm => Str ; g : Gender} ;
Adjective = { s: NPAgreement => Str } ;
mkNoun : (sin, sig, sdn, sdg, pin, pig, pdn, pdg : Str) -> Gender -> Noun =
\sin, sig, sdn, sdg, pin, pig, pdn, pdg, g -> {
s = table {
@@ -32,6 +35,19 @@ oper
_ => s + "s"
} ;
mk3Adjective : (stor, stort, stora : Str) -> Adjective = \stor, stort, stora -> {
s = table {
NPAgr Sg Ind Com => stor ;
NPAgr Sg Ind Neut => stort ;
NPAgr Sg Def Com => stora ;
NPAgr Sg Def Neut => stora ;
NPAgr Pl Ind Com => stora ;
NPAgr Pl Ind Neut => stora ;
NPAgr Pl Def Com => stora ;
NPAgr Pl Def Neut => stora
}
} ;
mk4Noun : (sin, sdn, pin, pdn : Str) -> Noun =
\sin, sdn, pin, pdn -> {
s = table {