implementation of loc transliteration tables

1 files changed, 34 insertions, 0 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index b716bea..d76a284 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -236,6 +236,38 @@ local function transdmg(str)
 return str
 end
 
+local function transloc(str)
+   str = string.gsub(str, "\\arb(%b{})", function(inside)
+   inside = string.sub(inside, 2, -2)
+      for i = 1,#hamzatrloc do
+         inside = string.gsub(inside, hamzatrloc[i].a, hamzatrloc[i].b)
+      end
+      for i = 1,#tanwintrloc do
+         inside  = string.gsub(inside, tanwintrloc[i].a, tanwintrloc[i].b)
+      end
+      for i = 1,#trigraphstrloc do
+         inside = string.gsub(inside, trigraphstrloc[i].a, trigraphstrloc[i].b)
+      end
+      for i = 1,#digraphstrloc do
+         inside = string.gsub(inside, digraphstrloc[i].a, digraphstrloc[i].b)
+      end
+      for i = 1,#singletrloc do
+         inside = string.gsub(inside, singletrloc[i].a, singletrloc[i].b)
+      end
+      for i = 1,#longvtrloc do
+         inside = string.gsub(inside, longvtrloc[i].a, longvtrloc[i].b)
+      end
+      for i = 1,#shortvtrloc do
+         inside = string.gsub(inside, shortvtrloc[i].a, shortvtrloc[i].b)
+      end
+      for i = 1,#finaltrloc do
+         inside = string.gsub(inside, finaltrloc[i].a, finaltrloc[i].b)
+      end
+      return string.format("\\txtrans{%s}", inside)
+  end)
+return str
+end
+
 function processvoc(str)
    str = "\\arb{".. str.."}"
    str = protectarb(str)
@@ -273,6 +305,8 @@ function processtrans(str, mode)
    str = holdcmd(str)
    if mode == "dmg" then
       str = transdmg(str)
+   elseif mode == "loc" then
+      str = transloc(str)
       else end
    str = unprotectarb(str)
 return str