diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-03-26 22:40:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-03-26 22:40:44 +0000 |
| commit | 3a67fd9b56c335e2135079dbb4c00639502df209 (patch) | |
| tree | 5df35ffe6a87bc4f1a4f8e39dce0ff78043af7fa /next-lib/src/swedish | |
| parent | 215d74e58e77a3afc8145b2d2173cae4d16ad7af (diff) | |
adapt Precedence.gf to new syntax; bug fix in Swedish mkA
Diffstat (limited to 'next-lib/src/swedish')
| -rw-r--r-- | next-lib/src/swedish/ParadigmsSwe.gf | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/next-lib/src/swedish/ParadigmsSwe.gf b/next-lib/src/swedish/ParadigmsSwe.gf index 36d262c97..f414ef468 100644 --- a/next-lib/src/swedish/ParadigmsSwe.gf +++ b/next-lib/src/swedish/ParadigmsSwe.gf @@ -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") ; |