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_voc.lua | 37 +++++++++++++++++++------------------ 1 file changed, 19 insertions(+), 18 deletions(-) (limited to 'arabluatex_voc.lua') diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua index 362c866..4db5d3a 100644 --- a/arabluatex_voc.lua +++ b/arabluatex_voc.lua @@ -243,7 +243,7 @@ hamza = { -- 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 @@ -368,7 +368,7 @@ hamzaeasy = { -- 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 @@ -443,9 +443,9 @@ tanwin = { {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="%5"}, @@ -455,9 +455,9 @@ tanwin = { {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="ٌ"}, @@ -465,15 +465,15 @@ tanwin = { -- 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="ٍ"} } @@ -492,9 +492,9 @@ tanwineasy = { -- 'easy' requires some lines to be taken out: -- {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="%5"}, @@ -504,9 +504,9 @@ tanwineasy = { -- 'easy' requires some lines to be taken out: {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="ٌ"}, @@ -514,15 +514,15 @@ tanwineasy = { -- 'easy' requires some lines to be taken out: -- 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="ٍ"} } @@ -836,6 +836,7 @@ single = { {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