diff options
-rw-r--r-- | arabluatex.lua | 4 | ||||
-rw-r--r-- | arabluatex_fullvoc.lua | 13 |
2 files changed, 9 insertions, 8 deletions
diff --git a/arabluatex.lua b/arabluatex.lua index 76d61b3..f1aeda0 100644 --- a/arabluatex.lua +++ b/arabluatex.lua | |||
@@ -143,8 +143,8 @@ local function fullvoc(str) | |||
143 | for i = 1,#tanwin do | 143 | for i = 1,#tanwin do |
144 | inside = string.gsub(inside, tanwin[i].a, tanwin[i].b) | 144 | inside = string.gsub(inside, tanwin[i].a, tanwin[i].b) |
145 | end | 145 | end |
146 | for i = 1,#trigraphs do | 146 | for i = 1,#trigraphsfv do |
147 | inside = string.gsub(inside, trigraphs[i].a, trigraphs[i].b) | 147 | inside = string.gsub(inside, trigraphsfv[i].a, trigraphsfv[i].b) |
148 | end | 148 | end |
149 | for i = 1,#digraphsfv do | 149 | for i = 1,#digraphsfv do |
150 | inside = string.gsub(inside, digraphsfv[i].a, digraphsfv[i].b) | 150 | inside = string.gsub(inside, digraphsfv[i].a, digraphsfv[i].b) |
diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua index 1b72388..42063ec 100644 --- a/arabluatex_fullvoc.lua +++ b/arabluatex_fullvoc.lua | |||
@@ -64,7 +64,7 @@ raw = { | |||
64 | {a="i", b="ِ"} | 64 | {a="i", b="ِ"} |
65 | } | 65 | } |
66 | 66 | ||
67 | -- this will eventually be new | 67 | -- this is new |
68 | hamzafv = { | 68 | hamzafv = { |
69 | -- initial long u | 69 | -- initial long u |
70 | {a="%'%_U", b="أU"}, | 70 | {a="%'%_U", b="أU"}, |
@@ -101,12 +101,13 @@ hamzafv = { | |||
101 | {a="(i)(')([aA])", b="%1ئ%3"}, | 101 | {a="(i)(')([aA])", b="%1ئ%3"}, |
102 | {a="(i)(')([uU])", b="%1ئ%3"}, | 102 | {a="(i)(')([uU])", b="%1ئ%3"}, |
103 | {a="(i)(')([iI])", b="%1ئ%3"}, | 103 | {a="(i)(')([iI])", b="%1ئ%3"}, |
104 | {a="(a)(')([^uaiUAI])", b="%1أ%3"}, | 104 | {a="(a)(')([^uaiUAI])", b="%1أْ%3"}, |
105 | {a="(u)(')([^uaiUAI])", b="%1ؤ%3"}, | 105 | {a="(u)(')([^uaiUAI])", b="%1ؤْ%3"}, |
106 | {a="(i)(')([^uaiUAI])", b="%1ئ%3"} | 106 | {a="(i)(')([^uaiUAI])", b="%1ئْ%3"} |
107 | } | 107 | } |
108 | 108 | ||
109 | trigraphs = { -- trigraphs or more | 109 | -- this is new |
110 | trigraphsfv = { -- trigraphs or more | ||
110 | -- 'llatI / 'llad_I | 111 | -- 'llatI / 'llad_I |
111 | {a="^'ll(a)([%_]?[dt])", b="الّ%1%2"}, | 112 | {a="^'ll(a)([%_]?[dt])", b="الّ%1%2"}, |
112 | {a="(%s)'ll(a)([%_]?[dt])", b="%1الّ%2%3"}, | 113 | {a="(%s)'ll(a)([%_]?[dt])", b="%1الّ%2%3"}, |
@@ -188,7 +189,7 @@ digraphsfv = { | |||
188 | {a="hh", b="هّ"}, | 189 | {a="hh", b="هّ"}, |
189 | {a="ww", b="وّ"}, | 190 | {a="ww", b="وّ"}, |
190 | {a="yy", b="يّ"}, | 191 | {a="yy", b="يّ"}, |
191 | -- sukūn end | 192 | -- sukūn begin |
192 | {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"}, | 193 | {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"}, |
193 | {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([^%_uaiUAIًٌٍ])", b="%1ْ%2"}, | 194 | {a="([%_%^%.]?[btjghxdrzs%`fqklmnwy])([^%_uaiUAIًٌٍ])", b="%1ْ%2"}, |
194 | -- sukūn end | 195 | -- sukūn end |