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


% Arabic Western months
\def\amlwm{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{يناير, فبراير, مارس, أبريل, ماي, يونيو,}}\cr
\hbox{\araby{يوليوز, غشت, شتنبر, أكتوبر, نونبر, دجنبر}}\cr}}}

% Arabic Western form date
\def\amwtoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{يناير}\or \araby{فبراير}\or \araby{مارس}\or
 \araby{أبريل}\or \araby{ماي}\or \araby{يونيو}\or
 \araby{يوليوز}\or \araby{غشت}\or \araby{شتنبر}\or
 \araby{أكتوبر}\or \araby{نونبر}\or \araby{دجنبر}\fi }}%
 \ \amday}

%%
% Arabic Estern months
\def\amlem{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{كانون الثاني, شباط, آذار, نيسان, أيار, حزيران,
تموز,}}\cr \hbox{\araby{آب, أيلول, تشرين الأول, تشرين الثاني,
كانون الأول}}\cr}}}

% Arabic Estern form date
\def\ametoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{كانون الثاني}\or \araby{شباط}\or
 \araby{آذار}\or \araby{نيسان}\or \araby{أيار}\or \araby{حزيران}\or
 \araby{تموز}\or \araby{آب}\or \araby{أيلول}\or \araby{تشرين الأول}\or
 \araby{تشرين الثاني}\or \araby{كانون الأول}\fi}}%
 \ \amday}

% Arabic Libyan months
\def\amllm{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\araby{أي النار, النوار, الربيع, الطير, الماء, الصيف,}}\cr
\hbox{\araby{ناصر, هانيبال, الفاتح, التمور, الحرث, الكانون}}\cr}}}

% Arabic Libyan form date
\def\amltoday{\amyear \ {\hbox{%
 \ifcase\ammonth\or \araby{أي النار}\or \araby{النوار}\or \araby{الربيع}\or
 \araby{الطير}\or \araby{الماء}\or \araby{الصيف}\or
 \araby{ناصر}\or \araby{هانيبال}\or \araby{الفاتح}\or
 \araby{التمور}\or \araby{الحرث}\or \araby{الكانون}\fi }}%
 \ \amday}

%%
% Based functions definition withdots
\def\funwithdots{
\gdef\amsin{\ammathpalette{\hbox{ \araby{جا} }}}%
\gdef\amcos{\ammathpalette{\hbox{ \araby{جتا} }}}%
\gdef\amtan{\ammathpalette{\hbox{ \araby{ظا} }}}%
\gdef\amcot{\ammathpalette{\hbox{ \araby{ظتا} }}}%
\gdef\amsec{\ammathpalette{\hbox{ \araby{قا} }}}%
\gdef\amcsc{\ammathpalette{\hbox{ \araby{قتا} }}}%
\gdef\amarcsin{\ammathpalette{\hbox{ \araby{زجا} }}}%
\gdef\amarccos{\ammathpalette{\hbox{ \araby{زجتا} }}}%
\gdef\amarctan{\ammathpalette{\hbox{ \araby{زظا} }}}%
\gdef\amarccot{\ammathpalette{\hbox{ \araby{زظتا} }}}%
\gdef\amarcsec{\ammathpalette{\hbox{ \araby{زقا} }}}%
\gdef\amarccsc{\ammathpalette{\hbox{ \araby{زقتا} }}}%
\gdef\amsinh{\ammathpalette{\hbox{ \araby{جاز} }}}%
\gdef\amcosh{\ammathpalette{\hbox{ \araby{جتاز} }}}%
\gdef\amtanh{\ammathpalette{\hbox{ \araby{ظاز} }}}%
\gdef\amcoth{\ammathpalette{\hbox{ \araby{ظتاز} }}}%
\gdef\amsech{\ammathpalette{\hbox{ \araby{قاز} }}}%
\gdef\amcsch{\ammathpalette{\hbox{ \araby{قتاز} }}}%
\gdef\amarcsinh{\ammathpalette{\hbox{ \araby{زجاز} }}}%
\gdef\amarccosh{\ammathpalette{\hbox{ \araby{زجتاز} }}}%
\gdef\amarctanh{\ammathpalette{\hbox{ \araby{زظاز} }}}%
\gdef\amarccoth{\ammathpalette{\hbox{ \araby{زظتاز} }}}%
\gdef\amarcsech{\ammathpalette{\hbox{ \araby{زقاز} }}}%
\gdef\amarccsch{\ammathpalette{\hbox{ \araby{زقتاز} }}}%
\gdef\amlg##1{{\amsb{##1}\ammathpalette{\hbox{ \araby{لو} }}}}%
\gdef\amexp##1{{\amsp{##1}\ammathpalette{\hbox{ \araby{قهـ} }}}}%
%
\gdef\ammgmued{\mgmued}%
\gdef\amgdaad{\gdaad}%
\gdef\amnhaytd{\nhaytd}%
\gdef\amteryf{\teryf}%
 }


