%% This is file `gfsporson.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{gfsporson.sty}
[2001/12/15 v1.0 Package `gfsporson.sty']
\NeedsTeXFormat{LaTeX2e}
\message{}\MessageBreak
\message{*****************************************************************}\MessageBreak
\message{  GFS-Porson style file by A. Tsolomitis}\MessageBreak
\message{*****************************************************************}\MessageBreak
\newenvironment{porson}{\fontencoding{LGR}\fontfamily{porson}\selectfont}{}
\newcommand{\textporson}[1]{{\fontencoding{LGR}\fontfamily{porson}\selectfont #1}}

%%%%%%%%%%% 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}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}{}}            



\DeclareSymbolFont{porsonnumbers}{OT1}{porson}{m}{n}
\DeclareMathSymbol{0}{\mathalpha}{porsonnumbers}{`0}
\DeclareMathSymbol{1}{\mathalpha}{porsonnumbers}{`1}
\DeclareMathSymbol{2}{\mathalpha}{porsonnumbers}{`2}
\DeclareMathSymbol{3}{\mathalpha}{porsonnumbers}{`3}
\DeclareMathSymbol{4}{\mathalpha}{porsonnumbers}{`4}
\DeclareMathSymbol{5}{\mathalpha}{porsonnumbers}{`5}
\DeclareMathSymbol{6}{\mathalpha}{porsonnumbers}{`6}
\DeclareMathSymbol{7}{\mathalpha}{porsonnumbers}{`7}
\DeclareMathSymbol{8}{\mathalpha}{porsonnumbers}{`8}
\DeclareMathSymbol{9}{\mathalpha}{porsonnumbers}{`9}

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