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

French Swadesh, some bugs remain

Browse Source
This commit is contained in:
aarne
2005-03-13 21:29:29 +00:00
parent f2baab56b9
commit 049e8deca9
8 changed files with 660 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -106,8 +106,11 @@ oper
-- Then the regular and invariant patterns.
adjReg : Str -> Gender => Number => Str = \bu -> table {
Masc => nomReg bu ;
Fem => nomReg (bu + "e")
Masc => (mkNomReg bu Masc).s ;
Fem => nomReg (case last bu of {
"e" => bu ;
_ => bu + "e"
})
} ;
adjInvar : Str -> Gender => Number => Str = \bien ->
@@ -116,7 +119,12 @@ oper
-- Adjectives themselves are records. Here the most common cases:
adjGrand : Str -> Adj = \grand ->
mkAdj grand (grand + "s") (grand + "e") (grand + "ement") ;
let grande = case last grand of {
"e" => grand ;
_ => grand + "e"
}
in
mkAdj grand (grand + "s") grande (grande + "ment") ;
-- Masculine form used for adverbial; also covers "carré".
@@ -154,6 +162,7 @@ oper
"er" => adjCher creux ;
_ => case Predef.dp 1 creux of {
"s" => adjFrancais creux ;
"x" => adjFrancais creux ;
"e" => adjJeune creux ;
"é" => adjJoli creux ;
"i" => adjJoli creux ;