%%
%% This is file `oldprsn.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% oldprsn.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{oldprsn}[2000/09/24 v1.1 package for Old Persian font]
\newcommand{\copsnfamily}{\usefont{OT1}{copsn}{m}{n}}
\DeclareTextFontCommand{\textcopsn}{\copsnfamily}

\chardef\Oa=`a
\chardef\Oi=`i
\chardef\Ou=`u
\chardef\Oka=`k
\chardef\Oku=`K
\chardef\Oxa=`x
\chardef\Oga=`g
\chardef\Ogu=`G
\chardef\Oca=`c
\chardef\Oja=`j
\chardef\Oji=`J
\chardef\Ota=`t
\chardef\Otu=`T
\chardef\Otha=`o
\chardef\Occa=`C
\chardef\Oda=`d
\chardef\Odi=`P
\chardef\Odu=`D
\chardef\Ona=`n
\chardef\Onu=`N
\chardef\Opa=`p
\chardef\Ofa=`f
\chardef\Oba=`b
\chardef\Oma=`m
\chardef\Omi=`w
\chardef\Omu=`M
\chardef\Oya=`y
\chardef\Ora=`r
\chardef\Oru=`R
\chardef\Ola=`l
\chardef\Ova=`v
\chardef\Ovi=`V
\chardef\Osa=`s
\chardef\Osva=`S
\chardef\Oza=`z
\chardef\Oha=`h
\chardef\Oking=`X
\chardef\Ocountrya=`q
\chardef\Ocountryb=`Q
\chardef\Oearth=`L
\chardef\Ogod=`B
\chardef\OAura=`e
\chardef\OAurb=`E
\chardef\OAurc=`F
\chardef\Owd=`:
\chardef\Oone=`1
\chardef\Otwo=`2
\chardef\Oten=`3
\chardef\Otwenty=`4
\chardef\Ohundred=`5

\newcommand{\translitcopsn}[1]{{%
  \@translitO\translitcopsnfont #1}}
\newcommand{\translitcopsnfont}{\itshape}

\newcommand{\@translitO}{%
\def\Oa{a-}%
\def\Oi{i-}%
\def\Ou{u-}%
\def\Oka{ka-}%
\def\Oku{ku-}%
\def\Oxa{xa-}%
\def\Oga{ga-}%
\def\Ogu{gu-}%
\def\Oca{ca-}%
\def\Oja{ja-}%
\def\Oji{ji-}%
\def\Ota{ta-}%
\def\Otu{tu-}%
\def\Otha{tha-}%
\def\Occa{\c{c}a-}%
\def\Oda{da-}%
\def\Odi{di-}%
\def\Odu{du-}%
\def\Ona{na-}%
\def\Onu{nu-}%
\def\Opa{pa-}%
\def\Ofa{fa-}%
\def\Oba{ba-}%
\def\Oma{ma-}%
\def\Omi{mi-}%
\def\Omu{mu-}%
\def\Oya{ya-}%
\def\Ora{ra-}%
\def\Oru{ru-}
\def\Ola{la-}%
\def\Ova{va-}%
\def\Ovi{vi-}%
\def\Osa{sa-}%
\def\Osva{\v{s}a-}%
\def\Oza{za-}%
\def\Oha{ha-}%
\def\Oking{x\v{s}\={a}yathiya\space}%
\def\Ocountrya{dahy\={a}u\v{s}\space}%
\def\Ocountryb{dahy\={a}u\v{s}\space}%
\def\Oearth{b\={u}mi\v{s}\space}%
\def\Ogod{baga\space}%
\def\OAura{Auramazd\={a}\space}%
\def\OAurb{Ahuramazda\space}%
\def\OAurc{Ahuramazda\space}%
\def\Owd{:\space}%
\def\Oone{1+}%
\def\Otwo{2+}%
\def\Oten{10+}%
\def\Otwenty{20+}%
\def\Ohundred{100+}%
}

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