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

added SlashS

Browse Source
This commit is contained in:
krasimir
2008-02-27 22:48:51 +00:00
parent ee0942c94c
commit 5ac2f432cf
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/resource/bulgarian/CatBul.gf
View File

@@ -25,6 +25,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
QS = {s : QForm => Str} ; QS = {s : QForm => Str} ;
RS = {s : GenNum => Str} ; RS = {s : GenNum => Str} ;
SC = {s : Str} ; SC = {s : Str} ;
SlashS = {s : Str ; c2 : Preposition} ;
-- Sentence -- Sentence

5
lib/resource/bulgarian/SentenceBul.gf
View File

@@ -24,6 +24,11 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
SlashPrep cl prep = cl ** {c2 = prep} ; SlashPrep cl prep = cl ** {c2 = prep} ;
SlashVS np vs slash =
mkClause (np.s ! RSubj) np.a
(insertObj (\\_ => "֌" ++ slash.s) (predV vs)) **
{c2 = slash.c2} ;
EmbedS s = {s = "," ++ "֌" ++ s.s} ; EmbedS s = {s = "," ++ "֌" ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ; EmbedQS qs = {s = qs.s ! QIndir} ;