%% This is the file `gfscomplutum.sty'.
%%
%%  (c) copyright  2006
%% Antonis Tsolomitis
%% Department of Mathematics, University of the Aegean
%%
%%  This program can be redistributed and/or modified under the terms
%%  of the LaTeX Project Public License Distributed from CTAN
%%  archives in directory macros/latex/base/lppl.txt; either
%%  version 1 of the License, or any later version.
%%
%%   Please report errors or suggestions for improvement to
%%
%%     Dr. Antonis Tsolomitis
%%     Department of Mathematics
%%     University of the Aegean
%%     atsol@aegean.gr
%%
%% \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         \~}
\ProvidesFile{gfscomplutum.sty}
[2001/12/15 v1.0 Package `gfscomplutum.sty']
\NeedsTeXFormat{LaTeX2e}
\message{}\MessageBreak
\message{*****************************************************************}\MessageBreak
\message{  GFS-Complutum style file by A. Tsolomitis}\MessageBreak
\message{*****************************************************************}\MessageBreak
\DeclareOption{default}{%
\renewcommand{\rmdefault}{complutum}}
\ProcessOptions
\newenvironment{complutum}{\fontfamily{complutum}\selectfont}{}
\newcommand{\textcomplutum}[1]{{\fontfamily{complutum}\selectfont #1}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\def\stigma{st}
%\DeclareTextCommand{\anwtonos}{LGR}{\char'047\relax}
%\let\katwtonos\relax
%\let\qoppa\relax
%\let\sampi\relax

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareTextCommand{\taualt}{LGR}{\char"0D\relax}
%%%%%%%%%%% C-S %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\@ifpackagewith{inputenc}{iso-8859-7}{%
      \DeclareInputText{242}{c}
}{}                 
\@ifpackagewith{babel}{greek}{%
%%%% from grsymb package %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax}
\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax}
\DeclareTextCommand{\tao}{LGR}{\char"01\relax}
\DeclareTextCommand{\Qoppa}{LGR}{\char"14\relax}
\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
\DeclareTextCommand{\Sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax}
\DeclareTextCommand{\Stigma}{LGR}{\textlatin{\char"43\relax}}
\DeclareTextCommand{\VarQoppa}{LGR}{\textlatin{\char"47\relax}}   
\DeclareTextCommand{\euro}{LGR}{\char"18\relax}
\DeclareTextCommand{\Euro}{LGR}{\char"18\relax}
%\DeclareTextCommand{\permill}{LGR}{\char"19\relax}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}{%
\@ifpackagewith{babel}{polutonikogreek}{
%%%% from grsymb package %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\DeclareTextCommand{\Digamma}{LGR}{\char"C3\relax}   
\DeclareTextCommand{\ddigamma}{LGR}{\char"93\relax}
\DeclareTextCommand{\tao}{LGR}{\char"01\relax}
\DeclareTextCommand{\Qoppa}{LGR}{\char"14\relax}
\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
\DeclareTextCommand{\Sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\sampi}{LGR}{\char"13\relax}
\DeclareTextCommand{\vardigamma}{LGR}{\char"07\relax}
\DeclareTextCommand{\Stigma}{LGR}{\textlatin{\char"43\relax}}
\DeclareTextCommand{\VarQoppa}{LGR}{\textlatin{\char"47\relax}}
\DeclareTextCommand{\euro}{LGR}{\char"18\relax}
\DeclareTextCommand{\Euro}{LGR}{\char"18\relax}
%\DeclareTextCommand{\permill}{LGR}{\char"19\relax}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}{}}            




\endinput
%%
%% End of file `gfscomplutum.sty'.