aboutsummaryrefslogtreecommitdiff
path: root/arabluatex_voc.lua
diff options
context:
space:
mode:
Diffstat (limited to 'arabluatex_voc.lua')
-rw-r--r--arabluatex_voc.lua22
1 files changed, 13 insertions, 9 deletions
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index fb53b5a..57ab34c 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -202,7 +202,7 @@ hamza = {
202 {a="(A)(')(u)", b="aآؤ%3"}, -- historic madda 202 {a="(A)(')(u)", b="aآؤ%3"}, -- historic madda
203 {a="(A)(')", b="aآء"}, -- historic madda 203 {a="(A)(')", b="aآء"}, -- historic madda
204 -- initial (needs both ^ and %W patterns) 204 -- initial (needs both ^ and %W patterns)
205 -- 'aw: the diphthong is to be resoved into 'awi' (next 8 lines) 205 -- 'aw: the diphthong is to be resolved into 'awi' (next 8 lines)
206 {a="^('aw)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1i"}, 206 {a="^('aw)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1i"},
207 {a="(%W)('aw)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1%2i"}, 207 {a="(%W)('aw)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1%2i"},
208 {a="^('aw)(o)(\"?[uai])([%S]-o)", b="%1i"}, 208 {a="^('aw)(o)(\"?[uai])([%S]-o)", b="%1i"},
@@ -482,13 +482,9 @@ trigraphs = { -- trigraphs or more
482 {a="(aW)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="awuا"}, 482 {a="(aW)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="awuا"},
483 {a="(aw)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1u"}, 483 {a="(aw)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1u"},
484 {a="(ay)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1i"}, 484 {a="(ay)(o)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="%1i"},
485 {a="(aw)(o)(\"?[uai])([%S]-o)", b="%1u"},
486 {a="(ay)(o)(\"?[uai])([%S]-o)", b="%1i"},
487 {a="(aW)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="awuا%2%3"}, 485 {a="(aW)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="awuا%2%3"},
488 {a="(aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1u%2%3"}, 486 {a="(aw)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1u%2%3"},
489 {a="(ay)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1i%2%3"}, 487 {a="(ay)(%s)(['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="%1i%2%3"},
490 {a="(aw)(%s)([%(%[%|%<]?\"?[uai])", b="%1u%2%3"}, --p
491 {a="(ay)(%s)([%(%[%|%<]?\"?[uai])", b="%1i%2%3"}, --p
492 -- art. with waṣla + lām 488 -- art. with waṣla + lām
493 {a="'l%-(l)", b="ال%1%1"}, 489 {a="'l%-(l)", b="ال%1%1"},
494 -- art. with waṣla + solar consonant 490 -- art. with waṣla + solar consonant
@@ -613,12 +609,20 @@ digraphs = {
613 -- initial straight double quote gives a connective ʾalif 609 -- initial straight double quote gives a connective ʾalif
614 {a="^\"[uai]", b="ٱ"}, 610 {a="^\"[uai]", b="ٱ"},
615 {a="([%(%[%|%<%s%-])\"[uai]", b="%1ٱ"}, --p 611 {a="([%(%[%|%<%s%-])\"[uai]", b="%1ٱ"}, --p
616 {a="(aW)(o)([uai]([%S]-o))", b="awuا"}, 612 -- diphthongs to be resolved before ʾalif conjunctionis
613 {a="(aW)(o)(\"?[uai])([%S]-o)", b="awuا"},
617 {a="(aW)(%s)([%(%[%|%<]?)([uai])", b="awuا%2%3%4"}, --p 614 {a="(aW)(%s)([%(%[%|%<]?)([uai])", b="awuا%2%3%4"}, --p
615 {a="(aw)(o)(\"?[uai])([%S]-o)", b="%1u"},
616 {a="(aw)(%s)([%(%[%|%<]?)(\"?[uai])", b="%1u%2%3ا"}, --p
617 {a="(ay)(o)(\"?[uai])([%S]-o)", b="%1i"},
618 {a="(ay)(%s)([%(%[%|%<]?)(\"?[uai])", b="%1i%2%3ا"}, --p
618 -- hyphen + initial alif without hamza: 619 -- hyphen + initial alif without hamza:
619 {a="(%-)([uai])([%^%_%.%`]?)(%a)", b="%1ا%3%4"}, 620 {a="([uai]%-)(\"?[uai])([%^%_%.%`]?)(%a)", b="%1ا%3%4"},
620 {a="^([%(%[%|%<]?)([uai])", b="%1ا%2"}, -- initial alif without hamza --p 621 -- initial alif without hamza
621 {a="(%s)([%(%[%|%<]?)([uai])", b="%1%2ا"}, -- initial alif without hamza --p 622 {a="^([%(%[%|%<]?)(\"?[uai])", b="%1ا%2"}, --p
623 -- initial alif without hamza
624 {a="(o[%S]-)([uaiUAIY])(o)(\"?[uai])", b="ا"},
625 {a="(%s)([%(%[%|%<]?)(\"?[uai])", b="%1%2ا"}, --p
622 {a="%-%-", b="ـ"}, 626 {a="%-%-", b="ـ"},
623 {a="ؤؤ", b="ؤّ"}, 627 {a="ؤؤ", b="ؤّ"},
624 {a="أأ", b="أّ"}, 628 {a="أأ", b="أّ"},