%%
%% This is file `greek4cbc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% greek4cbc.dtx  (with options: `usc')
%% ------------------------------------------------------------------
%%   Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
%%   Copyright 1999--2005 Peter R. Wilson
%% 
%%   This work may be distributed and/or modified under the
%%   conditions of the Latex Project Public License, either
%%   version 1.3 of this license or (at your option) any
%%   later version.
%%   The latest version of the license is in
%%     http://www.latex-project.org/lppl.txt
%%   and version 1.3 or later is part of all distributions of
%%   LaTeX version 2003/06/01 or later.
%% 
%%   This work has the LPPL maintenance status "author-maintained".
%% 
%%   This work consists of the files listed in the README file.
%% ------------------------------------------------------------------
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{greek4cbc}[2000/10/22 v1.1 package for 4th century BC Greek fonts]
\newcommand{\givbcfamily}{\usefont{T1}{givbc}{m}{n}}
\DeclareTextFontCommand{\textgivbc}{\givbcfamily}

\chardef\Aalpha=`a
\chardef\Abeta=`b
\chardef\Agamma=`g
\chardef\Adelta=`d
\chardef\Aepsilon=`e
\chardef\Azeta=`z
\chardef\Aeta=`h
\chardef\Atheta=`T
\chardef\Aiota=`i
\chardef\Akappa=`k
\chardef\Alambda=`l
\chardef\Amu=`m
\chardef\Anu=`n
\chardef\Axi=`x
\chardef\Aomicron=`o
\chardef\Api=`p
\chardef\Arho=`r
\chardef\Asigma=`s
\chardef\Atau=`t
\chardef\Aupsilon=`y
\chardef\Achi=`X
\chardef\Aphi=`f
\chardef\Apsi=`P
\chardef\Aomega=`O

\chardef\ARalpha=`a
\chardef\ARbeta=`B
\chardef\ARgamma=`g
\chardef\ARdelta=`d
\chardef\ARepsilon=`e
\chardef\ARzeta=`z
\chardef\AReta=`h
\chardef\ARtheta=`T
\chardef\ARiota=`i
\chardef\ARkappa=`k
\chardef\ARlambda=`l
\chardef\ARmu=`M
\chardef\ARnu=`N
\chardef\ARxi=`x
\chardef\ARomicron=`o
\chardef\ARpi=`p
\chardef\ARrho=`R
\chardef\ARsigma=`s
\chardef\ARtau=`t
\chardef\ARupsilon=`Y
\chardef\ARchi=`X
\chardef\ARphi=`F
\chardef\ARpsi=`Q
\chardef\ARomega=`O

\newcommand{\translitgivbc}[1]{{%
  \@translitGiv #1}}
\newcommand{\translitgivbcfont}{\mathrm}

\newcommand{\@translitGiv}{%
\def\Aalpha{\ensuremath{\translitgivbcfont{A}}}\def\ARalpha{\Aalpha}%
\def\Abeta{\ensuremath{\translitgivbcfont{B}}}\def\ARbeta{\Abeta}%
\def\Agamma{\ensuremath{\translitgivbcfont{\Gamma}}}\def\ARgamma{\Agamma}%
\def\Adelta{\ensuremath{\translitgivbcfont{\Delta}}}\def\ARdelta{\Adelta}%
\def\Aepsilon{\ensuremath{\translitgivbcfont{E}}}\def\ARepsilon{\Aepsilon}%
\def\Azeta{\ensuremath{\translitgivbcfont{Z}}}\def\ARzeta{\Azeta}%
\def\Aeta{\ensuremath{\translitgivbcfont{H}}}\def\AReta{\Aeta}%
\def\Atheta{\ensuremath{\translitgivbcfont{\Theta}}}\def\ARtheta{\Atheta}%
\def\Aiota{\ensuremath{\translitgivbcfont{I}}}\def\ARiota{\Aiota}%
\def\Akappa{\ensuremath{\translitgivbcfont{K}}}\def\ARkappa{\Akappa}%
\def\Alambda{\ensuremath{\translitgivbcfont{\Lambda}}}\def\ARlambda{\Alambda}%
\def\Amu{\ensuremath{\translitgivbcfont{M}}}\def\ARmu{\Amu}%
\def\Anu{\ensuremath{\translitgivbcfont{N}}}\def\ARnu{\Anu}%
\def\Axi{\ensuremath{\translitgivbcfont{\Xi}}}\def\ARxi{\Axi}%
\def\Aomicron{\ensuremath{\translitgivbcfont{O}}}\def\ARomicron{\Aomicron}%
\def\Api{\ensuremath{\translitgivbcfont{\Pi}}}\def\ARpi{\Api}%
\def\Arho{\ensuremath{\translitgivbcfont{R}}}\def\ARrho{\Arho}%
\def\Asigma{\ensuremath{\translitgivbcfont{\Sigma}}}\def\ARsigma{\Asigma}%
\def\Atau{\ensuremath{\translitgivbcfont{T}}}\def\ARtau{\Atau}%
\def\Aupsilon{\ensuremath{\translitgivbcfont{\Upsilon}}}\def\ARupsilon{\Aupsilon}%
\def\Achi{\ensuremath{\translitgivbcfont{X}}}\def\ARchi{\Achi}%
\def\Aphi{\ensuremath{\translitgivbcfont{\Phi}}}\def\ARphi{\Aphi}%
\def\Apsi{\ensuremath{\translitgivbcfont{\Psi}}}\def\ARpsi{\Apsi}%
\def\Aomega{\ensuremath{\translitgivbcfont{\Omega}}}\def\ARomega{\Aomega}%
}

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