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

add AdvCN

Browse Source
This commit is contained in:
krasimir
2008-02-23 12:02:09 +00:00
parent bbfb4e981c
commit 831a2d97ea
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -104,6 +104,10 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
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)) ;
g = cn.g g = cn.g
} ; } ;
AdvCN cn ad = {
s = \\nf => cn.s ! nf ++ ad.s ;
g = cn.g
} ;
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} ;
} }