xepersian (16jul12)

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

3 files changed, 14 insertions, 9 deletions

diff --git a/Master/texmf-dist/tex/xelatex/xepersian/commands-xepersian.def b/Master/texmf-dist/tex/xelatex/xepersian/commands-xepersian.def
index a4fa0470807..fbb2bdd9e97 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/commands-xepersian.def
+++ b/Master/texmf-dist/tex/xelatex/xepersian/commands-xepersian.def
@@ -12,7 +12,7 @@
 %%   License information appended.
 %% 
 %% 
-\ProvidesFile{commands-xepersian.def}[2010/07/25 v0.1 Persian localisation of XePersian commands]
+\ProvidesFile{commands-xepersian.def}[2012/07/25 v0.2 Persian localisation of XePersian commands]
 \eqcommand{خط‌زیرنویس‌خودکار}{autofootnoterule}
 \eqcommand{اعدادفرمولهاخودکار}{AutoMathsDigits}
 \eqcommand{اعدادفرمولهالاتین}{DefaultMathsDigits}
@@ -31,8 +31,11 @@
 \eqcommand{پانویس}{LTRfootnote}
 \eqcommand{متن‌پانویس}{LTRfootnotetext}
 \eqcommand{پانویس‌عنوان}{LTRthanks}
+\eqcommand{روزپارسی}{persianday}
 \eqcommand{قلم‌پارسی}{persianfont}
 \eqcommand{اعدادفرمولهاپارسی}{PersianMathsDigits}
+\eqcommand{ماه‌پارسی}{persianmonth}
+\eqcommand{سال‌پارسی}{persianyear}
 \eqcommand{علامت‌چپ‌نقل‌قول‌پارسی}{plq}
 \eqcommand{علامت‌راست‌نقل‌قول‌پارسی}{prq}
 \eqcommand{خط‌زیرنویس‌راست}{rightfootnoterule}
diff --git a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
index 223e7984a1f..e9891246101 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
+++ b/Master/texmf-dist/tex/xelatex/xepersian/xepersian-persiancal.sty
@@ -13,7 +13,7 @@
 %% 
 %% 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{xepersian-persiancal}[2010/07/25 v0.1 provides Persian calendar]
+\ProvidesPackage{xepersian-persiancal}[2012/07/25 v0.2 provides Persian calendar]
 
 \newif\ifXePersian@leap \newif\ifXePersian@kabiseh
 \newcount\XePersian@i  \newcount\XePersian@y  \newcount\XePersian@m  \newcount\XePersian@d
@@ -40,7 +40,6 @@
 \newcount\XePersian@sn
 \newcount\XePersian@mminusone
 
-\def\persiantoday{%
 \XePersian@y=\year \XePersian@m=\month \XePersian@d=\day
 \XePersian@temp=\XePersian@y
 \divide\XePersian@temp by 100\relax
@@ -169,10 +168,14 @@
 \else
   \XePersian@d = \XePersian@dn \advance \XePersian@d by -\XePersian@sn
 \fi
-\beginL\number\XePersian@d\endL\space%
-\persianmonth{\XePersian@m}\space\beginL\number\XePersian@y\endL%
+\newcommand*{\persiantoday}{%
+\number\XePersian@d\space%
+\XePersian@persian@month{\XePersian@m}\space\number\XePersian@y%
 }
-\def\persianmonth#1{\ifcase#1\or فروردین\or
+\let\persianyear\XePersian@y
+\let\persianmonth\XePersian@m
+\let\persianday\XePersian@d
+\def\XePersian@persian@month#1{\ifcase#1\or فروردین\or
 اردیبهشت\or
 خرداد\or تیر\or
 مرداد\or
diff --git a/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty b/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
index f5082d34326..24f1aca80d3 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
+++ b/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
@@ -13,7 +13,7 @@
 %% 
 %% 
 \NeedsTeXFormat{LaTeX2e}
-\def\xepersianversion{v11.142}
+\def\xepersianversion{v11.143}
 \def\xepersiandate{2012/07/25}
 \ProvidesPackage{xepersian}[\xepersiandate\space \xepersianversion\space
 Persian typesetting in XeLaTeX]
@@ -176,8 +176,7 @@ Location on CTAN: /macros/xetex/latex/xepersian}
 \def\persian{\RTL\PersianAlphs\@RTL@footnotetrue\setpersianfont}
 \def\endpersian{\endRTL}
 \let\originaltoday=\today
-\def\today{\lr{\originaltoday}}
-\let\latintoday\today
+\def\latintoday{\lr{\originaltoday}}
 \def\today{\rl{\persiantoday}}
 \def \@LTRmarginparreset {%
         \reset@font