From cd9dfe4561e7b6c1e5ab1e01218eb3a4849fb2c8 Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Mon, 26 Jun 2017 20:37:30 +0200 Subject: put '.A[uai]?l-' into the lunar/solar mechanism --- arabluatex_trans.lua | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'arabluatex_trans.lua') diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua index 1043f37..defb3b4 100644 --- a/arabluatex_trans.lua +++ b/arabluatex_trans.lua @@ -71,7 +71,15 @@ captr = { -- dmg hamzatrdmg = { - -- next line for ʾalif alone + -- next lines for ʾalif alone + {a="(%.A)l%-(%^n)", b=".|l-%2"}, --additional (^n is lunar) + {a="([%(%[%|%<%s%-o])(%.A)l%-(%^n)", b="%1.|l-%3"}, --additional (^n is lunar) --p + {a="(%.A)l%-([%_%^%.]?[tdrzsnc])", b=".|%2-%2"}, + {a="([%(%[%|%<%s%-o])(%.A)l%-([%_%^%.]?[tdrzsnc])", b="%1.|%3-%3"}, --p + {a="(%.A)([uai])l%-(%^n)", b="||%2l-%3"}, --additional (^n is lunar) + {a="([%(%[%|%<%s%-o])(%.A)([uai])l%-(%^n)", b="%1||%3l-%4"}, --additional (^n is lunar) --p + {a="(%.A)([uai])l%-([%_%^%.]?[tdrzsnc])", b="||%2%3-%3"}, + {a="([%(%[%|%<%s%-o])(%.A)([uai])l%-([%_%^%.]?[tdrzsnc])", b="%1||%3%4-%4"}, --p {a="(%.A)([^uai])", b=".|%2"}, {a="(%.A)([uai])", b="||%2"}, -- hard coded hamza @@ -440,7 +448,7 @@ shortvtrdmg = { -- loc hamzatrloc = { - -- next line for ʾalif alone + -- next lines for ʾalif alone {a="(%.A)([^uai])", b=".|%2"}, {a="(%.A)([uai])", b="||%2"}, -- hard coded hamza @@ -697,7 +705,7 @@ finaltrloc = { -- arabica hamzatrarabica = { -- ≠ from hamzatrloc: initial hamza has to be held - -- next line for ʾalif alone + -- next lines for ʾalif alone {a="(%.A)([^uai])", b=".|%2"}, {a="(%.A)([uai])", b="||%2"}, -- hard coded hamza -- cgit v1.2.3