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

VS category and some of its constructors

Browse Source
This commit is contained in:
krasimir
2008-02-22 14:56:35 +00:00
parent dd8331ce2b
commit 99df330e35
3 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource/bulgarian/LexiconBul.gf
View File

@@ -25,6 +25,7 @@ lin
drink_V2 = dirV2 (mkV163 "ďč˙") ; drink_V2 = dirV2 (mkV163 "ďč˙") ;
eat_V2 = dirV2 (mkV169 "˙ě") ; eat_V2 = dirV2 (mkV169 "˙ě") ;
empty_A = mkA79 "ďđŕçĺí" ; empty_A = mkA79 "ďđŕçĺí" ;
fear_VS = mkVS (mkV186 "ńňđŕőóâŕě") ;
find_V2 = dirV2 (mkV173 "íŕěĺđ˙") ; find_V2 = dirV2 (mkV173 "íŕěĺđ˙") ;
forget_V2 = dirV2 (mkV173 "çŕáđŕâ˙") ; forget_V2 = dirV2 (mkV173 "çŕáđŕâ˙") ;
good_A = mkA80 "äîáúđ" ; good_A = mkA80 "äîáúđ" ;
@@ -33,6 +34,7 @@ lin
hate_V2 = dirV2 (mkV173 "ěđŕç˙") ; hate_V2 = dirV2 (mkV173 "ěđŕç˙") ;
have_V2 = dirV2 (mkV186 "čěŕě") ; have_V2 = dirV2 (mkV186 "čěŕě") ;
hear_V2 = dirV2 (mkV186 "÷óâŕě") ; hear_V2 = dirV2 (mkV186 "÷óâŕě") ;
hope_VS = mkVS (mkV186 "íŕä˙âŕě") ;
hot_A = mkA76 "ăîđĺů" ; hot_A = mkA76 "ăîđĺů" ;
important_A = mkA79 "âŕćĺí" ; important_A = mkA79 "âŕćĺí" ;
know_V2 = dirV2 (mkV162 "çíŕ˙") ; know_V2 = dirV2 (mkV162 "çíŕ˙") ;
@@ -54,6 +56,7 @@ lin
read_V2 = dirV2 (mkV145 "÷ĺňŕ") ; read_V2 = dirV2 (mkV145 "÷ĺňŕ") ;
red_A = mkA76 "÷ĺđâĺí" ; red_A = mkA76 "÷ĺđâĺí" ;
run_V = (mkV186 "á˙ăŕě") ; run_V = (mkV186 "á˙ăŕě") ;
say_VS = mkVS (mkV186 "ęŕçâŕě") ;
seek_V2 = dirV2 (mkV173 "ňúđń˙") ; seek_V2 = dirV2 (mkV173 "ňúđń˙") ;
see_V2 = dirV2 (mkV186 "âčćäŕě") ; see_V2 = dirV2 (mkV186 "âčćäŕě") ;
sell_V3 = dirV3 (mkV186 "ďđîäŕâŕě") naP ; sell_V3 = dirV3 (mkV186 "ďđîäŕâŕě") naP ;

5
lib/resource/bulgarian/ParadigmsBul.gf
View File

@@ -81,7 +81,8 @@ oper
dirV3 : V -> Prep -> V3 ; -- give,_,to dirV3 : V -> Prep -> V3 ; -- give,_,to
dirdirV3 : V -> V3 ; -- give,_,_ dirdirV3 : V -> V3 ; -- give,_,_
mkVS : V -> VS ;
mkPN : Str -> Gender -> PN ; mkPN : Str -> Gender -> PN ;
@@ -97,6 +98,8 @@ oper
dirV3 v p = mkV3 v noPrep p ; dirV3 v p = mkV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ; dirdirV3 v = dirV3 v noPrep ;
mkVS v = v ** {lock_VS = <>} ;
mkPN s g = {s = s; g = g ; lock_PN = <>} ; mkPN s g = {s = s; g = g ; lock_PN = <>} ;
} }

4
lib/resource/bulgarian/VerbBul.gf
View File

@@ -8,6 +8,8 @@ concrete VerbBul of Verb = CatBul ** open ResBul in {
ComplV3 v np np2 = ComplV3 v np np2 =
insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ; insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ;
ComplVS v s = insertObj (\\_ => "," ++ "֌" ++ s.s) (predV v) ;
UseComp comp = insertObj comp.s (predV auxBe) ; UseComp comp = insertObj comp.s (predV auxBe) ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ; AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
@@ -16,6 +18,8 @@ concrete VerbBul of Verb = CatBul ** open ResBul in {
PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef Acc)) (predV auxBe) ; PassV2 v = insertObj (\\a => v.s ! VPassive (aform a.gn Indef Acc)) (predV auxBe) ;
UseVS, UseVQ = \vv -> {s = vv.s ; c2 = [] ; isRefl = vv.isRefl} ; -- no "to"
CompNP np = {s = \\_ => np.s ! Acc} ; CompNP np = {s = \\_ => np.s ! Acc} ;
CompAdv a = {s = \\_ => a.s} ; CompAdv a = {s = \\_ => a.s} ;
} }