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

adapt Precedence.gf to new syntax; bug fix in Swedish mkA

Browse Source
This commit is contained in:
aarne
2009-03-26 22:40:44 +00:00
parent 215d74e58e
commit 3a67fd9b56
2 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/swedish/ParadigmsSwe.gf
+13 -8
View File
@@ -457,15 +457,20 @@ oper
mk7A a b c d e f g = mkAdjective a b c d e f g ** {isComp = False ; lock_A = <>} ;
regA fin =
let fint : Str = case fin of {
ru + "nd" => ru + "nt" ;
se + "dd" => se + "tt" ;
pla + "tt" => pla + "tt" ;
gla + "d" => gla + "tt" ;
_ => fin + "t"
}
let
fint : Str = case fin of {
ru + "nd" => ru + "nt" ;
se + "dd" => se + "tt" ;
pla + "tt" => pla + "tt" ;
gla + "d" => gla + "tt" ;
_ => fin + "t"
} ;
fina : Str = case fin of {
unk@(? + ? + ? + _) + "e" + n@("l" | "n" | "r") => unk + n + "a" ;
_ => fin + "a"
}
in
mk3A fin fint (fin + "a") ;
mk3A fin fint fina ;
irregA ung yngre yngst =
mk7A ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ;