From c3ebe405380117e05e6f518a9adbfe993286ab89 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 25 Mar 2016 20:00:36 +0100
Subject: improved quoting feature in all modes; still documenting

---
 arabluatex_novoc.lua | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

(limited to 'arabluatex_novoc.lua')

diff --git a/arabluatex_novoc.lua b/arabluatex_novoc.lua
index 9aa141e..8a5a7ed 100644
--- a/arabluatex_novoc.lua
+++ b/arabluatex_novoc.lua
@@ -38,9 +38,12 @@ trigraphsnv = { -- trigraphs or more
    {a="^(a)([%_%^%.]?[tdrzsn])%-", b="ا%1ل"},
    {a="([%s%-])(a)([%_%^%.]?[tdrzsn])%-", b="%1ا%2ل"},
    -- al- + initial unstable hamza
+   {a="^(a)l%-(\")([uai])", b="ا%1لٱ%3"},
+   {a="([%s%-])(a)l%-(\")([uai])", b="%1ا%2لٱ%4"},
    {a="^(a)l%-([uai])", b="ا%1لا%2"},
    {a="([%s%-])(a)l%-([uai])", b="%1ا%2لا%3"},
    -- li-/la- + art. + initial unstable hamza is a special orthography
+   {a="l([ai])%-l%-(\")([uai])", b="ل%1لٱ%3"},
    {a="l([ai])%-l%-([uai])", b="ل%1لا%2"},
    -- al- + lunar consonant (i.e. what remains)
    {a="^(a)l%-", b="ا%1ل"},
@@ -58,6 +61,7 @@ trigraphsnv = { -- trigraphs or more
    -- li-/la + assim. art. + solar consonant is a special orthography
    {a="l([ai])%-([%_%^%.]?[tdrzsn])%-([%_%^%.]?[tdrzsn])", b="ل%1ل%3"},
    -- art. with waṣla + initial unstable hamza
+   {a="'l%-(\")([uai])", b="الٱ%2"},
    {a="'l%-([uai])", b="الا%1"},   
    -- art. with waṣla + lunar consonant (i.e. what remains)
    {a="'l%-", b="ال"},
@@ -86,7 +90,17 @@ tanwinnv = {
 --   {a="(ء)(aN)(%s)([rlmnwy])", b="%1%3%4%4"},
 --   {a="([^TA])(aN)(%s)([rlmnwy])", b="%1ا%3%4%4"},
 --   {a="(iN)(%s)([rlmnwy])", b="|%2%3%3"},
-   --assimilations (end)
+   -- assimilations (end)
+   -- "quoted" tanwīn (begin)
+   {a="(\"uN)", b="ٌ"},
+   {a="(B)(\"aN)", b="%1ً"},
+   {a="(\"aN)(_A)", b="ًى"},
+   {a="(\"aN)(Y)", b="ًى"},
+   {a="(T)(\"aN)", b="%1ً"},
+   {a="(ء)(\"aN)", b="%1ً"},
+   {a="([^TA])(\"aN)", b="%1ًا"},
+   {a="(\"iN)", b="ٍ"},
+   -- "quoted" tanwīn (end)
    {a="(uN)", b=""},
    {a="(B)(aN)", b="%1"},
    {a="(aN)(_A)", b="ى"},
@@ -94,10 +108,18 @@ tanwinnv = {
    {a="(T)(aN)", b="%1"},
    {a="(ء)(aN)", b="%1"},
    {a="([^TA])(aN)", b="%1ا"},
-   {a="(iN)", b=""}
+   {a="(iN)", b=""},
+   -- initial straight double quote gives a connective ʾalif. This has
+   -- nothing to do with the tanwīn, but I put it here for time being.
+   {a="^\"", b="ٱ"},
+   {a="([%s%-])\"", b="%1ٱ"}
 }
 
 longvnv = {
+   {a="\"A", b="َا"},
+   {a="\"U", b="ُو"},
+   {a="\"I", b="ِي"},
+   {a="\"Y", b="aى"},
    {a="A", b="ا"},
    {a="U", b="و"},
    {a="I", b="ي"},
-- 
cgit v1.2.3