From 42e31a3dce592a43d737e3455a82545eb3267b14 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 31 Dec 2018 14:11:40 +0200 Subject: [PATCH] (Ara) Add mkA constructor for non-inflecting component in the adjective --- src/arabic/ParadigmsAra.gf | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 4c9cf18a8..0256826b6 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -148,6 +148,13 @@ resource ParadigmsAra = open = \r -> lin A (clrA r); mkA : (root,sg,pl : Str) -> A -- adjective with broken plural = \r,s,p -> lin A (brkA r s p) ; + mkA : A -> Str -> A = \a,s -> a ** { -- add non-inflecting component after adjective + s = table {af => a.s ! af ++ s} + } ; + mkA : Str -> A -> A = \s,a -> a ** { -- add non-inflecting component before adjective + s = table {af => s ++ a.s ! af} + } + } ; idaafaA : N -> A -> A ; -- first argument will be in constructus but inflect in case, adjective in genitive, but inflect in gender, number and definiteness. e.g. غَيْرُ طَيِّبٍ