first implementation of transliteration tables (dmg)

1 files changed, 42 insertions, 0 deletions

diff --git a/arabluatex.lua b/arabluatex.lua
index f0cfa78..b716bea 100644
--- a/arabluatex.lua
+++ b/arabluatex.lua
@@ -25,6 +25,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 require("arabluatex_voc")
 require("arabluatex_fullvoc")
 require("arabluatex_novoc")
+require("arabluatex_trans")
 
 local function protectarb(str)
    str = string.gsub(str, "(\\arb.?)(%[.-%])(%b{})", "\\@arb%2%3")
@@ -206,6 +207,35 @@ local function novoc(str)
 return str
 end
 
+local function transdmg(str)
+   str = string.gsub(str, "\\arb(%b{})", function(inside)
+   inside = string.sub(inside, 2, -2)
+      for i = 1,#hamzatrdmg do
+         inside = string.gsub(inside, hamzatrdmg[i].a, hamzatrdmg[i].b)
+      end
+      for i = 1,#tanwintrdmg do
+         inside  = string.gsub(inside, tanwintrdmg[i].a, tanwintrdmg[i].b)
+      end
+      for i = 1,#trigraphstrdmg do
+         inside = string.gsub(inside, trigraphstrdmg[i].a, trigraphstrdmg[i].b)
+      end
+      for i = 1,#digraphstrdmg do
+         inside = string.gsub(inside, digraphstrdmg[i].a, digraphstrdmg[i].b)
+      end
+      for i = 1,#singletrdmg do
+         inside = string.gsub(inside, singletrdmg[i].a, singletrdmg[i].b)
+      end
+      for i = 1,#longvtrdmg do
+         inside = string.gsub(inside, longvtrdmg[i].a, longvtrdmg[i].b)
+      end
+      for i = 1,#shortvtrdmg do
+         inside = string.gsub(inside, shortvtrdmg[i].a, shortvtrdmg[i].b)
+      end
+      return string.format("\\txtrans{%s}", inside)
+  end)
+return str
+end
+
 function processvoc(str)
    str = "\\arb{".. str.."}"
    str = protectarb(str)
@@ -236,6 +266,18 @@ function processnovoc(str)
 return str
 end
 
+function processtrans(str, mode)
+   str = "\\arb{".. str.."}"
+   str = protectarb(str)
+   str = breakcmd(str)
+   str = holdcmd(str)
+   if mode == "dmg" then
+      str = transdmg(str)
+      else end
+   str = unprotectarb(str)
+return str
+end
+
 --print(processvoc("'at_A .sadIquN 'il_A ju.hA ya.tlubu min-hu .himAra-hu li-yarkiba-hu fI safraTiN qa.sIraTiN wa-qAla la-hu sawfa 'u`Idu-hu 'ilay-ka fI 'l-masA'i wa-'adfa`u la-ka 'ujraTaN 'at_A .sadIquN 'il_A ju.hA ya.tlubu min-hu .himAra-hu li-yarkiba-hu fI safraTiN qa.sIraTiN wa-qAla la-hu sawfa 'u`Idu-hu 'ilay-ka fI 'l-masA'i wa-'adfa`u la-ka 'ujraTaN"))
 --print(arbnum("bop 0123456789"))
 --print(processvoc("daxala \\arb[novoc]{mubtasimaN}"))