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

made Swedish mkA smarter for participles

Browse Source
This commit is contained in:
aarne
2011-10-17 12:56:19 +00:00
parent f1fc2cca81
commit 84635523cc
1 changed files with 23 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -459,25 +459,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" ;
_ + ("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
lin A {s = (mk3A fin fint fina).s ; isComp = comp} ;
fint = fin + "t" ;
fina = fin + "a" ;
in case fin of {
unk@(? + ? + ? + _) + "en" => mk3cA fin (unk + "et") (unk + "na") True ;
unk@(? + ? + ? + _) + "e" + n@("l" | "r") => mk3A fin fint (unk + n + "a") ;
kork@(? + ? + ? + _) + "ad" => mk3cA fin (kork + "at") (kork + "ade") True ;
se + "dd" => mk3cA fin (se + "tt") fina True ;
ru + "nd" => mk3A fin (ru + "nt") fina ;
pla + "tt" => mk3A fin (pla + "tt") fina ;
aekt + "a" => mk3A fin fin fin ;
puck + ("e"|"o") => mk3cA fin fin fin True ;
_ => mk3A fin fint fina
} ;
irregA ung yngre yngst =
mk7A ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ;
@@ -485,9 +480,12 @@ oper
mk7A
ljummen ljummet ljumma ljumma
(ljumma + "re") (ljumma + "st") (ljumma + "ste") ;
mk2A vid vitt = case <vid,vitt> of {
<gal + "en", _ + "et"> => mk3A vid vitt (gal + "na") ;
_ => mk3A vid vitt (vid + "a")
mk2A vid vitt =
case <vid,vitt> of {
<gal + "en", _ + "et"> => mk3cA vid vitt (gal + "na") True ;
<gal + "ad", _ + "at"> => mk3cA vid vitt (gal + "ade") True ;
_ => mk3A vid vitt (vid + "a")
} ;
compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ;
@@ -646,6 +644,9 @@ oper
mk3A : (galen,galet,galna : Str) -> A ;
mk3cA : (galen,galet,galna : Str) -> Bool -> A =
\x,y,z,b -> lin A {s = (mk3A x y z).s ; isComp = b} ;
mk6V : (supa,super,sup,söp,supit,supen : Str) -> V ;
regV : (talar : Str) -> V ;
mk2V : (leka,lekte : Str) -> V ;