From dc4e8669423ca7debc2447dc80a9705d542074d1 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Sat, 26 Jan 2019 18:38:57 +0100 Subject: [PATCH] (Ara) small cleanup --- src/arabic/LexiconAra.gf | 2 +- src/arabic/ParadigmsAra.gf | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/arabic/LexiconAra.gf b/src/arabic/LexiconAra.gf index 76ee7542..d10f07ec 100644 --- a/src/arabic/LexiconAra.gf +++ b/src/arabic/LexiconAra.gf @@ -142,7 +142,7 @@ flags old_A = sndA "قدم" "فَعِيل" ; open_V2 = dirV2 (regV "يَفتَح") ; -- open_V2 = dirV2 (v1 "فتح" a a ) ; - paint_V2A = mkV2A (regV "يَدهَن" ) [] ; + paint_V2A = dirV2 (regV "يَدهَن" ) ; -- paint_V2A = mkV2A (v1 "دهن" a a ) [] ; paper_N = brkN "ورق" "فَعَلة" "أَفعَال" Fem NoHum ; paris_PN = mkPN "بارِيس" Fem NoHum ; diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index a4235a63..93c44e2e 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -88,14 +88,13 @@ resource ParadigmsAra = open = smartPN ; mkPN : N -> PN -- Make a PN out of N. The PN is in construct state. = \n -> lin PN (n ** { - s = \\c => n.s ! Sg ! Const ! c + s = \\c => n.s ! Sg ! Const ! c ++ n.s2 ! Sg ! Def ! c -- NB this hack works for idaafa constructions (if you used mkN : N -> N -> N), but wrong for mkN : N -> A -> N. /IL }) ; mkPN : Str -> Gender -> Species -> PN -- Make a PN out of string, gender and species. = mkFullPN ; } ; - --3 Relational nouns mkN2 : overload { @@ -110,7 +109,6 @@ resource ParadigmsAra = open mkN3 : N -> Str -> Str -> N3 ; -- prepositions given as strings } ; - --2 Adjectives -- Overloaded operator for main cases