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

ParadigmsSwe: mkA makes adjectives ending with a/e/o invariant (except for genitive)

Browse Source
This commit is contained in:
aarne
2011-03-01 16:25:59 +00:00
parent 3e2d906888
commit d160fbf459
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/swedish/ParadigmsSwe.gf
View File

@@ -464,14 +464,20 @@ oper
se + "dd" => se + "tt" ;
pla + "tt" => pla + "tt" ;
gla + "d" => gla + "tt" ;
_ + ("a"|"e"|"o") => fin ;
_ => fin + "t"
} ;
fina : Str = case fin of {
unk@(? + ? + ? + _) + "e" + n@("l" | "n" | "r") => unk + n + "a" ;
_ + ("a"|"e"|"o") => fin ;
_ => fin + "a"
}
} ;
comp : Bool = case fin of {
_ + ("a"|"e"|"o") => True ;
_ => False
}
in
mk3A fin fint fina ;
lin A {s = (mk3A fin fint fina).s ; isComp = comp} ;
irregA ung yngre yngst =
mk7A ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ;