From 24199311058e87a72ecde6e9d8bd835a8c143e02 Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Wed, 20 Sep 2023 11:54:59 +0200 Subject: [PATCH] some more paradigms for Arabic Wiktionary generation --- src/arabic/ParadigmsAra.gf | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 20892fed..1b3cfc85 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -885,8 +885,10 @@ oper = \r -> mkN r.sg r.pl r.g nohum ; --- hum/nohum not in Wikt wmkN : {sg : Str; pl : Str} -> N = \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 - = \r -> smartN r.sg ; + = \r -> smartN r.sg ; } ; wmkA = overload { @@ -928,7 +930,7 @@ oper wmkV : {perfect : Str; imperfect : Str; cls : VerbForm; root : Str} -> V = \r -> mkV r.root r.cls ; ---- 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 = \r -> mkV r.root r.cls ; wmkV : {imperfect : Str} -> V