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

added AdvNP and ApposCN

Browse Source
This commit is contained in:
krasimir
2008-02-27 08:45:19 +00:00
parent 31a6a99810
commit 0c8a84512e
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -40,6 +40,11 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
a = np.a a = np.a
} ; } ;
AdvNP np adv = {
s = \\c => np.s ! c ++ adv.s ;
a = np.a
} ;
DetSg quant ord = { DetSg quant ord = {
s = \\g,c => quant.s ! aform (gennum g Sg) Def c ++ s = \\g,c => quant.s ! aform (gennum g Sg) Def c ++
ord.s ! aform (gennum g Sg) quant.spec c ; ord.s ! aform (gennum g Sg) quant.spec c ;
@@ -110,4 +115,6 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ; } ;
SentCN cn sc = {s = \\nf => cn.s ! nf ++ sc.s; g=cn.g} ; SentCN cn sc = {s = \\nf => cn.s ! nf ++ sc.s; g=cn.g} ;
ApposCN cn np = {s = \\nf => cn.s ! nf ++ np.s ! RSubj; g=cn.g} ;
} }