%
% Copyright (C) 2008-2001 by Azzeddine LAZREK. All rights reserved.
%
% amarabtexwords.tex
% This file belongs to the RyDArab package.
%


% Arabic Western months
\def\amlwm{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{ynayr, fbrayr, mars, Abryl, may, ywnyh,}}\cr
\hbox{\araby{ywlywz, GCt, Ctnbr, Aktwbr, nwnbr, djnbr}}\cr}}}

% Arabic Western form date
\def\amwtoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{ynayr}\or \araby{fbrayr}\or \araby{mars}\or
 \araby{Abryl}\or \araby{may}\or \araby{ywnyh}\or
 \araby{ywlywz}\or \araby{GCt}\or \araby{Ctnbr}\or
 \araby{Aktwbr}\or \araby{nwnbr}\or \araby{djnbr}\fi }}%
 \ \amday}

%%
% Arabic Estern months
\def\amlem{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{kanwn alFany, CbaT, MaZar, nysan, Ayar, Hzyran,
tmwz,}}\cr \hbox{\araby{Mab, Aylwl, tCryn alAwl, tCryn alFany,
kanwn alAwl}}\cr}}}

% Arabic Estern form date
\def\ametoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{kanwn alFany}\or \araby{CbaT}\or
 \araby{MaZar}\or \araby{nysan}\or \araby{Ayar}\or \araby{Hzyran}\or
 \araby{tmwz}\or \araby{Mab}\or \araby{Aylwl}\or \araby{tCryn alAwl}\or
 \araby{tCryn alFany}\or \araby{kanwn alAwl}\fi}}%
 \ \amday}

% Arabic Libyan months
\def\amllm{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{Ay AlnAr, alnwr, alrbyE, alTyr, almAM-, alSyf,}}\cr
\hbox{\araby{nASr, hAnybAl, alfAtH, altmwr, alHrF, alkAnwn}}\cr}}}

% Arabic Libyan form date
\def\amltoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{Ay AlnAr}\or \araby{alnwr}\or \araby{alrbyE}\or
 \araby{alTyr}\or \araby{almAM-}\or \araby{alSyf}\or
 \araby{nASr}\or \araby{hAnybAl}\or \araby{alfAtH}\or
 \araby{altmwr}\or \araby{alHrF}\or \araby{alkAnwn}\fi }}%
 \ \amday}

%%
% Based functions definition withdots
\gdef\funwithdots{
\gdef\ammgmued{\mgmued}%
\gdef\amgdaad{\gdaad}%
\gdef\amnhaytd{\nhaytd}%
\gdef\amteryf{\teryf}%
\gdef\amsin{\ammathpalette{\hbox{ \araby{jA} }}}%
\gdef\amcos{\ammathpalette{\hbox{ \araby{jtA} }}}%
\gdef\amtan{\ammathpalette{\hbox{ \araby{VA} }}}%
\gdef\amcot{\ammathpalette{\hbox{ \araby{VtA} }}}%
\gdef\amsec{\ammathpalette{\hbox{ \araby{qA} }}}%
\gdef\amcsc{\ammathpalette{\hbox{ \araby{qtA} }}}%
\gdef\amarcsin{\ammathpalette{\hbox{ \araby{zjA} }}}%
\gdef\amarccos{\ammathpalette{\hbox{ \araby{zjtA} }}}%
\gdef\amarctan{\ammathpalette{\hbox{ \araby{zVA} }}}%
\gdef\amarccot{\ammathpalette{\hbox{ \araby{zVtA} }}}%
\gdef\amarcsec{\ammathpalette{\hbox{ \araby{zqA} }}}%
\gdef\amarccsc{\ammathpalette{\hbox{ \araby{zqtA} }}}%
\gdef\amsinh{\ammathpalette{\hbox{ \araby{jAz} }}}%
\gdef\amcosh{\ammathpalette{\hbox{ \araby{jtAz} }}}%
\gdef\amtanh{\ammathpalette{\hbox{ \araby{VAz} }}}%
\gdef\amcoth{\ammathpalette{\hbox{ \araby{VtAz} }}}%
\gdef\amsech{\ammathpalette{\hbox{ \araby{qAz} }}}%
\gdef\amcsch{\ammathpalette{\hbox{ \araby{qtAz} }}}%
\gdef\amarcsinh{\ammathpalette{\hbox{ \araby{zjAz} }}}%
\gdef\amarccosh{\ammathpalette{\hbox{ \araby{zjtAz} }}}%
\gdef\amarctanh{\ammathpalette{\hbox{ \araby{zVAz} }}}%
\gdef\amarccoth{\ammathpalette{\hbox{ \araby{zVtAz} }}}%
\gdef\amarcsech{\ammathpalette{\hbox{ \araby{zqAz} }}}%
\gdef\amarccsch{\ammathpalette{\hbox{ \araby{zqtAz} }}}%
\gdef\amlg##1{{\amsb{##1}\ammathpalette{\hbox{ \araby{lw} }}}}%
\gdef\amexp##1{{\amsp{##1}\ammathpalette{\hbox{ \araby{qh-} }}}}%
%
 }


