implementation of basic Arabic punctuation

3 files changed, 33 insertions, 0 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index 80b7aa5..158282d 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -147,6 +147,9 @@ local function voc(str)
         for i = 1,#shortv do
                 inside = string.gsub(inside, shortv[i].a, shortv[i].b)
         end
+        for i = 1,#punctuation do
+                inside = string.gsub(inside, punctuation[i].a, punctuation[i].b)
+        end
         for i = 1,#null do
                 inside = string.gsub(inside, null[i].a, null[i].b)
         end
@@ -180,6 +183,9 @@ local function fullvoc(str)
         for i = 1,#shortv do
                 inside = string.gsub(inside, shortv[i].a, shortv[i].b)
         end
+        for i = 1,#punctuation do
+                inside = string.gsub(inside, punctuation[i].a, punctuation[i].b)
+        end
         for i = 1,#null do
                 inside = string.gsub(inside, null[i].a, null[i].b)
         end
@@ -213,6 +219,9 @@ local function novoc(str)
         for i = 1,#shortvnv do
           inside = string.gsub(inside, shortvnv[i].a, shortvnv[i].b)
         end
+        for i = 1,#punctuation do
+                inside = string.gsub(inside, punctuation[i].a, punctuation[i].b)
+        end
         for i = 1,#null do
                 inside = string.gsub(inside, null[i].a, null[i].b)
         end
@@ -246,6 +255,9 @@ local function transdmg(str)
       for i = 1,#shortvtrdmg do
          inside = string.gsub(inside, shortvtrdmg[i].a, shortvtrdmg[i].b)
       end
+      for i = 1,#punctuationtr do
+         inside = string.gsub(inside, punctuationtr[i].a, punctuationtr[i].b)
+      end
       for i = 1,#nulltr do
          inside = string.gsub(inside, nulltr[i].a, nulltr[i].b)
       end
@@ -281,6 +293,9 @@ local function transloc(str)
       for i = 1,#finaltrloc do
          inside = string.gsub(inside, finaltrloc[i].a, finaltrloc[i].b)
       end
+      for i = 1,#punctuationtr do
+         inside = string.gsub(inside, punctuationtr[i].a, punctuationtr[i].b)
+      end
       for i = 1,#nulltr do
          inside = string.gsub(inside, nulltr[i].a, nulltr[i].b)
       end
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index d253269..fa7c38e 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -24,6 +24,11 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 -- common
 
+punctuationtr = {
+   {a="%(%(", b="("},
+   {a="%)%)", b=")"}
+}
+
 nulltr = {
    {a="%|", b=""}
 }
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 06d266f..f9f251c 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -287,6 +287,19 @@ shortv = {
         {a="i", b="ِ"}
 }
 
+punctuation = {
+   {a="%(%(", b="﴿"},
+   {a="%)%)", b="﴾"},
+   {a="%(", b="+@("},
+   {a="%)", b="-@("},
+   {a="%+%@%(", b=")"},
+   {a="%-%@%(", b="("},
+   {a="%.", b="۔"},
+   {a="%,", b="،"},
+   {a="%?", b="؟"},
+   {a="%;", b="؛"},
+}
+
 null = {
    {a="%|", b=""},
    {a="([^0-9])(%-)([^0-9])", b="%1%3"}