texlive[42904] Master/texmf-dist: arabluatex (8jan17)

commits+karl at tug.org commits+karl at tug.org
Sun Jan 8 23:22:03 CET 2017


Revision: 42904
          http://tug.org/svn/texlive?view=revision&revision=42904
Author:   karl
Date:     2017-01-08 23:22:03 +0100 (Sun, 08 Jan 2017)
Log Message:
-----------
arabluatex (8jan17)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/lualatex/arabluatex/arabluatex.pdf
    trunk/Master/texmf-dist/source/lualatex/arabluatex/README.tex
    trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.dtx
    trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.ins
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex-patch.sty
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.sty
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_fullvoc.lua
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_novoc.lua
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
    trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_voc.lua

Modified: trunk/Master/texmf-dist/doc/lualatex/arabluatex/arabluatex.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/source/lualatex/arabluatex/README.tex
===================================================================
--- trunk/Master/texmf-dist/source/lualatex/arabluatex/README.tex	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/source/lualatex/arabluatex/README.tex	2017-01-08 22:22:03 UTC (rev 42904)
@@ -34,7 +34,7 @@
 \section*{License and disclamer}
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
 
-Copyright ⓒ 2016  Robert Alessi
+Copyright ⓒ 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi:

Modified: trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.dtx
===================================================================
--- trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.dtx	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.dtx	2017-01-08 22:22:03 UTC (rev 42904)
@@ -1,6 +1,6 @@
 % \iffalse meta-comment
 % ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-% Copyright (C) 2016  Robert Alessi
+% Copyright (C) 2016--2017  Robert Alessi
 %
 % Please send error reports and suggestions for improvements to Robert
 % Alessi <alessi at robertalessi.net>
@@ -27,7 +27,7 @@
 %<package-info>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
 %<package-info>\ProvidesPackage{arabluatex}
 %<*package-info>
-    [2016/12/24 v1.7 An ArabTeX-like interface for LuaLaTeX]
+    [2017/01/08 v1.7.1 An ArabTeX-like interface for LuaLaTeX]
 %</package-info>
 %
 %<*driver>