%%
% Based functions definition
% without dots
\gdef\funwithoutdots{%
\gdef\ammgmued{\mgmuedd}%
\gdef\amgdaad{\gdaadd}%
\gdef\amnhaytd{\nhaytdd}%
\gdef\amteryf{\teryfd}%
\gdef\amsin{\ammathpalette{\hbox{ \araby{HA} }}}%
\gdef\amcos{\ammathpalette{\hbox{ \araby{HtA} }}}%
\gdef\amtan{\ammathpalette{\hbox{ \araby{TA} }}}%
\gdef\amcot{\ammathpalette{\hbox{ \araby{TtA} }}}%
\gdef\amsec{\ammathpalette{\hbox{ \araby{qA} }}}%
\gdef\amcsc{\ammathpalette{\hbox{ \araby{qtA} }}}%
\gdef\amarcsin{\ammathpalette{\hbox{ \araby{rHA} }}}%
\gdef\amarccos{\ammathpalette{\hbox{ \araby{rHtA} }}}%
\gdef\amarctan{\ammathpalette{\hbox{ \araby{rTA} }}}%
\gdef\amarccot{\ammathpalette{\hbox{ \araby{rTtA} }}}%
\gdef\amarcsec{\ammathpalette{\hbox{ \araby{rqA} }}}%
\gdef\amarccsc{\ammathpalette{\hbox{ \araby{rqtA} }}}%
\gdef\amsinh{\ammathpalette{\hbox{ \araby{HAz} }}}%
\gdef\amcosh{\ammathpalette{\hbox{ \araby{HtAr} }}}%
\gdef\amtanh{\ammathpalette{\hbox{ \araby{TAr} }}}%
\gdef\amcoth{\ammathpalette{\hbox{ \araby{TtAr} }}}%
\gdef\amsech{\ammathpalette{\hbox{ \araby{qAr} }}}%
\gdef\amcsch{\ammathpalette{\hbox{ \araby{qtAr} }}}%
\gdef\amarcsinh{\ammathpalette{\hbox{ \araby{rHAr} }}}%
\gdef\amarccosh{\ammathpalette{\hbox{ \araby{rHtAr} }}}%
\gdef\amarctanh{\ammathpalette{\hbox{ \araby{rTAr} }}}%
\gdef\amarccoth{\ammathpalette{\hbox{ \araby{rTtAr} }}}%
\gdef\amarcsech{\ammathpalette{\hbox{ \araby{rqAr} }}}%
\gdef\amarccsch{\ammathpalette{\hbox{ \araby{rqtAr} }}}%
\gdef\amlg##1{{\amsb{##1}\ammathpalette{\hbox{ \araby{lw} }}}}%
\gdef\amexp##1{{\amsp{##1}\ammathpalette{\hbox{ \araby{qh-} }}}}%
%
}

%
\def\frarhbox#1{%
\def\arg{#1}
 \ifx\arg\frw {\arhbox{w}}
  \else\ifx\arg\fraw {\arhbox{Aw}}
  \else\ifx\arg\frmrt {\arhbox{mrQ}}
  \else\ifx\arg\frida {\arhbox{AZa kan}}
  \else\ifx\arg\frzwjy {\arhbox{zwjy}}
  \else\ifx\arg\frfrdy {\arhbox{frdy}}
  \else\ifx\arg\fridalm {\arhbox{Gyr Zlk}}
  \else\ifx\arg\frbhyt {\arhbox{bHyF}}
  \else {\arhbox{mCklQ}}
 \fi\fi\fi\fi\fi\fi\fi\fi
}

%
\def\arw{w}
\def\araw{Aw}
\def\armrt{mrQ}
\def\arida{AZa kan}
\def\arzwjy{zwjy}
\def\arfrdy{frdy}
\def\aridalm{Gyr Zlk}
\def\arbhyt{bHyF}
\def\armsklt{mCklQ !!!}
