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

add Slash category

Browse Source
This commit is contained in:
krasimir
2008-02-22 14:06:14 +00:00
parent 621d3fdfd1
commit ec4edf4524
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -28,6 +28,10 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
-- Sentence -- Sentence
Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ; Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ;
Slash = {
s : ResBul.Tense => Anteriority => Polarity => Order => Str ;
c2 : Str
} ;
Imp = {s : Polarity => GenNum => Str} ; Imp = {s : Polarity => GenNum => Str} ;
-- Question -- Question

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

@@ -14,6 +14,9 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
verb ++ compl verb ++ compl
} ; } ;
SlashV2 np v2 =
mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ;
EmbedS s = {s = "," ++ "֌" ++ s.s} ; EmbedS s = {s = "," ++ "֌" ++ s.s} ;
EmbedQS qs = {s = qs.s ! QIndir} ; EmbedQS qs = {s = qs.s ! QIndir} ;