summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-09-17 22:16:07 +0000
committerKarl Berry <karl@freefriends.org>2013-09-17 22:16:07 +0000
commit5d3eded8ad72ddcafd63144edcd885a7ba0b4b75 (patch)
treefef63988dc328afbe009cc54117d49f264351c2a /Master/texmf-dist/tex/lualatex/simurgh/simurgh-abjad.sty
parentee2e061286e8dd9aaeec0f661c8ea41027660a89 (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.sty51
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