From 1e298c548919394a0daf6243076a734b9b8c2fe7 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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

