diff options
author | Karl Berry <karl@freefriends.org> | 2014-11-16 00:03:31 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-11-16 00:03:31 +0000 |
commit | 45e5f3db44bb9826101a1920cb71a286fd64b8e2 (patch) | |
tree | 37d76d0041b743d626872f2eb5064440ba53d547 /Master/texmf-dist/tex/xelatex/xepersian/xepersian.sty | |
parent | cd208958389d98e50e7229b4943e007a30c7675e (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.sty | 22 |
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% |