aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobert Alessi <alessi@robertalessi.net>2017-06-25 20:13:03 +0200
committerRobert Alessi <alessi@robertalessi.net>2017-06-25 20:13:03 +0200
commit83d1a755875a5363425127bd761f203a7918cbb1 (patch)
treeee5731fe83a36d8e0b4aac139ccc439b8a05660b
parent267d989c5e9667fc77d9add3ea1ccfc544a5f0bc (diff)
downloadarabluatex-83d1a755875a5363425127bd761f203a7918cbb1.tar.gz
'aY' may be used to encode consonant yāʾ without dots (as in qaY'uN); '.y' also gives the same results
-rw-r--r--arabluatex_fullvoc.lua48
-rw-r--r--arabluatex_trans.lua27
-rw-r--r--arabluatex_voc.lua21
3 files changed, 66 insertions, 30 deletions
diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index 99efb75..8379693 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -78,11 +78,14 @@ hamzafv = {
78 -- then the 'initial' rules for the remaining cases 78 -- then the 'initial' rules for the remaining cases
79 {a="^(')([ua])", b="أ%2"}, 79 {a="^(')([ua])", b="أ%2"},
80 {a="^(')(i)", b="إ%2"}, 80 {a="^(')(i)", b="إ%2"},
81 {a="(%W)(')([ua])", b="%1أ%3"}, 81 -- consider replacing initial %W with [%s%(%[%<]:
82 {a="(%W)(')(i)", b="%1إ%3"}, 82 -- {a="(%W)(')([ua])", b="%1أ%3"},
83 -- {a="(%W)(')(i)", b="%1إ%3"},
84 {a="([%s%(%[%<])(')([ua])", b="%1أ%3"},
85 {a="([%s%(%[%<])(')(i)", b="%1إ%3"},
83 -- final 86 -- final
84 -- ^say'aN and .zim'aN are special orthographies 87 -- ^say'aN and .zim'aN are special orthographies
85 {a="(%^say)(%')(aN)", b="%1ئ%3"}, 88 {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"},
86 {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, 89 {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
87 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. 90 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg.
88 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. 91 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg.
@@ -190,11 +193,14 @@ hamzafveasy = { -- differences marked below with 'easy'
190 -- then the 'initial' rules for the remaining cases 193 -- then the 'initial' rules for the remaining cases
191 {a="^(')([ua])", b="أ%2"}, 194 {a="^(')([ua])", b="أ%2"},
192 {a="^(')(i)", b="إ%2"}, 195 {a="^(')(i)", b="إ%2"},
193 {a="(%W)(')([ua])", b="%1أ%3"}, 196 -- consider replacing initial %W with [%s%(%[%<]:
194 {a="(%W)(')(i)", b="%1إ%3"}, 197 -- {a="(%W)(')([ua])", b="%1أ%3"},
198 -- {a="(%W)(')(i)", b="%1إ%3"},
199 {a="([%s%(%[%<])(')([ua])", b="%1أ%3"},
200 {a="([%s%(%[%<])(')(i)", b="%1إ%3"},
195 -- final 201 -- final
196 -- ^say'aN and .zim'aN are special orthographies 202 -- ^say'aN and .zim'aN are special orthographies
197 {a="(%^say)(%')(aN)", b="%1ئ%3"}, 203 {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"},
198 {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, 204 {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
199 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. 205 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg.
200 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. 206 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg.
@@ -565,6 +571,7 @@ digraphsfvidgham = {
565 {a="hh", b="هّ"}, 571 {a="hh", b="هّ"},
566 {a="ww", b="وّ"}, 572 {a="ww", b="وّ"},
567 {a="yy", b="يّ"}, 573 {a="yy", b="يّ"},
574 {a="%.y%.y", b="ىّ"},
568 -- additional characters + šaddah (begin) 575 -- additional characters + šaddah (begin)
569 {a="pp", b="پّ"}, 576 {a="pp", b="پّ"},
570 {a="vv", b="ڤّ"}, 577 {a="vv", b="ڤّ"},
@@ -575,10 +582,10 @@ digraphsfvidgham = {
575 -- additional characters + šaddah (end) 582 -- additional characters + šaddah (end)
576 -- sukūn begin 583 -- sukūn begin
577 -- first, take out hyphen if any: 584 -- first, take out hyphen if any:
578 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"}, 585 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])%-([uaiUAI])", b="%1%2"},
579 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"}, 586 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY]%p?)$", b="%1ْ"},
580 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"}, 587 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])(%p?%s)", b="%1ْ%2"},
581 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"}, 588 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"},
582 -- take out sukūn in cases of assimilation 589 -- take out sukūn in cases of assimilation
583 {a="(n)(ْ)(%s)(ر)", b="%1%3%4"}, 590 {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},
584 {a="(n)(ْ)(%s)(و)", b="%1%3%4"}, 591 {a="(n)(ْ)(%s)(و)", b="%1%3%4"},
@@ -599,6 +606,7 @@ digraphsfvidgham = {
599 {a="%.t", b="ط"}, 606 {a="%.t", b="ط"},
600 {a="%.z", b="ظ"}, 607 {a="%.z", b="ظ"},
601 {a="%.g", b="غ"}, 608 {a="%.g", b="غ"},
609 {a="%.y", b="ى"},
602 -- additional characters (begin) 610 -- additional characters (begin)
603 {a="%^c", b="چ"}, 611 {a="%^c", b="چ"},
604 {a="%^z", b="ژ"}, 612 {a="%^z", b="ژ"},
@@ -688,6 +696,7 @@ digraphsfv = {
688 {a="hh", b="هّ"}, 696 {a="hh", b="هّ"},
689 {a="ww", b="وّ"}, 697 {a="ww", b="وّ"},
690 {a="yy", b="يّ"}, 698 {a="yy", b="يّ"},
699 {a="%.y%.y", b="ىّ"},
691 -- additional characters + šaddah (begin) 700 -- additional characters + šaddah (begin)
692 {a="pp", b="پّ"}, 701 {a="pp", b="پّ"},
693 {a="vv", b="ڤّ"}, 702 {a="vv", b="ڤّ"},
@@ -698,10 +707,10 @@ digraphsfv = {
698 -- additional characters + šaddah (end) 707 -- additional characters + šaddah (end)
699 -- sukūn begin 708 -- sukūn begin
700 -- first, take out hyphen if any: 709 -- first, take out hyphen if any:
701 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"}, 710 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])%-([uaiUAI])", b="%1%2"},
702 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"}, 711 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY]%p?)$", b="%1ْ"},
703 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"}, 712 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])(%p?%s)", b="%1ْ%2"},
704 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"}, 713 {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"},
705 -- take out sukūn in cases of assimilation 714 -- take out sukūn in cases of assimilation
706-- {a="(n)(ْ)(%s)(ر)", b="%1%3%4"}, 715-- {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},
707-- {a="(n)(ْ)(%s)(و)", b="%1%3%4"}, 716-- {a="(n)(ْ)(%s)(و)", b="%1%3%4"},
@@ -722,6 +731,7 @@ digraphsfv = {
722 {a="%.t", b="ط"}, 731 {a="%.t", b="ط"},
723 {a="%.z", b="ظ"}, 732 {a="%.z", b="ظ"},
724 {a="%.g", b="غ"}, 733 {a="%.g", b="غ"},
734 {a="%.y", b="ى"},
725 -- additional characters (begin) 735 -- additional characters (begin)
726 {a="%^c", b="چ"}, 736 {a="%^c", b="چ"},
727 {a="%^z", b="ژ"}, 737 {a="%^z", b="ژ"},
@@ -811,6 +821,7 @@ digraphsfveasy = { -- see the differences under 'easy' marker below
811 {a="hh", b="هّ"}, 821 {a="hh", b="هّ"},
812 {a="ww", b="وّ"}, 822 {a="ww", b="وّ"},
813 {a="yy", b="يّ"}, 823 {a="yy", b="يّ"},
824 {a="%.y%.y", b="ىّ"},
814 -- additional characters + šaddah (begin) 825 -- additional characters + šaddah (begin)
815 {a="pp", b="پّ"}, 826 {a="pp", b="پّ"},
816 {a="vv", b="ڤّ"}, 827 {a="vv", b="ڤّ"},
@@ -824,10 +835,10 @@ digraphsfveasy = { -- see the differences under 'easy' marker below
824 -- so there be no need to edit them: 835 -- so there be no need to edit them:
825 {a="ْ", b=""}, 836 {a="ْ", b=""},
826 -- first, take out hyphen if any: 837 -- first, take out hyphen if any:
827-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"}, 838-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])%-([uaiUAI])", b="%1%2"},
828-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"}, 839-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY]%p?)$", b="%1ْ"},
829-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"}, 840-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])(%p?%s)", b="%1ْ%2"},
830-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIًٌٍ])", b="%1ْ%2"}, 841-- {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwyY])([%_]?[^%_uaiUAIًٌٍ])", b="%1ْ%2"},
831 -- take out sukūn in cases of assimilation 842 -- take out sukūn in cases of assimilation
832-- {a="(n)(ْ)(%s)(ر)", b="%1%3%4"}, 843-- {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},
833-- {a="(n)(ْ)(%s)(و)", b="%1%3%4"}, 844-- {a="(n)(ْ)(%s)(و)", b="%1%3%4"},
@@ -848,6 +859,7 @@ digraphsfveasy = { -- see the differences under 'easy' marker below
848 {a="%.t", b="ط"}, 859 {a="%.t", b="ط"},
849 {a="%.z", b="ظ"}, 860 {a="%.z", b="ظ"},
850 {a="%.g", b="غ"}, 861 {a="%.g", b="غ"},
862 {a="%.y", b="ى"},
851 -- additional characters (begin) 863 -- additional characters (begin)
852 {a="%^c", b="چ"}, 864 {a="%^c", b="چ"},
853 {a="%^z", b="ژ"}, 865 {a="%^z", b="ژ"},
diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index bffc1ae..31e00b2 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -108,8 +108,11 @@ hamzatrdmg = {
108 -- then the 'initial' rules for the remaining cases 108 -- then the 'initial' rules for the remaining cases
109 {a="^(')([ua])", b="ʾ%2"}, 109 {a="^(')([ua])", b="ʾ%2"},
110 {a="^(')(i)", b="ʾ%2"}, 110 {a="^(')(i)", b="ʾ%2"},
111 {a="(%W)(')([ua])", b="%1ʾ%3"}, 111 -- consider replacing initial %W with [%s%(%[%<]:
112 {a="(%W)(')(i)", b="%1ʾ%3"}, 112 -- {a="(%W)(')([ua])", b="%1ʾ%3"},
113 -- {a="(%W)(')(i)", b="%1ʾ%3"},
114 {a="([%s%(%[%<])(')([ua])", b="%1ʾ%3"},
115 {a="([%s%(%[%<])(')(i)", b="%1ʾ%3"},
113 -- final 116 -- final
114 {a="([Iy])(')(aN)$", b="%1ʾ%3"}, 117 {a="([Iy])(')(aN)$", b="%1ʾ%3"},
115 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"}, 118 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -365,6 +368,7 @@ digraphstrdmg = {
365 {a="%.t", b="ṭ"}, 368 {a="%.t", b="ṭ"},
366 {a="%.z", b="ẓ"}, 369 {a="%.z", b="ẓ"},
367 {a="%.g", b="ġ"}, 370 {a="%.g", b="ġ"},
371 {a="%.y", b="y"},
368 -- additional characters (begin) 372 -- additional characters (begin)
369 {a="%^c", b="č"}, 373 {a="%^c", b="č"},
370 {a="%^z", b="ž"}, 374 {a="%^z", b="ž"},
@@ -419,6 +423,7 @@ longvtrdmg = {
419 {a="A", b="ā"}, 423 {a="A", b="ā"},
420 {a="U", b="ū"}, 424 {a="U", b="ū"},
421 {a="I", b="ī"}, 425 {a="I", b="ī"},
426 {a="aY", b="ay"},
422 {a="iY", b="ī"}, 427 {a="iY", b="ī"},
423 {a="Y", b="ạ̄"} 428 {a="Y", b="ạ̄"}
424} 429}
@@ -469,8 +474,11 @@ hamzatrloc = {
469 -- initial (needs both ^ and %W patterns) 474 -- initial (needs both ^ and %W patterns)
470 {a="^(')([ua])", b="%2"}, 475 {a="^(')([ua])", b="%2"},
471 {a="^(')(i)", b="%2"}, 476 {a="^(')(i)", b="%2"},
472 {a="(%W)(')([ua])", b="%1%3"}, 477 -- consider replacing initial %W with [%s%(%[%<]:
473 {a="(%W)(')(i)", b="%1%3"}, 478 -- {a="(%W)(')([ua])", b="%1%3"},
479 -- {a="(%W)(')(i)", b="%1%3"},
480 {a="([%s%(%[%<])(')([ua])", b="%1%3"},
481 {a="([%s%(%[%<])(')(i)", b="%1%3"},
474 -- final 482 -- final
475 {a="([Iy])(')(aN)$", b="%1ʾ%3"}, 483 {a="([Iy])(')(aN)$", b="%1ʾ%3"},
476 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"}, 484 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -611,6 +619,7 @@ digraphstrloc = {
611 {a="%.t", b="ṭ"}, 619 {a="%.t", b="ṭ"},
612 {a="%.z", b="ẓ"}, 620 {a="%.z", b="ẓ"},
613 {a="%.g", b="gh"}, 621 {a="%.g", b="gh"},
622 {a="%.y", b="y"},
614 -- additional characters (begin) 623 -- additional characters (begin)
615 {a="%^c", b="ch"}, 624 {a="%^c", b="ch"},
616 {a="%^z", b="zh"}, 625 {a="%^z", b="zh"},
@@ -664,6 +673,7 @@ longvtrloc = {
664 {a="A", b="ā"}, 673 {a="A", b="ā"},
665 {a="U", b="ū"}, 674 {a="U", b="ū"},
666 {a="I", b="ī"}, 675 {a="I", b="ī"},
676 {a="aY", b="ay"},
667 {a="iY", b="ī"}, 677 {a="iY", b="ī"},
668 {a="Y", b="á"}, 678 {a="Y", b="á"},
669} 679}
@@ -719,8 +729,11 @@ hamzatrarabica = { -- ≠ from hamzatrloc: initial hamza has to be held
719 -- hold it for now (see below, beginning of digraphs table) 729 -- hold it for now (see below, beginning of digraphs table)
720 {a="^(')([ua])", b="@%2"}, 730 {a="^(')([ua])", b="@%2"},
721 {a="^(')(i)", b="@%2"}, 731 {a="^(')(i)", b="@%2"},
722 {a="(%W)(')([ua])", b="%1@%3"}, 732 -- consider replacing initial %W with [%s%(%[%<]:
723 {a="(%W)(')(i)", b="%1@%3"}, 733 -- {a="(%W)(')([ua])", b="%1@%3"},
734 -- {a="(%W)(')(i)", b="%1@%3"},
735 {a="([%s%(%[%<])(')([ua])", b="%1@%3"},
736 {a="([%s%(%[%<])(')(i)", b="%1@%3"},
724 -- final 737 -- final
725 {a="([Iy])(')(aN)$", b="%1ʾ%3"}, 738 {a="([Iy])(')(aN)$", b="%1ʾ%3"},
726 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"}, 739 {a="([Iy])(')(aN)(%W)", b="%1ʾ%3%4"},
@@ -848,6 +861,7 @@ digraphstrarabica = {
848 {a="%.t", b="ṭ"}, 861 {a="%.t", b="ṭ"},
849 {a="%.z", b="ẓ"}, 862 {a="%.z", b="ẓ"},
850 {a="%.g", b="ġ"}, 863 {a="%.g", b="ġ"},
864 {a="%.y", b="y"},
851 -- additional characters (begin) 865 -- additional characters (begin)
852 {a="%^c", b="č"}, 866 {a="%^c", b="č"},
853 {a="%^z", b="ž"}, 867 {a="%^z", b="ž"},
@@ -898,6 +912,7 @@ singletrarabica = {
898} 912}
899 913
900longvtrarabica = { 914longvtrarabica = {
915 {a="aY", b="ay"},
901 {a="iY", b="ī"}, 916 {a="iY", b="ī"},
902 {a="[AY]", b="ā"}, 917 {a="[AY]", b="ā"},
903 {a="U", b="ū"}, 918 {a="U", b="ū"},
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 9182e52..9251ee9 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -214,11 +214,14 @@ hamza = {
214 -- then the 'initial' rules for the remaining cases 214 -- then the 'initial' rules for the remaining cases
215 {a="^(')([ua])", b="أ%2"}, 215 {a="^(')([ua])", b="أ%2"},
216 {a="^(')(i)", b="إ%2"}, 216 {a="^(')(i)", b="إ%2"},
217 {a="(%W)(')([ua])", b="%1أ%3"}, 217 -- consider replacing initial %W with [%s%(%[%<]:
218 {a="(%W)(')(i)", b="%1إ%3"}, 218 -- {a="(%W)(')([ua])", b="%1أ%3"},
219 -- {a="(%W)(')(i)", b="%1إ%3"},
220 {a="([%s%(%[%<])(')([ua])", b="%1أ%3"},
221 {a="([%s%(%[%<])(')(i)", b="%1إ%3"},
219 -- final 222 -- final
220 -- ^say'aN and .zim'aN are special orthographies 223 -- ^say'aN and .zim'aN are special orthographies
221 {a="(%^say)(%')(aN)", b="%1ئ%3"}, 224 {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"},
222 {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, 225 {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
223 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. 226 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg.
224 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. 227 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg.
@@ -317,11 +320,14 @@ hamzaeasy = { -- differences marked below with 'easy'
317 -- then the 'initial' rules for the remaining cases 320 -- then the 'initial' rules for the remaining cases
318 {a="^(')([ua])", b="أ%2"}, 321 {a="^(')([ua])", b="أ%2"},
319 {a="^(')(i)", b="إ%2"}, 322 {a="^(')(i)", b="إ%2"},
320 {a="(%W)(')([ua])", b="%1أ%3"}, 323 -- consider replacing initial %W with [%s%(%[%<]:
321 {a="(%W)(')(i)", b="%1إ%3"}, 324 -- {a="(%W)(')([ua])", b="%1أ%3"},
325 -- {a="(%W)(')(i)", b="%1إ%3"},
326 {a="([%s%(%[%<])(')([ua])", b="%1أ%3"},
327 {a="([%s%(%[%<])(')(i)", b="%1إ%3"},
322 -- final 328 -- final
323 -- ^say'aN and .zim'aN are special orthographies 329 -- ^say'aN and .zim'aN are special orthographies
324 {a="(%^say)(%')(aN)", b="%1ئ%3"}, 330 {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"},
325 {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, 331 {a="(.zi?m)(%')(aN)", b="%1ئ%3"},
326 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. 332 {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg.
327 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. 333 {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg.
@@ -695,6 +701,7 @@ digraphs = {
695 {a="hh", b="هّ"}, 701 {a="hh", b="هّ"},
696 {a="ww", b="وّ"}, 702 {a="ww", b="وّ"},
697 {a="yy", b="يّ"}, 703 {a="yy", b="يّ"},
704 {a="%.y%.y", b="ىّ"},
698 -- additional characters + šaddah (begin) 705 -- additional characters + šaddah (begin)
699 {a="pp", b="پّ"}, 706 {a="pp", b="پّ"},
700 {a="vv", b="ڤّ"}, 707 {a="vv", b="ڤّ"},
@@ -714,6 +721,7 @@ digraphs = {
714 {a="%.t", b="ط"}, 721 {a="%.t", b="ط"},
715 {a="%.z", b="ظ"}, 722 {a="%.z", b="ظ"},
716 {a="%.g", b="غ"}, 723 {a="%.g", b="غ"},
724 {a="%.y", b="ى"},
717 -- additional characters (begin) 725 -- additional characters (begin)
718 {a="%^c", b="چ"}, 726 {a="%^c", b="چ"},
719 {a="%^z", b="ژ"}, 727 {a="%^z", b="ژ"},
@@ -776,6 +784,7 @@ longv = {
776 {a="A", b="َا"}, 784 {a="A", b="َا"},
777 {a="U", b="ُو"}, 785 {a="U", b="ُو"},
778 {a="I", b="ِي"}, 786 {a="I", b="ِي"},
787 {a="aY", b="aى"},
779 {a="iY", b="iى"}, 788 {a="iY", b="iى"},
780 {a="Y", b="aى"} 789 {a="Y", b="aى"}
781} 790}