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

bugfixes from Codex

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-26 16:57:54 +02:00
parent 4bbc7c7d59
commit a557b49c95
8 changed files with 37 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/bulgarian/ConstructionBul.gf
+7
View File
@@ -32,6 +32,13 @@ lin
is_right_VP = mkVP (mkA084 "верен") ;
is_wrong_VP = mkVP (mkA079 "грешен") ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
n_units_of_NP card cn np =
let unit = mkNP <lin Card card : Card> (lin CN cn)
in {
s = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
gn = unit.gn ;
p = unit.p
} ;
weather_adjCl a = R.mkClause (a.s ! R.ASg R.Masc R.Indef ! R.P3) (R.GSg R.Masc) (R.NounP3 R.Pos) (R.insertObj (\\_=>"") R.Pos (R.predV R.verbBe)) ;
lin