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

Danish imperative double consonant check

Browse Source
This commit is contained in:
aarne
2006-06-21 09:52:41 +00:00
parent 8fa2d3a19c
commit ba12717ee1
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/resource-1.0/danish/MorphoDan.gf
View File

@@ -93,7 +93,7 @@ oper
_ => drikke + "r"
}
in
mkVerb6 drikke drikker (drikke + "s") drakk drukket drikk ;
mkVerb6 drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ;
regVerb : Str -> Str -> Verbum = \spise, spiste ->
let
@@ -110,14 +110,20 @@ oper
} ;
vHusk : Str -> Verbum = \husk ->
mkVerb6 (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et") husk ;
mkVerb6 (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et")
(mkImper husk) ;
vSpis : Str -> Verbum = \spis ->
mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ;
mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t")
(mkImper spis) ;
vBo : Str -> Verbum = \bo ->
mkVerb6 bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") bo ;
mkVerb6 bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") (mkImper bo) ;
-- Remove consonant duplication: "passe - pas"
mkImper : Str -> Str = \s ->
if_then_Str (pbool2bool (Predef.eqStr (last s) (last (init s)))) (init s) s ;
-- For $Numeral$.

2
lib/resource-1.0/danish/ParadigmsDan.gf
View File

@@ -399,7 +399,7 @@ oper
_ => drikke + "r"
}
in
mkV drikke drikker (drikke + "s") drakk drukket drikk ;
mkV drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ;
vaereV v = {
s = v.s ;