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

romance bug fixes

Browse Source
This commit is contained in:
aarne
2007-02-24 14:36:04 +00:00
parent a11bb7a23c
commit 0e0bcfee2f
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/french/DiffFre.gf
View File

@@ -117,7 +117,8 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
mkImperative b p vp = { mkImperative b p vp = {
s = \\pol,aag => s = \\pol,aag =>
let let
agr = aag ** {p = p} ; num = if_then_else Number b Pl aag.n ;
agr = {g = aag.g ; n = num ; p = p} ;
verb = (vp.s ! VPImperat).fin ! agr ; verb = (vp.s ! VPImperat).fin ! agr ;
neg = vp.neg ! pol ; neg = vp.neg ! pol ;
hascl = (pronArg agr.n agr.p vp.clAcc vp.clDat).p3 ; hascl = (pronArg agr.n agr.p vp.clAcc vp.clDat).p3 ;

2
lib/resource-1.0/mathematical/SymbolRomance.gf
View File

@@ -17,7 +17,7 @@ lin
hasClit = False hasClit = False
} ; } ;
CNNumNP cn i = { CNNumNP cn i = {
s = \\c => cn.s ! Sg ++ i.s ! Masc ; s = \\c => artDef cn.g Sg (npform2case c) ++ cn.s ! Sg ++ i.s ! Masc ;
a = agrP3 cn.g Sg ; a = agrP3 cn.g Sg ;
hasClit = False hasClit = False
} ; } ;