bugfix: the carrier of the hamza in a word like ^sifA'I has to be a yāʾ without dot

3 files changed, 6 insertions, 5 deletions

diff --git a/arabluatex.dtx b/arabluatex.dtx
index 3829b48..9978210 100644
--- a/arabluatex.dtx
+++ b/arabluatex.dtx
@@ -1013,7 +1013,8 @@ vowels (see §~3).
 %   \arb[trans]{jI'a}, |radI'iN| \arb[voc]{radI'iN}
 %   \arb[trans]{radI'iN}, |sU'uN| \arb[voc]{sU'uN} \arb[trans]{sU'uN},
 %   |.daw'uN| \arb[voc]{.daw'uN} \arb[trans]{.daw'uN}, |qay'iN|
-%   \arb[voc]{qay'iN} \arb[trans]{qay'iN}.
+%   \arb[voc]{qay'iN} \arb[trans]{qay'iN}, |^sifA'I|
+%   \arb[voc]{^sifA'I} \arb[trans]{^sifA'I}.
 %
 %   |^say'uN| \arb[voc]{^say'uN} \arb[trans]{^say'uN}, |^say'aN|
 %   \arb[voc]{^say'aN} \arb[trans]{^say'aN}, |^say'iN|
diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index af7dd9e..5c1e6e2 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -62,7 +62,7 @@ hamzafv = {
    {a="(A)(')(uN?)(%W)", b="aآء%3%4"},
    {a="(A)(')(iN?)$", b="aآء%3"},
    {a="(A)(')(iN?)(%W)", b="aآء%3%4"},
-   {a="(A)(')(i)", b="aآئ%3"}, -- historic madda
+   {a="(A)(')([iI])", b="aآئ%3"}, -- historic madda
    {a="(A)(')(u)", b="aآؤ%3"}, -- historic madda
    {a="(A)(')", b="aآء"}, -- historic madda
    -- initial (needs both ^ and %W patterns)
@@ -161,7 +161,7 @@ hamzafveasy = { -- differences marked below with 'easy'
    {a="(A)(')(uN?)(%W)", b="aاء%3%4"},
    {a="(A)(')(iN?)$", b="aاء%3"},
    {a="(A)(')(iN?)(%W)", b="aاء%3%4"},
-   {a="(A)(')(i)", b="aائ%3"}, -- historic madda
+   {a="(A)(')([iI])", b="aائ%3"}, -- historic madda
    {a="(A)(')(u)", b="aاؤ%3"}, -- historic madda
    {a="(A)(')", b="aاء"}, -- historic madda
    --easy (end)
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 8ea7f7d..6819952 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -197,7 +197,7 @@ hamza = {
    {a="(A)(')(uN?)(%W)", b="aآء%3%4"},
    {a="(A)(')(iN?)$", b="aآء%3"},
    {a="(A)(')(iN?)(%W)", b="aآء%3%4"},
-   {a="(A)(')(i)", b="aآئ%3"}, -- historic madda
+   {a="(A)(')([iI])", b="aآئ%3"}, -- historic madda
    {a="(A)(')(u)", b="aآؤ%3"}, -- historic madda
    {a="(A)(')", b="aآء"}, -- historic madda
    -- initial (needs both ^ and %W patterns)
@@ -287,7 +287,7 @@ hamzaeasy = { -- differences marked below with 'easy'
    {a="(A)(')(uN?)(%W)", b="aاء%3%4"},
    {a="(A)(')(iN?)$", b="aاء%3"},
    {a="(A)(')(iN?)(%W)", b="aاء%3%4"},
-   {a="(A)(')(i)", b="aائ%3"}, -- historic madda
+   {a="(A)(')([iI])", b="aائ%3"}, -- historic madda
    {a="(A)(')(u)", b="aاؤ%3"}, -- historic madda
    {a="(A)(')", b="aاء"}, -- historic madda
    --easy (end)