% \iffalse meta-comment
%
% Copyright 1989-1999 Johannes L. Braams and any individual authors
% listed elsewhere in this file.  All rights reserved.
% 
% This file is part of the Babel system release 3.6.
% --------------------------------------------------
% 
% It may be distributed under the terms of the LaTeX Project Public
% License, as described in lppl.txt in the base LaTeX distribution.
% Either version 1.0 or, at your option, any later version.
% \fi
%% \CheckSum{94}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%
%\iffalse
%
%% This is file `grmath.sty'
%% (c) 1997-1999 Apostolos Syropoulos.
%% All rights reserved.
%  You are allowed to modify this file as long the initial copyright notice
%  appears in the modified file.
%
%  Please report errors or suggestions for improvement to
%    
%    Apostolos Syropoulos
%    366, 28th October Str.
%    GR-671 00 Xanthi, GREECE
%    
%    apostolo@platon.ee.duth.gr or apostolo@obelix.ee.duth.gr
%
%\fi
%\iffalse
%    \begin{macrocode}
%<*driver>
\documentclass{ltxdoc}
\GetFileInfo{grmath.drv}
\begin{document}
   \DocInput{grmath.dtx}
\end{document}
%</driver>
%    \end{macrocode}
%\fi
%
% \title{Greek log-like Operators}
% \author{Apostolos Syropoulos\\
%         366, 28th October Str.\\
%         GR-671 00 Xanthi, HELLAS\\
%         E-mail: \texttt{apostolo@platon.ee.duth.gr}}
% \date{1997/09/21}
% \maketitle
%
% \MakeShortVerb{|}
% \section{What is this all about?}
% 
% In Greece, until recently, it was common practice to write down most
% log-like functions as abbreviations of their Greek names. Consequently, 
% high school students and even university freshmen were not familiar with 
% the Latin names employed in international literature. However, this practice
% is fading away in universities but it is still in wide use in books for
% high schools, mainly because the Latin names would produce nothing but
% confusion. The package |grmath| redefines most log-like definitions
% so that they produce the Greek name, instead of the Latin one. The package
% can be used only in conjunction with the |greek| option of the |babel|
% package.  
% \StopEventually
%
% \section{The Implementation}
%
% As usual we must first identify ourselves.
%
%    \begin{macrocode}
%<*package>
\ProvidesPackage{grmath}[1997/09/21\space v1.1]
\typeout{Package: `grmath' v1.1\space <1997/09/21> (A. Syropoulos)}
%    \end{macrocode}
%
% Next we check to see if the |babel| package is loaded with at least
% the |greek| option. In case it isn't, we opt to produce an error message.
%    \begin{macrocode} 
\@ifpackagewith{babel}{greek}{}{%
     \@ifpackagewith{babel}{polutonikogreek}{}{%
     \PackageError{grmath}{%
     `greek' option of the `babel'\MessageBreak
      package hasn't been loaded}{%
      The commands provided by this package\MessageBreak
      are specially designed for greek language\MessageBreak
      typesetting with the `babel' package. Load\MessageBreak
      it with at least the `greek' option.}\relax
      }}
%    \end{macrocode}
%
% We define the mathematical font which will be used to typeset
% the log-like functions.
%    \begin{macrocode}
\DeclareSymbolFont{groperators}{LGR}{cmr}{m}{n}
\SetSymbolFont{groperators}{bold}{LGR}{cmr}{bx}{n}
%    \end{macrocode}
%
% We are now ready to proceed with the redefinitions of the log-like
% operator names.
%    \begin{macrocode}
\def\sin{\mathop{\mathgroup\symgroperators hm}\nolimits}
\def\cos{\mathop{\mathgroup\symgroperators sun}\nolimits}
\def\tan{\mathop{\mathgroup\symgroperators ef}\nolimits}
\def\arcsin{\mathop{\mathgroup\symgroperators toxhm}\nolimits}
\def\arccos{\mathop{\mathgroup\symgroperators toxsun}\nolimits}
\def\arctan{\mathop{\mathgroup\symgroperators toxef}\nolimits}
\def\cot{\mathop{\mathgroup\symgroperators sef}\nolimits}
\def\sec{\mathop{\mathgroup\symgroperators tem}\nolimits}
\def\csc{\mathop{\mathgroup\symgroperators stem}\nolimits}
\def\log{\mathop{\mathgroup\symgroperators log_{10}}\nolimits}
\def\ln{\mathop{\mathgroup\symgroperators log_%
{\mathgroup\symoperators e}}\nolimits}
\def\gcd{\mathop{\mathgroup\symgroperators MKD}\nolimits}
%    \end{macrocode}
% In the standard \LaTeX\ distribution there is no provision for a
% Least Common Multiple (lcm) log-like operator. Since, this operator
% appears quite often in greek literature we opt to include it.
%    \begin{macrocode}
\def\lcm{\mathop{\mathgroup\symgroperators EKP}\nolimits}
%</package>
%    \end{macrocode}
%
% \section*{Dedication}
% I would like to dedicate this piece of work to my son 
% \begin{center}Demetrios-Georgios.\end{center}
% \Finale
\endinput
