summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-11-16 00:03:31 +0000
committerKarl Berry <karl@freefriends.org>2014-11-16 00:03:31 +0000
commit45e5f3db44bb9826101a1920cb71a286fd64b8e2 (patch)
tree37d76d0041b743d626872f2eb5064440ba53d547 /Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
parentcd208958389d98e50e7229b4943e007a30c7675e (diff)
xepersian (15nov14)
git-svn-id: svn://tug.org/texlive/trunk@35590 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty')
-rw-r--r--Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty22
1 files changed, 16 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty b/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
index 209b0e7fd17..fd3ab4d498d 100644
--- a/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
+++ b/Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty
@@ -17,7 +17,7 @@
%% by Vafa Khalighi.
%%
%%
-%% \CheckSum{9958}
+%% \CheckSum{10001}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -35,8 +35,8 @@
%% Right brace \} Tilde \~}
%%
\NeedsTeXFormat{LaTeX2e}
-\def\xepersianversion{v15.3}
-\def\xepersiandate{2014/11/04}
+\def\xepersianversion{v15.4}
+\def\xepersiandate{2014/11/15}
\ProvidesPackage{xepersian}[\xepersiandate\space \xepersianversion\space
Persian typesetting in XeLaTeX]
\RequirePackage{fontspec}
@@ -345,6 +345,16 @@ Persian typesetting in XeLaTeX]
\def\pagename{\if@RTL صفحه\else Page\fi}
\def\headtoname{\if@RTL به\else To\fi}
\def\proofname{\if@RTL اثبات\else Proof\fi}
+\def\@Abjad#1{%
+ \ifcase#1\or آ\or ب\or ج\or د%
+ \or ه\or و\or ز\or ح\or ط%
+ \or ی\or ک\or ل\or م\or ن%
+ \or س\or ع\or ف\or ص%
+ \or ق\or ر\or ش\or ت\or ث%
+ \or خ\or ذ\or ض\or ظ\or غ%
+ \else\@ctrerr\fi}
+\def\Abjad#1{\expandafter\@Abjad\csname c@#1\endcsname}
+\let\Abjadnumeral\@Abjad
\def\@harfi#1{\ifcase#1\or آ‍\or ب\or پ\or ت\or ث\or
ج\or چ\or ح\or خ\or د\or ذ\or ر\or ز\or ژ\or س\or ش\or ص\or ض\or ط\or ظ\or ع\or غ\or
ف\or ق\or ک\or گ\or ل\or م\or ن\or و\or ه\or ی\else\@ctrerr\fi}
@@ -575,7 +585,7 @@ number is 999,999,999.}%
\def\abjad@zero{}
\def\abj@num@i#1{%
\ifcase#1\or آ\or ب\or ج\or د%
- \or ه‍\or و\or ز\or ح\or ط\fi
+ \or ه\or و\or ز\or ح\or ط\fi
\ifnum#1=\z@\abjad@zero\fi}
\def\abj@num@ii#1{%
\ifcase#1\or ی\or ک\or ل\or م\or ن%
@@ -592,8 +602,8 @@ number is 999,999,999.}%
\let\@latinalph\@alph%
\let\@latinAlph\@Alph%
\def\PersianAlphs{%
- \let\@alph\abjadnumeral%
- \let\@Alph\abjadnumeral%
+ \let\@alph\@Abjad%
+ \let\@Alph\@Abjad%
}
\def\LatinAlphs{%
\let\@alph\@latinalph%