@@ -37,7 +37,7 @@
 % This file is part of the `arabluatex' package
 %
 % ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-% Copyright (C) 2016  Robert Alessi
+% Copyright (C) 2016--2017  Robert Alessi
 %
 % Please send error reports and suggestions for improvements to Robert
 % Alessi <alessi at robertalessi.net>
@@ -145,7 +145,7 @@
 \defaultfontfeatures{RawFeature={+liga}}
 \setmainfont{Old Standard}[SmallCapsFont={Latin Modern Roman Caps},
   RawFeature={+mark;+ccmp;+ss05;+ss06}]
-\usepackage{arabluatex}[2016/12/24]
+\usepackage{arabluatex}[2017/01/08]
 \usepackage[nopar]{quran}
 \usepackage{varioref}
 \usepackage{hypdoc}
@@ -276,7 +276,7 @@
 % \end{abstract}
 %
 % \section*{License and disclamer}
-% Copyright \textcopyright\ 2016  Robert Alessi
+% Copyright \textcopyright\ 2016--2017  Robert Alessi
 %
 % \addcontentsline{toc}{section}{License and disclamer} Please send
 % error reports and suggestions for improvements to Robert Alessi:
@@ -1019,7 +1019,9 @@
 %
 %   \arb[trans]{hamzaT} followed by the long vowel \arb[novoc]{I} is
 %   encoded |'_I|: |'_ImAnuN| \arb[voc]{'_ImAnuN}
-%   \arb[trans]{'_ImA\-nuN}.
+%   \arb[trans]{'_ImA\-nuN}\footnote{For another way of encoding the
+%   initial \arb[trans]{hamzaT} followed by a long vowel, see the
+%   \arb[trans]{ta_hfIf-u 'l-hamzaT-i}\vpageref{ref:taxfif-hamzah}.}.
 %
 %   \textbf{Middle \arb[trans]{hamzaT}}: |xA.ti'-Ina|
 %   \arb[voc]{xA.ti'-Ina} \arb[trans]{xA.ti'-Ina}, |ru'UsuN|
@@ -1032,9 +1034,11 @@
 %   \arb[voc]{yatasA'alUna}\linebreak \arb[trans]{yatasA'alUna},
 %   |murU'aTuN| \arb[voc]{murU'aTuN} \arb[trans]{murU'aTuN},
 %   |ta'xIruN| \arb[fullvoc]{ta'xIruN} \arb[trans]{ta'xIruN},
-%   |ta'axxara| \arb[voc]{ta'axxara} \arb[trans]{ta'axxara},
-%   |ji'tu-ka| \arb[voc]{ji'tu-ka} \arb[trans]{ji'tu-ka}, |qA'iluN|
-%   \arb[voc]{qA'iluN} \arb[trans]{qA'iluN}.
+%   |ta'ax|\allowbreak|xara| \arb[voc]{ta'axxara}
+%   \arb[trans]{ta'axxara}, |ji'tu-ka| \arb[voc]{ji'tu-ka}
+%   \arb[trans]{ji'tu-ka}, |qA'iluN| \arb[voc]{qA'iluN}
+%   \arb[trans]{qA'iluN}, |.hIna'i_diN| \arb[trans]{.hIna'i_diN}
+%   \arb[voc]{.hIna'i_diN}.
 %
 %   From \textcite[i. 14 B]{Wright}:--- All consonants, whatsoever,
 %   not even \arb[trans]{'alif} \emph{hèmzatum} excepted, admit of
@@ -1061,7 +1065,8 @@
 %   \arb[trans]{radI'iN}, |sU'uN| \arb[voc]{sU'uN} \arb[trans]{sU'uN},
 %   |.daw'uN| \arb[voc]{.daw'uN} \arb[trans]{.daw'uN}, |qay'iN|
 %   \arb[voc]{qay'iN} \arb[trans]{qay'iN}, |^sifA'I|
-%   \arb[voc]{^sifA'I} \arb[trans]{^sifA'I}.
+%   \arb[voc]{^sifA'I} \arb[trans]{^sifA'I}, |man^sa'I|
+%   \arb[trans]{man^sa'I} \arb[voc]{man^sa'I}.
 %
 %   |^say'uN| \arb[voc]{^say'uN} \arb[trans]{^say'uN}, |^say'aN|
 %   \arb[voc]{^say'aN} \arb[trans]{^say'aN}, |^say'iN|
@@ -1071,6 +1076,7 @@
 %   \arb[voc]{'a^syA'-a} \arb[trans]{'a^syA'-a}, |.zim'aN|
 %   \arb[voc]{.zim'aN} \arb[trans]{.zim'aN}.
 %
+%   \label{ref:taxfif-hamzah}
 %   \textbf{\arb[trans]{ta_hfIf-u 'l-hamzaT-i}}: if the
 %   \arb[trans]{hamzaT} has \arb[trans]{jazmaT} and is preceded by
 %   \emph{\arb[trans]{'alif} hamzatum}, it must be changed into the
@@ -1234,12 +1240,12 @@
 % \end{compactenum}
 % \begin{quote}
 %   \textbf{Article}: |bAb-u| |'l-madrasaT-i| \arb[fullvoc]{bAb-u
-%   'l-madrasaT-i} \arb[trans]{bAb-u 'l-madrasaT-i}, |al-maqAlaT-u|
-%   |'l-'_Ul_A| \arb[fullvoc]{al-maqAlaT-u 'l-'_Ul_A}
-%   \arb[trans]{al-maqAlaT-u 'l-'_Ul_A}, |al-lu.gaT-u|
-%   |'l-`arabiyyaT-u| \arb[fullvoc]{al-lu.gaT-u 'l-`arabiyyaT-u}
-%   \arb[trans]{al-lu.gaT-u 'l-`arabiyyaT-u}, |fI| |.sinA`aT-i|
-%   |'l-.tibb-i| \arb[fullvoc]{fI .sinA`aT-i 'l-.tibb-i}
+%   'l-madrasaT-i} \arb[trans]{bAb-u 'l-madrasaT-i},
+%   |al-maqA|\allowbreak|laT-u| |'l-'_Ul_A| \arb[fullvoc]{al-maqAlaT-u
+%   'l-'_Ul_A} \arb[trans]{al-maqAlaT-u 'l-'_Ul_A}, |al-lu.gaT-u|
+%   |'l-`ara|\allowbreak|biyyaT-u| \arb[fullvoc]{al-lu.gaT-u
+%   'l-`arabiyyaT-u} \arb[trans]{al-lu.gaT-u 'l-`arabiyyaT-u}, |fI|
+%   |.sinA`aT-i| |'l-.tibb-i| \arb[fullvoc]{fI .sinA`aT-i 'l-.tibb-i}
 %   \arb[trans]{fI .sinA`aT-i 'l-.tibb-i}, |'il_A| |'l-intiqA.d-i|
 %   \arb[fullvoc]{'il_A 'l-intiqA.d-i} \arb[trans]{'il_A
 %   'l-intiqA.d-i}, |fI| |'l-ibtidA'-i| \arb[fullvoc]{fI 'l-ibtidA'-i}
@@ -1263,10 +1269,10 @@
 %   particle \arb[fullvoc]{la}: |la-l-.haqq-u|
 %   \arb[fullvoc]{la-l-.haqq-u} \arb[trans]{la-l-.haqq-u}.
 % \item With the other particles, \arb[trans]{'alif-u 'l-wa.sl-i} is
-%   expressed: |fI| |'l-madInaT-i| \arb[fullvoc]{fI 'l-madInaT-i}
-%   \arb[trans]{fI 'l-madInaT-i}, |wa-'l-rajul-u|
+%   expressed: |fI| |'l-madIna|\allowbreak|T-i| \arb[fullvoc]{fI
+%   'l-madInaT-i} \arb[trans]{fI 'l-madInaT-i}, |wa-'l-rajul-u|
 %   \arb[fullvoc]{wa-'l-rajul-u} \arb[trans]{wa-'l-rajul-u},
-%   |bi-'l-qalam-i| \arb[fullvoc]{bi-'l-qalam-i}
+%   |bi-'l-|\allowbreak|qalam-i| \arb[fullvoc]{bi-'l-qalam-i}
 %   \arb[trans]{bi-'l-qalam-i}, |bi-'l-ru`b-i|
 %   \arb[fullvoc]{bi-'l-ru`b-i} \arb[trans]{bi-'l-ru`b-i}.
 %   \end{compactenum}
@@ -1279,9 +1285,9 @@
 %   \arb[trans]{wa-ustu`mila}, |qad-i| |in.sarafa| \arb[fullvoc]{qadi
 %   in.sarafa} \arb[trans]{qadi in.sarafa}, |al-iqtidAr-u|
 %   \arb[fullvoc]{al-iqtidAr-u} \arb[trans]{al-iqtidAr-u}, |'il_A|
-%   |'l-intiqA.d-i| \arb[fullvoc]{'il_A 'l-intiqA.d-i}
-%   \arb[trans]{'il_A 'l-intiqA.d-i}, |lawi| |istaqbala|
-%   \arb[fullvoc]{lawi istaqbala} \arb[trans]{lawi istaqbala}.
+%   |'l-inti|\allowbreak|qA.d-i| \arb[fullvoc]{'il_A 'l-intiqA.d-i}
+%   \arb[trans]{'il_A 'l-intiqA.d-i}, |law| |istaqbala|
+%   \arb[fullvoc]{law istaqbala} \arb[trans]{law istaqbala}.
 %
 %   \textbf{Other cases}: |'awi| |ismu-hu| \arb[fullvoc]{'awi ismu-hu}
 %   \arb[trans]{'awi ismu-hu}, |zayduN| |ibn-u| |`amriNU|
@@ -1327,15 +1333,16 @@
 % this rule applies:---
 % \begin{quote}
 %   |fI| |`aynay| |'l-malik-i| \arb[fullvoc]{fI `aynay 'l-malik-i}
-%   \arb[trans]{fI `aynay 'l-malik-i}, |ix^say| |'l-qawm-a|
-%   \arb[fullvoc]{ix^say 'l-qawm-a} \arb[trans]{ix^say 'l-qawm-a},
-%   |mu.s.tafaw| |'l-l_ah-i| \arb[fullvoc]{mu.s.tafaw 'l-l_ah-i}
-%   \arb[trans]{mu.s.tafaw 'l-l_ah-i}.
+%   \arb[trans]{fI `aynay 'l-malik-i}, |ix^say|
+%   |'l-qaw|\allowbreak|m-a| \arb[fullvoc]{ix^say 'l-qawm-a}
+%   \arb[trans]{ix^say 'l-qawm-a}, |mu.s.tafaw| |'l-l_ah-i|
+%   \arb[fullvoc]{mu.s.tafaw 'l-l_ah-i} \arb[trans]{mu.s.ta\-faw
+%   'l-l_ah-i}.
 %
 %   |ramaW| |'l-.hijAraT-a| \arb[fullvoc]{ramaW 'l-.hijAraT-a}
-%   \arb[trans]{ramaW 'l-.hijAraT-a}, |fa-lammA| |ra'aW | |'l-najm-a|
-%   \arb[fullvoc]{fa-lammA ra'aW 'l-najm-a} \arb[trans]{fa-lammA ra'aW
-%   'l-najm-a}.
+%   \arb[trans]{ramaW 'l-.hijAraT-a}, |fa-lammA| |ra'aW |\allowbreak{}
+%   |'l-najm-a| \arb[fullvoc]{fa-lammA ra'aW 'l-najm-a}
+%   \arb[trans]{fa-lammA ra'aW 'l-najm-a}.
 % \end{quote}
 %
 % \subparagraph{\arb[trans]{'alif-u 'l-wa.sl-i} preceded by a consonant
@@ -1396,17 +1403,17 @@
 %   \enquote{pipe} and \vref{sec:transliteration} on |dmg| mode.}
 %   |al-l_ah-u| \arb[fullvoc]{yA| al-l_ah-u} \arb[trans]{yA|
 %   al-l_ah-u}, \verb+'a-fa|+\footnote{\label{fn:pipe-allah-02}See
-%   \cref{fn:pipe-allah-01}.}|-al-l_ah-i| |la-ta.g`alanna|
-%   \arb[fullvoc]{'a-fa|-al-l_ah-i la-ta.g`alanna}
-%   \arb[trans]{'a-fa|-al-l_ah-i la-ta.g`alanna}, |bi-'l-l_ah-i|
-%   \arb[fullvoc]{bi-'l-l_ah-i} \arb[trans]{bi-'l-l_ah-i},
-%   |wa-'l-l_ah-i| \arb[fullvoc]{wa-'l-l_ah-i}
-%   \arb[trans]{wa-'l-l_ah-i}, |bi-sm-i| |'l-l_ah-i|
-%   \arb[fullvoc]{bi-sm-i 'l-l_ah-i} \arb[trans]{bi-sm-i 'l-l_ah-i},
-%   |al-.hamd-u| |li-l-l_ah-i| \arb[fullvoc]{al-.hamd-u li-l-l_ah-i}
-%   \arb[trans]{al-.hamd-u li-l-l_ah-i}, |li-l-l_ah-i| |'l-qA'il-u|
-%   \arb[fullvoc]{li-l-l_ah-i 'l-qA'il-u} \arb[trans]{li-l-l_ah-i
-%   'l-qA'il-u}.
+%   \cref{fn:pipe-allah-01}.}|-al-|\allowbreak|l_ah-i|
+%   |la-ta.g`alanna| \arb[fullvoc]{'a-fa|-al-l_ah-i la-ta.g`alanna}
+%   \arb[trans]{'a-fa|-al-l_ah-i la-ta.g`alanna},
+%   |bi-'l-|\allowbreak|l_ah-i| \arb[fullvoc]{bi-'l-l_ah-i}
+%   \arb[trans]{bi-'l-l_ah-i}, |wa-'l-l_ah-i|
+%   \arb[fullvoc]{wa-'l-l_ah-i} \arb[trans]{wa-'l-l_ah-i}, |bi-sm-i|
+%   |'l-l_ah-i| \arb[fullvoc]{bi-sm-i 'l-l_ah-i} \arb[trans]{bi-sm-i
+%   'l-l_ah-i}, |al-.hamd-u| |li-l-l_ah-i| \arb[fullvoc]{al-.hamd-u
+%   li-l-l_ah-i} \arb[trans]{al-.hamd-u li-l-l_ah-i}, |li-l-l_ah-i|
+%   |'l-qA'il-u| \arb[fullvoc]{li-l-l_ah-i 'l-qA'il-u}
+%   \arb[trans]{li-l-l_ah-i 'l-qA'il-u}.
 % \end{quote}
 %
 % \paragraph{The conjunctive \arb[voc]{alla_dI}}
@@ -1552,9 +1559,9 @@
 %   \begin{quote}
 %     |fI "istisqA'-a| \arb[voc]{fI "istisqA'-a} \arb[trans]{fI
 %     "istisqA'-a}, |wa-"istisqA'-u| \arb[voc]{wa-"istisqA'-u}
-%     \arb[trans]{wa-"istisqA'-u}, |qAla| |"uhrub| |fa-lan| |tuqtala|
-%     \arb[voc]{qAla "uhrub fa-lan tuqtala} \arb[trans]{qAla "uhrub
-%     fa-lan tuqtala}.
+%     \arb[trans]{wa-"is\-tisqA'-u}, |qAla| |"uhrub| |fa-lan|
+%     |tuqtala| \arb[voc]{qAla "uhrub fa-lan tuqtala} \arb[trans]{qAla
+%     "uhrub fa-lan tuqtala}.
 %   \end{quote}
 % \item \arb[trans]{sukUn}:---
 %   \begin{quote}
@@ -2258,11 +2265,11 @@
 %   |\cap{`u_tm_an-u}| \arb[voc]{\cap{`u_tm_an-u}}
 %   \arb[trans]{\cap{`u_tm_an-u}}, |.daraba| |\cap{zayd-u}| |bn-u|
 %   |\cap{_h_alidiN}| |\cap{sa`d-a}| |bn-a| |\cap{`awf-i}| |bn-i|
-%   |\cap{`abd-i}| |\cap{'l-l_ah-i}| \arb[fullvoc]{.daraba
-%   \cap{zayd-u} bn-u \cap{_h_alidiN} \cap{sa`d-a} bn-a \cap{`awf-i}
-%   bn-i \cap{`abd-i} \cap{'l-l_ah-i}} \arb[trans]{.daraba
-%   \cap{zayd-u} bn-u \cap{_h_alidiN} \cap{sa`d-a} bn-a \cap{`awf-i}
-%   bn-i \cap{`abd-i} \cap{'l-l_ah-i}}.
+%   |\cap{|\allowbreak|`abd-i}| |\cap{'l-l_ah-i}|
+%   \arb[fullvoc]{.daraba \cap{zayd-u} bn-u \cap{_h_alidiN}
+%   \cap{sa`d-a} bn-a \cap{`awf-i} bn-i \cap{`abd-i} \cap{'l-l_ah-i}}
+%   \arb[trans]{.daraba \cap{zayd-u} bn-u \cap{_h_alidiN} \cap{sa`d-a}
+%   bn-a \cap{`awf-i} bn-i \cap{`abd-i} \cap{'l-l_ah-i}}.
 % \end{quote}
 % However, \cs{cap} must be used cautiously in some very particular
 % cases, for the closing brace of its argument may prevent a rule from
@@ -3009,7 +3016,7 @@
 %    \begin{macrocode}
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{arabluatex}%
-[2016/12/24 v1.7 An ArabTeX-like interface for LuaLaTeX]
+[2017/01/08 v1.7.1 An ArabTeX-like interface for LuaLaTeX]
 \RequirePackage{ifluatex}
 %    \end{macrocode}
 % \package{arabluatex} requires \LuaLaTeX\ of course. Issue a warning

Modified: trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.ins
===================================================================
--- trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.ins	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/source/lualatex/arabluatex/arabluatex.ins	2017-01-08 22:22:03 UTC (rev 42904)
@@ -1,7 +1,7 @@
 %% This file is part of the `arabluatex' package
 %%
 %% ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-%% Copyright (C) 2016  Robert Alessi
+%% Copyright (C) 2016--2017  Robert Alessi
 %%
 %% Please send error reports and suggestions for improvements to
 %% Robert Alessi <alessi at robertalessi.net>
@@ -43,7 +43,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex-patch.sty
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex-patch.sty	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex-patch.sty	2017-01-08 22:22:03 UTC (rev 42904)
@@ -11,7 +11,7 @@
 %% This file is part of the `arabluatex' package
 %% 
 %% ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-%% Copyright (C) 2016  Robert Alessi
+%% Copyright (C) 2016--2017  Robert Alessi
 %% 
 %% Please send error reports and suggestions for improvements to Robert
 %% Alessi <alessi at robertalessi.net>

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua	2017-01-08 22:22:03 UTC (rev 42904)
@@ -2,7 +2,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.sty
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.sty	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.sty	2017-01-08 22:22:03 UTC (rev 42904)
@@ -11,7 +11,7 @@
 %% This file is part of the `arabluatex' package
 %% 
 %% ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-%% Copyright (C) 2016  Robert Alessi
+%% Copyright (C) 2016--2017  Robert Alessi
 %% 
 %% Please send error reports and suggestions for improvements to Robert
 %% Alessi <alessi at robertalessi.net>
@@ -41,7 +41,7 @@
 %% 
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{arabluatex}%
-[2016/12/24 v1.7 An ArabTeX-like interface for LuaLaTeX]
+[2017/01/08 v1.7.1 An ArabTeX-like interface for LuaLaTeX]
 \RequirePackage{ifluatex}
 \ifluatex\else
  \PackageError{arabluatex}{lualatex needed}{%

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_fullvoc.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_fullvoc.lua	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_fullvoc.lua	2017-01-08 22:22:03 UTC (rev 42904)
@@ -2,7 +2,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>
@@ -33,14 +33,14 @@
    {a="i\"'", b="إ"},
    {a="y\"'", b="ئ"},
    {a="ؤ([^uaiUAI])", b="ؤْ%1"},
-   {a="ؤ$", b="ؤْ"},
-   {a="ؤ(%s)", b="ؤْ%1"},
+   {a="ؤ(%p?)$", b="ؤْ%1"},
+   {a="ؤ(%p?%s)", b="ؤْ%1"},
    {a="أ([^uaiUAI])", b="أْ%1"},
-   {a="أ$", b="أْ"},
-   {a="أ(%s)", b="أْ%1"},
+   {a="أ(%p?)$", b="أْ%1"},
+   {a="أ(%p?%s)", b="أْ%1"},
    {a="ئ([^uaiUAI])", b="ئْ%1"},
-   {a="ئ$", b="ئْ"},
-   {a="ئ(%s)", b="ئْ%1"},
+   {a="ئ(%p?)$", b="ئْ%1"},
+   {a="ئ(%p?%s)", b="ئْ%1"},
    -- hamza takes tašdīd too
    {a="''([Uu])", b="ؤؤ%1"},
    {a="''([Aa])", b="أأ%1"},
@@ -58,10 +58,10 @@
    {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
@@ -84,31 +84,33 @@
    -- ^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ء"},
@@ -141,14 +143,14 @@
    {a="i\"'", b="إ"},
    {a="y\"'", b="ئ"},
    {a="ؤ([^uaiUAI])", b="ؤْ%1"},
-   {a="ؤ$", b="ؤْ"},
-   {a="ؤ(%s)", b="ؤْ%1"},
+   {a="ؤ(%p?)$", b="ؤْ%1"},
+   {a="ؤ(%p?%s)", b="ؤْ%1"},
    {a="أ([^uaiUAI])", b="أْ%1"},
-   {a="أ$", b="أْ"},
-   {a="أ(%s)", b="أْ%1"},
+   {a="أ(%p?)$", b="أْ%1"},
+   {a="أ(%p?%s)", b="أْ%1"},
    {a="ئ([^uaiUAI])", b="ئْ%1"},
-   {a="ئ$", b="ئْ"},
-   {a="ئ(%s)", b="ئْ%1"},
+   {a="ئ(%p?)$", b="ئْ%1"},
+   {a="ئ(%p?%s)", b="ئْ%1"},
    -- hamza takes tašdīd too
    {a="''([Uu])", b="ؤؤ%1"},
    {a="''([Aa])", b="أأ%1"},
@@ -167,10 +169,10 @@
    {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
@@ -194,31 +196,33 @@
    -- ^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ء"},
@@ -388,12 +392,12 @@
    -- 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و"},
@@ -457,12 +461,12 @@
    -- 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و"},
@@ -538,8 +542,8 @@
    -- sukūn begin
    -- first, take out hyphen if any:
    {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"},
-   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])$", b="%1ْ"},
-   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"},
+   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"},
+   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"},
    {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"},
    -- take out sukūn in cases of assimilation
    {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},
@@ -646,8 +650,8 @@
    -- sukūn begin
    -- first, take out hyphen if any:
    {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"},
-   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])$", b="%1ْ"},
-   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"},
+   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"},
+   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"},
    {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIYًٌٍ])", b="%1ْ%2"},
    -- take out sukūn in cases of assimilation
 --   {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},
@@ -656,7 +660,7 @@
 --   {a="(n)(ْ)(%s)(ل)", b="%1%3%4"},
 --   {a="(n)(ْ)(%s)(م)", b="%1%3%4"},
 --   {a="(n)(ْ)(%s)(ن)", b="%1%3%4"},
---   {a="ْ\"", b="\""},
+   {a="ْ\"", b="\""},
    -- sukūn end
    {a="_t", b="ث"},
    {a="%^g", b="ج"},
@@ -757,8 +761,8 @@
    {a="ْ", b=""}, 
    -- first, take out hyphen if any:
 --   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])%-([uaiUAI])", b="%1%2"},
---   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])$", b="%1ْ"},
---   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%s])", b="%1ْ%2"},
+--   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy]%p?)$", b="%1ْ"},
+--   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])(%p?%s)", b="%1ْ%2"},
 --   {a="([%_%^%.]?[Bbtjghxdrzs%`fqklmnwy])([%_]?[^%_uaiUAIًٌٍ])", b="%1ْ%2"},
    -- take out sukūn in cases of assimilation
 --   {a="(n)(ْ)(%s)(ر)", b="%1%3%4"},

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_novoc.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_novoc.lua	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_novoc.lua	2017-01-08 22:22:03 UTC (rev 42904)
@@ -2,7 +2,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>
@@ -109,12 +109,12 @@
    -- 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و"},

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_trans.lua	2017-01-08 22:22:03 UTC (rev 42904)
@@ -2,7 +2,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>
@@ -309,24 +309,24 @@
    {a="(%-)(\"?ayni)(%p?)$", b="\\arbup{%2}%3"},
    {a="(%-)(\"?[uai])(%p?%s)", b="\\arbup{%2}%3"},
    {a="(%-)(\"?[uai])(%p?)$", b="\\arbup{%2}%3"},