%%
% Based functions definition
% without dots
\def\funwithoutdots{%
\gdef\amsin{\ammathpalette{\hbox{ \araby{حا} }}}%
\gdef\amcos{\ammathpalette{\hbox{ \araby{حتا} }}}%
\gdef\amtan{\ammathpalette{\hbox{ \araby{طا} }}}%
\gdef\amcot{\ammathpalette{\hbox{ \araby{طتا} }}}%
\gdef\amsec{\ammathpalette{\hbox{ \araby{قا} }}}%
\gdef\amcsc{\ammathpalette{\hbox{ \araby{قتا} }}}%
\gdef\amarcsin{\ammathpalette{\hbox{ \araby{رحا} }}}%
\gdef\amarccos{\ammathpalette{\hbox{ \araby{رحتا} }}}%
\gdef\amarctan{\ammathpalette{\hbox{ \araby{رطا} }}}%
\gdef\amarccot{\ammathpalette{\hbox{ \araby{رطتا} }}}%
\gdef\amarcsec{\ammathpalette{\hbox{ \araby{رقا} }}}%
\gdef\amarccsc{\ammathpalette{\hbox{ \araby{رقتا} }}}%
\gdef\amsinh{\ammathpalette{\hbox{ \araby{حار} }}}%
\gdef\amcosh{\ammathpalette{\hbox{ \araby{حتار} }}}%
\gdef\amtanh{\ammathpalette{\hbox{ \araby{طار} }}}%
\gdef\amcoth{\ammathpalette{\hbox{ \araby{طتار} }}}%
\gdef\amsech{\ammathpalette{\hbox{ \araby{قار} }}}%
\gdef\amcsch{\ammathpalette{\hbox{ \araby{قتار} }}}%
\gdef\amarcsinh{\ammathpalette{\hbox{ \araby{رحار} }}}%
\gdef\amarccosh{\ammathpalette{\hbox{ \araby{رحتار} }}}%
\gdef\amarctanh{\ammathpalette{\hbox{ \araby{رطار} }}}%
\gdef\amarccoth{\ammathpalette{\hbox{ \araby{رطتار} }}}%
\gdef\amarcsech{\ammathpalette{\hbox{ \araby{رقار} }}}%
\gdef\amarccsch{\ammathpalette{\hbox{ \araby{رقتار} }}}%
\gdef\amlg##1{{\amsb{##1}\ammathpalette{\hbox{ \araby{لو} }}}}%
\gdef\amexp##1{{\amsp{##1}\ammathpalette{\hbox{ \araby{قهـ} }}}}%
%
\gdef\ammgmued{\mgmuedd}%
\gdef\amgdaad{\gdaadd}%
\gdef\amnhaytd{\nhaytdd}%
\gdef\amteryf{\teryfd}%
}

%
\def\frarhbox#1{%
\def\arg{#1}
 \ifx\arg\frw {\arhbox{و}}
  \else\ifx\arg\fraw {\arhbox{أو}}
  \else\ifx\arg\frmrt {\arhbox{مرة}}
  \else\ifx\arg\frida {\arhbox{إذا كان }}
  \else\ifx\arg\frzwjy {\arhbox{زوجي}}
  \else\ifx\arg\frfrdy {\arhbox{فردي}}
  \else\ifx\arg\fridalm {\arhbox{غير ذلك}}
  \else\ifx\arg\frbhyt {\arhbox{بحيث}}
  \else {\arhbox{مشكلة}}
 \fi\fi\fi\fi\fi\fi\fi\fi
}

%
\def\arw{و}
\def\araw{أو}
\def\armrt{مرة}
\def\arida{إذا كان}
\def\arzwjy{زوجي}
\def\arfrdy{فردي}
\def\aridalm{غير ذلك}
\def\arbhyt{بحيث}
\def\armsklt{مشكلة !!!}
