quran (21apr16)

git-svn-id: svn://tug.org/texlive/trunk@40660 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 17 insertions, 1 deletions

diff --git a/Master/texmf-dist/tex/xelatex/quran/quran.sty b/Master/texmf-dist/tex/xelatex/quran/quran.sty
index 513ea2ed433..a3088592cea 100644
--- a/Master/texmf-dist/tex/xelatex/quran/quran.sty
+++ b/Master/texmf-dist/tex/xelatex/quran/quran.sty
@@ -23,6 +23,9 @@
 %% to one who has devoted his life to Quran
 %%
 %% Change Log
+%% ver 1.1  ## Apr 21st, 2016
+%% \indexconvert macro converts a number between 1 to 6236 to its exact surah and ayah number in 
+%% the whole text of Quran.
 %% ver 1.05  ## Feb 9th, 2016
 %% \ChangeBasmalah and \ChangeAyahNumber are converted to \ToggleBasmalah and \ToggleAyahNumber respectively. 
 %% a minor bug in \quransurah* macro has fixed, this bug caused extra space in the text. 
@@ -66,7 +69,7 @@
 %        #1\else 1\fi}
         
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{quran}[2016/02/09 v1.05 An easy way to typeset the whole or any part of The Holy Quran]
+\ProvidesPackage{quran}[2016/04/21 v1.1 An easy way to typeset the whole or any part of The Holy Quran]
 \RequirePackage{biditools}
 \newcounter{qt@count}
 \setcounter{qt@count}{0}
@@ -95,6 +98,19 @@
     \ifnum\qt@tempcount<114%
         \advance\qt@tempcount by 1\relax%
     \repeat%
+%
+%
+\def\indexconvert#1#2#3{
+    \newcount\surahcount \surahcount=1%
+    \newcount\ayahcount \ayahcount=#1%
+    \loop
+    \ifnum\ayahcount>\qt@getversenum\surahcount%
+        \advance\ayahcount by -\qt@getversenum\surahcount\relax%
+        \advance\surahcount by 1\relax%
+    \repeat
+    #2=\surahcount%
+    #3=\ayahcount%
+}%
 
 \bidi@newrobustcmd\qt@default{1-7}% Surah Al-hamd
 \bidi@newrobustcmd\setqurantextdefault[1]{%