From d911669a7a7152c47e884cb7860be85e34d1e882 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Tue, 15 Mar 2016 10:38:54 +0100
Subject: bugfix: final hamza was wrong

---
 arabluatex_voc.lua | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

(limited to 'arabluatex_voc.lua')

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index e38a604..9e0ba85 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -80,7 +80,7 @@ hamza = {
    {a="%'%_U", b="أU"},
    -- madda (historic writing below)
    {a="'a'([^uaiUAI])", b="آ%1"},
-   {a="'a?A", b="آ"},
+   {a="'a?A([%_%^%.]?[%`%'btjghdrzsfqklmnywAY])", b="آ%1"},
    {a="(A)(')(iN?)$", b="aآء%3"},
    {a="(A)(')(iN?)(%W)", b="aآء%3%4"},
    {a="(A)(')(i)", b="aآئ%3"}, -- historic madda
@@ -103,7 +103,23 @@ hamza = {
    {a="(%^say)(%')(aN)", b="%1ئ%3"},
    {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
    {a="([^uai])(')([uai]N?)$", b="%1ء%3"},
-   {a="([^uai])(')([uai]N?)(%W)", b="%1ء%3%4"},   
+   {a="([^uai])(')([uai]N?)(%W)", b="%1ء%3%4"},
+-- u
+   {a="(u)(')([uai]?N)$", b="%1ؤ%3"},
+   {a="(u)(')([uai]N?)(%W)", b="%1ؤ%3%4"},
+-- a
+   {a="(a)(')([u]N?)$", b="%1أ%3"},
+   {a="(a)(')([u]N?)(%W)", b="%1أ%3%4"},
+   {a="(a)(')(a)$", b="%1أ%3"},
+   {a="(a)(')(a)(%W)", b="%1أ%3%4"},
+   {a="(a)(')(aN)$", b="%1أً"},
+   {a="(a)(')(aN)(%W)", b="%1أً%4"},
+   {a="(a)(')([i]N?)$", b="%1إ%3"},
+   {a="(a)(')([i]N?)(%W)", b="%1إ%3%4"},
+-- i
+   {a="(i)(')([uai]N?)$", b="%1ئ%3"},
+   {a="(i)(')([uai]N?)(%W)", b="%1ئ%3%4"},
+--
    -- middle
    {a="(U)(')", b="%1ء"},
    {a="([Iy])(')", b="%1ئ"},
-- 
cgit v1.2.3