msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Fre mkA improved

Browse Source
This commit is contained in:
Aarne Ranta
2018-01-21 19:01:24 +01:00
parent 95ca88bf02
commit 6fa7fd6706
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/french/MorphoFre.gf
View File

@@ -141,7 +141,11 @@ oper
adjPublic : Str -> Adj = \public -> adjPublic : Str -> Adj = \public ->
let publique = init public + "que" in let publique = init public + "que" in
mkAdj public (init public+"s") (publique) (publique+"ment") ; mkAdj public (public+"s") (publique) (publique+"ment") ;
adjVif : Str -> Adj = \vif ->
let vive = init vif + "ve" in
mkAdj vif (vif+"s") (vive) (vive+"ment") ;
mkAdjReg : Str -> Adj = \creux -> mkAdjReg : Str -> Adj = \creux ->
case Predef.dp 3 creux of { case Predef.dp 3 creux of {
@@ -153,6 +157,7 @@ oper
"on" => adjIndien creux ; "on" => adjIndien creux ;
"er" => adjCher creux ; "er" => adjCher creux ;
"ic" => adjPublic creux ; "ic" => adjPublic creux ;
"if" => adjVif creux ;
_ => case Predef.dp 1 creux of { _ => case Predef.dp 1 creux of {
"s" => adjFrancais creux ; "s" => adjFrancais creux ;
"x" => adjFrancais creux ; "x" => adjFrancais creux ;