GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added present participles to Scandinavian verbs

Browse Source
This commit is contained in:
aarne
2013-11-03 16:48:51 +00:00
parent 01a98d9a39
commit d0a89f3845
8 changed files with 38 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/danish/DiffDan.gf
View File

@@ -36,14 +36,14 @@ instance DiffDan of DiffScand = open CommonScand, Prelude in {
detIndefPl = "nogle" ;
verbHave =
mkVerb "have" "har" "hav" "havde" "haft" "haven" "havet" "havne" **
mkVerb9 "have" "har" "hav" "havde" "haft" "haven" "havet" "havne" "havende" **
{part = [] ; isVaere = False} ;
verbBe =
mkVerb "være" "er" "var" "var" "været" "væren" "været" "værne" **
mkVerb9 "være" "er" "var" "var" "været" "væren" "været" "værne" "værende" **
{part = [] ; isVaere = False} ;
verbBecome =
mkVerb "blive" "bliver" "bliv" "blev" "blevet"
"bliven" "blivet" "blivne" **
mkVerb9 "blive" "bliver" "bliv" "blev" "blevet"
"bliven" "blivet" "blivne" "blivende" **
{part = [] ; isVaere = True} ;
auxFut = "vil" ; -- "skal" in ExtDan

5
lib/src/danish/MorphoDan.gf
View File

@@ -80,6 +80,11 @@ oper
VI (VSupin v) => mkVoice v spist ; --# notpresent
VI (VPtPret (Strong (GSg _)) c) => mkCase c spist ;
VI (VPtPret _ c) => mkCase c (spist + "e") ;
VI (VPtPres c) => case last spise of {
"e" => mkCase c (spise + "nde") ;
"i" => mkCase c (spise + "vende") ; --- gi, bli
_ => mkCase c (spise + "ende")
} ;
VF (VImper v) => mkVoice v spis
}
} ;