mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-27 21:42:50 -06:00
fixed decodeUTF8 for pgf; removed old resources from darcs
This commit is contained in:
aarne
153
lib/resource/french/StructuralFre.gf
Normal file
153
lib/resource/french/StructuralFre.gf
Normal file
@@ -0,0 +1,153 @@
|
||||
--# -path=.:../abstract:../romance:../common:prelude
|
||||
|
||||
concrete StructuralFre of Structural = CatFre **
|
||||
open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, Prelude in {
|
||||
|
||||
flags optimize=all ;
|
||||
|
||||
lin
|
||||
|
||||
above_Prep = {s = ["au dessus"] ; c = MorphoFre.genitive ; isDir = False} ;
|
||||
after_Prep = mkPreposition "après" ;
|
||||
all_Predet = {
|
||||
s = \\a,c => prepCase c ++ aagrForms "tout" "toute" "tous" "toutes" ! a ;
|
||||
c = Nom
|
||||
} ;
|
||||
almost_AdA, almost_AdN = ss "presque" ;
|
||||
always_AdV = ss "toujours" ;
|
||||
although_Subj = ss ("bien" ++ elisQue) ** {m = Conjunct} ;
|
||||
and_Conj = {s1 = [] ; s2 = "et" ; n = Pl} ;
|
||||
because_Subj = ss ("parce" ++ elisQue) ** {m = Indic} ;
|
||||
before_Prep = mkPreposition "avant" ;
|
||||
behind_Prep = mkPreposition "derrière" ;
|
||||
between_Prep = mkPreposition "entre" ;
|
||||
both7and_DConj = {s1,s2 = "et" ; n = Pl} ;
|
||||
but_PConj = ss "mais" ;
|
||||
by8agent_Prep = mkPreposition "par" ;
|
||||
by8means_Prep = mkPreposition "par" ;
|
||||
can8know_VV = mkVV (savoir_V2 ** {lock_V = <>}) ;
|
||||
can_VV = mkVV pouvoir_V ;
|
||||
during_Prep = mkPreposition "pendant" ;
|
||||
either7or_DConj = {s1,s2 = "ou" ; n = Pl} ;
|
||||
everybody_NP = pn2np (mkPN ["tout le monde"] Masc) ;
|
||||
every_Det = {s = \\_,_ => "chaque" ; n = Sg} ;
|
||||
everything_NP = pn2np (mkPN ["tout"] Masc) ;
|
||||
everywhere_Adv = ss "partout" ;
|
||||
few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
|
||||
--- DEPREC first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ;
|
||||
for_Prep = mkPreposition "pour" ;
|
||||
from_Prep = complGen ; ---
|
||||
he_Pron =
|
||||
mkPronoun
|
||||
"il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
|
||||
Masc Sg P3 ;
|
||||
here7from_Adv = ss "d'ici" ;
|
||||
here7to_Adv = ss "ici" ;
|
||||
here_Adv = ss "ici" ;
|
||||
how_IAdv = ss "comment" ;
|
||||
how8many_IDet = {s = \\_,c => prepCase c ++ "combien" ++ elisDe ; n = Pl} ;
|
||||
if_Subj = ss elisSi ** {m = Indic} ;
|
||||
in8front_Prep = mkPreposition "devant" ;
|
||||
i_Pron =
|
||||
mkPronoun
|
||||
(elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes"
|
||||
Masc Sg P1 ;
|
||||
in_Prep = mkPreposition "dans" ;
|
||||
it_Pron =
|
||||
mkPronoun
|
||||
"il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
|
||||
Masc Sg P3 ;
|
||||
less_CAdv = ss "moins" ;
|
||||
many_Det = {s = \\_,c => prepCase c ++ "plusieurs" ; n = Pl} ;
|
||||
more_CAdv = ss "plus" ;
|
||||
most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de} ;
|
||||
much_Det = {s = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl} ;
|
||||
must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ;
|
||||
---b no_Phr = ss "non" ;
|
||||
no_Utt = ss "non" ;
|
||||
on_Prep = mkPreposition "sur" ;
|
||||
--- DEPREC one_Quant = {s = \\g,c => prepCase c ++ genForms "un" "une" ! g} ;
|
||||
only_Predet = {s = \\_,c => prepCase c ++ "seulement" ; c = Nom} ; --- seul(e)(s)
|
||||
or_Conj = {s1 = [] ; s2 = "ou" ; n = Sg} ;
|
||||
otherwise_PConj = ss "autrement" ;
|
||||
part_Prep = complGen ;
|
||||
please_Voc = ss ["s'il vous plaît"] ;
|
||||
possess_Prep = complGen ;
|
||||
quite_Adv = ss "assez" ;
|
||||
she_Pron =
|
||||
mkPronoun
|
||||
"elle" elisLa "lui" "elle" "son" (elisPoss "s") "ses"
|
||||
Fem Sg P3 ;
|
||||
|
||||
so_AdA = ss "si" ;
|
||||
somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ;
|
||||
somePl_Det = {s = \\_,c => prepCase c ++ "quelques" ; n = Pl} ;
|
||||
someSg_Det = {s = \\_,c => prepCase c ++ elision "quelqu" ; n = Sg} ;
|
||||
something_NP = pn2np (mkPN ["quelque chose"] Masc) ;
|
||||
somewhere_Adv = ss ["quelque part"] ; --- ne - pas
|
||||
that_Quant = {s =
|
||||
table {
|
||||
Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; là
|
||||
Pl => \\_,_ => "ces"
|
||||
}
|
||||
} ;
|
||||
---b that_NP = makeNP ["cela"] Masc Sg ;
|
||||
there7from_Adv = ss ["de là"] ;
|
||||
there7to_Adv = ss "là" ; --- y
|
||||
there_Adv = ss "là" ;
|
||||
therefore_PConj = ss "donc" ;
|
||||
---b these_NP = makeNP ["ceux-ci"] Masc Pl ;
|
||||
they_Pron = mkPronoun
|
||||
"ils" "les" "leur" "eux" "leur" "leur" "leurs"
|
||||
Masc Pl P3 ;
|
||||
this_Quant = {s =
|
||||
table {
|
||||
Sg => \\g,c =>
|
||||
prepCase c ++
|
||||
genForms (pre {"ce" ; "cet" / voyelle}) "cette" ! g ; --- ci
|
||||
Pl => \\_,_ => "ces"
|
||||
}
|
||||
} ;
|
||||
---b this_NP = pn2np (mkPN ["ceci"] Masc) ;
|
||||
---b those_NP = makeNP ["ceux-là"] Masc Pl ;
|
||||
through_Prep = mkPreposition "par" ;
|
||||
too_AdA = ss "trop" ;
|
||||
to_Prep = complDat ;
|
||||
under_Prep = mkPreposition "sous" ;
|
||||
very_AdA = ss "très" ;
|
||||
want_VV = mkVV (vouloir_V2 ** {lock_V = <>}) ;
|
||||
we_Pron =
|
||||
mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos"
|
||||
Masc Pl P1 ;
|
||||
whatSg_IP =
|
||||
{s = \\c => prepCase c ++ "quoi" ; a = a}
|
||||
where {a = aagr Masc Sg} ;
|
||||
whatPl_IP =
|
||||
{s = \\c => prepCase c ++ "quoi" ; a = a}
|
||||
where {a = aagr Masc Pl} ;
|
||||
when_IAdv = ss "quand" ;
|
||||
when_Subj = ss "quand" ** {m = Indic} ;
|
||||
where_IAdv = ss "où" ;
|
||||
which_IQuant = {
|
||||
s = \\n,g,c =>
|
||||
prepCase c ++ aagrForms "quel" "quelle" "quels" "quelles" ! aagr g n
|
||||
} ;
|
||||
---b whichSg_IDet = {s = \\g,c => prepCase c ++ genForms "quel" "quelle" ! g ; n = Sg} ;
|
||||
---b whichPl_IDet = {s = \\g,c => prepCase c ++ genForms "quels" "quelles" ! g; n = Pl} ;
|
||||
whoPl_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Pl} ;
|
||||
whoSg_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Sg} ;
|
||||
why_IAdv = ss "pourquoi" ;
|
||||
without_Prep = mkPreposition "sans" ;
|
||||
with_Prep = mkPreposition "avec" ;
|
||||
yes_Utt = ss "oui" ; --- si
|
||||
---b yes_Phr = ss "oui" ; --- si
|
||||
youSg_Pron = mkPronoun
|
||||
"tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes"
|
||||
Masc Sg P2 ;
|
||||
youPl_Pron, youPol_Pron =
|
||||
mkPronoun
|
||||
"vous" "vous" "vous" "vous" "votre" "votre" "vos"
|
||||
Masc Pl P2 ;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user