GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 11:19:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Convert many RGL modules from Latin-1 to UTF-8 to speed up compilation

Browse Source 
Also add flags coding=utf8 to silence warnings.
This commit is contained in:
hallgren
2014-08-19 19:42:05 +00:00
parent efcec8e7e9
commit be301d8a5e
135 changed files with 2828 additions and 2810 deletions
Download Patch File Download Diff File Expand all files Collapse all files

218
lib/src/french/BeschFre.gf
View File

@@ -1,7 +1,7 @@
--# -coding=latin1
resource BeschFre = open Prelude, MorphoFre in {
flags optimize=noexpand ; -- faster and smaller than =all
coding=utf8 ;
oper VerbeN = {s : VF => Str} ;
oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ;
@@ -16,29 +16,29 @@ oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table {
oper v_besch1 : Str -> VerbeN = \s -> mkNV (conjAvoir s) ;
oper v_besch2 : Str -> VerbeN = \s -> mkNV (conjÊtre s) ;
oper v_besch2 : Str -> VerbeN = \s -> mkNV (conjÊtre s) ;
-- 3-5 not used
oper v_besch6 : Str -> VerbeN = \s -> mkNV (conj1aimer s) ;
oper v_besch7 : Str -> VerbeN = \s -> mkNV (conj1placer s) ;
oper v_besch8 : Str -> VerbeN = \s -> mkNV (conj1manger s) ;
oper v_besch9 : Str -> VerbeN = \s -> mkNV (conj1peser s) ;
oper v_besch10 : Str -> VerbeN = \s -> mkNV (conj1céder s) ;
oper v_besch10 : Str -> VerbeN = \s -> mkNV (conj1céder s) ;
oper v_besch11 : Str -> VerbeN = \s -> mkNV (conj1jeter s) ;
oper v_besch12 : Str -> VerbeN = \s -> mkNV (conj1jeter s) ;
oper v_besch13 : Str -> VerbeN = \s -> mkNV (conj1aimer s) ;
oper v_besch14 : Str -> VerbeN = \s -> mkNV (conj1assiéger s) ;
oper v_besch14 : Str -> VerbeN = \s -> mkNV (conj1assiéger s) ;
oper v_besch15 : Str -> VerbeN = \s -> mkNV (conj1aimer s) ; --- ?
oper v_besch16 : Str -> VerbeN = \s -> mkNV (conj1payer s) ;
oper v_besch17 : Str -> VerbeN = \s -> mkNV (conj1payer s) ;
oper v_besch18 : Str -> VerbeN = \s -> mkNV (conj1envoyer s) ;
oper v_besch19 : Str -> VerbeN = \s -> mkNV (conj2finir s) ;
oper v_besch20 : Str -> VerbeN = \s -> mkNV (conj2haïr s) ;
oper v_besch20 : Str -> VerbeN = \s -> mkNV (conj2haïr s) ;
-- oper v_besch21 : Str -> VerbeN = \s -> mkNV (conj s) ; -- not used
oper v_besch22 : Str -> VerbeN = \s -> mkNV (conj3aller s) ;
oper v_besch23 : Str -> VerbeN = \s -> mkNV (conj3tenir s) ;
oper v_besch24 : Str -> VerbeN = \s -> mkNV (conj3quérir s) ;
oper v_besch24 : Str -> VerbeN = \s -> mkNV (conj3quérir s) ;
oper v_besch25 : Str -> VerbeN = \s -> mkNV (conj3sentir s) ;
oper v_besch26 : Str -> VerbeN = \s -> mkNV (conj3vêtir s) ;
oper v_besch26 : Str -> VerbeN = \s -> mkNV (conj3vêtir s) ;
oper v_besch27 : Str -> VerbeN = \s -> mkNV (conj3couvrir s) ;
oper v_besch28 : Str -> VerbeN = \s -> mkNV (conj3cueillir s) ;
oper v_besch29 : Str -> VerbeN = \s -> mkNV (conj3assaillir s) ;
@@ -49,7 +49,7 @@ oper v_besch33 : Str -> VerbeN = \s -> mkNV (conj3courir s) ;
oper v_besch34 : Str -> VerbeN = \s -> mkNV (conj3mourir s) ;
oper v_besch35 : Str -> VerbeN = \s -> mkNV (conj3sentir s) ;
oper v_besch36 : Str -> VerbeN = \s -> mkNV (conj3fuir s) ;
oper v_besch37 : Str -> VerbeN = \s -> mkNV (conj3ouïr s) ;
oper v_besch37 : Str -> VerbeN = \s -> mkNV (conj3ouïr s) ;
oper v_besch38 : Str -> VerbeN = \s -> mkNV (conj3cevoir s) ;
oper v_besch39 : Str -> VerbeN = \s -> mkNV (conj3voir s) ;
oper v_besch40 : Str -> VerbeN = \s -> mkNV (conj3pourvoir s) ;
@@ -76,10 +76,10 @@ oper v_besch60 : Str -> VerbeN = \s -> mkNV (conj3vaincre s) ;
oper v_besch61 : Str -> VerbeN = \s -> mkNV (conj3traire s) ;
oper v_besch62 : Str -> VerbeN = \s -> mkNV (conj3faire s) ;
oper v_besch63 : Str -> VerbeN = \s -> mkNV (conj3plaire s) ;
oper v_besch64 : Str -> VerbeN = \s -> mkNV (conj3connaître s) ;
oper v_besch65 : Str -> VerbeN = \s -> mkNV (conj3naître s) ;
oper v_besch66 : Str -> VerbeN = \s -> mkNV (conj3paître s) ;
oper v_besch67 : Str -> VerbeN = \s -> mkNV (conj3croître s) ;
oper v_besch64 : Str -> VerbeN = \s -> mkNV (conj3connaître s) ;
oper v_besch65 : Str -> VerbeN = \s -> mkNV (conj3naître s) ;
oper v_besch66 : Str -> VerbeN = \s -> mkNV (conj3paître s) ;
oper v_besch67 : Str -> VerbeN = \s -> mkNV (conj3croître s) ;
oper v_besch68 : Str -> VerbeN = \s -> mkNV (conj3croire s) ;
oper v_besch69 : Str -> VerbeN = \s -> mkNV (conj3boire s) ;
oper v_besch70 : Str -> VerbeN = \s -> mkNV (conj3clore s) ;
@@ -92,7 +92,7 @@ oper v_besch76 : Str -> VerbeN = \s -> mkNV (conj3vivre s) ;
oper v_besch77 : Str -> VerbeN = \s -> mkNV (conj3lire s) ;
oper v_besch78 : Str -> VerbeN = \s -> mkNV (conj3dire s) ;
oper v_besch79 : Str -> VerbeN = \s -> mkNV (conj3rire s) ;
oper v_besch80 : Str -> VerbeN = \s -> mkNV (conj3écrire s) ;
oper v_besch80 : Str -> VerbeN = \s -> mkNV (conj3écrire s) ;
oper v_besch81 : Str -> VerbeN = \s -> mkNV (conj3confire s) ;
oper v_besch82 : Str -> VerbeN = \s -> mkNV (conj3cuire s) ;
@@ -158,31 +158,31 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
-- The worst case has three different stems.
auxConj1 : Str -> Str -> Str -> Verbe = \jet, jett, jeter ->
verbHabituel jett jet jett jet jeter (jet+"é") (jet+"er") affixSgE affixPasseA ;
verbHabituel jett jet jett jet jeter (jet+"é") (jet+"er") affixSgE affixPasseA ;
conj1aimer : Str -> Verbe = \aimer ->
let {aim = troncVerb aimer} in
auxConj1 aim aim aimer ;
conj1céder : Str -> Verbe = \céder ->
conj1céder : Str -> Verbe = \céder ->
let {
ced = troncVerb céder ;
ced = troncVerb céder ;
d = Predef.dp 1 ced ;
c = Predef.tk 2 ced ;
cèd = c + "è" + d ;
céd = c + "é" + d
cèd = c + "è" + d ;
céd = c + "é" + d
}
in auxConj1 céd cèd céder ;
in auxConj1 céd cèd céder ;
conj1peser : Str -> Verbe = \céder -> ---- ? a verifier
conj1peser : Str -> Verbe = \céder -> ---- ? a verifier
let {
ced = troncVerb céder ;
ced = troncVerb céder ;
d = Predef.dp 1 ced ;
c = Predef.tk 2 ced ;
cèd = c + "è" + d ;
céd = c + "e" + d
cèd = c + "è" + d ;
céd = c + "e" + d
}
in auxConj1 céd cèd céder ;
in auxConj1 céd cèd céder ;
conj1jeter : Str -> Verbe = \jeter ->
let {
@@ -194,7 +194,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
conj1placer : Str -> Verbe = \placer ->
let {
pla = Predef.tk 3 placer ;
plac = preVoyelleFront (pla+"ç") (pla+"c")
plac = preVoyelleFront (pla+"ç") (pla+"c")
} in
auxConj1 plac plac placer ;
@@ -205,9 +205,9 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
} in
auxConj1 mange mange manger ;
conj1assiéger : Str -> Verbe = \assiéger ->
let {assi = Predef.tk 4 assiéger} in
auxConj1 (preVoyelleFront (assi+"ége") (assi+"ég")) (assi+"èg") assiéger ;
conj1assiéger : Str -> Verbe = \assiéger ->
let {assi = Predef.tk 4 assiéger} in
auxConj1 (preVoyelleFront (assi+"ége") (assi+"ég")) (assi+"èg") assiéger ;
conj1payer : Str -> Verbe = \payer ->
let {pa = Predef.tk 3 payer} in
@@ -223,9 +223,9 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
case parler of {
_ + "ir" => conj2finir parler ;
_ + "re" => conj3rendre parler ;
_ + "éger" => conj1assiéger parler ;
_ + "éger" => conj1assiéger parler ;
_ + ("eler" | "eter") => conj1jeter parler ;
_ + "éder" => conj1céder parler ;
_ + "éder" => conj1céder parler ;
_ + "cer" => conj1placer parler ;
_ + "ger" => conj1manger parler ;
_ + "yer" => conj1payer parler ;
@@ -261,13 +261,13 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
} in
verbHabituel fini finiss finiss fin finir fini finir affixSgS affixPasseI ;
conj2haïr : Str -> Verbe = \haïr ->
let {ha = troncVerb haïr ;
conj2haïr : Str -> Verbe = \haïr ->
let {ha = troncVerb haïr ;
hai = ha + "i" ;
haï = ha + "ï" ;
haiss = ha + "ïss"
haï = ha + "ï" ;
haiss = ha + "ïss"
} in
verbHabituel hai haiss haiss ha haïr haï haïr affixSgS (affixPasse "ï" "ï") ;
verbHabituel hai haiss haiss ha haïr haï haïr affixSgS (affixPasse "ï" "ï") ;
--3 The third conjugation
@@ -279,23 +279,23 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
let {t = Predef.tk 4 tenir} in
verbHabituel
(t+"ien") (t+"en") (t+"ienn") t (t+"iendr") (t+"enu") tenir
affixSgS (affixPasse "in" "în") ;
affixSgS (affixPasse "in" "în") ;
-- Many verbs have "is" in the past participle. But there is so much variation
-- that the worst-case macro needs seven forms.
auxConj3is : (_,_,_,_,_,_,_ : Str) -> Verbe =
\quier, quér, quièr, qu, querr, quis, quiss ->
\quier, quér, quièr, qu, querr, quis, quiss ->
verbAffixes
quier quér quièr qu querr quièr quér
(quier + "s") quis quiss (quér + "ir") affixSgS affixPasseI ;
quier quér quièr qu querr quièr quér
(quier + "s") quis quiss (quér + "ir") affixSgS affixPasseI ;
auxConj3ir : (_,_,_ : Str) -> Verbe = \sen, sent, i ->
auxConj3is sen sent sent sent (sent+"ir") (sent+i) (sent+i+"s") ;
conj3quérir : Str -> Verbe = \quérir ->
let {qu = Predef.tk 4 quérir} in
auxConj3is (qu+"ier") (qu+"ér") (qu+"ièr") qu (qu+"err") (qu+"is") (qu+"is") ;
conj3quérir : Str -> Verbe = \quérir ->
let {qu = Predef.tk 4 quérir} in
auxConj3is (qu+"ier") (qu+"ér") (qu+"ièr") qu (qu+"err") (qu+"is") (qu+"is") ;
conj3sentir : Str -> Verbe = \sentir ->
let {
@@ -304,13 +304,13 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
} in
auxConj3ir sen sent "i" ;
conj3vêtir : Str -> Verbe = \vêtir ->
conj3vêtir : Str -> Verbe = \vêtir ->
let {
s = Predef.tk 5 vêtir ;
vet = auxConj3ir "vêt" "vêt" "u"
s = Predef.tk 5 vêtir ;
vet = auxConj3ir "vêt" "vêt" "u"
} in
table {
Indi Presn Sg P3 => s + "vêt" ;
Indi Presn Sg P3 => s + "vêt" ;
p => s + vet ! p
};
@@ -384,28 +384,28 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
let {m = Predef.tk 5 mourir} in
auxConj3ourir (m + "eur") (m + "our") (m + "ort") ;
-- A little auxiliary to cover "fuir" and "ouïr".
-- *N.B.* some alternative forms for "ouïr" are still missing.
-- A little auxiliary to cover "fuir" and "ouïr".
-- *N.B.* some alternative forms for "ouïr" are still missing.
auxConj3ui : AffixPasse -> (_,_,_ : Str) -> Verbe = \affpasse, o, ou, ouï ->
let {oi : Str = o + "i" ; oy : Str = o + "y" ; ouïr : Str = ouï + "r"} in
verbHabituel oi oy oi ou ouïr ouï ouïr affixSgS affpasse ;
auxConj3ui : AffixPasse -> (_,_,_ : Str) -> Verbe = \affpasse, o, ou, ouï ->
let {oi : Str = o + "i" ; oy : Str = o + "y" ; ouïr : Str = ouï + "r"} in
verbHabituel oi oy oi ou ouïr ouï ouïr affixSgS affpasse ;
conj3fuir : Str -> Verbe = \fuir ->
let {fu = troncVerb fuir} in
auxConj3ui affixPasseI fu fu (fu + "i") ;
conj3ouïr : Str -> Verbe = \ouir ->
conj3ouïr : Str -> Verbe = \ouir ->
let {o = Predef.tk 3 ouir} in
auxConj3ui (affixPasse "ï" "ï") o (o + "u") (o + "uï") ;
auxConj3ui (affixPasse "ï" "ï") o (o + "u") (o + "uï") ;
-- The verb "gésir" lacks many forms.
-- The verb "gésir" lacks many forms.
conj3gésir : Str -> Verbe = \gésir ->
let {g = Predef.tk 4 gésir} in
conj3gésir : Str -> Verbe = \gésir ->
let {g = Predef.tk 4 gésir} in
table {
Inf => g + "ésir" ;
Indi Presn Sg p => g + lesAffixes "is" "is" "ît" ! p ;
Inf => g + "ésir" ;
Indi Presn Sg p => g + lesAffixes "is" "is" "ît" ! p ;
Indi Presn Pl p => g + "is" + affixPlOns ! p ;
Indi Imparf n p => g + "is" + affixImparf ! n ! p ;
Part PPres => g + "isant" ;
@@ -431,8 +431,8 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
conj3cevoir : Str -> Verbe = \cevoir ->
let {re = Predef.tk 6 cevoir} in
auxConj3usS (re+"çoi") (re+"cev") (re+"çoiv") (re+"ç")
(re+"cevr") (re+"çoiv") (re+"cev") (re+"cev") ;
auxConj3usS (re+"çoi") (re+"cev") (re+"çoiv") (re+"ç")
(re+"cevr") (re+"çoiv") (re+"cev") (re+"cev") ;
conj3voir : Str -> Verbe = \voir ->
let {
@@ -467,7 +467,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
tdevoir = auxConj3usS "doi" "dev" "doiv" "d" "devr" "doiv" "dev" "dev"
} in
table {
Part (PPasse Masc Sg) => s + "dû" ;
Part (PPasse Masc Sg) => s + "dû" ;
p => s + tdevoir ! p
} ;
@@ -485,7 +485,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
conj3mouvoir : Str -> Verbe = \mouvoir ->
let {
s = Predef.tk 7 mouvoir ;
mu = adjReg "mû" ;
mu = adjReg "mû" ;
tmouvoir = auxConj3usS "meu" "mouv" "meuv" "m" "mouvr" "meuv" "mouv" "mouv"
} in
table {
@@ -502,7 +502,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
Indi Futur Sg P3 => faudr + "a" ;
Condi Sg P3 => faudr + "ait" ;
Subjo SPres Sg P3 => faill + "e" ;
Subjo SImparf Sg P3 => pl + "ût" ;
Subjo SImparf Sg P3 => pl + "ût" ;
Part PPres => fall + "ant" ;
Part (PPasse g n) => adjReg (pl + "u") ! g ! n ;
_ => nonExist
@@ -546,7 +546,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
conj3asseoir : Str -> Verbe = \asseoir ->
let {
ass = Predef.tk 4 asseoir ;
tasseoir = auxConj3is "ied" "ey" "ey" "" "iér" "is" "is"
tasseoir = auxConj3is "ied" "ey" "ey" "" "iér" "is" "is"
} in
table {
Inf => ass + "eoir" ;
@@ -571,17 +571,17 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
tseoir = conj3asseoir seoir
} in
table {
Indi Presn Pl P3 => s + "iéent" ;
Indi Presn Pl P3 => s + "iéent" ;
Indi _ _ P1 => nonExist ;
Indi _ _ P2 => nonExist ;
Indi Passe _ _ => nonExist ;
Condi _ P1 => nonExist ;
Condi _ P2 => nonExist ;
Subjo SPres Sg P3 => s + "iée" ;
Subjo SPres Pl P3 => s + "iéent" ;
Subjo SPres Sg P3 => s + "iée" ;
Subjo SPres Pl P3 => s + "iéent" ;
Subjo _ _ _ => nonExist ;
Imper _ => nonExist ;
Part PPres => s + "éant" ;
Part PPres => s + "éant" ;
t => tseoir ! t
} ;
@@ -617,19 +617,19 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
} in
\\p => e + tchoir ! p ;
conj3échoir : Str -> Verbe = \échoir ->
let {techoir = conj3choir échoir} in
conj3échoir : Str -> Verbe = \échoir ->
let {techoir = conj3choir échoir} in
table {
Indi _ _ P1 => nonExist ;
Indi _ _ P2 => nonExist ;
Indi Presn Pl P3 => Predef.tk 3 échoir + "éent" ;
---v Indi Presn Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ;
Indi Presn Pl P3 => Predef.tk 3 échoir + "éent" ;
---v Indi Presn Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ;
Subjo _ _ P1 => nonExist ;
Subjo _ _ P2 => nonExist ;
Condi _ P1 => nonExist ;
Condi _ P2 => nonExist ;
Imper _ => nonExist ;
Part PPres => Predef.tk 3 échoir + "éant" ;
Part PPres => Predef.tk 3 échoir + "éant" ;
t => techoir ! t
} ;
@@ -722,9 +722,9 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
auxConj3re
affixSgS affixPasseU boi buv boiv b (boi + "r") (b + "u") (b + "us") ;
auxConj3ît : Verbe -> Str -> Verbe = \conj,plaît ->
auxConj3ît : Verbe -> Str -> Verbe = \conj,plaît ->
table {
Indi Presn Sg P3 => plaît ;
Indi Presn Sg P3 => plaît ;
t => conj ! t
} ;
@@ -733,50 +733,50 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
pl = Predef.tk 4 plaire ;
tplaire = auxConj3oire (pl + "ai") (pl + "ais") (pl + "ais") pl
} in
auxConj3ît tplaire (pl + "aît") ;
auxConj3ît tplaire (pl + "aît") ;
conj3connaître : Str -> Verbe = \connaître ->
conj3connaître : Str -> Verbe = \connaître ->
let {
conn = Predef.tk 5 connaître ;
conn = Predef.tk 5 connaître ;
connaiss = conn + "aiss" ;
tconnaitre =
auxConj3re
affixSgS affixPasseU (conn + "ai") connaiss connaiss
conn (conn + "aîtr") (conn + "u") (conn + "us")
conn (conn + "aîtr") (conn + "u") (conn + "us")
} in
auxConj3ît tconnaitre (conn + "aît") ;
auxConj3ît tconnaitre (conn + "aît") ;
conj3naître : Str -> Verbe = \naître ->
conj3naître : Str -> Verbe = \naître ->
let {
n = Predef.tk 5 naître ;
n = Predef.tk 5 naître ;
tnaitre = auxConj3re
affixSgS affixPasseI
(n + "ai") (n + "aiss") (n + "aiss") (n + "aqu")
(n + "aîtr") (n + "é") (n + "és")
(n + "aîtr") (n + "é") (n + "és")
} in
auxConj3ît tnaitre (n + "aît") ;
auxConj3ît tnaitre (n + "aît") ;
-- The conjugation of "paître" is defective in a curious way, especially
-- if compared with "repaître". According to Bescherelle, the invariable
-- The conjugation of "paître" is defective in a curious way, especially
-- if compared with "repaître". According to Bescherelle, the invariable
-- past participle is only used as a term of "fauconnerie" (one would expect it
-- to be defective rather than invariable).
conj3paître : Str -> Verbe = \paître ->
let {tpaitre = conj3connaître paître} in
conj3paître : Str -> Verbe = \paître ->
let {tpaitre = conj3connaître paître} in
table {
Indi Passe _ _ => nonExist ;
Subjo SImparf _ _ => nonExist ;
Part (PPasse _ _) => Predef.tk 5 paître + "u" ;
Part (PPasse _ _) => Predef.tk 5 paître + "u" ;
p => tpaitre ! p
} ;
conj3repaître = conj3connaître ;
conj3repaître = conj3connaître ;
conj3croître : Str -> Verbe = \croître ->
let {cr = Predef.tk 5 croître} in
conj3croître : Str -> Verbe = \croître ->
let {cr = Predef.tk 5 croître} in
auxConj3re
affixSgS (affixPasse "û" "û") (cr + "oî") (cr + "oiss")
(cr + "oiss") cr (cr + "oîtr") (cr + "û") (cr + "ûs") ;
affixSgS (affixPasse "û" "û") (cr + "oî") (cr + "oiss")
(cr + "oiss") cr (cr + "oîtr") (cr + "û") (cr + "ûs") ;
conj3croire : Str -> Verbe = \croire ->
let {cr = Predef.tk 4 croire} in
@@ -800,7 +800,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
nonExist (clo + "r") clos clos
} in
table {
Indi Presn Sg P3 => Predef.tk 1 clo + "ôt" ;
Indi Presn Sg P3 => Predef.tk 1 clo + "ôt" ;
Indi Presn Pl P1 => nonExist ;
Indi Presn Pl P2 => nonExist ;
Indi Imparf _ _ => nonExist ;
@@ -821,7 +821,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
conj3absoudre : Str -> Verbe = \absoudre ->
let {
abso = Predef.tk 4 absoudre ;
tabsoudre = conj3résoudre absoudre
tabsoudre = conj3résoudre absoudre
} in
table {
Indi Passe _ _ => nonExist ;
@@ -831,8 +831,8 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
p => tabsoudre ! p
} ;
conj3résoudre : Str -> Verbe = \résoudre ->
let {reso = Predef.tk 4 résoudre} in
conj3résoudre : Str -> Verbe = \résoudre ->
let {reso = Predef.tk 4 résoudre} in
auxConj3re
affixSgS affixPasseU (reso + "u") (reso + "lv") (reso + "lv")
(reso + "l") (reso + "udr") (reso + "lu") (reso + "lus") ;
@@ -868,10 +868,10 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
let {
viv = troncVerb vivre ;
vi = Predef.tk 1 viv ;
véc = Predef.tk 1 vi + "éc"
véc = Predef.tk 1 vi + "éc"
} in
auxConj3re
affixSgS affixPasseU vi viv viv véc (viv + "r") (véc + "u") (véc + "us") ;
affixSgS affixPasseU vi viv viv véc (viv + "r") (véc + "u") (véc + "us") ;
conj3lire : Str -> Verbe = \lire ->
let {
@@ -907,9 +907,9 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
auxConj3re
affixSgS affixPasseI ecri ecriv ecriv ecrivi (ecri + "r") ecrit (ecrit+"s") ;
conj3écrire : Str -> Verbe = \écrire ->
let {écri = troncVerb écrire} in
auxConj3scrire écri (écri + "v") (écri + "v") (écri + "t") ;
conj3écrire : Str -> Verbe = \écrire ->
let {écri = troncVerb écrire} in
auxConj3scrire écri (écri + "v") (écri + "v") (écri + "t") ;
conj3confire : Str -> Verbe = \confire ->
let {confi = troncVerb confire} in
@@ -929,7 +929,7 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
s = Predef.tk 5 aller ;
pres = formesPresAi "v" "all" ;
taller = verbHabituel
"all" "all" "aill" "all" "ir" "allé" "aller"
"all" "all" "aill" "all" "ir" "allé" "aller"
affixSgS affixPasseA
} in
table {
@@ -940,22 +940,22 @@ oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do
t => s + taller ! t
} ;
conjÊtre : Str -> Verbe = \etre ->
conjÊtre : Str -> Verbe = \etre ->
let {
s = Predef.tk 4 etre ;
sg = lesAffixes "suis" "es" "est" ;
pl = lesAffixes "sommes" "êtes" "sont" ;
pl = lesAffixes "sommes" "êtes" "sont" ;
tetre = verbHabituel
"soi" "soy" "soi" "f" "ser" "été" "être" affixSgS affixPasseU
"soi" "soy" "soi" "f" "ser" "été" "être" affixSgS affixPasseU
} in
table {
Indi Presn Sg p => s + sg ! p ;
Indi Presn Pl p => s + pl ! p ;
Indi Imparf n p => s + "ét" + affixImparf ! n ! p ;
Indi Imparf n p => s + "ét" + affixImparf ! n ! p ;
Subjo SPres Sg p => s + "soi" + affixSgS ! p ;
Subjo SPres Pl P3 => s + "soient" ;
Subjo SPres Pl p => s + "soy" + affixPlOns ! p ;
Part PPres => s + "étant" ;
Part PPres => s + "étant" ;
t => s + tetre ! t
} ;

1
lib/src/french/ConstructionFre.gf
View File

@@ -4,6 +4,7 @@ concrete ConstructionFre of Construction = CatFre **
open SyntaxFre, SymbolicFre, ParadigmsFre,
(L = LexiconFre), (E = ExtraFre), (I = IrregFre), (R = ResFre), (C = CommonRomance),
Prelude in {
flags coding=utf8 ;
lin

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

@@ -1,5 +1,4 @@
--# -path=.:../romance:../abstract:../common:prelude
--# -coding=latin1
instance DiffFre of DiffRomance - [
imperClit,
@@ -7,7 +6,7 @@ instance DiffFre of DiffRomance - [
]
= open CommonRomance, PhonoFre, Prelude in {
flags optimize=noexpand ; -- coding=utf8 ;
flags optimize=noexpand ; coding=utf8 ;
-- flags optimize=all ;
param
@@ -22,7 +21,7 @@ instance DiffFre of DiffRomance - [
prepCase : Case -> Str = \c -> case c of {
Nom => [] ;
Acc => [] ;
CPrep P_a => "à" ;
CPrep P_a => "à" ;
CPrep P_de => elisDe ;
CPrep PNul => []
} ;
@@ -30,7 +29,7 @@ instance DiffFre of DiffRomance - [
artDef : Gender -> Number -> Case -> Str = \g,n,c ->
case <g,n,c> of {
<Masc,Sg, CPrep P_de> => pre {"du" ; ("de l'" ++ Predef.BIND) / voyelle} ;
<Masc,Sg, CPrep P_a> => pre {"au" ; ("à l'" ++ Predef.BIND) / voyelle} ;
<Masc,Sg, CPrep P_a> => pre {"au" ; ("à l'" ++ Predef.BIND) / voyelle} ;
<Masc,Sg, _> => elisLe ;
<Fem, Sg, _> => prepCase c ++ elisLa ;
<_, Pl, CPrep P_de> => "des" ;
@@ -239,20 +238,20 @@ instance DiffFre of DiffRomance - [
auxPassive : Verb = copula ;
copula : Verb = {s = table VF ["être";"être";"suis";"es";"est";"sommes";"êtes";"sont";"sois";"sois"
copula : Verb = {s = table VF ["être";"être";"suis";"es";"est";"sommes";"êtes";"sont";"sois";"sois"
;"soit";"soyons";"soyez";"soient";
"étais";"étais";"était";"étions";"étiez";"étaient";--# notpresent
"fusse";"fusses";"fût";"fussions";"fussiez";"fussent";--# notpresent
"fus";"fus";"fut";"fûmes";"fûtes";"furent";--# notpresent
"étais";"étais";"était";"étions";"étiez";"étaient";--# notpresent
"fusse";"fusses";"fût";"fussions";"fussiez";"fussent";--# notpresent
"fus";"fus";"fut";"fûmes";"fûtes";"furent";--# notpresent
"serai";"seras";"sera";"serons";"serez";"seront";--# notpresent
"serais";"serais";"serait";"serions";"seriez";"seraient";--# notpresent
"sois";"soyons";"soyez";"été";"étés";"étée";"étées";"étant"]; vtyp=VTyp VHabere False} ;
"sois";"soyons";"soyez";"été";"étés";"étée";"étées";"étant"]; vtyp=VTyp VHabere False} ;
avoir_V : Verb = {s=table VF ["avoir";"avoir";"ai";"as";"a";"avons";"avez";"ont";"aie";"aies";"ait"
;"ayons";"ayez";"aient";
"avais";"avais";"avait";"avions";"aviez";"avaient"; --# notpresent
"eusse";"eusses";"eût";"eussions";"eussiez";"eussent";--# notpresent
"eus";"eus";"eut";"eûmes";"eûtes";"eurent";--# notpresent
"eusse";"eusses";"eût";"eussions";"eussiez";"eussent";--# notpresent
"eus";"eus";"eut";"eûmes";"eûtes";"eurent";--# notpresent
"aurai";"auras";"aura";"aurons";"aurez";"auront";--# notpresent
"aurais";"aurais";"aurait";"aurions";"auriez";"auraient";--# notpresent
"aie";"ayons";"ayez";"eu";"eus";"eue";"eues";"ayant"];vtyp=VTyp VHabere True}; ---- a-t-il eut-il

1
lib/src/french/DocumentationFreFunctor.gf
View File

@@ -11,6 +11,7 @@ incomplete concrete DocumentationFreFunctor of Documentation = CatFre ** open
Prelude,
HTML
in {
flags coding=utf8 ;
lincat

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

@@ -1,7 +1,7 @@
--# -coding=latin1
concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
open CommonRomance, PhonoFre, MorphoFre, ParadigmsFre, ParamX, ResFre, Prelude in {
flags coding=utf8 ;
lin
EstcequeS qs = {s = "est-ce" ++ elisQue ++ qs.s ! Indic} ;
EstcequeIAdvS idet qs = {s = idet.s ++ "est-ce" ++ elisQue ++ qs.s ! Indic} ;
@@ -28,7 +28,7 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
"elles" "les" "leur" "eux" "leur" "leur" "leurs"
Fem Pl P3 ;
this8fem_NP = pn2np (mkPN ["celle-ci"] Fem) ;
those8fem_NP = makeNP ["celles-là"] Fem Pl ;
those8fem_NP = makeNP ["celles-là"] Fem Pl ;
we8fem_Pron = mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos"
Fem Pl P1 ;
whoPl8fem_IP =
@@ -53,7 +53,7 @@ concrete ExtraFre of ExtraFreAbs = ExtraRomanceFre **
ce_Pron =
let ce = elision "c"
in
mkPronoun ce ce ce ("cela" | "ça") "son" (elisPoss "s") "ses" Masc Sg P3 ; ---- variants?
mkPronoun ce ce ce ("cela" | "ça") "son" (elisPoss "s") "ses" Masc Sg P3 ; ---- variants?
AdvDatVP = insertClit3 datClit ;
AdvGenVP = insertClit3 genClit ;

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

@@ -1,14 +1,14 @@
--# -coding=latin1
-- Structures special for French. These are not implemented in other
-- Romance languages.
abstract ExtraFreAbs = ExtraRomanceAbs - [ProDrop] ** {
flags coding=utf8 ;
-- Notice: only direct (main-clause) questions are generated, and needed.
fun
EstcequeS : S -> Utt ; -- est-ce qu'il pleut
EstcequeIAdvS : IAdv -> S -> Utt ; -- où est-ce qu'il pleut
EstcequeIAdvS : IAdv -> S -> Utt ; -- où est-ce qu'il pleut
-- These also generate indirect (subordinate) questions.

1
lib/src/french/IdiomFre.gf
View File

@@ -2,6 +2,7 @@ concrete IdiomFre of Idiom = CatFre **
open (P = ParamX), PhonoFre, MorphoFre, ParadigmsFre, Prelude in {
flags optimize=all_subs ;
flags coding=utf8 ;
lin
ImpersCl vp = mkClause "il" True False (agrP3 Masc Sg) vp ;

214
lib/src/french/IrregFre.gf
View File

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../abstract:../../prelude
--# -coding=latin1
-- Irregular verbs from Nancy, based on a list from Sylvain Pogodalla, 25/11/2004
-- Translated to GF by Aarne Ranta
@@ -9,6 +8,7 @@ concrete IrregFre of IrregFreAbs = CatFre **
open DiffFre, MorphoFre, BeschFre, Prelude in {
flags optimize=values ;
coding=utf8 ;
-- all verbs in classes with "er" and "finir" are omitted
@@ -18,15 +18,15 @@ lin
abstenir_V = v_besch23 "abstenir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
abstraire_V2 = v_besch61 "abstraire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
accourir_V = v_besch33 "accourir" ** {vtyp = vHabere ; lock_V = <>} ;
accroître_V2 = v_besch73 "accroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
accroître_V2 = v_besch73 "accroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
accueillir_V2 = v_besch28 "accueillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
acquérir_V2 = v_besch24 "acquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
acquérir_V2 = v_besch24 "acquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
adjoindre_V2 = v_besch58 "adjoindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
admettre_V2 = v_besch56 "admettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
advenir_V = v_besch23 "advenir" ** {vtyp = vEsse ; lock_V = <>} ;
aller_V = v_besch22 "aller" ** {vtyp = VTyp VEsse True ; lock_V = <>} ;
apercevoir_V2 = v_besch38 "apercevoir" ** {vtyp = VTyp VRefl False ; lock_V2 = <> ; c2 = complGen} ;
apparaître_V = v_besch64 "apparaître" ** {vtyp = vHabere ; lock_V = <>} ;
apparaître_V = v_besch64 "apparaître" ** {vtyp = vHabere ; lock_V = <>} ;
appartenir_V2 = v_besch23 "appartenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
appendre_V2 = v_besch53 "appendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
apprendre_V2 = v_besch54 "apprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -47,7 +47,7 @@ lin
clore_V2 = v_besch70 "clore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
combattre_V2 = v_besch55 "combattre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
commettre_V2 = v_besch56 "commettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
comparaître_V2 = v_besch64 "comparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
comparaître_V2 = v_besch64 "comparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
complaire_V2 = v_besch63 "complaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
comprendre_V2 = v_besch54 "comprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
compromettre_V2 = v_besch56 "compromettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -59,8 +59,8 @@ lin
confire_V2 = v_besch81 "confire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
confondre_V2 = v_besch53 "confondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
conjoindre_V2 = v_besch58 "conjoindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
connaître_V2 = v_besch64 "connaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
conquérir_V2 = v_besch24 "conquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
connaître_V2 = v_besch64 "connaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
conquérir_V2 = v_besch24 "conquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
consentir_V2 = v_besch25 "consentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
construire_V2 = v_besch82 "construire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
contenir_V2 = v_besch23 "contenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -78,67 +78,67 @@ lin
couvrir_V2 = v_besch27 "couvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
craindre_V2 = v_besch59 "craindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
croire_V2 = v_besch68 "croire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
croître_V = v_besch67 "croître" ** {vtyp = vEsse ; lock_V = <>} ;
croître_V = v_besch67 "croître" ** {vtyp = vEsse ; lock_V = <>} ;
cueillir_V2 = v_besch28 "cueillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
cuire_V2 = v_besch82 "cuire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
débattre_V2 = v_besch55 "débattre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
débouillir_V2 = v_besch31 "débouillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décevoir_V2 = v_besch38 "décevoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déchoir_V2 = v_besch52 "déchoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déclore_V2 = v_besch70 "déclore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décommettre_V2 = v_besch56 "décommettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déconfire_V2 = v_besch81 "déconfire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
découdre_V2 = v_besch73 "découdre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
découvrir_V2 = v_besch27 "découvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décrire_V2 = v_besch80 "décrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décroître_V2 = v_besch67 "décroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décuire_V2 = v_besch82 "décuire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déduire_V2 = v_besch82 "déduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
défaillir_V = v_besch30 "défaillir" ** {vtyp = vHabere ; lock_V = <>} ;
défaire_V2 = v_besch62 "défaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
défendre_V2 = v_besch53 "défendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démentir_V2 = v_besch25 "démentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démettre_V2 = v_besch56 "démettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démordre_V = v_besch53 "démordre" ** {vtyp = vHabere ; lock_V = <>} ;
départir_V2 = v_besch25 "départir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
dépeindre_V2 = v_besch57 "dépeindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dépendre_V2 = v_besch53 "dépendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
déplaire_V = v_besch63 "déplaire" ** {vtyp = vHabere ; lock_V = <>} ;
dépourvoir_V2 = v_besch40 "dépourvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déprendre_V2 = v_besch54 "déprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
désapprendre_V2 = v_besch54 "désapprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
débattre_V2 = v_besch55 "débattre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
débouillir_V2 = v_besch31 "débouillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décevoir_V2 = v_besch38 "décevoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déchoir_V2 = v_besch52 "déchoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déclore_V2 = v_besch70 "déclore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décommettre_V2 = v_besch56 "décommettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déconfire_V2 = v_besch81 "déconfire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
découdre_V2 = v_besch73 "découdre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
découvrir_V2 = v_besch27 "découvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décrire_V2 = v_besch80 "décrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décroître_V2 = v_besch67 "décroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
décuire_V2 = v_besch82 "décuire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déduire_V2 = v_besch82 "déduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
défaillir_V = v_besch30 "défaillir" ** {vtyp = vHabere ; lock_V = <>} ;
défaire_V2 = v_besch62 "défaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
défendre_V2 = v_besch53 "défendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démentir_V2 = v_besch25 "démentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démettre_V2 = v_besch56 "démettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
démordre_V = v_besch53 "démordre" ** {vtyp = vHabere ; lock_V = <>} ;
départir_V2 = v_besch25 "départir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
dépeindre_V2 = v_besch57 "dépeindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dépendre_V2 = v_besch53 "dépendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
déplaire_V = v_besch63 "déplaire" ** {vtyp = vHabere ; lock_V = <>} ;
dépourvoir_V2 = v_besch40 "dépourvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déprendre_V2 = v_besch54 "déprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
désapprendre_V2 = v_besch54 "désapprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
descendre_V2 = v_besch53 "descendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
desservir_V2 = v_besch35 "desservir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déteindre_V2 = v_besch57 "déteindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détendre_V2 = v_besch53 "détendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détenir_V2 = v_besch23 "détenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détordre_V2 = v_besch53 "détordre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détruire_V2 = v_besch82 "détruire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
déteindre_V2 = v_besch57 "déteindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détendre_V2 = v_besch53 "détendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détenir_V2 = v_besch23 "détenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détordre_V2 = v_besch53 "détordre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
détruire_V2 = v_besch82 "détruire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
devenir_V = v_besch23 "devenir" ** {vtyp = vEsse ; lock_V = <>} ;
dévêtir_V2 = v_besch26 "dévêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dévêtir_V2 = v_besch26 "dévêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
devoir_V2 = v_besch42 "devoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dire_V2 = v_besch78 "dire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
disconvenir_V2 = v_besch23 "disconvenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
discourir_V2 = v_besch33 "discourir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
disjoindre_V2 = v_besch58 "disjoindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
disparaître_V2 = v_besch64 "disparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
disparaître_V2 = v_besch64 "disparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dissoudre_V2 = v_besch72 "dissoudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
distendre_V2 = v_besch53 "distendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
distordre_V2 = v_besch53 "distordre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
distraire_V2 = v_besch61 "distraire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
dormir_V2 = v_besch32 "dormir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ébattre_V = v_besch55 "ébattre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
échoir_V2 = v_besch52 "échoir" ** {vtyp = vEsse ; lock_V2 = <> ; c2 = complDat} ;
éclore_V2 = v_besch70 "éclore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
éconduire_V2 = v_besch82 "éconduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
écrire_V2 = v_besch80 "écrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
élire_V2 = v_besch77 "élire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ébattre_V = v_besch55 "ébattre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
échoir_V2 = v_besch52 "échoir" ** {vtyp = vEsse ; lock_V2 = <> ; c2 = complDat} ;
éclore_V2 = v_besch70 "éclore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
éconduire_V2 = v_besch82 "éconduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
écrire_V2 = v_besch80 "écrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
élire_V2 = v_besch77 "élire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
embatre_V2 = v_besch55 "embatre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
embattre_V2 = v_besch55 "embattre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
emboire_V = v_besch69 "emboire" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
émettre_V2 = v_besch56 "émettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
émoudre_V2 = v_besch74 "émoudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
émouvoir_V2 = v_besch44 "émouvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
émettre_V2 = v_besch56 "émettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
émoudre_V2 = v_besch74 "émoudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
émouvoir_V2 = v_besch44 "émouvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
empreindre_V2 = v_besch57 "empreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
enceindre_V2 = v_besch57 "enceindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
enclore_V2 = v_besch70 "enclore" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -148,12 +148,12 @@ lin
enfreindre_V2 = v_besch57 "enfreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
enfuir_V = v_besch36 "enfuir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
enjoindre_V2 = v_besch58 "enjoindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
enquérir_V = v_besch24 "enquérir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
enquérir_V = v_besch24 "enquérir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entendre_V2 = v_besch53 "entendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
entr'apercevoir_V = v_besch38 "entr'apercevoir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entrebattre_V = v_besch55 "entrebattre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entre_détruire_V = v_besch82 "entre-détruire" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entre_haïr_V = v_besch20 "entre-haïr" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entre_détruire_V = v_besch82 "entre-détruire" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entre_haïr_V = v_besch20 "entre-haïr" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entremettre_V = v_besch56 "entremettre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
entre_nuire_V = v_besch82 "entre-nuire" ** {vtyp = vHabere ; lock_V = <>} ;
entreprendre_V2 = v_besch54 "entreprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -161,14 +161,14 @@ lin
entrevoir_V2 = v_besch39 "entrevoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
entrouvrir_V2 = v_besch27 "entrouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
envoyer_V2 = v_besch18 "envoyer" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
épandre_V2 = v_besch53 "épandre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
éperdre_V = v_besch53 "éperdre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
éprendre_V = v_besch54 "éprendre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
équivaloir_V2 = v_besch47 "équivaloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
éteindre_V2 = v_besch57 "éteindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
étendre_V2 = v_besch53 "étendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
étreindre_V2 = v_besch57 "étreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
être_V = v_besch2 "être" ** {vtyp = vHabere ; lock_V = <>} ;
épandre_V2 = v_besch53 "épandre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
éperdre_V = v_besch53 "éperdre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
éprendre_V = v_besch54 "éprendre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
équivaloir_V2 = v_besch47 "équivaloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
éteindre_V2 = v_besch57 "éteindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
étendre_V2 = v_besch53 "étendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
étreindre_V2 = v_besch57 "étreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
être_V = v_besch2 "être" ** {vtyp = vHabere ; lock_V = <>} ;
exclure_V2 = v_besch71 "exclure" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
extraire_V2 = v_besch61 "extraire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
faillir_V2 = v_besch30 "faillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
@@ -182,8 +182,8 @@ lin
frire_V2 = v_besch81 "frire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
fuir_V2 = v_besch36 "fuir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
geindre_V2 = v_besch57 "geindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
gésir_V2 = mkNV (conj3gésir "gésir") ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
haïr_V2 = v_besch20 "haïr" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
gésir_V2 = mkNV (conj3gésir "gésir") ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
haïr_V2 = v_besch20 "haïr" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
inclure_V2 = v_besch71 "inclure" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
induire_V2 = v_besch82 "induire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
inscrire_V2 = v_besch80 "inscrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -197,20 +197,20 @@ lin
luire_V = v_besch82 "luire" ** {vtyp = vHabere ; lock_V = <>} ;
mainmettre_V2 = v_besch56 "mainmettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
maintenir_V2 = v_besch23 "maintenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
méconnaître_V2 = v_besch64 "méconnaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mécroire_V2 = v_besch68 "mécroire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
médire_V2 = v_besch78 "médire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
méconnaître_V2 = v_besch64 "méconnaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mécroire_V2 = v_besch68 "mécroire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
médire_V2 = v_besch78 "médire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
mentir_V2 = v_besch25 "mentir" ** {vtyp = vEsse ; lock_V2 = <> ; c2 = complDat} ;
méprendre_V2 = v_besch54 "méprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
méprendre_V2 = v_besch54 "méprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
messeoir_V2 = v_besch50 "messeoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mettre_V2 = v_besch56 "mettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mévendre_V2 = v_besch53 "mévendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mévendre_V2 = v_besch53 "mévendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mordre_V2 = v_besch53 "mordre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
morfondre_V = v_besch53 "morfondre" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
moudre_V2 = v_besch74 "moudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
mourir_V = v_besch34 "mourir" ** {vtyp = vEsse ; lock_V = <>} ;
mouvoir_V2 = v_besch44 "mouvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
naître_V = v_besch65 "naître" ** {vtyp = vEsse ; lock_V = <>} ;
naître_V = v_besch65 "naître" ** {vtyp = vEsse ; lock_V = <>} ;
nuire_V2 = v_besch82 "nuire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
obtenir_V2 = v_besch23 "obtenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
obvenir_V = v_besch23 "obvenir" ** {vtyp = vEsse ; lock_V = <>} ;
@@ -218,11 +218,11 @@ lin
offrir_V2 = v_besch27 "offrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
oindre_V2 = v_besch58 "oindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
omettre_V2 = v_besch56 "omettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ouïr_V2 = v_besch37 "ouïr" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ouïr_V2 = v_besch37 "ouïr" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ouvrir_V2 = v_besch27 "ouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
paître_V2 = v_besch66 "paître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
paître_V = v_besch66 "paître" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
paraître_V = v_besch64 "paraître" ** {vtyp = vHabere ; lock_V = <>} ;
paître_V2 = v_besch66 "paître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
paître_V = v_besch66 "paître" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
paraître_V = v_besch64 "paraître" ** {vtyp = vHabere ; lock_V = <>} ;
parcourir_V2 = v_besch33 "parcourir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
parfondre_V2 = v_besch53 "parfondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
partir_V = v_besch25 "partir" ** {vtyp = vEsse ; lock_V = <>} ;
@@ -241,14 +241,14 @@ lin
poursuivre_V2 = v_besch75 "poursuivre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
pourvoir_V2 = v_besch40 "pourvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
pouvoir_V = v_besch43 "pouvoir" ** {vtyp = vHabere ; lock_V = <>} ;
prédire_V2 = v_besch78 "prédire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prédire_V2 = v_besch78 "prédire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prendre_V2 = v_besch54 "prendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prescrire_V2 = v_besch80 "prescrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
pressentir_V2 = v_besch25 "pressentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prétendre_V2 = v_besch53 "prétendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
prévaloir_V2 = v_besch47 "prévaloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
prévenir_V2 = v_besch23 "prévenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prévoir_V2 = v_besch39 "prévoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prétendre_V2 = v_besch53 "prétendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
prévaloir_V2 = v_besch47 "prévaloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
prévenir_V2 = v_besch23 "prévenir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
prévoir_V2 = v_besch39 "prévoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
produire_V2 = v_besch82 "produire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
promettre_V2 = v_besch56 "promettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
promouvoir_V2 = v_besch44 "promouvoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -258,64 +258,64 @@ lin
raire_V2 = v_besch61 "raire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rapprendre_V2 = v_besch54 "rapprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rasseoir_V2 = v_besch49 "rasseoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réadmettre_V2 = v_besch56 "réadmettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réapparaître_V = v_besch64 "réapparaître" ** {vtyp = vHabere ; lock_V = <>} ;
réapprendre_V2 = v_besch54 "réapprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réadmettre_V2 = v_besch56 "réadmettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réapparaître_V = v_besch64 "réapparaître" ** {vtyp = vHabere ; lock_V = <>} ;
réapprendre_V2 = v_besch54 "réapprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rebattre_V2 = v_besch55 "rebattre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recevoir_V2 = v_besch38 "recevoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recomparaître_V2 = v_besch64 "recomparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recomparaître_V2 = v_besch64 "recomparaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconduire_V2 = v_besch82 "reconduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconnaître_V2 = v_besch64 "reconnaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconquérir_V2 = v_besch24 "reconquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconnaître_V2 = v_besch64 "reconnaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconquérir_V2 = v_besch24 "reconquérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reconstruire_V2 = v_besch82 "reconstruire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recoudre_V2 = v_besch73 "recoudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recourir_V2 = v_besch33 "recourir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
recouvrir_V2 = v_besch27 "recouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
récrire_V2 = v_besch80 "récrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recroître_V2 = v_besch67 "recroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
récrire_V2 = v_besch80 "récrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recroître_V2 = v_besch67 "recroître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recueillir_V2 = v_besch28 "recueillir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
recuire_V2 = v_besch82 "recuire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redécouvrir_V2 = v_besch27 "redécouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redéfaire_V2 = v_besch62 "redéfaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redécouvrir_V2 = v_besch27 "redécouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redéfaire_V2 = v_besch62 "redéfaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redescendre_V2 = v_besch53 "redescendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redevenir_V = v_besch23 "redevenir" ** {vtyp = vEsse ; lock_V = <>} ;
redevoir_V2 = v_besch42 "redevoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
redire_V2 = v_besch78 "redire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réduire_V2 = v_besch82 "réduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
réécrire_V2 = v_besch80 "réécrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réélire_V2 = v_besch77 "réélire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réentendre_V2 = v_besch53 "réentendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réduire_V2 = v_besch82 "réduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
réécrire_V2 = v_besch80 "réécrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réélire_V2 = v_besch77 "réélire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réentendre_V2 = v_besch53 "réentendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
refaire_V2 = v_besch62 "refaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
refendre_V2 = v_besch53 "refendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
refondre_V2 = v_besch53 "refondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réinscrire_V2 = v_besch80 "réinscrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réintroduire_V2 = v_besch82 "réintroduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réinscrire_V2 = v_besch80 "réinscrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
réintroduire_V2 = v_besch82 "réintroduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rejoindre_V2 = v_besch58 "rejoindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
relire_V2 = v_besch77 "relire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reluire_V2 = v_besch82 "reluire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
remettre_V2 = v_besch56 "remettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
remordre_V2 = v_besch53 "remordre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
remoudre_V2 = v_besch74 "remoudre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
renaître_V2 = v_besch65 "renaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
renaître_V2 = v_besch65 "renaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rendormir_V2 = v_besch32 "rendormir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rendre_V2 = v_besch53 "rendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rentraire_V2 = v_besch61 "rentraire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rentrouvrir_V2 = v_besch27 "rentrouvrir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
renvoyer_V2 = v_besch18 "renvoyer" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
repaître_V2 = v_besch66 "repaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
répandre_V2 = v_besch53 "répandre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reparaître_V = v_besch64 "reparaître" ** {vtyp = vEsse ; lock_V = <>} ;
repaître_V2 = v_besch66 "repaître" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
répandre_V2 = v_besch53 "répandre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reparaître_V = v_besch64 "reparaître" ** {vtyp = vEsse ; lock_V = <>} ;
repartir_V = v_besch25 "repartir" ** {vtyp = vEsse ; lock_V = <>} ;
repeindre_V2 = v_besch57 "repeindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rependre_V2 = v_besch53 "rependre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
repentir_V = v_besch25 "repentir" ** {vtyp = vHabere ; lock_V = <> ; c2 = complAcc} ;
reperdre_V2 = v_besch53 "reperdre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
repleuvoir_V = v_besch45 "repleuvoir" ** {vtyp = vHabere ; lock_V = <>} ;
répondre_V2 = v_besch53 "répondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
répondre_V2 = v_besch53 "répondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reprendre_V2 = v_besch54 "reprendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
reproduire_V2 = v_besch82 "reproduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
requérir_V2 = v_besch24 "requérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
résoudre_V2 = mkNV (conj3résoudre "résoudre") ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
requérir_V2 = v_besch24 "requérir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
résoudre_V2 = mkNV (conj3résoudre "résoudre") ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ressentir_V2 = v_besch25 "ressentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complGen} ;
resservir_V2 = v_besch35 "resservir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
ressortir_V = v_besch25 "ressortir" ** {vtyp = vEsse ; lock_V = <>} ;
@@ -330,11 +330,11 @@ lin
retraire_V2 = v_besch61 "retraire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
retranscrire_V2 = v_besch80 "retranscrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
retransmettre_V2 = v_besch56 "retransmettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rétreindre_V2 = v_besch57 "rétreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
rétreindre_V2 = v_besch57 "rétreindre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revaloir_V2 = v_besch47 "revaloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revendre_V2 = v_besch53 "revendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revenir_V = v_besch23 "revenir" ** {vtyp = vEsse ; lock_V = <>} ;
revêtir_V2 = v_besch26 "revêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revêtir_V2 = v_besch26 "revêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revivre_V2 = v_besch76 "revivre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revoir_V2 = v_besch39 "revoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
revouloir_V2 = v_besch48 "revouloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -345,7 +345,7 @@ lin
satisfaire_V2 = v_besch62 "satisfaire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complDat} ;
savoir_V2 = v_besch41 "savoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
secourir_V2 = v_besch33 "secourir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
séduire_V2 = v_besch82 "séduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
séduire_V2 = v_besch82 "séduire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
sentir_V2 = v_besch25 "sentir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
seoir_V = v_besch50 "seoir" ** {vtyp = vHabere ; lock_V = <>} ;
servir_V2 = v_besch35 "servir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
@@ -381,14 +381,14 @@ lin
traire_V2 = v_besch61 "traire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
transcrire_V2 = v_besch80 "transcrire" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
transmettre_V2 = v_besch56 "transmettre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
transparaître_V = v_besch64 "transparaître" ** {vtyp = vHabere ; lock_V = <>} ;
tréfondre_V2 = v_besch53 "tréfondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
transparaître_V = v_besch64 "transparaître" ** {vtyp = vHabere ; lock_V = <>} ;
tréfondre_V2 = v_besch53 "tréfondre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
tressaillir_V = v_besch29 "tressaillir" ** {vtyp = vHabere ; lock_V = <>} ;
vaincre_V2 = v_besch60 "vaincre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
valoir_V2 = v_besch47 "valoir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
vendre_V2 = v_besch53 "vendre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
venir_V = v_besch23 "venir" ** {vtyp = vEsse ; lock_V = <>} ;
vêtir_V2 = v_besch26 "vêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
vêtir_V2 = v_besch26 "vêtir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
vivre_V2 = v_besch76 "vivre" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
voir_V2 = v_besch39 "voir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;
vouloir_V2 = v_besch48 "vouloir" ** {vtyp = vHabere ; lock_V2 = <> ; c2 = complAcc} ;

214
lib/src/french/IrregFreAbs.gf
View File

@@ -1,11 +1,11 @@
--# -path=.:../romance:../abstract:../../prelude
--# -coding=latin1
-- Irregular verbs from Nancy, based on a list from Sylvain Pogodalla, 25/11/2004
-- Translated to GF by Aarne Ranta
-- added extracted subcat information 29/11
abstract IrregFreAbs = Cat ** {
flags coding=utf8 ;
-- all verbs in classes with "er" and "ir" like "finir" are omitted
@@ -15,15 +15,15 @@ fun
abstenir_V : V ;
abstraire_V2 : V2 ;
accourir_V : V ;
accroître_V2 : V2 ;
accroître_V2 : V2 ;
accueillir_V2 : V2 ;
acquérir_V2 : V2 ;
acquérir_V2 : V2 ;
adjoindre_V2 : V2 ;
admettre_V2 : V2 ;
advenir_V : V ;
aller_V : V ;
apercevoir_V2 : V2 ;
apparaître_V : V ;
apparaître_V : V ;
appartenir_V2 : V2 ;
appendre_V2 : V2 ;
apprendre_V2 : V2 ;
@@ -44,7 +44,7 @@ fun
clore_V2 : V2 ;
combattre_V2 : V2 ;
commettre_V2 : V2 ;
comparaître_V2 : V2 ;
comparaître_V2 : V2 ;
complaire_V2 : V2 ;
comprendre_V2 : V2 ;
compromettre_V2 : V2 ;
@@ -56,8 +56,8 @@ fun
confire_V2 : V2 ;
confondre_V2 : V2 ;
conjoindre_V2 : V2 ;
connaître_V2 : V2 ;
conquérir_V2 : V2 ;
connaître_V2 : V2 ;
conquérir_V2 : V2 ;
consentir_V2 : V2 ;
construire_V2 : V2 ;
contenir_V2 : V2 ;
@@ -75,67 +75,67 @@ fun
couvrir_V2 : V2 ;
craindre_V2 : V2 ;
croire_V2 : V2 ;
croître_V : V ;
croître_V : V ;
cueillir_V2 : V2 ;
cuire_V2 : V2 ;
débattre_V2 : V2 ;
débouillir_V2 : V2 ;
décevoir_V2 : V2 ;
déchoir_V2 : V2 ;
déclore_V2 : V2 ;
décommettre_V2 : V2 ;
déconfire_V2 : V2 ;
découdre_V2 : V2 ;
découvrir_V2 : V2 ;
décrire_V2 : V2 ;
décroître_V2 : V2 ;
décuire_V2 : V2 ;
déduire_V2 : V2 ;
défaillir_V : V ;
défaire_V2 : V2 ;
défendre_V2 : V2 ;
démentir_V2 : V2 ;
démettre_V2 : V2 ;
démordre_V : V ;
départir_V2 : V2 ;
dépeindre_V2 : V2 ;
dépendre_V2 : V2 ;
déplaire_V : V ;
dépourvoir_V2 : V2 ;
déprendre_V2 : V2 ;
désapprendre_V2 : V2 ;
débattre_V2 : V2 ;
débouillir_V2 : V2 ;
décevoir_V2 : V2 ;
déchoir_V2 : V2 ;
déclore_V2 : V2 ;
décommettre_V2 : V2 ;
déconfire_V2 : V2 ;
découdre_V2 : V2 ;
découvrir_V2 : V2 ;
décrire_V2 : V2 ;
décroître_V2 : V2 ;
décuire_V2 : V2 ;
déduire_V2 : V2 ;
défaillir_V : V ;
défaire_V2 : V2 ;
défendre_V2 : V2 ;
démentir_V2 : V2 ;
démettre_V2 : V2 ;
démordre_V : V ;
départir_V2 : V2 ;
dépeindre_V2 : V2 ;
dépendre_V2 : V2 ;
déplaire_V : V ;
dépourvoir_V2 : V2 ;
déprendre_V2 : V2 ;
désapprendre_V2 : V2 ;
descendre_V2 : V2 ;
desservir_V2 : V2 ;
déteindre_V2 : V2 ;
détendre_V2 : V2 ;
détenir_V2 : V2 ;
détordre_V2 : V2 ;
détruire_V2 : V2 ;
déteindre_V2 : V2 ;
détendre_V2 : V2 ;
détenir_V2 : V2 ;
détordre_V2 : V2 ;
détruire_V2 : V2 ;
devenir_V : V ;
dévętir_V2 : V2 ;
dévêtir_V2 : V2 ;
devoir_V2 : V2 ;
dire_V2 : V2 ;
disconvenir_V2 : V2 ;
discourir_V2 : V2 ;
disjoindre_V2 : V2 ;
disparaître_V2 : V2 ;
disparaître_V2 : V2 ;
dissoudre_V2 : V2 ;
distendre_V2 : V2 ;
distordre_V2 : V2 ;
distraire_V2 : V2 ;
dormir_V2 : V2 ;
ébattre_V : V ;
échoir_V2 : V2 ;
éclore_V2 : V2 ;
éconduire_V2 : V2 ;
écrire_V2 : V2 ;
élire_V2 : V2 ;
ébattre_V : V ;
échoir_V2 : V2 ;
éclore_V2 : V2 ;
éconduire_V2 : V2 ;
écrire_V2 : V2 ;
élire_V2 : V2 ;
embatre_V2 : V2 ;
embattre_V2 : V2 ;
emboire_V : V ;
émettre_V2 : V2 ;
émoudre_V2 : V2 ;
émouvoir_V2 : V2 ;
émettre_V2 : V2 ;
émoudre_V2 : V2 ;
émouvoir_V2 : V2 ;
empreindre_V2 : V2 ;
enceindre_V2 : V2 ;
enclore_V2 : V2 ;
@@ -145,12 +145,12 @@ fun
enfreindre_V2 : V2 ;
enfuir_V : V ;
enjoindre_V2 : V2 ;
enquérir_V : V ;
enquérir_V : V ;
entendre_V2 : V2 ;
entr'apercevoir_V : V ;
entrebattre_V : V ;
entre_détruire_V : V ;
entre_haďr_V : V ;
entre_détruire_V : V ;
entre_haïr_V : V ;
entremettre_V : V ;
entre_nuire_V : V ;
entreprendre_V2 : V2 ;
@@ -158,14 +158,14 @@ fun
entrevoir_V2 : V2 ;
entrouvrir_V2 : V2 ;
envoyer_V2 : V2 ;
épandre_V2 : V2 ;
éperdre_V : V ;
éprendre_V : V ;
équivaloir_V2 : V2 ;
éteindre_V2 : V2 ;
étendre_V2 : V2 ;
étreindre_V2 : V2 ;
ętre_V : V ;
épandre_V2 : V2 ;
éperdre_V : V ;
éprendre_V : V ;
équivaloir_V2 : V2 ;
éteindre_V2 : V2 ;
étendre_V2 : V2 ;
étreindre_V2 : V2 ;
être_V : V ;
exclure_V2 : V2 ;
extraire_V2 : V2 ;
faillir_V2 : V2 ;
@@ -179,8 +179,8 @@ fun
frire_V2 : V2 ;
fuir_V2 : V2 ;
geindre_V2 : V2 ;
gésir_V2 : V2 ;
haďr_V2 : V2 ;
gésir_V2 : V2 ;
haïr_V2 : V2 ;
inclure_V2 : V2 ;
induire_V2 : V2 ;
inscrire_V2 : V2 ;
@@ -194,20 +194,20 @@ fun
luire_V : V ;
mainmettre_V2 : V2 ;
maintenir_V2 : V2 ;
méconnaître_V2 : V2 ;
mécroire_V2 : V2 ;
médire_V2 : V2 ;
méconnaître_V2 : V2 ;
mécroire_V2 : V2 ;
médire_V2 : V2 ;
mentir_V2 : V2 ;
méprendre_V2 : V2 ;
méprendre_V2 : V2 ;
messeoir_V2 : V2 ;
mettre_V2 : V2 ;
mévendre_V2 : V2 ;
mévendre_V2 : V2 ;
mordre_V2 : V2 ;
morfondre_V : V ;
moudre_V2 : V2 ;
mourir_V : V ;
mouvoir_V2 : V2 ;
naître_V : V ;
naître_V : V ;
nuire_V2 : V2 ;
obtenir_V2 : V2 ;
obvenir_V : V ;
@@ -215,11 +215,11 @@ fun
offrir_V2 : V2 ;
oindre_V2 : V2 ;
omettre_V2 : V2 ;
ouďr_V2 : V2 ;
ouïr_V2 : V2 ;
ouvrir_V2 : V2 ;
paître_V2 : V2 ;
paître_V : V ;
paraître_V : V ;
paître_V2 : V2 ;
paître_V : V ;
paraître_V : V ;
parcourir_V2 : V2 ;
parfondre_V2 : V2 ;
partir_V : V ;
@@ -238,14 +238,14 @@ fun
poursuivre_V2 : V2 ;
pourvoir_V2 : V2 ;
pouvoir_V : V ;
prédire_V2 : V2 ;
prédire_V2 : V2 ;
prendre_V2 : V2 ;
prescrire_V2 : V2 ;
pressentir_V2 : V2 ;
prétendre_V2 : V2 ;
prévaloir_V2 : V2 ;
prévenir_V2 : V2 ;
prévoir_V2 : V2 ;
prétendre_V2 : V2 ;
prévaloir_V2 : V2 ;
prévenir_V2 : V2 ;
prévoir_V2 : V2 ;
produire_V2 : V2 ;
promettre_V2 : V2 ;
promouvoir_V2 : V2 ;
@@ -255,64 +255,64 @@ fun
raire_V2 : V2 ;
rapprendre_V2 : V2 ;
rasseoir_V2 : V2 ;
réadmettre_V2 : V2 ;
réapparaître_V : V ;
réapprendre_V2 : V2 ;
réadmettre_V2 : V2 ;
réapparaître_V : V ;
réapprendre_V2 : V2 ;
rebattre_V2 : V2 ;
recevoir_V2 : V2 ;
recomparaître_V2 : V2 ;
recomparaître_V2 : V2 ;
reconduire_V2 : V2 ;
reconnaître_V2 : V2 ;
reconquérir_V2 : V2 ;
reconnaître_V2 : V2 ;
reconquérir_V2 : V2 ;
reconstruire_V2 : V2 ;
recoudre_V2 : V2 ;
recourir_V2 : V2 ;
recouvrir_V2 : V2 ;
récrire_V2 : V2 ;
recroître_V2 : V2 ;
récrire_V2 : V2 ;
recroître_V2 : V2 ;
recueillir_V2 : V2 ;
recuire_V2 : V2 ;
redécouvrir_V2 : V2 ;
redéfaire_V2 : V2 ;
redécouvrir_V2 : V2 ;
redéfaire_V2 : V2 ;
redescendre_V2 : V2 ;
redevenir_V : V ;
redevoir_V2 : V2 ;
redire_V2 : V2 ;
réduire_V2 : V2 ;
réécrire_V2 : V2 ;
réélire_V2 : V2 ;
réentendre_V2 : V2 ;
réduire_V2 : V2 ;
réécrire_V2 : V2 ;
réélire_V2 : V2 ;
réentendre_V2 : V2 ;
refaire_V2 : V2 ;
refendre_V2 : V2 ;
refondre_V2 : V2 ;
réinscrire_V2 : V2 ;
réintroduire_V2 : V2 ;
réinscrire_V2 : V2 ;
réintroduire_V2 : V2 ;
rejoindre_V2 : V2 ;
relire_V2 : V2 ;
reluire_V2 : V2 ;
remettre_V2 : V2 ;
remordre_V2 : V2 ;
remoudre_V2 : V2 ;
renaître_V2 : V2 ;
renaître_V2 : V2 ;
rendormir_V2 : V2 ;
rendre_V2 : V2 ;
rentraire_V2 : V2 ;
rentrouvrir_V2 : V2 ;
renvoyer_V2 : V2 ;
repaître_V2 : V2 ;
répandre_V2 : V2 ;
reparaître_V : V ;
repaître_V2 : V2 ;
répandre_V2 : V2 ;
reparaître_V : V ;
repartir_V : V ;
repeindre_V2 : V2 ;
rependre_V2 : V2 ;
repentir_V : V ;
reperdre_V2 : V2 ;
repleuvoir_V : V ;
répondre_V2 : V2 ;
répondre_V2 : V2 ;
reprendre_V2 : V2 ;
reproduire_V2 : V2 ;
requérir_V2 : V2 ;
résoudre_V2 : V2 ;
requérir_V2 : V2 ;
résoudre_V2 : V2 ;
ressentir_V2 : V2 ;
resservir_V2 : V2 ;
ressortir_V : V ;
@@ -327,11 +327,11 @@ fun
retraire_V2 : V2 ;
retranscrire_V2 : V2 ;
retransmettre_V2 : V2 ;
rétreindre_V2 : V2 ;
rétreindre_V2 : V2 ;
revaloir_V2 : V2 ;
revendre_V2 : V2 ;
revenir_V : V ;
revętir_V2 : V2 ;
revêtir_V2 : V2 ;
revivre_V2 : V2 ;
revoir_V2 : V2 ;
revouloir_V2 : V2 ;
@@ -342,7 +342,7 @@ fun
satisfaire_V2 : V2 ;
savoir_V2 : V2 ;
secourir_V2 : V2 ;
séduire_V2 : V2 ;
séduire_V2 : V2 ;
sentir_V2 : V2 ;
seoir_V : V ;
servir_V2 : V2 ;
@@ -378,14 +378,14 @@ fun
traire_V2 : V2 ;
transcrire_V2 : V2 ;
transmettre_V2 : V2 ;
transparaître_V : V ;
tréfondre_V2 : V2 ;
transparaître_V : V ;
tréfondre_V2 : V2 ;
tressaillir_V : V ;
vaincre_V2 : V2 ;
valoir_V2 : V2 ;
vendre_V2 : V2 ;
venir_V : V ;
vętir_V2 : V2 ;
vêtir_V2 : V2 ;
vivre_V2 : V2 ;
voir_V2 : V2 ;
vouloir_V2 : V2 ;

98
lib/src/french/LexiconFre.gf
View File

@@ -1,29 +1,29 @@
--# -path=.:../romance:../common:../abstract:../../prelude
--# -coding=latin1
concrete LexiconFre of Lexicon = CatFre **
open (M = MorphoFre), PhonoFre, ParadigmsFre, IrregFre in {
flags
coding=utf8 ;
optimize=values ;
lin
airplane_N = regGenN "avion" masculine ;
answer_V2S = mkV2S (v2V répondre_V2) dative ;
answer_V2S = mkV2S (v2V répondre_V2) dative ;
apartment_N = regGenN "apartement" masculine ;
apple_N = regGenN "pomme" feminine ;
art_N = regGenN "art" feminine ;
ask_V2Q = mkV2Q (regV "demander") dative ;
baby_N = regGenN "bébé" masculine ;
baby_N = regGenN "bébé" masculine ;
bad_A = prefA (mkADeg (regA "mauvais") (regA "pire")) ;
bank_N = regGenN "banque" feminine ;
beautiful_A =
prefA (compADeg (mkA (pre {voyelle => "bel" ; _ => "beau" }) "belle" "beaux" "bellement")) ;
become_VA = mkVA devenir_V ;
beer_N = regGenN "bière" feminine ;
beer_N = regGenN "bière" feminine ;
beg_V2V = mkV2V (regV "demander") accusative dative ;
big_A = prefA (regA "grand") ;
bike_N = regGenN "vélo" masculine ;
bike_N = regGenN "vélo" masculine ;
bird_N = regGenN "oiseau" masculine ;
black_A = regA "noir" ;
blue_A = regA "bleu" ;
@@ -31,14 +31,14 @@ lin
book_N = regGenN "livre" masculine ;
boot_N = regGenN "botte" feminine ;
boss_N = regGenN "chef" masculine ;
boy_N = regGenN "garçon" masculine ;
boy_N = regGenN "garçon" masculine ;
bread_N = regGenN "pain" masculine ;
break_V2 = dirV2 (regV "casser") ;
broad_A = regA "large" ;
brother_N2 = deN2 (regGenN "frère" masculine) ;
brother_N2 = deN2 (regGenN "frère" masculine) ;
brown_A = regA "brun" ;
butter_N = regGenN "beurre" masculine ;
buy_V2 = dirV2 (reg3V "acheter" "achète" "achètera") ;
buy_V2 = dirV2 (reg3V "acheter" "achète" "achètera") ;
camera_N = compN (regGenN "appareil" masculine) ["de photo"] ;
cap_N = regGenN "casquette" feminine ;
car_N = regGenN "voiture" feminine ;
@@ -48,7 +48,7 @@ lin
chair_N = regGenN "chaise" feminine ;
cheese_N = regGenN "fromage" masculine ;
child_N = regGenN "enfant" masculine ;
church_N = regGenN "église" feminine ;
church_N = regGenN "église" feminine ;
city_N = regGenN "ville" feminine ;
clean_A = regA "propre" ;
clever_A = regA "sage" ; ----
@@ -63,7 +63,7 @@ lin
die_V = mourir_V ;
dirty_A = regA "sale" ;
distance_N3 = mkN3 (regGenN "distance" feminine) genitive dative ;
doctor_N = regGenN "médecin" masculine ;
doctor_N = regGenN "médecin" masculine ;
dog_N = regGenN "chien" masculine ;
door_N = regGenN "porte" feminine ;
drink_V2 = boire_V2 ;
@@ -72,7 +72,7 @@ lin
empty_A = regA "vide" ;
enemy_N = regGenN "ennemi" masculine ;
factory_N = regGenN "usine" feminine ;
father_N2 = deN2 (regGenN "père" masculine) ;
father_N2 = deN2 (regGenN "père" masculine) ;
fear_VS = mkVS (v2V craindre_V2) ;
fear_V2 = dirV2 (v2V craindre_V2) ;
find_V2 = dirV2 (regV "trouver") ;
@@ -92,11 +92,11 @@ lin
go_V = aller_V ;
green_A = regA "vert" ;
harbour_N = regGenN "port" masculine ;
hate_V2 = haïr_V2 ;
hate_V2 = haïr_V2 ;
hat_N = regGenN "chapeau" masculine ;
hear_V2 = entendre_V2 ;
hill_N = regGenN "colline" feminine ;
hope_VS = mkVS (reg3V "espérer" "espère" "espérera") ;
hope_VS = mkVS (reg3V "espérer" "espère" "espérera") ;
horse_N = regGenN "cheval" masculine ;
hot_A = regA "chaud" ;
house_N = regGenN "maison" feminine ;
@@ -104,7 +104,7 @@ lin
industry_N = regGenN "industrie" feminine ;
iron_N = regGenN "fer" masculine ;
king_N = regGenN "roi" masculine ;
know_V2 = connaître_V2 ;
know_V2 = connaître_V2 ;
know_VQ = mkVQ (lin V savoir_V2) ;
know_VS = mkVS (lin V savoir_V2) ;
lake_N = regGenN "lac" masculine ;
@@ -113,21 +113,21 @@ lin
leather_N = regGenN "cuir" masculine ;
leave_V2 = dirV2 (regV "quitter") ;
like_V2 = dirV2 (regV "aimer") ;
listen_V2 = dirV2 (regV "écouter") ;
listen_V2 = dirV2 (regV "écouter") ;
live_V = v2V vivre_V2 ;
long_A = compADeg (mkA "long" "longue" "longs" "longuement") ;
lose_V2 = perdre_V2 ;
love_N = regGenN "amour" masculine ;
love_V2 = dirV2 (regV "aimer") ;
man_N = regGenN "homme" masculine ;
married_A2 = mkA2 (regA "marié") dative ;
married_A2 = mkA2 (regA "marié") dative ;
meat_N = regGenN "viande" feminine ;
milk_N = regGenN "lait" masculine ;
moon_N = regGenN "lune" feminine ;
mother_N2 = deN2 (regGenN "mère" feminine) ;
mother_N2 = deN2 (regGenN "mère" feminine) ;
mountain_N = regGenN "montagne" feminine ;
music_N = regGenN "musique" feminine ;
narrow_A = regA "étroit" ;
narrow_A = regA "étroit" ;
new_A =
prefA (compADeg (mkA (pre {voyelle => "nouvel" ; _ => "nouveau" }) "nouvelle" "nouveaux" "nouvellement")) ;
newspaper_N = regGenN "journal" masculine ;
@@ -140,11 +140,11 @@ lin
paris_PN = mkPN "Paris" masculine ;
peace_N = regGenN "paix" feminine ;
pen_N = regGenN "stylo" masculine ;
planet_N = regGenN "planète" feminine ;
planet_N = regGenN "planète" feminine ;
plastic_N = regGenN "plastic" masculine ;
play_V2 = dirV2 (regV "jouer") ;
policeman_N = regGenN "policier" masculine ;
priest_N = regGenN "prêtre" masculine ;
priest_N = regGenN "prêtre" masculine ;
probable_AS = mkAS (regA "probable") ;
queen_N = regGenN "reine" feminine ;
radio_N = regGenN "radio" feminine ;
@@ -153,13 +153,13 @@ lin
red_A = regA "rouge" ;
religion_N = regGenN "religion" feminine ;
restaurant_N = regGenN "restaurant" masculine ;
river_N = regGenN "rivière" feminine ;
river_N = regGenN "rivière" feminine ;
rock_N = regGenN "rocher" masculine ;
roof_N = regGenN "toit" masculine ;
rubber_N = regGenN "caoutchuc" masculine ;
run_V = v2V courir_V2 ;
say_VS = mkVS (v2V dire_V2) ;
school_N = regGenN "école" feminine ;
school_N = regGenN "école" feminine ;
science_N = regGenN "science" feminine ;
sea_N = regGenN "mer" feminine ;
seek_V2 = dirV2 (regV "chercher") ;
@@ -179,21 +179,21 @@ lin
snake_N = regGenN "serpent" masculine ;
sock_N = regGenN "chaussette" feminine ;
speak_V2 = dirV2 (regV "parler") ;
star_N = regGenN "étoile" feminine ;
star_N = regGenN "étoile" feminine ;
steel_N = regGenN "acier" masculine ;
stone_N = regGenN "pierre" feminine ;
stove_N = regGenN "four" masculine ;
student_N = regGenN "étudiant" masculine ;
student_N = regGenN "étudiant" masculine ;
stupid_A = regA "stupide" ;
sun_N = regGenN "soleil" masculine ;
switch8off_V2 = éteindre_V2 ;
switch8off_V2 = éteindre_V2 ;
switch8on_V2 = dirV2 (regV "allumer") ; ----
table_N = regGenN "table" feminine ;
talk_V3 = mkV3 (regV "parler") dative genitive ;
teacher_N = regGenN "professeur" masculine ;
teach_V2 = dirV2 (regV "enseigner") ;
television_N = regGenN "télévision" feminine ;
thick_A = compADeg (mkA "épais" "épaisse" "épais" "épaissement") ;
television_N = regGenN "télévision" feminine ;
thick_A = compADeg (mkA "épais" "épaisse" "épais" "épaissement") ;
thin_A = regA "fin" ;
train_N = regGenN "train" masculine ;
travel_V = regV "voyager" ;
@@ -201,7 +201,7 @@ lin
---- trousers_N = regGenN "pantalon" masculine ;
ugly_A = regA "laide" ;
understand_V2 = comprendre_V2 ;
university_N = regGenN "université" feminine ;
university_N = regGenN "université" feminine ;
village_N = regGenN "village" masculine ;
wait_V2 = attendre_V2 ;
walk_V = regV "marcher" ;
@@ -210,32 +210,32 @@ lin
watch_V2 = dirV2 (regV "regarder") ;
water_N = regGenN "eau" feminine ;
white_A = compADeg (mkA "blanc" "blanche" "blancs" "blanchement") ;
window_N = regGenN "fenêtre" feminine ;
window_N = regGenN "fenêtre" feminine ;
wine_N = regGenN "vin" masculine ;
win_V2 = dirV2 (regV "gagner") ; ---- vaincre
woman_N = regGenN "femme" feminine ;
wonder_VQ = mkVQ (reflV (regV "demander")) ;
wood_N = regGenN "bois" masculine ;
write_V2 = écrire_V2 ;
write_V2 = écrire_V2 ;
yellow_A = regA "jaune" ;
young_A = prefA (regA "jeune") ;
do_V2 = faire_V2 ;
now_Adv = mkAdv "maintenant" ;
already_Adv = mkAdv "déjà" ;
already_Adv = mkAdv "déjà" ;
song_N = regGenN "chanson" feminine ;
add_V3 = dirV3 (regV "ajouter") dative ;
number_N = regGenN "nombre" masculine ; ---- numéro
number_N = regGenN "nombre" masculine ; ---- numéro
put_V2 = mettre_V2 ;
stop_V = reflV (regV "arrêter") ;
stop_V = reflV (regV "arrêter") ;
jump_V = regV "sauter" ;
left_Ord = M.mkOrd (regA "gauche") ;
right_Ord = M.mkOrd (regA "droite") ;
far_Adv = mkAdv "loin" ;
correct_A = regA "correct" ;
dry_A = (mkA "sec" "sèche" "secs" "sèches") ;
dull_A = regA "émoussé" ;
dry_A = (mkA "sec" "sèche" "secs" "sèches") ;
dull_A = regA "émoussé" ;
full_A = regA "plein" ;
heavy_A = regA "lourd" ;
near_A = regA "proche" ;
@@ -244,19 +244,19 @@ lin
sharp_A = regA "tranchant" ;
smooth_A = regA "lisse" ;
straight_A = regA "droite" ;
wet_A = regA "mouillé" ;
wet_A = regA "mouillé" ;
wide_A = regA "large" ;
animal_N = regN "animal" ;
ashes_N = regGenN "cendre" masculine ;
back_N = regN "dos" ;
bark_N = regN "écorce" ;
bark_N = regN "écorce" ;
belly_N = regGenN "ventre" masculine ;
blood_N = regN "sang" ;
bone_N = regN "os" ;
breast_N = regN "sein" ; --- poitrine
cloud_N = regGenN "nuage" masculine ;
day_N = regN "jour" ;
dust_N = regN "poussière" ;
dust_N = regN "poussière" ;
ear_N = regN "oreille" ;
earth_N = regN "terre" ;
egg_N = regN "oeuf" ;
@@ -268,12 +268,12 @@ lin
flower_N = regGenN "fleur" feminine ;
fog_N = regN "brouillard" ;
foot_N = regN "pied" ;
forest_N = regGenN "forêt" feminine ;
forest_N = regGenN "forêt" feminine ;
grass_N = regN "herbe" ;
guts_N = regN "entraille" ;
hair_N = regN "cheveu" ;
hand_N = regGenN "main" feminine ;
head_N = regN "tête" ;
head_N = regN "tête" ;
heart_N = regN "coeur" ;
horn_N = regGenN "corne" masculine ;
husband_N = regN "mari" ;
@@ -298,9 +298,9 @@ lin
seed_N = regN "graine" ;
skin_N = regN "peau" ;
sky_N = mkN "ciel" "cieux" masculine ;
smoke_N = regN "fumée" ;
smoke_N = regN "fumée" ;
snow_N = regN "neige" ;
stick_N = regN "bâton" ;
stick_N = regN "bâton" ;
tail_N = regN "queue" ;
tongue_N = regN "langue" ;
tooth_N = regGenN "dent" feminine ;
@@ -308,11 +308,11 @@ lin
wind_N = regN "vent" ;
wing_N = regN "aile" ;
worm_N = regN "ver" ;
year_N = regN "an" ; --- année
year_N = regN "an" ; --- année
bite_V2 = mordre_V2 ;
blow_V = regV "souffler" ;
breathe_V = regV "respirer" ;
burn_V = regV "brûler" ;
burn_V = regV "brûler" ;
count_V2 = dirV2 (regV "conter") ;
cut_V2 = dirV2 (regV "tailler") ;
dig_V = regV "creuser" ;
@@ -321,13 +321,13 @@ lin
float_V = regV "flotter" ;
flow_V = regV "couler" ;
fly_V = regV "voler" ;
freeze_V = reg3V "geler" "gèle" "gèlera" ;
freeze_V = reg3V "geler" "gèle" "gèlera" ;
give_V3 = dirdirV3 (regV "donner") ;
hit_V2 = dirV2 (regV "frapper") ;
hunt_V2 = dirV2 (regV "chasser") ;
kill_V2 = dirV2 (regV "tuer") ;
laugh_V = rire_V2 ;
lie_V = reflV (v2V étendre_V2) ;
lie_V = reflV (v2V étendre_V2) ;
play_V = regV "jouer" ;
pull_V2 = dirV2 (regV "tirer") ;
push_V2 = dirV2 (regV "pousser") ;
@@ -340,7 +340,7 @@ lin
spit_V = regV "cracher" ;
squeeze_V2 = dirV2 (regV "serrer") ;
stab_V2 = dirV2 (regV "poignarder") ;
stand_V = reflV (reg3V "lever" "lève" "lèvera") ;
stand_V = reflV (reg3V "lever" "lève" "lèvera") ;
suck_V2 = dirV2 (regV "sucer") ;
swell_V = regV "gonfler" ;
swim_V = regV "nager" ;
@@ -358,11 +358,11 @@ lin
grammar_N = regN "grammaire" ;
language_N = regN "langue" ;
rule_N = regN "règle" ;
rule_N = regN "règle" ;
john_PN = regPN "Jean" ;
question_N = regN "question" ;
ready_A = regA "prêt" ;
ready_A = regA "prêt" ;
reason_N = regGenN "raison" feminine ;
today_Adv = mkAdv "aujourd'hui" ;
uncertain_A = regA "incertain" ;

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

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../../prelude
--# -coding=latin1
--1 A Simple French Resource Morphology
--
@@ -13,13 +12,14 @@ resource MorphoFre = CommonRomance, ResFre **
open PhonoFre, Prelude, Predef in {
flags optimize=noexpand ;
coding=utf8 ;
--2 Front vowels
--
-- In verb conjugation, we will need the concept of frontal vowel.
oper
voyelleFront : Strs = strs {"e" ; "i" ; "y" ; "é" ; "è"} ;
voyelleFront : Strs = strs {"e" ; "i" ; "y" ; "é" ; "è"} ;
preVoyelleFront : (_,_ : Str) -> Str = \t,u -> pre {t ; u / voyelleFront} ;
@@ -110,7 +110,7 @@ oper
in
mkAdj grand (grand + "s") grande (grande + "ment") ;
-- Masculine form used for adverbial; also covers "carré".
-- Masculine form used for adverbial; also covers "carré".
adjJoli : Str -> Adj = \joli ->
mkAdj joli (joli + "s") (joli + "e") (joli + "ment") ;
@@ -134,7 +134,7 @@ oper
adjCher : Str -> Adj = \cher ->
let {ch = Predef.tk 2 cher} in
mkAdj cher (cher + "s") (ch + "ère") (ch + "èrement") ;
mkAdj cher (cher + "s") (ch + "ère") (ch + "èrement") ;
mkAdjReg : Str -> Adj = \creux ->
case Predef.dp 3 creux of {
@@ -148,7 +148,7 @@ oper
"s" => adjFrancais creux ;
"x" => adjFrancais creux ;
"e" => adjJeune creux ;
"é" => adjJoli creux ;
"é" => adjJoli creux ;
"i" => adjJoli creux ;
_ => adjGrand creux
}
@@ -265,7 +265,7 @@ oper
_ + "a" => <affixPasseA,1> ;
_ + "it" => <affixPasseI,2> ;
_ + "ut" => <affixPasseU,2> ;
_ + "nt" => <affixPasse "in" "în",3> ;
_ + "nt" => <affixPasse "in" "în",3> ;
_ => Predef.error ("cannot form past tense from" ++ tint)
} ;
tin = Predef.tk affpasse.p2 tint ;
@@ -372,21 +372,21 @@ oper
} ;
affixPlMes : (_,_ : Str) -> Affixe =
\è, â -> lesAffixes (â + "mes") (â + "tes") (è + "rent") ;
\è, â -> lesAffixes (â + "mes") (â + "tes") (è + "rent") ;
affixPasseAi : Number => Affixe = table {
Sg => affixSgAi ;
Pl => affixPlMes "è" "â"
Pl => affixPlMes "è" "â"
} ;
affixPasseS : (i,î : Str) -> Number => Affixe = \i,î -> table {
affixPasseS : (i,î : Str) -> Number => Affixe = \i,î -> table {
Sg => table {p => i + affixSgS ! p} ;
Pl => affixPlMes i î
Pl => affixPlMes i î
} ;
affixSImparfSse : (i,î : Str) -> Number => Affixe = \i,î -> table {
affixSImparfSse : (i,î : Str) -> Number => Affixe = \i,î -> table {
Sg => table {
P3 => î + "t" ;
P3 => î + "t" ;
p => i + "ss" + affixSgE ! p
} ;
Pl => table {p => i + "ss" + affixSPres ! Pl ! p}
@@ -394,14 +394,14 @@ oper
AffixPasse : Type = {ps : Number => Affixe ; si : Number => Affixe} ;
affixPasse : (_,_ : Str) -> AffixPasse = \i, î ->
{ps = affixPasseS i î ; si = affixSImparfSse i î} ;
affixPasse : (_,_ : Str) -> AffixPasse = \i, î ->
{ps = affixPasseS i î ; si = affixSImparfSse i î} ;
affixPasseA : AffixPasse = {ps = affixPasseAi ; si = affixSImparfSse "a" "â"} ;
affixPasseA : AffixPasse = {ps = affixPasseAi ; si = affixSImparfSse "a" "â"} ;
affixPasseI : AffixPasse = affixPasse "i" "î" ;
affixPasseI : AffixPasse = affixPasse "i" "î" ;
affixPasseU : AffixPasse = affixPasse "u" "û" ;
affixPasseU : AffixPasse = affixPasse "u" "û" ;
affixPasseNonExist : AffixPasse =
let {aff : Number => Affixe =

32
lib/src/french/NumeralFre.gf
View File

@@ -1,6 +1,6 @@
--# -coding=latin1
concrete NumeralFre of Numeral = CatFre [Numeral,Digits] **
open CommonRomance, ResRomance, MorphoFre, Prelude in {
flags coding=utf8 ;
-- originally written in 1998, automatically translated to current notation...
-- last modified 24/1/2006, adding ordinals
@@ -14,9 +14,9 @@ oper
case co of {
NCard _ => ds ;
NOrd _ _ => case last ds of {
"q" => ds + "uième" ;
"e" => init ds + "ième" ;
_ => ds + "ième"
"q" => ds + "uième" ;
"e" => init ds + "ième" ;
_ => ds + "ième"
}
} ;
inh = d.inh ; n = d.n
@@ -67,13 +67,13 @@ lin n9 =
digitPl {inh = teen ; n = Pl ; s = table {unit => "neuf" ; teen => "dix-neuf" ; jten => "quatre-vingt-dix" ; ten => "quatre-vingt-dix" ; tenplus => "quatre-vingt"}} ;
lin pot01 =
{inh = Sg ; s = \\g => let dix = cardOrd g "dix" "dixième" in table {
{inh = Sg ; s = \\g => let dix = cardOrd g "dix" "dixième" in table {
{p1 = unit ; p2 = indep} =>
cardOrdG g "un" "une" "premier" "première" "premiers" "premières" ;
cardOrdG g "un" "une" "premier" "première" "premiers" "premières" ;
{p1 = unit ; p2 = postpo} =>
cardOrdG g "un" "une" "unième" "unième" "unième" "unième" ;
cardOrdG g "un" "une" "unième" "unième" "unième" "unième" ;
{p1 = unit ; p2 = attr} => [] ;
{p1 = teen ; p2 = indep | postpo} => cardOrd g "onze" "onzième" ;
{p1 = teen ; p2 = indep | postpo} => cardOrd g "onze" "onzième" ;
{p1 = teen ; p2 = attr} => [] ;
{p1 = jten ; p2 = indep | postpo} => dix ;
{p1 = jten ; p2 = attr} => [] ;
@@ -96,9 +96,9 @@ lin pot0 d =
{p1 = tenplus ; p2 = attr} => d.s ! g ! tenplus} ; n = Pl} ;
lin pot110 =
{s = \\g => table {_ => cardOrd g "dix" "dixième"} ; n = Pl} ;
{s = \\g => table {_ => cardOrd g "dix" "dixième"} ; n = Pl} ;
lin pot111 =
{s = \\g => table {_ => cardOrd g "onze" "onzième"} ; n = Pl} ;
{s = \\g => table {_ => cardOrd g "onze" "onzième"} ; n = Pl} ;
lin pot1to19 d =
{s = \\g => table {indep | postpo => d.s ! g ! teen ; attr => d.s ! g ! teen} ; n = Pl} ;
lin pot0as1 n =
@@ -122,8 +122,8 @@ lin pot1plus d e =
lin pot1as2 n = n ;
lin pot2 d =
{s = \\g => table {indep | postpo => (d.s ! NCard Masc ! {p1 = unit ; p2 = attr})
++ table {Sg => cardOrd g "cent" "centième" ; Pl => cardOrd g "cents" "centième"} ! (d.inh) ; attr => (d.s !
NCard Masc ! {p1 = unit ; p2 = attr}) ++ cardOrd g "cent" "centième"} ; n = Pl} ;
++ table {Sg => cardOrd g "cent" "centième" ; Pl => cardOrd g "cents" "centième"} ! (d.inh) ; attr => (d.s !
NCard Masc ! {p1 = unit ; p2 = attr}) ++ cardOrd g "cent" "centième"} ; n = Pl} ;
lin pot2plus d e =
{s = \\g => table {
attr => (d.s ! NCard Masc ! {p1 = unit ; p2 = attr}) ++ "cent" ++ e.s ! g ! indep ;
@@ -134,7 +134,7 @@ lin pot2plus d e =
lin pot2as3 n =
{s = \\g => n.s ! g ! indep ; n = n.n} ;
lin pot3 n =
{s = \\g => (n.s ! NCard Masc ! attr) ++ cardOrd g "mille" "millième" ; n = Pl} ;
{s = \\g => (n.s ! NCard Masc ! attr) ++ cardOrd g "mille" "millième" ; n = Pl} ;
lin pot3plus n m =
{s = \\g => (n.s ! NCard Masc ! attr) ++ "mille" ++ m.s ! g ! postpo ; n =
Pl} ;
@@ -155,8 +155,8 @@ lin pot3plus n m =
D_0 = mkDig "0" ;
D_1 = mk3Dig "1" "1er" Sg ; ---- gender
D_2 = mk2Dig "2" "2ème" ;
D_3 = mk2Dig "3" "3ème" ;
D_2 = mk2Dig "2" "2ème" ;
D_3 = mk2Dig "3" "3ème" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
@@ -166,7 +166,7 @@ lin pot3plus n m =
oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "ème") ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "ème") ;
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
s = table {NCard _ => c ; NOrd _ _ => o} ; ---- gender

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

@@ -1,5 +1,4 @@
--# -path=.:../romance:../common:../abstract:../../prelude
--# -coding=latin1
--1 French Lexical Paradigms
--
@@ -34,6 +33,7 @@ resource ParadigmsFre =
CatFre in {
flags optimize=all ;
coding=utf8 ;
--2 Parameters
--
@@ -55,15 +55,15 @@ oper
-- Prepositions used in many-argument functions are either strings
-- (including the 'accusative' empty string) or strings that
-- amalgamate with the following word (the 'genitive' "de" and the
-- 'dative' "à").
-- 'dative' "à").
accusative : Prep ; -- direct object case
genitive : Prep ; -- genitive, constructed with "de"
dative : Prep ; -- dative, usually constructed with "à"
dative : Prep ; -- dative, usually constructed with "à"
mkPrep : overload {
mkPrep : Str -> Prep ; -- simple preposition (other than "de" and "à")
mkPrep : Str -> Prep -> Prep ; -- complex preposition e.g. "à côté de"
mkPrep : Str -> Prep ; -- simple preposition (other than "de" and "à")
mkPrep : Str -> Prep -> Prep ; -- complex preposition e.g. "à côté de"
} ;
@@ -92,11 +92,11 @@ oper
--3 Compound nouns
--
-- Some nouns are ones where the first part is inflected as a noun but
-- the second part is not inflected. e.g. "numéro de téléphone".
-- the second part is not inflected. e.g. "numéro de téléphone".
-- They could be formed in syntax, but we give a shortcut here since
-- they are frequent in lexica.
mkN : N -> Str -> N -- compound noun, e.g. numéro + de téléphone
mkN : N -> Str -> N -- compound noun, e.g. numéro + de téléphone
} ;
@@ -108,13 +108,13 @@ oper
mkN2 : N -> Prep -> N2 ; -- e.g. fille + genitive
-- The most common cases are the genitive "de" and the dative "à",
-- The most common cases are the genitive "de" and the dative "à",
-- with the empty preposition.
deN2 : N -> N2 ; --%
aN2 : N -> N2 ; --%
-- Three-place relational nouns ("la connection de x à y") need two prepositions.
-- Three-place relational nouns ("la connection de x à y") need two prepositions.
mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connection + genitive + dative
@@ -122,7 +122,7 @@ oper
--3 Relational common noun phrases
--
-- In some cases, you may want to make a complex $CN$ into a
-- relational noun (e.g. "la vieille église de"). However, $N2$ and
-- relational noun (e.g. "la vieille église de"). However, $N2$ and
-- $N3$ are purely lexical categories. But you can use the $AdvCN$
-- and $PrepNP$ constructions to build phrases like this.
@@ -148,9 +148,9 @@ oper
-- masculine singular. The heuristic takes into account certain
-- deviant endings: "banal-banale-banaux", "chinois-chinoise-chinois",
-- "heureux-heureuse-heureux", "italien-italienne", "jeune-jeune",
-- "amer-amère", "carré- - -carrément", "joli- - -joliment".
-- "amer-amère", "carré- - -carrément", "joli- - -joliment".
mkA : (cher : Str) -> A ; -- predictable, e.g. cher-chère
mkA : (cher : Str) -> A ; -- predictable, e.g. cher-chère
-- Often just the feminine singular is deviant.
@@ -183,7 +183,7 @@ oper
--
-- Two-place adjectives need a preposition for their second argument.
mkA2 : A -> Prep -> A2 ; -- e.g. supérieur + dative
mkA2 : A -> Prep -> A2 ; -- e.g. supérieur + dative
--2 Adverbs
@@ -199,7 +199,7 @@ oper
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ; -- modify adjective, e.g. très
mkAdA : Str -> AdA ; -- modify adjective, e.g. très
--2 Verbs
@@ -212,7 +212,7 @@ oper
-- latter with plural present indicative forms as "finissons".
-- The regular verb function in the first conjugation recognizes
-- these endings, as well as the variations among
-- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer".
-- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer".
--
-- Sometimes, however, it is not predictable which variant of the "er"
-- conjugation is to be selected. Then it is better to use the function
@@ -243,13 +243,13 @@ oper
} ;
-- The function $mkV$ gives the default compound auxiliary "avoir".
-- To change it to "être", use the following function.
-- To change it to "être", use the following function.
etreV : V -> V ; -- force auxiliary to be être (default avoir)
etreV : V -> V ; -- force auxiliary to be être (default avoir)
-- This function turns a verb into reflexive, which implies the auxiliary "être".
-- This function turns a verb into reflexive, which implies the auxiliary "être".
reflV : V -> V ; -- reflexive, implies auxiliary être, e.g. se demander
reflV : V -> V ; -- reflexive, implies auxiliary être, e.g. se demander
--3 Two-place verbs
@@ -288,7 +288,7 @@ oper
subjVS : V -> VS ;
mkVV : V -> VV ; -- plain infinitive: "je veux parler"
deVV : V -> VV ; -- "j'essaie de parler"
aVV : V -> VV ; -- "j'arrive à parler"
aVV : V -> VV ; -- "j'arrive à parler"
mkV2S : overload {
mkV2S : V -> V2S ;
mkV2S : V -> Prep -> V2S ;
@@ -419,7 +419,7 @@ oper
mkV3 = overload {
mkV3 : V -> V3 = dirdirV3 ; -- donner,_,_
mkV3 : V -> Prep -> V3 = dirV3 ; -- placer,_,sur
mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler, à, de
mkV3 : V -> Prep -> Prep -> V3 = mmkV3 -- parler, à, de
} ;
V0 : Type = V ;
@@ -511,8 +511,8 @@ oper
v2V : V2 -> V ;
v2V v = v ** {lock_V = <>} ;
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
dirV3 : V -> Prep -> V3 ; -- donner,_,à
mmkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de
dirV3 : V -> Prep -> V3 ; -- donner,_,à
dirdirV3 : V -> V3 ; -- donner,_,_
getVerbT : (VF => Str) -> Bool = \v -> case last (v ! (VFin (VPres Indic) Sg P3)) of {

1
lib/src/french/TerminologyFre.gf
View File

@@ -10,6 +10,7 @@ concrete TerminologyFre of Terminology = CatFre ** open
Prelude
in {
flags coding=utf8 ;
lincat