From 749ab4ccc7ec85f9d109dfea22327a80ef07c621 Mon Sep 17 00:00:00 2001 From: Robert Alessi Date: Sat, 7 Jan 2017 21:18:57 +0100 Subject: bugfix: final hamzah was not parsed correctly in some particular cases --- arabluatex_voc.lua | 132 +++++++++++++++++++++++++++-------------------------- 1 file changed, 68 insertions(+), 64 deletions(-) (limited to 'arabluatex_voc.lua') diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua index 6be30d1..4f8e0aa 100644 --- a/arabluatex_voc.lua +++ b/arabluatex_voc.lua @@ -194,10 +194,10 @@ hamza = { {a="([^uiUI])\'a?A([%_%^%.]?[%`%'btjghxdrzsfqklmnywAY])", b="%1آ%2"}, {a="^\'a?A([%_%^%.]?[%`%'btjghxdrzsfqklmnywAY])", b="آ%1"}, {a="(%W)\'a?A([%_%^%.]?[%`%'btjghxdrzsfqklmnywAY])", b="%1آ%2"}, - {a="(A)(')(uN?)$", b="aآء%3"}, - {a="(A)(')(uN?)(%W)", b="aآء%3%4"}, - {a="(A)(')(iN?)$", b="aآء%3"}, - {a="(A)(')(iN?)(%W)", b="aآء%3%4"}, + {a="(A)(')(uN?%p?)$", b="aآء%3"}, + {a="(A)(')(uN?)(%p?%s)", b="aآء%3%4"}, + {a="(A)(')(iN?%p?)$", b="aآء%3"}, + {a="(A)(')(iN?)(%p?%s)", b="aآء%3%4"}, {a="(A)(')([iI])", b="aآئ%3"}, -- historic madda {a="(A)(')(u)", b="aآؤ%3"}, -- historic madda {a="(A)(')", b="aآء"}, -- historic madda @@ -220,31 +220,33 @@ hamza = { -- ^say'aN and .zim'aN are special orthographies {a="(%^say)(%')(aN)", b="%1ئ%3"}, {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, - {a="([^uai])(')([uai][^%.%^%_]N?)$", b="%1ء%3"}, - {a="([^uai])(')([uai][^%.%^%_]N?)(%W)", b="%1ء%3%4"}, + {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. + {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. + {a="([^uai])(')([uai]N?%p?)$", b="%1ء%3"}, + {a="([^uai])(')([uai]N?)(%p?%s)", b="%1ء%3%4"}, -- u - {a="(u)(')([uai][^%.%^%_]N?)$", b="%1ؤ%3"}, - {a="(u)(')([uai][^%.%^%_]N?)(%W)", b="%1ؤ%3%4"}, - {a="(u)(')$", b="%1ؤ"}, - {a="(u)(')(%W)", b="%1ؤ%3"}, + {a="(u)(')([uai]N?%p?)$", b="%1ؤ%3"}, + {a="(u)(')([uai]N?)(%p?%s)", b="%1ؤ%3%4"}, + {a="(u)('%p?)$", b="%1ؤ"}, + {a="(u)(')(%p?%s)", b="%1ؤ%3"}, -- a - {a="(a)(')(A)$", b="%1آ"}, - {a="(a)(')(A)(%W)", b="%1آ%4"}, - {a="(a)(')([u][^%.%^%_]N?)$", b="%1أ%3"}, - {a="(a)(')([u][^%.%^%_]N?)(%W)", b="%1أ%3%4"}, - {a="(a)(')(a)$", b="%1أ%3"}, - {a="(a)(')(a)(%W)", b="%1أ%3%4"}, - {a="(a)(')(aN)$", b="%1أً"}, - {a="(a)(')(aN)(%W)", b="%1أً%4"}, - {a="(a)(')([i][^%.%^%_]N?)$", b="%1إ%3"}, - {a="(a)(')([i][^%.%^%_]N?)(%W)", b="%1إ%3%4"}, - {a="(a)(')$", b="%1أ"}, - {a="(a)(')(%W)", b="%1أ%3"}, + {a="(a)(')(A%p?)$", b="%1آ"}, + {a="(a)(')(A)(%p?%s)", b="%1آ%4"}, + {a="(a)(')([u]N?%p?)$", b="%1أ%3"}, + {a="(a)(')([u]N?)(%p?%s)", b="%1أ%3%4"}, + {a="(a)(')(a%p?)$", b="%1أ%3"}, + {a="(a)(')(a)(%p?%s)", b="%1أ%3%4"}, + {a="(a)(')(aN%p?)$", b="%1أً"}, + {a="(a)(')(aN)(%p?%s)", b="%1أً%4"}, + {a="(a)(')([i]N?%p?)$", b="%1إ%3"}, + {a="(a)(')([i]N?)(%p?%s)", b="%1إ%3%4"}, + {a="(a)('%p?)$", b="%1أ"}, + {a="(a)(')(%p?%s)", b="%1أ%3"}, -- i - {a="(i)(')([uai][^%.%^%_]N?)$", b="%1ئ%3"}, - {a="(i)(')([uai][^%.%^%_]N?)(%W)", b="%1ئ%3%4"}, - {a="(i)(')$", b="%1ئ"}, - {a="(i)(')(%W)", b="%1ئ%3"}, + {a="(i)(')([uai]N?%p?)$", b="%1ئ%3"}, + {a="(i)(')([uai]N?)(%p?%s)", b="%1ئ%3%4"}, + {a="(i)('%p?)$", b="%1ئ"}, + {a="(i)(')(%p?%s)", b="%1ئ%3"}, -- -- middle {a="(U)(')", b="%1ء"}, @@ -294,10 +296,10 @@ hamzaeasy = { -- differences marked below with 'easy' {a="^\'a?A([%_%^%.]?[%`%'btjghxdrzsfqklmnywAY])", b="آ%1"}, {a="(%W)\'a?A([%_%^%.]?[%`%'btjghxdrzsfqklmnywAY])", b="%1آ%2"}, --easy (begin) - {a="(A)(')(uN?)$", b="aاء%3"}, - {a="(A)(')(uN?)(%W)", b="aاء%3%4"}, - {a="(A)(')(iN?)$", b="aاء%3"}, - {a="(A)(')(iN?)(%W)", b="aاء%3%4"}, + {a="(A)(')(uN?%p?)$", b="aاء%3"}, + {a="(A)(')(uN?)(%p?%s)", b="aاء%3%4"}, + {a="(A)(')(iN?%p?)$", b="aاء%3"}, + {a="(A)(')(iN?)(%p?%s)", b="aاء%3%4"}, {a="(A)(')([iI])", b="aائ%3"}, -- historic madda {a="(A)(')(u)", b="aاؤ%3"}, -- historic madda {a="(A)(')", b="aاء"}, -- historic madda @@ -321,31 +323,33 @@ hamzaeasy = { -- differences marked below with 'easy' -- ^say'aN and .zim'aN are special orthographies {a="(%^say)(%')(aN)", b="%1ئ%3"}, {a="(.zi?m)(%')(aN)", b="%1ئ%3"}, - {a="([^uai])(')([uai][^%.%^%_]N?)$", b="%1ء%3"}, - {a="([^uai])(')([uai][^%.%^%_]N?)(%W)", b="%1ء%3%4"}, + {a="(')(I%p?)$", b="إ%2"}, -- affix pr. 1st person sg. + {a="(')(I)(%p?%s)", b="إ%2%3"}, -- affix pr. 1st person sg. + {a="([^uai])(')([uai]N?%p?)$", b="%1ء%3"}, + {a="([^uai])(')([uai]N?)(%p?%s)", b="%1ء%3%4"}, -- u - {a="(u)(')([uai][^%.%^%_]N?)$", b="%1ؤ%3"}, - {a="(u)(')([uai][^%.%^%_]N?)(%W)", b="%1ؤ%3%4"}, - {a="(u)(')$", b="%1ؤ"}, - {a="(u)(')(%W)", b="%1ؤ%3"}, + {a="(u)(')([uai]N?%p?)$", b="%1ؤ%3"}, + {a="(u)(')([uai]N?)(%p?%s)", b="%1ؤ%3%4"}, + {a="(u)('%p?)$", b="%1ؤ"}, + {a="(u)(')(%p?%s)", b="%1ؤ%3"}, -- a - {a="(a)(')(A)$", b="%1آ"}, - {a="(a)(')(A)(%W)", b="%1آ%4"}, - {a="(a)(')([u][^%.%^%_]N?)$", b="%1أ%3"}, - {a="(a)(')([u][^%.%^%_]N?)(%W)", b="%1أ%3%4"}, - {a="(a)(')(a)$", b="%1أ%3"}, - {a="(a)(')(a)(%W)", b="%1أ%3%4"}, - {a="(a)(')(aN)$", b="%1أً"}, - {a="(a)(')(aN)(%W)", b="%1أً%4"}, - {a="(a)(')([i][^%.%^%_]N?)$", b="%1إ%3"}, - {a="(a)(')([i][^%.%^%_]N?)(%W)", b="%1إ%3%4"}, - {a="(a)(')$", b="%1أ"}, - {a="(a)(')(%W)", b="%1أ%3"}, + {a="(a)(')(A%p?)$", b="%1آ"}, + {a="(a)(')(A)(%p?%s)", b="%1آ%4"}, + {a="(a)(')([u]N?%p?)$", b="%1أ%3"}, + {a="(a)(')([u]N?)(%p?%s)", b="%1أ%3%4"}, + {a="(a)(')(a%p?)$", b="%1أ%3"}, + {a="(a)(')(a)(%p?%s)", b="%1أ%3%4"}, + {a="(a)(')(aN%p?)$", b="%1أً"}, + {a="(a)(')(aN)(%p?%s)", b="%1أً%4"}, + {a="(a)(')([i]N?%p?)$", b="%1إ%3"}, + {a="(a)(')([i]N?)(%p?%s)", b="%1إ%3%4"}, + {a="(a)('%p?)$", b="%1أ"}, + {a="(a)(')(%p?%s)", b="%1أ%3"}, -- i - {a="(i)(')([uai][^%.%^%_]N?)$", b="%1ئ%3"}, - {a="(i)(')([uai][^%.%^%_]N?)(%W)", b="%1ئ%3%4"}, - {a="(i)(')$", b="%1ئ"}, - {a="(i)(')(%W)", b="%1ئ%3"}, + {a="(i)(')([uai]N?%p?)$", b="%1ئ%3"}, + {a="(i)(')([uai]N?)(%p?%s)", b="%1ئ%3%4"}, + {a="(i)('%p?)$", b="%1ئ"}, + {a="(i)(')(%p?%s)", b="%1ئ%3"}, -- -- middle {a="(U)(')", b="%1ء"}, @@ -509,12 +513,12 @@ trigraphs = { -- trigraphs or more -- art. with waṣla + lunar consonant (i.e. what remains) {a="'l%-", b="ال"}, -- the silent wāw - {a="uU$", b="uو"}, - {a="uU(%W)", b="uو%1"}, - {a="aU$", b="aو"}, - {a="aU(%W)", b="aو%1"}, - {a="iU$", b="iو"}, - {a="iU(%W)", b="iو%1"}, + {a="uU(%p?)$", b="uو%1"}, + {a="uU(%p?%s)", b="uو%1"}, + {a="aU(%p?)$", b="aو%1"}, + {a="aU(%p?%s)", b="aو%1"}, + {a="iU(%p?)$", b="iو%1"}, + {a="iU(%p?%s)", b="iو%1"}, -- words ending in -āT with silent wāw/yāʾ {a="(_a)UA", b="%1وا"}, {a="(_a)U", b="%1و"}, @@ -587,12 +591,12 @@ trigraphseasy = { -- differences marked below with 'easy' -- art. with waṣla + lunar consonant (i.e. what remains) {a="'l%-", b="ال"}, -- the silent wāw - {a="uU$", b="uو"}, - {a="uU(%W)", b="uو%1"}, - {a="aU$", b="aو"}, - {a="aU(%W)", b="aو%1"}, - {a="iU$", b="iو"}, - {a="iU(%W)", b="iو%1"}, + {a="uU(%p?)$", b="uو%1"}, + {a="uU(%p?%s)", b="uو%1"}, + {a="aU(%p?)$", b="aو%1"}, + {a="aU(%p?%s)", b="aو%1"}, + {a="iU(%p?)$", b="iو%1"}, + {a="iU(%p?%s)", b="iو%1"}, -- words ending in -āT with silent wāw/yāʾ {a="(_a)UA", b="%1وا"}, {a="(_a)U", b="%1و"}, -- cgit v1.2.3