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

temporary hacks in VerbBul and StructuralBul to compile YAQL - please fix

Browse Source
This commit is contained in:
aarne
2012-11-15 20:41:25 +00:00
parent 5a920eea11
commit 82ae797d86
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/bulgarian/StructuralBul.gf
View File

@@ -10,6 +10,7 @@ concrete StructuralBul of Structural = CatBul **
after_Prep = mkPrep "ñëåä" Acc ;
all_Predet = {s = table GenNum ["âñè÷êèÿ";"âñè÷êàòà";"âñè÷êîòî";"âñè÷êèòå"]} ;
almost_AdA, almost_AdN = ss "ïî÷òè" ;
at_least_AdN, at_most_AdN = ss "ïî÷òè" ; ---- AR
although_Subj = ss ["âúïðåêè ÷å"] ;
always_AdV = ss "âèíàãè" ;
and_Conj = {s=[]; conj=0; distr=False; n = Pl} ;

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

@@ -72,6 +72,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
UseComp comp = insertObj comp.s (predV verbBe) ;
UseCopula = predV verbBe ;
AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
AdvVPSlash vp adv = insertSlashObj1 (\\_ => adv.s) vp ;
@@ -96,4 +98,6 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
CompAdv a = {s = \\_ => a.s} ;
CompCN cn = {s = \\agr => cn.s ! (NF (numGenNum agr.gn) Indef)} ;
VPSlashPrep vp prep = vp ** {c2 = prep ; compl1,compl2 = \\_ => []} ; ---- AR
}