GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 09:52:55 -06:00
Code Issues Packages Projects Releases Wiki 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" _ => drikke + "r"
} }
in in
mkVerb6 drikke drikker (drikke + "s") drakk drukket drikk ; mkVerb6 drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ;
regVerb : Str -> Str -> Verbum = \spise, spiste -> regVerb : Str -> Str -> Verbum = \spise, spiste ->
let let
@@ -110,14 +110,20 @@ oper
} ; } ;
vHusk : Str -> Verbum = \husk -> 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 -> 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 -> 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$. -- For $Numeral$.

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

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