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

added forms to Swedish present participles to enable the derivation of verbal nouns

Browse Source
This commit is contained in:
aarne
2013-11-03 17:14:05 +00:00
parent d0a89f3845
commit 125826270f
4 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -80,7 +80,7 @@ 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 {
VI (VPtPres _ _ c) => case last spise of {
"e" => mkCase c (spise + "nde") ;
"i" => mkCase c (spise + "vende") ; --- gi, bli
_ => mkCase c (spise + "ende")

2
lib/src/norwegian/MorphoNor.gf
View File

@@ -94,7 +94,7 @@ oper
"a" => mkCase c spist ;
_ => mkCase c (spist + "e")
} ;
VI (VPtPres c) => case last spise of {
VI (VPtPres _ _ c) => case last spise of {
"e" => mkCase c (spise + "nde") ;
"i" => mkCase c (spise + "vende") ; --- gi, bli
_ => mkCase c (spise + "ende")

13
lib/src/scandinavian/CommonScand.gf
View File

@@ -53,10 +53,10 @@ param
;
VInf =
VInfin Voice
| VSupin Voice --# notpresent
VInfin Voice
| VSupin Voice --# notpresent
| VPtPret AFormPos Case
| VPtPres Case
| VPtPres Number Species Case
;
VPForm =
@@ -192,7 +192,12 @@ oper
VI (VInfin v) => mkVoice v finna ;
VI (VSupin v) => mkVoice v funnit ; --# notpresent
VI (VPtPret a c)=> mkCase c (mkAdjPos a funnen funnet funna funna) ;
VI (VPtPres c) => mkCase c finnande
VI (VPtPres n d c) => case <n,d> of {
<Sg,Indef> => mkCase c finnande ;
<Sg,Def> => mkCase c (finnande + "t") ;
<Pl,Indef> => mkCase c (finnande + "n") ;
<Pl,Def> => mkCase c (finnande + "na") ---- TODO "ne" in Dan, Nor
}
} ;
vtype = VAct
} ;

8
lib/src/swedish/ParseSwe.gf
View File

@@ -50,22 +50,22 @@ lin
isMod = False ;
} ;
{-
GerundN v = {
s = \\n,c => v.s ! VPresPart ;
s = \\n,d,c => v.s ! VI (VPtPres n d c) ;
g = Neutr
} ;
GerundAP v = {
s = \\agr => v.s ! VPresPart ;
s = \\_ => v.s ! VI (VPtPres Sg Indef Nom) ;
isPre = True
} ;
PastPartAP v = {
s = \\agr => v.s ! VPPart ;
s = \\afpos => v.s ! VI (VPtPret afpos Nom) ;
isPre = True
} ;
{-
OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ;
PositAdVAdj a = {s = a.s ! AAdv} ;