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

fixes in the dictionaries

Browse Source
This commit is contained in:
kr.angelov
2013-11-28 13:16:03 +00:00
parent 35580255c3
commit 99ac055997
7 changed files with 240 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/bulgarian/CatBul.gf
View File

@@ -124,7 +124,8 @@ concrete CatBul of Cat = CommonX - [IAdv,CAdv] ** open ResBul, Prelude, Predef,
V, VS, VQ, VA = \v -> linrefVP (predV v);
V2, V2A = \v -> linrefVP (predV v) ++ v.c2.s;
V2V, V2S, V2Q = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s;
V2V = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s ++ "да";
V2S, V2Q = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s;
V3 = \v -> linrefVP (predV v) ++ v.c2.s ++ v.c3.s;
VV = \v -> linrefVP (predV v);

6
lib/src/bulgarian/DictEngBul.gf
View File

@@ -8424,7 +8424,7 @@ lin campylotropous_A = variants {};
lin camshaft_N = variants {};
lin camwood_N = variants {};
lin can_N = mkN041 "консерва" ;
lin can_V2 = variants {};
lin can_V2 = dirV2 (stateV (mkV186 "консервирам"));
lin can_VV = mkVV (singleV (mkV166 "мога"));
lin canada_PN = mkPN "Канада" Fem;
lin canadian_A = mkA078 "канадски" ;
@@ -22778,7 +22778,7 @@ lin get_N = variants {};
lin get_V = singleV (mkV186 "ползвам") ; ----
lin get_V2 = dirV2 (dualV (mkV186 "получавам") (mkV176 "получа"));
lin get_V2V = variants {};
lin get_VA = singleV (mkV186 "ставам");
lin get_VA = dualV (mkV186 "ставам") (mkV152 "стана");
lin get_VS = variants {};
lin get_VV = variants {};
lin get_at_able_A = variants {};
@@ -60389,7 +60389,7 @@ lin wale_N = variants {};
lin wales_PN = variants {};
lin walk_N = mkN041 "разходка";
lin walk_V = singleV (mkV177 "вървя");
lin walk_V2 = dirV2 (singleV (mkV177 "вървя"));
lin walk_V2 = dirV2 (actionV (mkV186 "разхождам") (mkV173 "разходя"));
lin walkabout_N = variants {};
lin walkaway_N = variants {};
lin walker_N = variants {};

117
lib/src/bulgarian/ParseBul.gf
View File

@@ -163,5 +163,120 @@ lin FeatN2, FeatN = \n ->
AFem => "(ж.р.)" ;
ANeut => "(ср.р.)"
} ;
FeatV = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ;
FeatV2 = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<допълнение>";
FeatV3 = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<арг1>"++
v.c3.s ++
"<арг2>";
FeatV2V = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<допълнение>"++
v.c3.s ++
"да" ++ "<глагол>";
FeatV2S = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<допълнение>"++
v.c3.s ++
"че" ++ "<изречение>";
FeatV2Q = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<допълнение>"++
v.c3.s ++
"<въпрос>";
FeatV2A = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
v.c2.s ++
"<допълнение>"++
"<прилагателно>";
FeatVV = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
case v.typ of {
VVInf => "да" ++ "<глагол>";
VVGerund => "<деепричастие>"
};
FeatVS = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
"че" ++ "<изречение>";
FeatVQ = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
"<въпрос>";
FeatVA = \v ->
"<подлог>" ++
case v.vtype of {
VNormal => "" ;
VMedial c => reflClitics ! c ;
VPhrasal c => personalClitics ! c ! GSg Masc ! P3
} ++
v.s ! Imperf ! VPres Sg P3 ++
"<прилагателно>";
}