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

fixed numeral agreement and some French verbs

Browse Source
This commit is contained in:
aarne
2005-03-14 09:46:22 +00:00
parent 049e8deca9
commit 4ee07b156e
18 changed files with 157 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource/french/MorphoFre.gf
View File

@@ -603,8 +603,8 @@ oper
_ => case verb_é of {
True => conj1céder parler ;
_ => case verb_e of {
True => conj1peser parler ;
_ => case Predef.dp 3 parler of {
---- True => conj1peser parler ;
False | _ => case Predef.dp 3 parler of {
"cer" => conj1placer parler ;
"ger" => conj1manger parler ;
"yer" => conj1payer parler ;
@@ -617,6 +617,13 @@ oper
}
} ;
-- The following can be more reliable.
mkVerb3Reg : Str -> Str -> Str -> Verbe = \jeter,jette,jettera ->
auxConj1
(Predef.tk 2 jeter)
(Predef.tk 1 jette)
(Predef.tk 1 jettera) ;
--3 The second conjugation
--
@@ -1343,4 +1350,10 @@ oper
param DForm = unit | teen | jten | ten | tenplus ;
param Place = indep | attr ;
oper
digitPl :
{inh : DForm ; inh1 : Number ; s : DForm => Str} ->
{inh : DForm ; inh1 : Number ; s : Gender => DForm => Str ; n : Number} = \d ->
{inh = d.inh ; inh1 = d.inh1 ; s = \\_ => d.s ; n = Pl} ;
}