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

some paradigm extensions

Browse Source
This commit is contained in:
Aarne Ranta
2018-01-21 12:18:15 +01:00
parent 5d9393b5ce
commit 95ca88bf02
3 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/french/MorphoFre.gf
View File

@@ -128,6 +128,9 @@ oper
adjIndien : Str -> Adj = \indien ->
mkAdj indien (indien+"s") (indien+"ne") (indien+"nement") ;
adjTel : Str -> Adj = \tel ->
mkAdj tel (tel+"s") (tel+"le") (tel+"lement") ;
adjFrancais : Str -> Adj = \francais ->
mkAdj francais francais (francais+"e") (francais+"ement") ;
@@ -136,14 +139,20 @@ oper
let {ch = Predef.tk 2 cher} in
mkAdj cher (cher + "s") (ch + "ère") (ch + "èrement") ;
adjPublic : Str -> Adj = \public ->
let publique = init public + "que" in
mkAdj public (init public+"s") (publique) (publique+"ment") ;
mkAdjReg : Str -> Adj = \creux ->
case Predef.dp 3 creux of {
"eux" => adjHeureux creux ;
_ => case Predef.dp 2 creux of {
"al" => adjBanal creux ;
"en" => adjIndien creux ;
"el" => adjTel creux ;
"on" => adjIndien creux ;
"er" => adjCher creux ;
"ic" => adjPublic creux ;
_ => case Predef.dp 1 creux of {
"s" => adjFrancais creux ;
"x" => adjFrancais creux ;