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

some more paradigms for Arabic Wiktionary generation

Browse Source
This commit is contained in:
Aarne Ranta
2023-09-20 11:54:59 +02:00
parent abcb3a9f2a
commit 2419931105
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/arabic/ParadigmsAra.gf
View File

@@ -885,8 +885,10 @@ oper
= \r -> mkN r.sg r.pl r.g nohum ; --- hum/nohum not in Wikt = \r -> mkN r.sg r.pl r.g nohum ; --- hum/nohum not in Wikt
wmkN : {sg : Str; pl : Str} -> N wmkN : {sg : Str; pl : Str} -> N
= \r -> mkN r.sg r.pl masc nohum ; ---- ** {g = (smartN r.sg).g} ; = \r -> mkN r.sg r.pl masc nohum ; ---- ** {g = (smartN r.sg).g} ;
wmkN : {sg, pl : Str ; root : Str} -> N
= \r -> mkN r.sg r.pl masc nohum ; ----
wmkN : {sg : Str; root : Str} -> N wmkN : {sg : Str; root : Str} -> N
= \r -> smartN r.sg ; = \r -> smartN r.sg ;
} ; } ;
wmkA = overload { wmkA = overload {
@@ -928,7 +930,7 @@ oper
wmkV : {perfect : Str; imperfect : Str; cls : VerbForm; root : Str} -> V wmkV : {perfect : Str; imperfect : Str; cls : VerbForm; root : Str} -> V
= \r -> mkV r.root r.cls ; ---- = \r -> mkV r.root r.cls ; ----
wmkV : {perfect : Str; imperfect : Str; cls : VerbForm} -> V wmkV : {perfect : Str; imperfect : Str; cls : VerbForm} -> V
= \r -> variants {} ; ---- mkV r.imperfect ; ---- = \r -> mkV r.perfect r.cls ; ----
wmkV : {root : Str ; cls : VerbForm} -> V wmkV : {root : Str ; cls : VerbForm} -> V
= \r -> mkV r.root r.cls ; = \r -> mkV r.root r.cls ;
wmkV : {imperfect : Str} -> V wmkV : {imperfect : Str} -> V