GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 11:08:35 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed ParadigmsFre.mkA with 2 and 3 arguments, and commented out some uncompilable entries from DictFre

Browse Source
This commit is contained in:
aarneranta
2021-12-28 11:20:08 +01:00
parent 1d32508312
commit 93999cd21e
2 changed files with 45 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/french/ParadigmsFre.gf
+20 -2
View File
@@ -403,8 +403,26 @@ oper
mkA = overload {
mkA : Str -> A = regA ;
mkA : (sec,seche : Str) -> A = \sec,seche -> mk4A sec seche (sec + "s") (seche + "ment") ;
mkA : (banal,banale,banaux : Str) -> A = \sec,seche,secs -> mk4A sec seche secs (seche + "ment") ;
mkA : (sec,seche : Str) -> A = \sec,seche ->
let a = regA sec
in a ** {
s = table {
AF Fem Sg => seche ;
AF Fem Pl => seche + "s" ;
AA => case seche of {
_ + "ée" => init seche + "ment" ;
_ => seche + "ment"
} ;
c => a.s ! c
}
} ;
mkA : (banal,banale,banaux : Str) -> A = \sec,seche,secs ->
let sechement : Str = case seche of {
_ + "ée" => init seche + "ment" ;
_ => seche + "ment"
}
in mk4A sec seche secs sechement ;
mkA : (banal,banale,banaux,banalement : Str) -> A = mk4A ;
mkA : (vieux,vieil,vieille,vieuxs,vieuxment : Str) -> A = mk5A ;
mkA : A -> A -> A = mkADeg ;