From 4588ab71394187a697d9218251e6ed886f429aaf Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Thu, 16 Jun 2022 01:17:15 +0200 Subject: =?UTF-8?q?use=20H=20to=20encode=20the=20t=C4=81=CA=BE=20marb?= =?UTF-8?q?=C5=ABtah=20devoid=20of=20diacritical=20points?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- arabluatex_fullvoc.lua | 38 ++++++++++++++++++++------------------ 1 file changed, 20 insertions(+), 18 deletions(-) (limited to 'arabluatex_fullvoc.lua') diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua index adfccf4..e34f12d 100644 --- a/arabluatex_fullvoc.lua +++ b/arabluatex_fullvoc.lua @@ -104,7 +104,7 @@ hamzafv = { -- mi'aT is special orthography (unlike ^say'aN and .zim'aN): -- {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"}, --new -- {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, --new - {a="(mi)(%')(a[Tt])", b="%1ائ%3"}, + {a="(mi)(%')(a[TtH])", b="%1ائ%3"}, {a="(mi)(%')(aN%_?[AY])", b="%1أ%3"}, -- final hamzah is on the line after a letter of prolongation or a -- consonant with sukūn @@ -256,7 +256,7 @@ hamzafveasy = { -- differences marked below with 'easy' -- mi'aT is special orthography (unlike ^say'aN and .zim'aN) -- {a="(%^sa%.?[yY])(\"?%|?)(%')(aN)", b="%1%2ئ%4"}, --new -- {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, --new - {a="(mi)(%')(a[Tt])", b="%1ائ%3"}, + {a="(mi)(%')(a[TtH])", b="%1ائ%3"}, {a="(mi)(%')(aN%_?[AY])", b="%1أ%3"}, -- easy (begin) -- The Munjid says that such words as radI'aN do not have the @@ -351,9 +351,9 @@ tanwinfv = { -- with assimilations (\SetArbDflt*) {a="(O[%S]-)(%-?aN)(Y)(O)([rlmnwy])", b="%5%5"}, {a="%-?(aN)(_A)(%s)([rlmnwy])", b="ًى%3%4%4"}, {a="%-?(aN)(Y)(%s)([rlmnwy])", b="ًى%3%4%4"}, - {a="(T)%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"}, + {a="([TH])%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"}, -- {a="(ء)%-?(aN)(%s)([rlmnwy])", b="%1%2%3%4%4"}, --new - {a="([^TA])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"}, + {a="([^TAH])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"}, {a="%-?(iNI?)(%s)([rlmnwy])", b="ٍ%2%3%3"}, -- assimilations (end) {a="(O[%S]-)(%-?aN)(_A)(O)([uai])", b="ٱ"}, @@ -363,9 +363,9 @@ tanwinfv = { -- with assimilations (\SetArbDflt*) {a="(B)%-?(\"aN)", b="%1"}, {a="%-?(\"aN)(_A)", b="ى"}, {a="%-?(\"aN)(Y)", b="ى"}, - {a="(T)%-?(\"aN)", b="%1"}, + {a="([TH])%-?(\"aN)", b="%1"}, {a="([اآ])(ء)%-?(\"aN)", b="%1%2"}, --new - {a="([^TA])%-?(\"aN)", b="%1ا"}, + {a="([^TAH])%-?(\"aN)", b="%1ا"}, {a="%-?(\"iNI?)", b=""}, -- quoted tanwīn (end) {a="%-?(uN)", b="ٌ"}, @@ -373,15 +373,15 @@ tanwinfv = { -- with assimilations (\SetArbDflt*) -- needed by \arbcolor: {a="%-?(aN)(O[%S]-%_AO)", b="ً"}, {a="%-?(aN)(O[%S]-YO)", b="ً"}, - {a="(O[%S]-TO)%-?(aN)", b="ً"}, + {a="(O[%S]-[TH]O)%-?(aN)", b="ً"}, {a="(O[%S]-)([اآ])(ء)(O)%-?(aN)", b="ً"}, --new - {a="(O[%S]-[^TA]O)%-?(aN)", b="ًا"}, + {a="(O[%S]-[^TAH]O)%-?(aN)", b="ًا"}, -- {a="%-?(aN)(_A)", b="ًى"}, {a="%-?(aN)(Y)", b="ًى"}, - {a="(T)%-?(aN)", b="%1ً"}, + {a="([TH])%-?(aN)", b="%1ً"}, {a="([اآ])(ء)%-?(aN)", b="%1%2ً"}, --new - {a="([^TA])%-?(aN)", b="%1ًا"}, + {a="([^TAH])%-?(aN)", b="%1ًا"}, {a="%-?(iNI?)", b="ٍ"} } @@ -405,9 +405,9 @@ tanwinfveasy = { -- no assimilations (see below) --easy {a="(O[%S]-)(%-?aN)(Y)(O)([rlmnwy])", b="%5%5"}, --easy {a="%-?(aN)(_A)(%s)([rlmnwy])", b="ًى%3%4%4"}, --easy {a="%-?(aN)(Y)(%s)([rlmnwy])", b="ًى%3%4%4"}, ---easy {a="(T)%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"}, +--easy {a="([TH])%-?(aN)(%s)([rlmnwy])", b="%1ً%3%4%4"}, --easy {a="(ء)%-?(aN)(%s)([rlmnwy])", b="%1%2%3%4%4"}, --new ---easy {a="([^TA])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"}, +--easy {a="([^TAH])%-?(aN)(%s)([rlmnwy])", b="%1ًا%3%4%4"}, --easy {a="%-?(iNI?)(%s)([rlmnwy])", b="ٍ%2%3%3"}, -- assimilations (end) {a="(O[%S]-)(%-?aN)(_A)(O)([uai])", b="ٱ"}, @@ -417,9 +417,9 @@ tanwinfveasy = { -- no assimilations (see below) {a="(B)%-?(\"aN)", b="%1"}, {a="%-?(\"aN)(_A)", b="ى"}, {a="%-?(\"aN)(Y)", b="ى"}, - {a="(T)%-?(\"aN)", b="%1"}, + {a="([TH])%-?(\"aN)", b="%1"}, {a="([اآ])(ء)%-?(\"aN)", b="%1%2"}, --new - {a="([^TA])%-?(\"aN)", b="%1ا"}, + {a="([^TAH])%-?(\"aN)", b="%1ا"}, {a="%-?(\"iNI?)", b=""}, -- quoted tanwīn (end) {a="%-?(uN)", b="ٌ"}, @@ -427,15 +427,15 @@ tanwinfveasy = { -- no assimilations (see below) -- needed by \arbcolor: {a="%-?(aN)(O[%S]-%_AO)", b="ً"}, {a="%-?(aN)(O[%S]-YO)", b="ً"}, - {a="(O[%S]-TO)%-?(aN)", b="ً"}, + {a="(O[%S]-[TH]O)%-?(aN)", b="ً"}, {a="(O[%S]-)([اآ])(ء)(O)%-?(aN)", b="ً"}, --new - {a="(O[%S]-[^TA]O)%-?(aN)", b="ًا"}, + {a="(O[%S]-[^TAH]O)%-?(aN)", b="ًا"}, -- {a="%-?(aN)(_A)", b="ًى"}, {a="%-?(aN)(Y)", b="ًى"}, - {a="(T)%-?(aN)", b="%1ً"}, + {a="([TH])%-?(aN)", b="%1ً"}, {a="([اآ])(ء)%-?(aN)", b="%1%2ً"}, --new - {a="([^TA])%-?(aN)", b="%1ًا"}, + {a="([^TAH])%-?(aN)", b="%1ًا"}, {a="%-?(iNI?)", b="ٍ"} } @@ -1007,6 +1007,7 @@ singlefv = { {a="w", b="و"}, {a="y", b="ي"}, {a="T", b="ة"}, + {a="H", b="ه"}, -- additional characters (begin) {a="p", b="پ"}, {a="v", b="ڤ"}, @@ -1042,6 +1043,7 @@ singlefveasy = { -- see the differences under 'easy' tag below {a="y", b="ي"}, {a="T", b="ة"}, -- additional characters (begin) + {a="H", b="ه"}, {a="p", b="پ"}, {a="v", b="ڤ"}, {a="g", b="گ"}, -- cgit v1.2.3