diff options
author | Karl Berry <karl@freefriends.org> | 2013-09-17 22:16:07 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-09-17 22:16:07 +0000 |
commit | 5d3eded8ad72ddcafd63144edcd885a7ba0b4b75 (patch) | |
tree | fef63988dc328afbe009cc54117d49f264351c2a /Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty | |
parent | ee2e061286e8dd9aaeec0f661c8ea41027660a89 (diff) |
simurgh (17sep13)
git-svn-id: svn://tug.org/texlive/trunk@31684 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty')
-rw-r--r-- | Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty b/Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty new file mode 100644 index 00000000000..0c55e542606 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty @@ -0,0 +1,51 @@ +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{simurgh-abjad}[2013/12/01 v0.01a abjad counter] +\if@simurgh@csundef{abjadnumeral}{% +\def\abjadnumeral#1{% +\ifnum#1>1999 \simurgh@warning{Illegal value (#1) for abjad numeral} {#1} +\else + \ifnum#1<\z@\space\simurgh@warning{Illegal value (#1) for abjad numeral}% + \else + \ifnum#1<10\expandafter\abj@num@i\number#1% + \else + \ifnum#1<100\expandafter\abj@num@ii\number#1% + \else + \ifnum#1<\@m\expandafter\abj@num@iii\number#1% + \else + \ifnum#1<\@M\expandafter\abj@num@iv\number#1%since #1<2000, we must have 1000 + \fi + \fi + \fi + \fi + \fi +\fi +} +\def\abjad@zero{} +\def\abj@num@i#1{% + \ifcase#1\or آ\or ب\or ج\or د% + \or ه\or و\or ز\or ح\or ط\fi + \ifnum#1=\z@\abjad@zero\fi} +\def\abj@num@ii#1{% + \ifcase#1\or ی\or ک\or ل\or م\or ن% + \or س\or ع\or ف\or ص\fi + \ifnum#1=\z@\fi\abj@num@i} +\def\abj@num@iii#1{% + \ifcase#1\or ق\or ر\or ش\or ت\or ث% + \or خ\or ذ\or ض\or ظ\fi + \ifnum#1=\z@\fi\abj@num@ii} +\def\abj@num@iv#1{% + \ifcase#1\or غ\fi + \ifnum#1=\z@\fi\abj@num@iii} +}{} + \let\@latinalph\@alph% + \let\@latinAlph\@Alph% +\def\ParsiAlphs{% + \let\@alph\abjadnumeral% + \let\@Alph\abjadnumeral% +} +\def\LatinAlphs{% + \let\@alph\@latinalph% + \let\@Alph\@latinAlph% +} +\ParsiAlphs +\endinput
\ No newline at end of file |