-   -- ʾiʿrāb hyphen (end)
-   -- shorten long vowels preceding ʾalif conjunctionis
+   -- ʾiʿrāb hyphen (end) shorten long vowels preceding ʾalif
+   -- conjunctionis—without forgetting 'lla_dI
    {a="(U)(A)", b="U"},
-   {a="(aW)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="awu"},
-   {a="(%_a)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="a"},
-   {a="(%_A)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="ạ"},
-   {a="(A)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="a"},
-   {a="(Y)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="ạ"},
-   {a="([%_]?[Uu])(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="u"},
-   {a="([%_]?[Ii])(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)([%S]-o)", b="i"},
+   {a="(aW)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="awu"},
+   {a="(%_a)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="a"},
+   {a="(%_A)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="ạ"},
+   {a="(A)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="a"},
+   {a="(Y)(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="ạ"},
+   {a="([%_]?[Uu])(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="u"},
+   {a="([%_]?[Ii])(o)('[%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])([%S]-o)", b="i"},
    --p (next 7 lines, just after %s)
-   {a="(aW)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="awu%2%3"},
-   {a="(%_a)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="a%2%3"},
-   {a="(%_A)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ạ%2%3"},
-   {a="(A)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="a%2%3"},
-   {a="(Y)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="ạ%2%3"},
-   {a="([%_]?[Uu])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="u%2%3"},
-   {a="([%_]?[Ii])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy]%-)", b="i%2%3"},
+   {a="(aW)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="awu%2%3"},
+   {a="(%_a)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="a%2%3"},
+   {a="(%_A)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="ạ%2%3"},
+   {a="(A)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="a%2%3"},
+   {a="(Y)(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="ạ%2%3"},
+   {a="([%_]?[Uu])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="u%2%3"},
+   {a="([%_]?[Ii])(%s)([%(%[%|%<]?['][%_%^%.]?[l'btjghxdrzs`fqkmnwy][%-l])", b="i%2%3"},
    {a="%-%-", b=""},
 --   {a="T([^uai])", b="%1"},
    {a="T(%p?%s)", b="h%1"},

Modified: trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_voc.lua
===================================================================
--- trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_voc.lua	2017-01-08 22:21:50 UTC (rev 42903)
+++ trunk/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex_voc.lua	2017-01-08 22:22:03 UTC (rev 42904)
@@ -2,7 +2,7 @@
 This file is part of the `arabluatex' package
 
 ArabLuaTeX -- Processing ArabTeX notation under LuaLaTeX
-Copyright (C) 2016  Robert Alessi
+Copyright (C) 2016--2017  Robert Alessi
 
 Please send error reports and suggestions for improvements to Robert
 Alessi <alessi at robertalessi.net>
@@ -194,10 +194,10 @@
    {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 @@
    -- ^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 @@
    {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 @@
    -- ^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 @@
    -- 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 @@
    -- 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و"},



More information about the tex-live-commits mailing list