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

a couple of fixes with Romance determiners

Browse Source
This commit is contained in:
aarne
2011-08-01 10:22:14 +00:00
parent c78328fd86
commit 1fd0abc8bf
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/french/StructuralFre.gf
View File

@@ -34,7 +34,7 @@ lin
either7or_DConj = {s1,s2 = "ou" ; n = Pl} ;
everybody_NP = pn2np (mkPN ["tout le monde"] Masc) ;
every_Det = {
s = \\_,_ => "chaque" ;
s = \\_,c => prepCase c ++ "chaque" ;
sp = \\g,c => prepCase c ++ genForms "chacun" "chacune" ! g ;
n = Sg ;
s2 = []
@@ -91,7 +91,7 @@ lin
so_AdA = ss "si" ;
somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ;
somePl_Det = {s,sp = \\_,c => prepCase c ++ "quelques" ; n = Pl ; s2 = []} ; ---- sp
someSg_Det = {s,sp = \\_,c => prepCase c ++ elision "quelqu" ; n = Sg ; s2 = []} ; ----sp
someSg_Det = {s,sp = \\_,c => prepCase c ++ "quelque" ; n = Sg ; s2 = []} ; ----sp
something_NP = pn2np (mkPN ["quelque chose"] Masc) ;
somewhere_Adv = ss ["quelque part"] ; --- ne - pas

5
lib/src/romance/VerbRomance.gf
View File

@@ -74,7 +74,10 @@ incomplete concrete VerbRomance of Verb =
UseComp comp = insertComplement comp.s (predV copula) ;
CompAP ap = {s = \\ag => let agr = complAgr ag in ap.s ! AF agr.g agr.n} ;
CompCN cn = { s = \\ag => let agr = complAgr ag in cn.s ! agr.n}; --- RE 7/12/2010
CompCN cn = { s = \\ag =>
let agr = complAgr ag in
artIndef cn.g agr.n Nom ++ cn.s ! agr.n
}; --- RE 7/12/2010 -- AR added indef 2/8/2011
CompNP np = {s = \\_ => (np.s ! Nom).ton} ;
CompAdv a = {s = \\_ => a.s} ;