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

fix CleftAdv in bulgarian-1.4

Browse Source
This commit is contained in:
krasimir
2008-06-15 09:08:14 +00:00
parent 6d3331a1c6
commit d9cca2146d
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/resource-1.4/bulgarian/IdiomBul.gf
View File

@@ -10,10 +10,7 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in {
{gn=GSg Neut; p=np.a.p} {gn=GSg Neut; p=np.a.p}
(insertObj (\\_ => thisRP ! np.a.gn ++ rs.s ! np.a.gn) (predV verbBe)) ; (insertObj (\\_ => thisRP ! np.a.gn ++ rs.s ! np.a.gn) (predV verbBe)) ;
CleftAdv ad s = CleftAdv ad s = {s = \\t,a,p,o => case p of {Pos=>[]; Neg=>"íå"} ++ ad.s ++ s.s } ;
mkClause (ad.s)
(agrP3 (GSg Neut))
(insertObj (\\_ => thisRP ! GPl ++ s.s) (predV verbBe)) ;
ExistNP np = ExistNP np =
{ s = \\t,a,p,o => { s = \\t,a,p,o =>