%
% Copyright (C) 2008-2004 by Azzeddine LAZREK. All rights reserved.
%
% dadbody.tex
% This file belongs to the DadTeX package.
%


%\input dadalpha.tex

\let\صف=\cr

\let\عربي=\RL
\let\يسريمن=\LR
\def\صندوق{\setcode{iso8859-6}\RL}

\newenvironment{عربية}{\begin{arabtext}}{\end{arabtext}}

\def\ريضعربي{\arabmath}
\def\تخين{\textbf}
\def\عريض{\large}

\def\عربرياض{
\everymath={%
\amarabmath
}
}

\def\بشكل{\fullvocalize}
\def\بدونشكل{\novocalize}


\def\دالةبنقط{\funwithdots}
\def\دالةبدوننقط{\funwithoutdots}


\def\قوس{\parent}
\def\جذرب{\surd}
\def\حدود{\limits}

%\def\نظمة#1{\system#1}
%\let\نظمة=\amsystem
\def\نظمة#1{
\aamsystemx{\aamrlcr{#1}}}
\def\aamsystemx#1{\rmleft.\vcenter{\normalbaselines\ammath
 \ialign{\hfil$##$& {\ }\hfil$##$\crcr
 #1\crcr}}
  \rmright\rmrbrace}
\def\aamrlcr#1{\if!#1!\else\aamrlcrl#1\aamrlcrr\fi}
\def\aamrlcrl#1\صف#2\aamrlcrr{\if!#2!\amrl{#1}\صف\else\amrl{#1}\صف\aamrlcr{#2}\fi}

%\def\حالات#1{\cases#1}
%\let\حالات=\amcases
\def\حالات#1{
\aamcasesx{\aamrlcr{#1}}}
\def\aamcasesx#1{\rmleft.\vcenter{\normalbaselines\ammath
 \ialign{\hfil$##$& \quad\hfil$##$\crcr
 #1\crcr}}
  \rmright\amlbrace}

%\def\مصفوفة#1{\matrix#1}
%\let\مصفوفة=\ammatrix
\def\مصفوفة#1{
\aammatrixx{\aamrlcr{#1}}}
\def\aammatrixx#1{\vcenter{\normalbaselines\ammath
 \ialign{\hfil$##$\hfil&&\quad\hfil$##$\hfil\crcr
  {\mathstrut}\crcr \noalign{\kern-\baselineskip}
  #1\crcr
  {\mathstrut}\crcr \noalign{\kern-\baselineskip}}}}

\def\وقت{\amtime}
\def\مقسم{\over}
\def\تاريخ{\amnumtoday}
\def\لاتينيغ{\amlating}
\def\الفا{\alpha}
\def\قبعة{\hat}
\def\قبعك{\widehat}
\def\بيطا{\beta}
\def\غاما{\gamma}
\def\الفاك{\Alpha}
\def\بيطاك{\Beta}
\def\غاماك{\Gamma}
\def\دلتا{\delta}
\def\دلتاك{\Delta}
\def\لمبدا{\lambda}
\def\لمبداك{\Lambda}
\def\تيطا{\theta}
\def\تيطاك{\Theta}
\def\يمرقمعادل{\leqno}
\def\رقمعادل{\eqno}
\def\صفحجديد{\newpage}
\def\تخين{\textbf}
\def\عريض{\large}
\def\جذر{\amsqrt}
\def\جذرن{\root}
\def\عمائة{\epercent}
\def\عألف{\epermille}
\def\تكاملل{\lint}
\def\تكامل{\int}
\def\تكاملص{\sint}
\def\يوجد{\exists}
\def\لكل{\forall}
\def\زاوية{\angle}
\def\ليس{\not}
\def\ضمن{\in}
\def\يتضمن{\ni}
\def\مجموعص{\ssum}
\def\مجموعغ{\gsum}
\def\مجموعل{\lsum}
\def\مجموعس{\csum}
\def\جداص{\sprod}
\def\جداغ{\gprod}
\def\جدال{\lprod}
\def\جداس{\cprod}
\def\سزاوية{\rangle}
\def\مزاوية{\langle}
\def\كرقمرومي{\amupromnum}
\def\يوجد{\exists}
\def\الى{\to}
\def\جدالة{\amnewfunc}
\def\على{\of}
\def\سترت{\strut}
\def\علامس{\check}
\def\علاما{\acute}
\def\علامغ{\grave}
\def\علامب{\breve}
\def\لانهاية{\infty}

\def\كسر{
%\amarabmath
\amfrac
}

\def\تكاف{
\leqv
%\buildrel\scriptscriptstyle\hbox{\setcode{iso8859-6}\araby{تعر}}
% \over {\amLongleftrightarrow}
}

\def\تعريف{
\leqm
%\buildrel\scriptscriptstyle\hbox{\setcode{iso8859-6}\araby{تعر}} \over =
}

\def\جزء{\section}
\def\متجهة{\vec}
\def\عنوان{\title}
\def\عنونة{\maketitle}
\def\نها{\lim}
\def\نهاس{\clim}
%\def\مج{\ssum}
%\def\جد{\sprod}
\def\معقوفوق{\overbrace}
\def\معقوفتحت{\underbrace}
\def\سهمفوق{\uparrow}
\def\سهميمين{\overrightarrow}
\def\سهميسار{\overleftarrow}
\def\خطفوق{\overline}
\def\خطتحت{\underline}
\def\محاداتوسط{\centerline}
\def\لامحاد{\noalign}
\def\فراغ{\quad}
\def\صندوقع{\vbox}
\def\صندوقف{\hbox}
\def\فراغص{\smallskip}
\let\فراغش=\tabskip
\def\توسطف{\vcenter}
\def\فتح1{\openup1}
\def\جت{\jot}
\def\يساوي{\seqm}
\def\سهمجنغر{\swarrow}
\def\سطرجدول{\noalign{\hrule}}
\def\سطرع{\vrule}
\def\صعود{\raise}
\def\سطرف{\hrule}
\def\بينسطر{\offinterlineskip}
\def\سهمشمغر{\nwarrow}
\def\دفعافق{\hfil}
\def\صفافقي{\halign}
\def\دفعافقي{\hfill}


\def\تيلد{\tilde}
\def\شريط{\bar}
\def\نقطتين{\ddot}
\def\سنقط{\ldots}
\def\عنقط{\vdots}
\def\نقاط{\dots}
\def\تيلدك{\widetilde}

\def\نقط{\cdots}
\def\نقطة{\dot}
\def\لاتينيريض{\amlatinmath}
\def\لاتيني{\amlatinletter}
\def\شرطة{\amprime}
\def\فتحة{\prime}
\def\رقمغرب{\amwarabnum}
\def\يسار{\left}
\def\يمين{\right}
\def\رقمشرقي{\amearabnum}
\def\دليل{\sb}
\def\اس{\sp}
\def\رقمقديم{\amoldstylenum}
\def\رقمرومي{\amloromnum}
\def\رقمرومي{\amloromnum}
\def\ضرب{\times}

\def\للألف{\wpermille}
\def\معقوفيمين{\lbrace}
\def\معقوفيسار{\rbrace}
\def\نقطعربي{\amarabpunct}
\def\نقطلاتيني{\amlatinpunct}
\def\كبير{\big}
\def\ككبير{\Big}
\def\كككبير{\Bigg}
\def\ككككبير{\bigg}
\def\مكبير{\bigr}
\def\مككبير{\Bigr}
\def\مكككبير{\Biggr}
\def\مككككبير{\biggr}
\def\سكبير{\bigl}
\def\سككبير{\Bigl}
\def\سكككبير{\Biggl}
\def\سككككبير{\biggl}

\def\جا{{{\sin}}}
\def\جتا{{{\cos}}}
\def\ظا{{{\tan}}}
\def\ظتا{{{\cot}}}
\def\قا{{{\sec}}}
\def\قتا{{{\csc}}}
\def\زجا{{{\arcsin}}}
\def\زجتا{{{\arccos}}}
\def\زظا{{{\arctan}}}
\def\زظتا{{{\arccot}}}
\def\زقا{{{\arcsec}}}
\def\زقتا{{{\arccsc}}}
\def\جاز{{{\sinh}}}
\def\جتاز{{{\cosh}}}
\def\ظاز{{{\tanh}}}
\def\ظتاز{{{\coth}}}
\def\قاز{{{\sech}}}
\def\قتاز{{{\csch}}}
\def\زجاز{{{\arcsinh}}}
\def\زجتاز{{{\arccosh}}}
\def\زظاز{{{\arctanh}}}
\def\زظتاز{{{\arccoth}}}
\def\زقاز{{{\arcsech}}}
\def\زقتاز{{{\arccsch}}}
\def\لو{{{\lg{}}}}
\def\قه{{{\exp{}}}}
\def\عكس{\amrl}

%
\def\بداية#1{
\def\doccc{مستند}
\def\arg{#1}
\ifx \arg\doccc \begin{document}
%\بداية{مستند}
\begin{مستند}
\fi
}

%
\gdef\نهاية#1{
\gdef\doccc{مستند}
\gdef\arg{#1}
\ifx \arg\doccc \end{document}
\fi
}

%
\AtBeginDocument{
\renewcommand{\بداية}{\begin}
\def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
\ifx \RL \undefined
 \else \renewcommand{\نهاية}{\end}
%\def\ادرجصور{\includegraphics}
\allowarab\عريض
\allowarab\بداية
\allowarab \نهاية
\allowarab \ريضعربي
\allowarab\محاداتوسط
\allowarab\دفعافق
\allowarab\عربرياض
\allowarab\عنونة
\fi
}

\def\شهرع{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\setcode{arabtex}\novocalize\araby{kAnwn al_tAny, ^sbA.t, 'A_dAr, nysAn, AyAr, .hzyrAn, tmwz,}\setcode{iso8859-6}}\cr
\hbox{\setcode{arabtex}\novocalize\araby{'Ab, Aylwl, t^sryn AlAwl, t^sryn Al_tAny, kAnwn
AlAwl}\setcode{iso8859-6}}\cr}}}

\def\التاريخم{\amyear \ {\hbox{%
\setcode{arabtex}\novocalize
 \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{.g^st}\or \araby{^stnbr}\or
 \araby{Aktwbr}\or \araby{nwnbr}\or \araby{djnbr} \fi \setcode{iso8859-6}}}%
 \ \amday}

\def\التاريخش{\amyear \ {\hbox{%
\setcode{arabtex}\novocalize
 \ifcase\ammonth\or \araby{kAnwn al_tAny}\or \araby{^sbAT}\or
 \araby{'A_dAr}\or \araby{nysAn}\or \araby{AyAr}\or \araby{.hzyrAn}\or
 \araby{tmwz}\or \araby{'Ab}\or \araby{Aylwl}\or \araby{t^sryn AlAwl}\or
 \araby{t^sryn Al_tAny}\or \araby{kAnwn AlAwl}\fi\setcode{iso8859-6}}}%
 \ \amday}

\def\شهرم{\vcenter{\ialign{&\hfil${{##}}$\hfil\cr
\hbox{\setcode{arabtex}\novocalize\araby{ynAyr, fbrAyr, mArs, Aabryl, mAy, ywnyh,}\setcode{iso8859-6}}\cr
\hbox{\setcode{arabtex}\novocalize\araby{ywlywz, .g^st, ^stnbr, Aaktwbr, nwnbr, djnbr}\setcode{iso8859-6}}\cr
}}}



%
\newenvironment{مستند}{}{}


\endinput

\def\amlsum_#1^#2{\null\;\offinterlineskip
 \vcenter{\halign{\hfil${##}$\hfil\cr
 {\scriptstyle\amrl{#2}\hphantom{\hbox{\setcode{transtec}{\araby{mj-}}\setcode{iso8859-6}}}}\cr
 {\amhrulefill \hbox{\setcode{transtec}{\araby{mj-}}\setcode{iso8859-6}}}\cr
 {\scriptstyle\amrl{#1}\hphantom{\hbox{\setcode{transtec}{\araby{mj-}}\setcode{iso8859-6}}}}\cr}}\;}

\def\نهاس_#1{\null\;\offinterlineskip
 \vcenter{\halign{\hfil${##}$\hfil\cr
 {\hphantom{\amnhaytd}}\cr
 {\nhaytf\amhrulefill\amnhaytd}\cr
 {\hphantom{\nhaytf}\scriptstyle\amrl{#1}%
 \hphantom{\amnhaytd}}\cr}}}

% Definition de l'operateur produit
\def\جدال_#1^#2{\null\;\offinterlineskip
 \vcenter{\halign{\hfil${##}$\hfil\cr
 {\hphantom{\hbox{\setcode{transtec}\araby{-d}}}\scriptstyle\amrl{#2}%
  \hphantom{\hbox{\setcode{transtec}\araby{j-}}}}\cr
 {\hbox{\setcode{arabtex}\araby{-_d}}\amhrulefill \hbox{\setcode{transtec}\araby{j-}}}\cr
 {\hphantom{\hbox{\setcode{arabtex}\araby{-_d}}}\scriptstyle\amrl{#1}%
  \hphantom{\hbox{\setcode{transtec}\araby{j-}}\setcode{iso8859-6}}}\cr}}\;}

%
\def\ألف{\alefA}
\def\باء{\beh}
\def\جيم{\jeemA}
\def\دال{\dalA}
\def\واو{\wawA}
\def\زين{\zain}
\def\طاء{\tah}
\def\ياء{\yeh}
\def\لام{\lamA}
\def\ميم{\meemA}
\def\نون{\noon}
\def\سين{\seenA}
\def\عين{\ain}
\def\فاء{\feh}
\def\صاد{\sadA}
\def\قاف{\qafA}
\def\همزة{\hamzaA}
\def\لا{\lamalef}
\def\ي{\Yeh}
\def\ن{\Noon}
\def\ز{\Zain}
\def\م{\MEem}

