GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -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

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