GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-17 23:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Romance negative polarity of NP, Det. Quant: the positive form (and direct translation) of "he loves no woman" is "il n'aime aucune femme", "lui non ama nessuna donna", etc.

Browse Source
This commit is contained in:
aarne
2012-05-27 14:29:46 +00:00
parent bc522704cd
commit 336e32a9df
23 changed files with 171 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/src/french/DiffFre.gf
View File

@@ -222,4 +222,7 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
"aurais";"aurais";"aurait";"aurions";"auriez";"auraient";--# notpresent
"aie";"ayons";"ayez";"eu";"eus";"eue";"eues";"ayant"];vtyp=VHabere};
datClit = "y" ;
genClit = "en" ;
}

10
lib/src/french/ExtraFre.gf
View File

@@ -43,11 +43,14 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
youPl8fem_Pron =
let vous = mkPronoun "vous" "vous" "vous" "vous" "votre" "votre" "vos" Fem Pl P2
in
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = False} ;
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = False ; isNeg = False} ;
youPol8fem_Pron =
let vous = mkPronoun "vous" "vous" "vous" "vous" "votre" "votre" "vos" Fem Pl P2
in
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = True} ;
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = True ; isNeg = False} ;
AdvDatVP = insertClit3 datClit ;
AdvGenVP = insertClit3 genClit ;
oper
prepQue : Case -> Str = \c -> case c of {
@@ -64,7 +67,8 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
s = \\g,c => prepCase c ++ genForms "tout" "toute" ! g ;
sp = \\g,c => prepCase c ++ genForms "tout" "toute" ! g ;
n = Sg ;
s2 = []
s2 = [] ;
isNeg = False
} ;
PNegNe = {s = [] ; p = RNeg True} ;

6
lib/src/french/ExtraFreAbs.gf
View File

@@ -31,6 +31,12 @@ abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
youPl8fem_Pron : Pron ;
youPol8fem_Pron : Pron ;
-- clitic adverbs
AdvDatVP : VP -> VP ; -- j'y vais
AdvGenVP : VP -> VP ; -- j'en vais
-- The determiner "tout" in the special use "tout nombre"
tout_Det : Det ;

3
lib/src/french/MorphoFre.gf
View File

@@ -179,7 +179,8 @@ oper
} ;
a = Ag g n p ;
hasClit = True ;
isPol = False
isPol = False ;
isNeg = False
} ;
elisPoss : Str -> Str = \s ->

2
lib/src/french/ParadigmsFre.gf
View File

@@ -421,7 +421,7 @@ oper
--------------------------- obsolete
makeNP : Str -> Gender -> Number -> NP ;
makeNP x g n = {s = (pn2np {s=x;g= g}).s; a = agrP3 g n ; hasClit = False ; isPol = False ; lock_NP = <>} ;
makeNP x g n = {s = (pn2np {s=x;g= g}).s; a = agrP3 g n ; hasClit = False ; isPol = False ; isNeg = False ; lock_NP = <>} ;
regPN : Str -> PN ;
mk2PN : Str -> Gender -> PN = \x,g -> {s = x ; g = g} ** {lock_PN = <>} ;

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

@@ -37,11 +37,12 @@ lin
s = \\_,c => prepCase c ++ "chaque" ;
sp = \\g,c => prepCase c ++ genForms "chacun" "chacune" ! g ;
n = Sg ;
s2 = []
s2 = [] ;
isNeg = False
} ;
everything_NP = pn2np (mkPN ["tout"] Masc) ;
everywhere_Adv = ss "partout" ;
few_Det = {s,sp = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl ; s2 = []} ;
few_Det = {s,sp = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl ; s2 = [] ; isNeg = False} ;
--- DEPREC first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ;
for_Prep = mkPreposition "pour" ;
from_Prep = complGen ; ---
@@ -67,10 +68,10 @@ lin
"il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
Masc Sg P3 ;
less_CAdv = X.mkCAdv "moins" conjThan ;
many_Det = {s,sp = \\_,c => prepCase c ++ "plusieurs" ; n = Pl ; s2 = []} ;
many_Det = {s,sp = \\_,c => prepCase c ++ "plusieurs" ; n = Pl ; s2 = [] ; isNeg = False} ;
more_CAdv = X.mkCAdv "plus" conjThan ;
most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de ; a = PNoAg} ;
much_Det = {s,sp = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl ; s2 = []} ;
much_Det = {s,sp = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl ; s2 = [] ; isNeg = False} ;
must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ;
---b no_Phr = ss "non" ;
no_Utt = ss "non" ;
@@ -90,8 +91,8 @@ 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 ++ "quelque" ; n = Sg ; s2 = []} ; ----sp
somePl_Det = {s,sp = \\_,c => prepCase c ++ "quelques" ; n = Pl ; s2 = [] ; isNeg = False} ; ---- sp
someSg_Det = {s,sp = \\_,c => prepCase c ++ "quelque" ; n = Sg ; s2 = [] ; isNeg = False} ; ----sp
something_NP = pn2np (mkPN ["quelque chose"] Masc) ;
somewhere_Adv = ss ["quelque part"] ; --- ne - pas
@@ -105,7 +106,8 @@ lin
Sg => \\g,c => prepCase c ++ genForms "celui-là" "celle-là" ! g ;
Pl => \\g,c => prepCase c ++ genForms "ceux-là" "celles-là" ! g
} ;
s2 = [] ---- "-là"
s2 = [] ; ---- "-là" ;
isNeg = False
} ;
---b that_NP = makeNP ["cela"] Masc Sg ;
@@ -128,7 +130,8 @@ lin
Sg => \\g,c => prepCase c ++ genForms "celui-ci" "celle-ci" ! g ;
Pl => \\g,c => prepCase c ++ genForms "ceux-ci" "celles-ci" ! g
} ;
s2 = [] ---- "-ci"
s2 = [] ; ---- "-ci"
isNeg = False
} ;
---b this_NP = pn2np (mkPN ["ceci"] Masc) ;
@@ -173,7 +176,7 @@ lin
youPol_Pron =
let vous = mkPronoun "vous" "vous" "vous" "vous" "votre" "votre" "vos" Masc Pl P2
in
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = True} ;
{s = vous.s ; hasClit = vous.hasClit ; poss = vous.poss ; a = vous.a ; isPol = True ; isNeg = False} ;
not_Predet = {s = \\a,c => prepCase c ++ "pas" ; c = Nom ; a = PNoAg} ;
@@ -185,12 +188,13 @@ lin
in {
s = \\_ => aucun ;
sp = aucun ;
s2 = []
s2 = [] ;
isNeg = True
} ;
if_then_Conj = {s1 = "si" ; s2 = "alors" ; n = Sg ; lock_Conj = <>} ;
nobody_NP = pn2np (mkPN ["personne"] Fem) ;
nobody_NP = pn2npNeg (mkPN ["personne"] Fem) ;
nothing_NP = pn2np (mkPN "rien" Masc) ;
nothing_NP = pn2npNeg (mkPN "rien" Masc) ;
at_least_AdN = ss "au moins" ;
at_most_AdN = ss "au plus" ;