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

Use GenNum in the Imp lincat instead of the old ImpF

Browse Source
This commit is contained in:
krasimir
2008-02-20 10:58:40 +00:00
parent 5674e1b931
commit c7862899f2
3 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12,7 +12,7 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
-- Sentence
Cl = {s : ResBul.Tense => Anteriority => Polarity => Order => Str} ;
Imp = {s : Polarity => ImpForm => Str} ;
Imp = {s : Polarity => GenNum => Str} ;
-- Question

7
lib/resource/bulgarian/PhraseBul.gf
View File

@@ -3,7 +3,8 @@ concrete PhraseBul of Phrase = CatBul ** open Prelude, ResBul in {
lin
UttS s = s ;
UttQS qs = {s = qs.s ! QDir} ;
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False} ;
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True } ;
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Masc} ;
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! GPl} ;
}

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

@@ -6,15 +6,9 @@ concrete SentenceBul of Sentence = CatBul ** open Prelude, ResBul in {
PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
ImpVP vp = {
s = \\p,i =>
let gn : GenNum =
case i of {
ImpF _ True => GPl ;
ImpF Sg _ => GSg (variants {Masc; Fem; Neut}) ;
ImpF Pl _ => GPl
} ;
agr = {gn = gn ; p = P2} ;
verb = vp.imp ! p ! numImp i ;
s = \\p,gn =>
let agr = {gn = gn ; p = P2} ;
verb = vp.imp ! p ! numGenNum gn ;
compl = vp.s2 ! agr
in
verb ++ compl