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

4
src/german/MakeStructuralGer.gf
View File

@@ -29,5 +29,9 @@ oper
mmkQuant : Quant -> A -> Quant = \q,a -> q ** { mmkQuant : Quant -> A -> Quant = \q,a -> q ** {
s,sp = \\x,n,g,c => q.s ! x ! n ! g ! c ++ a.s ! Posit ! agrAdj g q.a n ((prepC c).c) s,sp = \\x,n,g,c => q.s ! x ! n ! g ! c ++ a.s ! Posit ! agrAdj g q.a n ((prepC c).c)
} ; } ;
-- e.g. derjenige
mmbQuant : Quant -> A -> Quant = \q,a -> q ** {
s,sp = \\x,n,g,c => q.s ! x ! n ! g ! c + a.s ! Posit ! agrAdj g q.a n ((prepC c).c)
} ;
} }

2
src/german/ParadigmsGer.gf
View File

@@ -50,7 +50,7 @@ oper
anDat_Case : Case ; -- preposition "an" accusative with contraction "am" --% anDat_Case : Case ; -- preposition "an" accusative with contraction "am" --%
inAcc_Case : Case ; -- preposition "in" accusative with contraction "ins" --% inAcc_Case : Case ; -- preposition "in" accusative with contraction "ins" --%
inDat_Case : Case ; -- preposition "in" dative with contraction "am" --% inDat_Case : Case ; -- preposition "in" dative with contraction "im" --%
zuDat_Case : Case ; -- preposition "zu" dative with contractions "zum", "zur" --% zuDat_Case : Case ; -- preposition "zu" dative with contractions "zum", "zur" --%
vonDat_Case : Case ; vonDat_Case : Case ;