From 1e298c548919394a0daf6243076a734b9b8c2fe7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 19 Dec 2006 14:43:13 +0000 Subject: arabi 1.1 (18dec06) git-svn-id: svn://tug.org/texlive/trunk@2811 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/arabi/fnum.sty | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/arabi/fnum.sty (limited to 'Master/texmf-dist/tex/latex/arabi/fnum.sty') diff --git a/Master/texmf-dist/tex/latex/arabi/fnum.sty b/Master/texmf-dist/tex/latex/arabi/fnum.sty new file mode 100644 index 00000000000..5477c8ace0e --- /dev/null +++ b/Master/texmf-dist/tex/latex/arabi/fnum.sty @@ -0,0 +1,20 @@ +\def\abjad#1{\@abjad{\@nameuse{c@#1}}} +\def\adadi#1{\@adadi{\@nameuse{c@#1}}} +\def\harfi#1{\@harfi{\@nameuse{c@#1}}} + +\def\@abjad#1{\beginR\ifcase#1\or \or \or \or \else\@iabjad{#1}\fi\endR} +\def\@iabjad#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\@adadi#1{\beginR\ifcase#1\or \or \or \or \else + \@iadadi{#1}\fi\endR} +\def\@iadadi#1{\ifcase#1\or \or \or \or \or \or \or Դ\or ȴ\or + \or \or \or \or â\or \or â\or â\or + \or \or \or ƴ\else\@ctrerr\fi} + +\def\@harfi#1{\beginR\ifcase#1\or \or \or \or \else\@iharfi{#1}\fi\endR} +\def\@iharfi#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 \else\@ctrerr\fi} -- cgit v1.2.3