msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

mkV 2 in Swe

Browse Source
This commit is contained in:
aarne
2012-03-08 14:14:28 +00:00
parent 5837ba990b
commit c721c3d8ec
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -218,6 +218,8 @@ oper
-- Most irregular verbs need just the conventional three forms.
mkV : (slita, slet : Str) -> V ; -- i/e/i, u/ö/u, u/a/u
mkV : (dricka,drack,druckit : Str) -> V ; -- the theme of an irregular verb
-- In the worst case, six forms are given.
@@ -508,6 +510,7 @@ oper
mkV = overload {
mkV : (stämmer : Str) -> V = regV ;
mkV : (slita, slet : Str) -> V = reg2V ;
mkV : (dricka,drack,druckit : Str) -> V = irregV ;
mkV : (supa,super,sup,söp,supit,supen : Str) -> V = mk6V ;
mkV : V -> Str -> V = partV
@@ -566,6 +569,19 @@ oper
conj3 : Str -> V = \bo ->
mk6V bo (bo + "r") bo (bo +"dde") (bo +"tt") (bo +"dd") ;
reg2V : Str -> Str -> V = \sliter,slet -> (case <slita,slet> of {
<_ + "i" + ? + "a", sl + "e" + ?> => irregV slita slet (init slita + "it") ;
<_ + "u" + ? + "a", sl + "ö" + ?> => irregV slita slet (init slita + "it") ;
<_ + "u" + ? + ? + "a", sl + "ö" + ? + ?> => irregV slita slet (init slita + "it") ;
<_ + "i" + ? + ? + "a", sl + "a" + pp@(? + ?)> => irregV slita slet (sl + "u" + pp ++ "it") ;
_ => regV sliter
} where {
slita : Str = case sliter of {
slit + "er" => slit + "a" ;
_ => sliter
}
}) ;
irregV = \sälja, sålde, sålt ->
let
säljer = case last sälja of {