diff options
Diffstat (limited to 'arabluatex_trans.lua')
-rw-r--r-- | arabluatex_trans.lua | 126 |
1 files changed, 96 insertions, 30 deletions
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua index 2b9fcdf..b21397d 100644 --- a/arabluatex_trans.lua +++ b/arabluatex_trans.lua | |||
@@ -213,12 +213,16 @@ trigraphstrdmg = { -- trigraphs or more | |||
213 | -- al- + lām | 213 | -- al- + lām |
214 | {a="^(a)l%-(l)", b="%1l-%2"}, | 214 | {a="^(a)l%-(l)", b="%1l-%2"}, |
215 | {a="([%(%[%|%<%s%-o])(a)l%-(l)", b="%1%2l-%3"}, --p | 215 | {a="([%(%[%|%<%s%-o])(a)l%-(l)", b="%1%2l-%3"}, --p |
216 | -- al- + solar consonant | 216 | -- al- + solar consonant ('c' and '^n' are additional characters) |
217 | {a="^(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2-%2"}, | 217 | {a="^(a)l%-(%^n)", b="%1l-%2"}, -- ^n is lunar |
218 | {a="([%(%[%|%<%s%-o])(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2%3-%3"}, --p | 218 | {a="([%(%[%|%<%s%-o])(a)l%-(%^n)", b="%1%2l-%3"}, --^n is lunar --p |
219 | -- assim. art. + solar consonant | 219 | {a="^(a)l%-([%_%^%.]?[tdrzsnc])", b="%1%2-%2"}, |
220 | {a="^(a)([%_%^%.]?[tdrzsn])%-", b="%1%2-"}, | 220 | {a="([%(%[%|%<%s%-o])(a)l%-([%_%^%.]?[tdrzsnc])", b="%1%2%3-%3"}, --p |
221 | {a="([%(%[%|%<%s%-o])(a)([%_%^%.]?[tdrzsn])%-", b="%1%2%3-"}, --p | 221 | -- assim. art. + solar consonant ('c' and '^n' are additional characters) |
222 | {a="^(a)(%^n)%-", b="%1l-"}, -- ^n is lunar | ||
223 | {a="([%(%[%|%<%s%-o])(a)(%^n)%-", b="%1%2l-"}, --^n is lunar --p | ||
224 | {a="^(a)([%_%^%.]?[tdrzsnc])%-", b="%1%2-"}, | ||
225 | {a="([%(%[%|%<%s%-o])(a)([%_%^%.]?[tdrzsnc])%-", b="%1%2%3-"}, --p | ||
222 | -- al- + initial unstable hamza | 226 | -- al- + initial unstable hamza |
223 | {a="^(a)l%-(\"?[uai])", b="%1l-%2"}, | 227 | {a="^(a)l%-(\"?[uai])", b="%1l-%2"}, |
224 | {a="([%(%[%|%<%s%-o])(a)l%-(\"?[uai])", b="%1%2l-%3"}, --p | 228 | {a="([%(%[%|%<%s%-o])(a)l%-(\"?[uai])", b="%1%2l-%3"}, --p |
@@ -235,15 +239,23 @@ trigraphstrdmg = { -- trigraphs or more | |||
235 | -- art. with waṣla + lām | 239 | -- art. with waṣla + lām |
236 | {a="'l%-(l)", b="'l-%1"}, | 240 | {a="'l%-(l)", b="'l-%1"}, |
237 | -- art. with waṣla + solar consonant | 241 | -- art. with waṣla + solar consonant |
238 | {a="'l%-([%_%^%.]?[tdrzsn])", b="'%1-%1"}, | 242 | -- ('c' and '^n' are additional characters) |
243 | {a="'l%-(%^n)", b="'l-%1"}, -- ^n is lunar | ||
244 | {a="'l%-([%_%^%.]?[tdrzsnc])", b="'%1-%1"}, | ||
239 | -- li-/la- + art. + lām | 245 | -- li-/la- + art. + lām |
240 | {a="l([ai])%-l%-(l)", b="l%1-%2%2"}, | 246 | {a="l([ai])%-l%-(l)", b="l%1-%2%2"}, |
241 | -- assim. art. with waṣla + solar consonant | 247 | -- assim. art. with waṣla + solar consonant |
242 | {a="'([%_%^%.]?[tdrzsn])%-", b="'%1-"}, | 248 | -- ('c' and '^n' are additional characters) |
249 | {a="'(%^n)%-", b="'l-"}, -- ^n is lunar | ||
250 | {a="'([%_%^%.]?[tdrzsnc])%-", b="'%1-"}, | ||
243 | -- li-/la- + art. + solar consonant is a special orthography | 251 | -- li-/la- + art. + solar consonant is a special orthography |
244 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsn])", b="l%1-%2-%2"}, | 252 | -- ('c' and '^n' are additional characters) |
253 | {a="l([ai])%-l%-(%^n)", b="l%1-l-%2"}, -- ^n is lunar | ||
254 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsnc])", b="l%1-%2-%2"}, | ||
245 | -- li-/la- + assim. art. + solar consonant is a special orthography | 255 | -- li-/la- + assim. art. + solar consonant is a special orthography |
246 | {a="l([ai])%-([%_%^%.]?[tdrzsn])%-([%_%^%.]?[tdrzsn])", b="l%1-%2-%3"}, | 256 | -- ('c' and '^n' are additional characters) |
257 | {a="l([ai])%-(%^n)%-(%^n)", b="l%1-l-%3"}, -- ^n is lunar | ||
258 | {a="l([ai])%-([%_%^%.]?[tdrzsnc])%-([%_%^%.]?[tdrzsnc])", b="l%1-%2-%3"}, | ||
247 | -- art. with waṣla + initial unstable hamza | 259 | -- art. with waṣla + initial unstable hamza |
248 | {a="'l%-(\"?[uai])", b="'l-%1"}, | 260 | {a="'l%-(\"?[uai])", b="'l-%1"}, |
249 | -- art. with waṣla + lunar consonant (i.e. what remains) | 261 | -- art. with waṣla + lunar consonant (i.e. what remains) |
@@ -353,6 +365,11 @@ digraphstrdmg = { | |||
353 | {a="%.t", b="ṭ"}, | 365 | {a="%.t", b="ṭ"}, |
354 | {a="%.z", b="ẓ"}, | 366 | {a="%.z", b="ẓ"}, |
355 | {a="%.g", b="ġ"}, | 367 | {a="%.g", b="ġ"}, |
368 | -- additional characters (begin) | ||
369 | {a="%^c", b="č"}, | ||
370 | {a="%^z", b="ž"}, | ||
371 | {a="%^n", b="g"}, | ||
372 | -- additional characters (end) | ||
356 | -- the following needs to be moved above shortening rules | 373 | -- the following needs to be moved above shortening rules |
357 | -- {a="(U)(A)", b="ū"}, | 374 | -- {a="(U)(A)", b="ū"}, |
358 | {a="WA", b="w"}, | 375 | {a="WA", b="w"}, |
@@ -389,6 +406,11 @@ singletrdmg = { | |||
389 | {a="w", b="w"}, | 406 | {a="w", b="w"}, |
390 | {a="y", b="y"}, | 407 | {a="y", b="y"}, |
391 | {a="T", b="t"}, | 408 | {a="T", b="t"}, |
409 | -- additional characters (begin) | ||
410 | {a="p", b="p"}, | ||
411 | {a="v", b="v"}, | ||
412 | {a="g", b="g"}, -- for ^n → g see above | ||
413 | -- additional characters (end) | ||
392 | {a="\"", b=""}, | 414 | {a="\"", b=""}, |
393 | {a="B", b=""} | 415 | {a="B", b=""} |
394 | } | 416 | } |
@@ -495,12 +517,16 @@ trigraphstrloc = { -- trigraphs or more | |||
495 | -- al- + lām | 517 | -- al- + lām |
496 | {a="^(a)l%-(l)", b="%1l-%2"}, | 518 | {a="^(a)l%-(l)", b="%1l-%2"}, |
497 | {a="(%s)(a)l%-(l)", b="%1%2l-%3"}, | 519 | {a="(%s)(a)l%-(l)", b="%1%2l-%3"}, |
498 | -- al- + solar consonant | 520 | -- al- + solar consonant ('c' and '^n' are additional characters) |
499 | {a="^(a)l%-([%_%^%.]?[tdrzsn])", b="%1l-%2"}, | 521 | {a="^(a)l%-(%^n)", b="%1l-%2"}, -- ^n is lunar |
500 | {a="(%s)(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2l-%3"}, | 522 | {a="(%s)(a)l%-(%^n)", b="%1%2l-%3"}, -- ^n is lunar |
501 | -- assim. art. + solar consonant | 523 | {a="^(a)l%-([%_%^%.]?[tdrzsnc])", b="%1l-%2"}, |
502 | {a="^(a)([%_%^%.]?[tdrzsn])%-", b="%1l-"}, | 524 | {a="(%s)(a)l%-([%_%^%.]?[tdrzsnc])", b="%1%2l-%3"}, |
503 | {a="(%s)(a)([%_%^%.]?[tdrzsn])%-", b="%1%2l-"}, | 525 | -- assim. art. + solar consonant ('c' and '^n' are additional characters) |
526 | {a="^(a)(%^n)%-", b="%1l-"}, -- ^n is lunar | ||
527 | {a="(%s)(a)(%^n)%-", b="%1%2l-"}, -- ^n is lunar | ||
528 | {a="^(a)([%_%^%.]?[tdrzsnc])%-", b="%1l-"}, | ||
529 | {a="(%s)(a)([%_%^%.]?[tdrzsnc])%-", b="%1%2l-"}, | ||
504 | -- al- + initial unstable hamza | 530 | -- al- + initial unstable hamza |
505 | {a="^(a)l%-([uai])", b="%1l-%2"}, | 531 | {a="^(a)l%-([uai])", b="%1l-%2"}, |
506 | {a="(%s)(a)l%-([uai])", b="%1%2l-%3"}, | 532 | {a="(%s)(a)l%-([uai])", b="%1%2l-%3"}, |
@@ -512,15 +538,23 @@ trigraphstrloc = { -- trigraphs or more | |||
512 | -- art. with waṣla + lām | 538 | -- art. with waṣla + lām |
513 | {a="'l%-(l)", b="al-%1"}, | 539 | {a="'l%-(l)", b="al-%1"}, |
514 | -- art. with waṣla + solar consonant | 540 | -- art. with waṣla + solar consonant |
515 | {a="'l%-([%_%^%.]?[tdrzsn])", b="al-%1"}, | 541 | -- ('c' and '^n' are additional characters) |
542 | {a="'l%-(%^n)", b="al-%1"}, -- ^n is lunar | ||
543 | {a="'l%-([%_%^%.]?[tdrzsnc])", b="al-%1"}, | ||
516 | -- li-/la- + art. + lām | 544 | -- li-/la- + art. + lām |
517 | {a="l([ai])%-l%-(l)", b="l%1-l-%2"}, | 545 | {a="l([ai])%-l%-(l)", b="l%1-l-%2"}, |
518 | -- assim. art. with waṣla + solar consonant | 546 | -- assim. art. with waṣla + solar consonant |
519 | {a="'([%_%^%.]?[tdrzsn])%-", b="al-"}, | 547 | -- ('c' and '^n' are additional characters) |
548 | {a="'(%^n)%-", b="al-"}, -- ^n is lunar | ||
549 | {a="'([%_%^%.]?[tdrzsnc])%-", b="al-"}, | ||
520 | -- li-/la- + art. + solar consonant is a special orthography | 550 | -- li-/la- + art. + solar consonant is a special orthography |
521 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsn])", b="l%1-l-%2"}, | 551 | -- ('c' and '^n' are additional characters) |
552 | {a="l([ai])%-l%-(%^n)", b="l%1-l-%2"}, -- ^n is lunar | ||
553 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsnc])", b="l%1-l-%2"}, | ||
522 | -- li-/la- + assim. art. + solar consonant is a special orthography | 554 | -- li-/la- + assim. art. + solar consonant is a special orthography |
523 | {a="l([ai])%-([%_%^%.]?[tdrzsn])%-([%_%^%.]?[tdrzsn])", b="l%1-l-%3"}, | 555 | -- ('c' and '^n' are additional characters) |
556 | {a="l([ai])%-(%^n)%-(%^n)", b="l%1-l-%3"}, -- ^n is lunar | ||
557 | {a="l([ai])%-([%_%^%.]?[tdrzsnc])%-([%_%^%.]?[tdrzsnc])", b="l%1-l-%3"}, | ||
524 | -- art. with waṣla + initial unstable hamza | 558 | -- art. with waṣla + initial unstable hamza |
525 | {a="'l%-([uai])", b="al-%1"}, | 559 | {a="'l%-([uai])", b="al-%1"}, |
526 | -- art. with waṣla + lunar consonant (i.e. what remains) | 560 | -- art. with waṣla + lunar consonant (i.e. what remains) |
@@ -576,6 +610,11 @@ digraphstrloc = { | |||
576 | {a="%.t", b="ṭ"}, | 610 | {a="%.t", b="ṭ"}, |
577 | {a="%.z", b="ẓ"}, | 611 | {a="%.z", b="ẓ"}, |
578 | {a="%.g", b="gh"}, | 612 | {a="%.g", b="gh"}, |
613 | -- additional characters (begin) | ||
614 | {a="%^c", b="ch"}, | ||
615 | {a="%^z", b="zh"}, | ||
616 | {a="%^n", b="ñ"}, | ||
617 | -- additional characters (end) | ||
579 | {a="(U)(A)", b="ū"}, | 618 | {a="(U)(A)", b="ū"}, |
580 | {a="WA", b="w"}, | 619 | {a="WA", b="w"}, |
581 | {a="(a)W", b="%1w"}, | 620 | {a="(a)W", b="%1w"}, |
@@ -611,6 +650,11 @@ singletrloc = { | |||
611 | {a="w", b="w"}, | 650 | {a="w", b="w"}, |
612 | {a="y", b="y"}, | 651 | {a="y", b="y"}, |
613 | {a="T", b="t"}, | 652 | {a="T", b="t"}, |
653 | -- additional characters (begin) | ||
654 | {a="p", b="p"}, | ||
655 | {a="v", b="v"}, | ||
656 | {a="g", b="g"}, | ||
657 | -- additional characters (end) | ||
614 | {a="\"", b=""}, | 658 | {a="\"", b=""}, |
615 | {a="B", b=""} | 659 | {a="B", b=""} |
616 | } | 660 | } |
@@ -709,12 +753,16 @@ trigraphstrarabica = { -- trigraphs or more | |||
709 | -- al- + lām | 753 | -- al- + lām |
710 | {a="^(a)l%-(l)", b="%1l-%2"}, | 754 | {a="^(a)l%-(l)", b="%1l-%2"}, |
711 | {a="(%s)(a)l%-(l)", b="%1%2l-%3"}, | 755 | {a="(%s)(a)l%-(l)", b="%1%2l-%3"}, |
712 | -- al- + solar consonant | 756 | -- al- + solar consonant ('c' and '^n' are additional characters) |
713 | {a="^(a)l%-([%_%^%.]?[tdrzsn])", b="%1l-%2"}, | 757 | {a="^(a)l%-(%^n)", b="%1l-%2"}, -- ^n is lunar |
714 | {a="(%s)(a)l%-([%_%^%.]?[tdrzsn])", b="%1%2l-%3"}, | 758 | {a="(%s)(a)l%-(%^n)", b="%1%2l-%3"}, -- ^n is lunar |
715 | -- assim. art. + solar consonant | 759 | {a="^(a)l%-([%_%^%.]?[tdrzsnc])", b="%1l-%2"}, |
716 | {a="^(a)([%_%^%.]?[tdrzsn])%-", b="%1l-"}, | 760 | {a="(%s)(a)l%-([%_%^%.]?[tdrzsnc])", b="%1%2l-%3"}, |
717 | {a="(%s)(a)([%_%^%.]?[tdrzsn])%-", b="%1%2l-"}, | 761 | -- assim. art. + solar consonant ('c' and '^n' are additional characters) |
762 | {a="^(a)(%^n)%-", b="%1l-"}, -- ^n is lunar | ||
763 | {a="(%s)(a)(%^n)%-", b="%1%2l-"}, -- ^n is lunar | ||
764 | {a="^(a)([%_%^%.]?[tdrzsnc])%-", b="%1l-"}, | ||
765 | {a="(%s)(a)([%_%^%.]?[tdrzsnc])%-", b="%1%2l-"}, | ||
718 | -- al- + initial unstable hamza | 766 | -- al- + initial unstable hamza |
719 | {a="^(a)l%-([uai])", b="%1l-%2"}, | 767 | {a="^(a)l%-([uai])", b="%1l-%2"}, |
720 | {a="(%s)(a)l%-([uai])", b="%1%2l-%3"}, | 768 | {a="(%s)(a)l%-([uai])", b="%1%2l-%3"}, |
@@ -726,15 +774,23 @@ trigraphstrarabica = { -- trigraphs or more | |||
726 | -- art. with waṣla + lām | 774 | -- art. with waṣla + lām |
727 | {a="'l%-(l)", b="l-%1"}, | 775 | {a="'l%-(l)", b="l-%1"}, |
728 | -- art. with waṣla + solar consonant | 776 | -- art. with waṣla + solar consonant |
729 | {a="'l%-([%_%^%.]?[tdrzsn])", b="l-%1"}, | 777 | -- ('c' and '^n' are additional characters) |
778 | {a="'l%-(%^n)", b="l-%1"}, -- ^n is lunar | ||
779 | {a="'l%-([%_%^%.]?[tdrzsnc])", b="l-%1"}, | ||
730 | -- li-/la- + art. + lām | 780 | -- li-/la- + art. + lām |
731 | {a="l([ai])%-l%-(l)", b="l%1-l-%2"}, | 781 | {a="l([ai])%-l%-(l)", b="l%1-l-%2"}, |
732 | -- assim. art. with waṣla + solar consonant | 782 | -- assim. art. with waṣla + solar consonant |
733 | {a="'([%_%^%.]?[tdrzsn])%-", b="l-"}, | 783 | -- ('c' and '^n' are additional characters) |
784 | {a="'(%^n)%-", b="l-"}, -- ^n is lunar | ||
785 | {a="'([%_%^%.]?[tdrzsnc])%-", b="l-"}, | ||
734 | -- li-/la- + art. + solar consonant is a special orthography | 786 | -- li-/la- + art. + solar consonant is a special orthography |
735 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsn])", b="l%1-l-%2"}, | 787 | -- ('c' and '^n' are additional characters) |
788 | {a="l([ai])%-l%-(%^n)", b="l%1-l-%2"}, -- ^n is lunar | ||
789 | {a="l([ai])%-l%-([%_%^%.]?[tdrzsnc])", b="l%1-l-%2"}, | ||
736 | -- li-/la- + assim. art. + solar consonant is a special orthography | 790 | -- li-/la- + assim. art. + solar consonant is a special orthography |
737 | {a="l([ai])%-([%_%^%.]?[tdrzsn])%-([%_%^%.]?[tdrzsn])", b="l%1-l-%3"}, | 791 | -- ('c' and '^n' are additional characters) |
792 | {a="l([ai])%-(%^n)%-(%^n)", b="l%1-l-%3"}, -- ^n is lunar | ||
793 | {a="l([ai])%-([%_%^%.]?[tdrzsnc])%-([%_%^%.]?[tdrzsnc])", b="l%1-l-%3"}, | ||
738 | -- art. with waṣla + initial unstable hamza | 794 | -- art. with waṣla + initial unstable hamza |
739 | {a="'l%-([uai])", b="l-%1"}, | 795 | {a="'l%-([uai])", b="l-%1"}, |
740 | -- art. with waṣla + lunar consonant (i.e. what remains) | 796 | -- art. with waṣla + lunar consonant (i.e. what remains) |
@@ -790,6 +846,11 @@ digraphstrarabica = { | |||
790 | {a="%.t", b="ṭ"}, | 846 | {a="%.t", b="ṭ"}, |
791 | {a="%.z", b="ẓ"}, | 847 | {a="%.z", b="ẓ"}, |
792 | {a="%.g", b="ġ"}, | 848 | {a="%.g", b="ġ"}, |
849 | -- additional characters (begin) | ||
850 | {a="%^c", b="č"}, | ||
851 | {a="%^z", b="ž"}, | ||
852 | {a="%^n", b="g"}, | ||
853 | -- additional characters (end) | ||
793 | {a="(U)(A)", b="ū"}, | 854 | {a="(U)(A)", b="ū"}, |
794 | {a="WA", b="w"}, | 855 | {a="WA", b="w"}, |
795 | {a="(a)W", b="%1w"}, | 856 | {a="(a)W", b="%1w"}, |
@@ -825,6 +886,11 @@ singletrarabica = { | |||
825 | {a="w", b="w"}, | 886 | {a="w", b="w"}, |
826 | {a="y", b="y"}, | 887 | {a="y", b="y"}, |
827 | {a="T", b="t"}, | 888 | {a="T", b="t"}, |
889 | -- additional characters (begin) | ||
890 | {a="p", b="p"}, | ||
891 | {a="v", b="v"}, | ||
892 | {a="g", b="g"}, -- for ^n → g see above | ||
893 | -- additional characters (end) | ||
828 | {a="\"", b=""}, | 894 | {a="\"", b=""}, |
829 | {a="B", b=""} | 895 | {a="B", b=""} |
830 | } | 896 | } |