From b6175aab1a47746d038a799ea1eb0586fb1621b1 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 28 Jul 2017 11:15:18 +0200
Subject: modified 'voc' and 'trans' rules accordingly

---
 arabluatex_trans.lua | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'arabluatex_trans.lua')

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index 404ae22..23ecf2c 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -136,15 +136,15 @@ hamzatrdmg = {
    {a="(U)(')", b="%1ʾ"},
    {a="([Iy])(')", b="%1ʾ"},
    {a="([^uai])(')([uU])", b="%1ʾ%3"},
-   {a="([^uai])(')([aA])", b="%1ʾ%3"},
+   {a="([^uai])(')(%_?[aAY])", b="%1ʾ%3"},
    {a="([^uai])(')([iI])", b="%1ʾ%3"},
    {a="(u)(')([uU])", b="%1ʾ%3"},
-   {a="(u)(')([aA])", b="%1ʾ%3"},
+   {a="(u)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(u)(')([iI])", b="%1ʾ%3"},
-   {a="(a)(')([aA])", b="%1ʾ%3"},
+   {a="(a)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(a)(')([uU])", b="%1ʾ%3"},
    {a="(a)(')([iI])", b="%1ʾ%3"},
-   {a="(i)(')([aA])", b="%1ʾ%3"},
+   {a="(i)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(i)(')([uU])", b="%1ʾ%3"},
    {a="(i)(')([iI])", b="%1ʾ%3"},
    {a="(a)(')([^uaiUAI])", b="%1ʾ%3"},
@@ -505,15 +505,15 @@ hamzatrloc = {
    {a="(U)(')", b="%1ʾ"},
    {a="([Iy])(')", b="%1ʾ"},
    {a="([^uai])(')([uU])", b="%1ʾ%3"},
-   {a="([^uai])(')([aA])", b="%1ʾ%3"},
+   {a="([^uai])(')(%_?[aAY])", b="%1ʾ%3"},
    {a="([^uai])(')([iI])", b="%1ʾ%3"},
    {a="(u)(')([uU])", b="%1ʾ%3"},
-   {a="(u)(')([aA])", b="%1ʾ%3"},
+   {a="(u)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(u)(')([iI])", b="%1ʾ%3"},
-   {a="(a)(')([aA])", b="%1ʾ%3"},
+   {a="(a)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(a)(')([uU])", b="%1ʾ%3"},
    {a="(a)(')([iI])", b="%1ʾ%3"},
-   {a="(i)(')([aA])", b="%1ʾ%3"},
+   {a="(i)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(i)(')([uU])", b="%1ʾ%3"},
    {a="(i)(')([iI])", b="%1ʾ%3"},
    {a="(a)(')([^uaiUAI])", b="%1ʾ%3"},
@@ -763,15 +763,15 @@ hamzatrarabica = { -- ≠ from hamzatrloc: initial hamza has to be held
    {a="(U)(')", b="%1ʾ"},
    {a="([Iy])(')", b="%1ʾ"},
    {a="([^uai])(')([uU])", b="%1ʾ%3"},
-   {a="([^uai])(')([aA])", b="%1ʾ%3"},
+   {a="([^uai])(')(%_?[aAY])", b="%1ʾ%3"},
    {a="([^uai])(')([iI])", b="%1ʾ%3"},
    {a="(u)(')([uU])", b="%1ʾ%3"},
-   {a="(u)(')([aA])", b="%1ʾ%3"},
+   {a="(u)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(u)(')([iI])", b="%1ʾ%3"},
-   {a="(a)(')([aA])", b="%1ʾ%3"},
+   {a="(a)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(a)(')([uU])", b="%1ʾ%3"},
    {a="(a)(')([iI])", b="%1ʾ%3"},
-   {a="(i)(')([aA])", b="%1ʾ%3"},
+   {a="(i)(')(%_?[aAY])", b="%1ʾ%3"},
    {a="(i)(')([uU])", b="%1ʾ%3"},
    {a="(i)(')([iI])", b="%1ʾ%3"},
    {a="(a)(')([^uaiUAI])", b="%1ʾ%3"},
-- 
cgit v1.2.3