msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

add N2, N3 and PN

Browse Source
This commit is contained in:
krasimir
2008-02-21 11:31:39 +00:00
parent 16ce34eee7
commit 8b2003cd80
4 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,4 +65,7 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
A2 = {s : AForm => Str ; c2 : Str} ; A2 = {s : AForm => Str ; c2 : Str} ;
N = {s : NForm => Str; g : DGender} ; N = {s : NForm => Str; g : DGender} ;
N2 = {s : NForm => Str; g : DGender} ** {c2 : Str} ;
N3 = {s : NForm => Str; g : DGender} ** {c2,c3 : Str} ;
PN = {s : Str; g : Gender} ;
} }

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

@@ -49,6 +49,7 @@ lin
new_A = mkA76 "íîâ" ; new_A = mkA76 "íîâ" ;
old_A = mkA76 "ńňŕđ" ; old_A = mkA76 "ńňŕđ" ;
open_V2 = dirV2 (mkV187 "îňâŕđ˙ě") ; open_V2 = dirV2 (mkV187 "îňâŕđ˙ě") ;
paris_PN = mkPN "Ďŕđčć" Masc ;
play_V2 = dirV2 (mkV161 "čăđŕ˙") ; play_V2 = dirV2 (mkV161 "čăđŕ˙") ;
read_V2 = dirV2 (mkV145 "÷ĺňŕ") ; read_V2 = dirV2 (mkV145 "÷ĺňŕ") ;
red_A = mkA76 "÷ĺđâĺí" ; red_A = mkA76 "÷ĺđâĺí" ;
@@ -146,6 +147,7 @@ lin
wash_V2 = dirV2 (mkV163 "ěč˙") ; wash_V2 = dirV2 (mkV163 "ěč˙") ;
-- wipe_V2 = dirV2 (regV "wipe") ; -- wipe_V2 = dirV2 (regV "wipe") ;
john_PN = mkPN "Äćîí" Masc ;
ready_A = mkA76 "ăîňîâ" ; ready_A = mkA76 "ăîňîâ" ;
today_Adv = mkAdv "äíĺń" ; today_Adv = mkAdv "äíĺń" ;
uncertain_A = mkA79 "íĺ˙ńĺí" ; uncertain_A = mkA79 "íĺ˙ńĺí" ;

6
lib/resource/bulgarian/NounBul.gf
View File

@@ -18,6 +18,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
in det.s ! cn.g ! c ++ cn.s ! nf ; in det.s ! cn.g ! c ++ cn.s ! nf ;
a = {gn = gennum cn.g det.n; p = P3} ; a = {gn = gennum cn.g det.n; p = P3} ;
} ; } ;
UsePN pn = {s = \\_ => pn.s; a = {gn = GSg pn.g; p = P3}} ;
UsePron p = {s = p.s; a=p.a} ; UsePron p = {s = p.s; a=p.a} ;
DetSg quant ord = { DetSg quant ord = {
@@ -64,6 +65,11 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ; } ;
UseN noun = noun ; UseN noun = noun ;
UseN2 noun = noun ;
UseN3 noun = noun ;
ComplN2 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! Acc; g=f.g} ;
ComplN3 f x = {s = \\nf => f.s ! nf ++ f.c2 ++ x.s ! Acc; c2 = f.c3; g=f.g} ;
AdjCN ap cn = { AdjCN ap cn = {
s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ; s = \\nf => preOrPost ap.isPre (ap.s ! nform2aform nf cn.g) (cn.s ! (indefNForm nf)) ;

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

@@ -81,6 +81,10 @@ oper
dirV3 : V -> Prep -> V3 ; -- give,_,to dirV3 : V -> Prep -> V3 ; -- give,_,to
dirdirV3 : V -> V3 ; -- give,_,_ dirdirV3 : V -> V3 ; -- give,_,_
mkPN : Str -> Gender -> PN ;
mkAdv x = ss x ** {lock_Adv = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ;
mkPrep p = ss p ** {lock_Prep = <>} ; mkPrep p = ss p ** {lock_Prep = <>} ;
@@ -92,4 +96,7 @@ oper
mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; c3 = q.s ; lock_V3 = <>} ;
dirV3 v p = mkV3 v noPrep p ; dirV3 v p = mkV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ; dirdirV3 v = dirV3 v noPrep ;
mkPN s g = {s = s; g = g ; lock_PN = <>} ;
} }