aboutsummaryrefslogtreecommitdiff
path: root/arabluatex_trans.lua
diff options
context:
space:
mode:
Diffstat (limited to 'arabluatex_trans.lua')
-rw-r--r--arabluatex_trans.lua12
1 files changed, 9 insertions, 3 deletions
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index ef55a2b..bc44229 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -30,7 +30,8 @@ punctuationtr = {
30} 30}
31 31
32nulltr = { 32nulltr = {
33 {a="%|", b=""} 33 {a="%|", b=""},
34 {a="o.-o", b=""}
34} 35}
35 36
36-- cap 37-- cap
@@ -95,7 +96,11 @@ hamzatrdmg = {
95 {a="(A)(')(i)", b="%1ʾ%3"}, -- historic madda 96 {a="(A)(')(i)", b="%1ʾ%3"}, -- historic madda
96 {a="(A)(')", b="%1ʾ"}, -- historic madda 97 {a="(A)(')", b="%1ʾ"}, -- historic madda
97 -- initial (needs both ^ and %W patterns) 98 -- initial (needs both ^ and %W patterns)
98 -- 'aw: the diphthong is to be resoved into 'awi' (next 4 lines) 99 -- 'aw: the diphthong is to be resolved into 'awi' (next 8 lines)
100 {a="^('aw)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)(.-o)", b="%1i"},
101 {a="(%W)('aw)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)(.-o)", b="%1%2i"},
102 {a="^('aw)(o)([%(%[%|%<]?\"?[uai])(.-o)", b="%1i"},
103 {a="(%W)('aw)(o)([%(%[%|%<]?\"?[uai])(.-o)", b="%1%2i"},
99 {a="^('aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1i%2%3"}, 104 {a="^('aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1i%2%3"},
100 {a="(%W)('aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1%2i%3%4"}, 105 {a="(%W)('aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1%2i%3%4"},
101 {a="^('aw)(%s)([%(%[%|%<]?\"?[uai])", b="%1i%2%3"}, 106 {a="^('aw)(%s)([%(%[%|%<]?\"?[uai])", b="%1i%2%3"},
@@ -229,7 +234,8 @@ trigraphstrdmg = { -- trigraphs or more
229 234
230idghamtrdmg = { 235idghamtrdmg = {
231 -- assimilations 236 -- assimilations
232 {a="(n)(}?)(%s)([rlmnwy])", b="%4%2%3%4"} 237 {a="(n)(}?)(%s)([rlmnwy])", b="%4%2%3%4"},
238 {a="(n)(o)([rlmnwy])(.-o)", b="%3"}
233} 239}
234 240
235digraphstrdmg = { 241digraphstrdmg = {