summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua')
-rw-r--r--Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua91
1 files changed, 46 insertions, 45 deletions
diff --git a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
index 86a55b0bf2f..61c989a3003 100644
--- a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
+++ b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
@@ -377,16 +377,16 @@ digraphstrdmg = {
{a="([%_]?[Uu])(%s)([%(%[%|%<]?)(\"?[uai])", b="u%2%3'"}, --p
{a="([%_]?[Ii])(%s)([%(%[%|%<]?)(\"?[uai])", b="i%2%3'"}, --p
-- ʾiʿrāb hyphen (begin)
- {a="(%-)(\"?[UI]na)(%p?%s)", b="\\arbup{%2}%3"},
- {a="(%-)(\"?[UI]na)(%p?)$", b="\\arbup{%2}%3"},
- {a="(%-)(\"?At[ui])(%p?%s)", b="\\arbup{%2}%3"},
- {a="(%-)(\"?At[ui])(%p?)$", b="\\arbup{%2}%3"},
- {a="(%-)(\"?Ani)(%p?%s)", b="\\arbup{%2}%3"},
- {a="(%-)(\"?Ani)(%p?)$", b="\\arbup{%2}%3"},
- {a="(%-)(\"?ayni)(%p?%s)", b="\\arbup{%2}%3"},
- {a="(%-)(\"?ayni)(%p?)$", b="\\arbup{%2}%3"},
- {a="(%-)(\"?[uai])(%p?%s)", b="\\arbup{%2}%3"},
- {a="(%-)(\"?[uai])(%p?)$", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?[UI]na)(%p*%s)", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?[UI]na)(%p*)$", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?At[ui])(%p*%s)", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?At[ui])(%p*)$", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?Ani)(%p*%s)", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?Ani)(%p*)$", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?ayni)(%p*%s)", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?ayni)(%p*)$", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?[uai])(%p*%s)", b="\\arbup{%2}%3"},
+ {a="(%-)(\"?[uai])(%p*)$", b="\\arbup{%2}%3"},
-- ʾiʿrāb hyphen (end) shorten long vowels preceding ʾalif
-- conjunctionis—without forgetting 'lla_dI
{a="(U)(A)", b="U"},
@@ -406,18 +406,18 @@ digraphstrdmg = {
{a="([%_]?[Uu])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="u%2%3"},
{a="([%_]?[Ii])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="i%2%3"},
{a="%-%-", b=""},
- {a="iyyaT(%p?)$", b="īyaT%1"},
- {a="iyyaT(%p?%s)", b="īyaT%1"},
- {a="iyy(%p?)$", b="ī%1"},
- {a="iyy(%p?%s)", b="ī%1"},
+ {a="iyyaT(%p*)$", b="īyaT%1"},
+ {a="iyyaT(%p*%s)", b="īyaT%1"},
+ {a="iyy(%p*)$", b="ī%1"},
+ {a="iyy(%p*%s)", b="ī%1"},
-- {a="T([^uai])", b="%1"},
{a="T(\\arbup)", b="t%1"},
{a="([a%'][%_%^%.]?[tdrzsln]%-)(%S-)T([%(%[%|%<%s])(a[%_%^%.]?[tdrzsln]%-)", b="%1%2h%3%4"}, --p
{a="T([%(%[%|%<%s])(a[%_%^%.]?[tdrzsln]%-)", b="t%1%2"}, --p
{a="T([%|\"])", b="t%1"},
- {a="T(%p?%s)", b="h%1"},
- {a="T(%p?)$", b="h%1"},
- {a="T(%p?)(%W)", b="h%1%2"},
+ {a="T(%p*%s)", b="h%1"},
+ {a="T(%p*)$", b="h%1"},
+ {a="T(%p*)(%W)", b="h%1%2"},
{a="_t", b="ṯ"},
{a="%^g", b="ǧ"},
{a="%.h", b="ḥ"},
@@ -651,32 +651,32 @@ trigraphstrloc = { -- trigraphs or more
digraphstrloc = {
-- discard the ʾiʿrāb hyphen (begin)
- {a="(%-)(\"?[UI]na)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?[UI]na)(%p?)$", b="%2%3"},
- {a="(%-)(\"?At[ui])(%p?%s)", b="%2%3"},
- {a="(%-)(\"?At[ui])(%p?)$", b="%2%3"},
- {a="(%-)(\"?Ani)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?Ani)(%p?)$", b="%2%3"},
- {a="(%-)(\"?ayni)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?ayni)(%p?)$", b="%2%3"},
- {a="(%-)([uai])(%p?%s)", b="%2%3"},
- {a="(%-)([uai])(%p?)$", b="%2%3"},
+ {a="(%-)(\"?[UI]na)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?[UI]na)(%p*)$", b="%2%3"},
+ {a="(%-)(\"?At[ui])(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?At[ui])(%p*)$", b="%2%3"},
+ {a="(%-)(\"?Ani)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?Ani)(%p*)$", b="%2%3"},
+ {a="(%-)(\"?ayni)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?ayni)(%p*)$", b="%2%3"},
+ {a="(%-)([uai])(%p*%s)", b="%2%3"},
+ {a="(%-)([uai])(%p*)$", b="%2%3"},
-- discard the ʾiʿrāb hyphen (end)
{a="(%-)(\"?[uai])", b="%1%2"}, -- hyphen + initial alif without hamza
{a="^(\"?[uai])", b="%1"}, -- initial alif without hamza
{a="(%s)([uai])", b="%1%2"}, -- initial alif without hamza
{a="%-%-", b=""},
{a="uww", b="ūw"},
- {a="iyy(%p?)$", b="ī%1"},
- {a="iyy(%p?%s)", b="ī%1"},
+ {a="iyy(%p*)$", b="ī%1"},
+ {a="iyy(%p*%s)", b="ī%1"},
{a="iyy", b="īy"},
{a="([tkdsg])(h)", b="%1'%2"},
-- {a="T([^uai])", b="h%1"},
{a="([a%']l%-)(%S-)T([%(%[%|%<%s])(al%-)", b="%1%2h%3%4"}, --p
{a="T([%(%[%|%<%s])(al%-)", b="t%1%2"}, --p
{a="T([%|\"])", b="t%1"},
- {a="T(%p?)$", b="h%1"},
- {a="T(%p?%s)", b="h%1"},
+ {a="T(%p*)$", b="h%1"},
+ {a="T(%p*%s)", b="h%1"},
{a="_t", b="th"},
{a="%^g", b="j"},
{a="%.h", b="ḥ"},
@@ -902,31 +902,32 @@ trigraphstrarabica = { -- trigraphs or more
digraphstrarabica = {
{a="([uai]%-)(\"?[uai])", b="%1"}, -- hyphen + initial alif without hamza
{a="([UAIYuai])(%s)([%(%[%|%<]?)(\"?[uai])", b="%1%2%3"}, --p
+ {a="(o[%S]-)([UAIuai])(o)(\"?[uai])", b=""},
{a="@", b=""}, -- remove the tag before the former hamza
-- discard the ʾiʿrāb hyphen (begin)
- {a="(%-)(\"?[UI]na)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?[UI]na)(%p?)$", b="%2%3"},
- {a="(%-)(\"?At[ui])(%p?%s)", b="%2%3"},
- {a="(%-)(\"?At[ui])(%p?)$", b="%2%3"},
- {a="(%-)(\"?Ani)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?Ani)(%p?)$", b="%2%3"},
- {a="(%-)(\"?ayni)(%p?%s)", b="%2%3"},
- {a="(%-)(\"?ayni)(%p?)$", b="%2%3"},
- {a="(%-)([uai])(%p?%s)", b="%2%3"},
- {a="(%-)([uai])(%p?)$", b="%2%3"},
+ {a="(%-)(\"?[UI]na)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?[UI]na)(%p*)$", b="%2%3"},
+ {a="(%-)(\"?At[ui])(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?At[ui])(%p*)$", b="%2%3"},
+ {a="(%-)(\"?Ani)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?Ani)(%p*)$", b="%2%3"},
+ {a="(%-)(\"?ayni)(%p*%s)", b="%2%3"},
+ {a="(%-)(\"?ayni)(%p*)$", b="%2%3"},
+ {a="(%-)([uai])(%p*%s)", b="%2%3"},
+ {a="(%-)([uai])(%p*)$", b="%2%3"},
-- discard the ʾiʿrāb hyphen (end)
{a="(%-)(\"?[uai])", b="%1%2"}, -- hyphen + initial alif without hamza
{a="^(\"?[uai])", b="%1"}, -- initial alif without hamza
{a="(%s)([uai])", b="%1%2"}, -- initial alif without hamza
{a="%-%-", b=""},
- {a="iyy(%p?)$", b="ī%1"},
- {a="iyy(%p?%s)", b="ī%1"},
+ {a="iyy(%p*)$", b="ī%1"},
+ {a="iyy(%p*%s)", b="ī%1"},
-- {a="T([^uai])", b="h%1"},
{a="([a%']l%-)(%S-)aT([%(%[%|%<%s])(al%-)", b="%1%2a%3%4"}, --p
{a="aT([%(%[%|%<%s])(al%-)", b="at%1%2"}, --p
{a="T([%|\"])", b="t%1"},
- {a="aT(%p?)$", b="a%1"},
- {a="aT(%p?%s)", b="a%1"},
+ {a="aT(%p*)$", b="a%1"},
+ {a="aT(%p*%s)", b="a%1"},
{a="_t", b="ṯ"},
{a="%^g", b="ǧ"},
{a="%.h", b="ḥ"},