%%
%% This is file `engpron.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% engpron.dtx  (with options: `package,en')
%% This is a generated file.
%% 
%% Copyright (C) 2003-2008 Y. Henel, le TeXnicien de surface
%% <le.texnicien.de.surface@wanadoo.fr>
%% 
%% This file may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.2 of this license
%% or (at your option) any later version.  The latest version of this
%% license is in:
%% 
%%    http://www.latex-project.org/lppl.txt
%% 
%% and version 1.2 or later is part of all distributions of LaTeX version
%% 1999/12/01 or later.
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\def\fileversion{v2}
\def\filedate{2008/08/15}
\def\fileinfo{fichier engpron.dtx par Le TeXnicien de surface}
\ProvidesPackage{engpron}
   [\filedate\space\fileversion\space\fileinfo]
\RequirePackage{tipa}[1996/06/10]
\RequirePackage{ifthen}
\newboolean{tip@style}
\newboolean{b@wild}
\newboolean{b@jones}
\newboolean{b@hyphenable}
\newboolean{b@visible}
\newboolean{b@final}
\newboolean{b@nice}
\newboolean{b@drac}
\DeclareOption{tipastress}{\setboolean{tip@style}{true}}
\DeclareOption{monstress}{\setboolean{tip@style}{false}}
\DeclareOption{wild}{\setboolean{b@wild}{true}}
\DeclareOption{tame}{\setboolean{b@wild}{false}}
\DeclareOption{jones}{\setboolean{b@jones}{true}}
\DeclareOption{harraps}{\setboolean{b@jones}{false}}
\DeclareOption{hyphenable}{\setboolean{b@hyphenable}{true}}
\DeclareOption{unhyphenable}{\setboolean{b@hyphenable}{false}}
\DeclareOption{visible}{\setboolean{b@visible}{true}}
\DeclareOption{invisible}{\setboolean{b@visible}{false}}
\DeclareOption{final}{\setboolean{b@final}{true}}
\DeclareOption{draft}{\setboolean{b@final}{false}}
\DeclareOption{nice}{\setboolean{b@nice}{true}}
\DeclareOption{tough}{\setboolean{b@nice}{false}}
\DeclareOption{drac}{\setboolean{b@drac}{true}}
\DeclareOption{nodrac}{\setboolean{b@drac}{false}}
\DeclareOption*{\PackageError{engpron}{%
The option \CurrentOption\space is not known!\MessageBreak
}{%
The possible options are (the first is the default):\MessageBreak
<< monstress >> or << tipastress >>\MessageBreak
<<wild>> or <<tame>>\MessageBreak
<<jones>> or <<harraps>>\MessageBreak
<<unhyphenable>> or <<hyphenable>>\MessageBreak
<<visible>> or <<invisible>>.
}}
\ExecuteOptions{monstress,wild,jones,unhyphenable,visible,final,nice,drac}
\ProcessOptions\relax
\ifthenelse{\boolean{b@drac}}{\RequirePackage{drac}}{}
\let\l@viellelivre=\pounds
\newcommand{\EP@ActiveL@Livre}{\catcode `\^^a3=\active}
\ifthenelse{\boolean{b@drac}}%
  {\newcommand{\ActiveLaLivre}{\EP@ActiveL@Livre%
      \ReDeclareRobActChar{^^a3}[1]{\csname \string^^a3##1\endcsname}}}
  {\newcommand{\ActiveLaLivre}{\EP@ActiveL@Livre%
      \def^^a3##1{\csname\string^^a3##1\endcsname}}}
\newcommand{\makepoundletter}{\catcode`\^^a311\relax}
\newcommand{\makepoundother}{\catcode`\^^a312\relax}
\newenvironment{LivreActive}{\ActiveLaLivre}{}
\def\^^a3{\pounds}
\newcommand{\EPtextestyle}{\rmfamily\upshape}
\newcommand{\EPouvrante}{[}
\def\EP@ouvr@nte{\bgroup\EPouvrante}
\newcommand{\EPfermante}{]}
\def\EP@ferm@nte{\EPfermante\egroup}
\newcommand{\pron}[1]{{\EPouvrante\EPtextestyle #1\EPfermante}}
\def\Pron#{\bgroup\ActiveLaLivre\let\next=}
\def\PRON#{\EP@ouvr@nte\EPtextestyle%
  \bgroup\ActiveLaLivre\afterassignment\PRON@UX\let\next=}
\def\PRON@UX{\aftergroup\EP@ferm@nte\relax}
\newcommand{\EPaccentprincipal}{\,\rule[-0.5ex]{0.5pt}{0.8ex}\,}
\newcommand{\EPaccentsecondaire}{\,\rule[0.5ex]{0.5pt}{0.8ex}\,}
\newcommand{\EPSyllabeMarque}{.}
\newcommand{\EPSyllabeCoupure}{%
  \discretionary{\EPSyllabeMarque}{}{\EPSyllabeMarque}}
\newcommand{\EP@basSans}{\EPaccentprincipal}
\newcommand{\EP@hautSans}{\EPaccentsecondaire}
\newcommand{\EP@basAvec}{%
  \discretionary{}{\EPaccentprincipal}{\EPaccentprincipal}}
\newcommand{\EP@hautAvec}{%
  \discretionary{}{\EPaccentsecondaire}{\EPaccentsecondaire}}
\ifthenelse{\boolean{b@hyphenable}}{
  \newcommand{\EP@bas}{\EP@basAvec}
  \newcommand{\EP@haut}{\EP@hautAvec}}{
  \newcommand{\EP@bas}{\EP@basSans}
  \newcommand{\EP@haut}{\EP@hautSans}}
\newcommand{\EP@djeu}{d\textyogh}
\newcommand{\EP@icourt}{\textsci}
\newcommand{\EP@ahyi}{a\EP@icourt}
\newcommand{\EP@ehyi}{e\EP@icourt}
\newcommand{\EP@ohyi}{\textopeno\EP@icourt}
\newcommand{\EP@tcheu}{t\textesh}
\newcommand{\EP@euou}{\textschwa\textupsilon}
\newcommand{\EP@eheu}{e\textschwa}
\newcommand{\EP@iyeu}{\EP@icourt\textschwa}
\newcommand{\EP@oueu}{\textupsilon\textschwa}
\newcommand{\EP@ahou}{a\textupsilon}
\newcommand{\EP@ng@g}{\ng g}
\newcommand{\EP@il@ng}{i\textlengthmark}
\newcommand{\EP@al@ng}{\textscripta\textlengthmark}
\newcommand{\EP@ol@ng}{\textopeno\textlengthmark}
\newcommand{\EP@ul@ng}{u\textlengthmark}
\newcommand{\EP@eul@ng}{\textrevepsilon\textlengthmark}
\newcommand{\EP@syll@bicl}{\textsyllabic{l}}
\newcommand{\EP@usfl@ppedt}{\textsubwedge{t}}
\newcommand{\EP@usoou}{o\textupsilon}
\newcommand{\EP@silent@r}{\textsuperscript{r}}
\ifthenelse{\boolean{b@final}}{%
  \newcommand\EP@Erreur@InDoc[1]{\relax}}{%
  \newcommand\EP@Erreur@InDoc[1]{%
    {\ttfamily\string?\string!<#1>\string!\string?}}}
\ifthenelse{\boolean{b@nice}}{%
  \newcommand\EP@Erreur@Carp{%
    \PackageWarning{engpron}{%
There is a strange character after K, M, or m
}}}{%
\newcommand\EP@Erreur@Carp{%
  \PackageError{engpron}{%
There is a strange character after K, M, or m
}{
The characters which can be used after a
pound-macro are\MessageBreak
with K: X, k, K, b, B, h, and H\MessageBreak
with M or m: a, e, i, o, u
}}}
\newcommand\EP@Erreur@Msg[2]{\EP@Erreur@InDoc{#1#2}\EP@Erreur@Carp}
\def\EP@fr@nn@s@liser{\afterassignment\EP@fr@nn@s@laux\let\tr@@c=}
\def\EP@fr@nn@s@laux{%
  \if\tr@@c i{\~\textepsilon}%
  \else \if \tr@@c a{\~\textscripta}%
  \else \if \tr@@c o{\~\textopeno}%
  \else \if \tr@@c u{\~{\oe}}%
  \else \EP@Erreur@Msg{M}{\tr@@c}%
  \fi \fi \fi \fi}
\def\EP@ngln@s@liser{\afterassignment\EP@ngln@s@laux\let\tr@@c=}
\def\EP@ngln@s@laux{%
  \if\tr@@c i{\~{\ae}}%
  \else \if \tr@@c a{\~\textscripta\textlengthmark}%
  \else \if \tr@@c o{\~\textopeno\textlengthmark}%
  \else \if \tr@@c u{\~\textrevepsilon\textlengthmark}%
  \else \EP@Erreur@Msg{m}{\tr@@c}%
  \fi \fi \fi \fi}
\def\EP@option@lsound{\afterassignment\EP@option@lsoundaux\let\tr@@c=}
\def\EP@option@lsoundaux{%
  \if\tr@@c e\textsuperscript{\,\textschwa}%
  \else {\textsl{\tr@@c}}\fi}
\def\EP@Speci@l{\afterassignment\EP@Speci@laux\let\tr@@c=}
\def\EP@Speci@laux{%
  \if\tr@@c k\EPSyllabeMarque%
  \else \if \tr@@c K\EPSyllabeCoupure%
  \else \if \tr@@c b\EP@basSans%
  \else \if \tr@@c B\EP@basAvec%
  \else \if \tr@@c h\EP@hautSans%
  \else \if \tr@@c H\EP@hautAvec%
  \else \if \tr@@c X\discretionary{}{}{}%
  \else \EP@Erreur@Msg{K}{\tr@@c}%
  \fi \fi \fi \fi \fi \fi \fi}
\ifthenelse{\boolean{b@jones}}{%
}{%
  \renewcommand{\EP@euou}{\emph{o}}
  \def\EP@option@lsoundaux{(\tr@@c)}
  \renewcommand{\EP@silent@r}{\emph{r}}}
\ifthenelse{\boolean{tip@style}}{%
  \renewcommand{\EP@bas}{\textsecstress}
  \renewcommand{\EP@haut}{\textprimstress}}{}
\newcommand\MakeHyphenable{%
  \setboolean{b@hyphenable}{true}%
  \renewcommand\EP@bas{\EP@basAvec}%
  \renewcommand\EP@haut{\EP@hautAvec}%
  \ifthenelse{\boolean{b@visible}}
     {\renewcommand\EP@SyllabeEffective{\EPSyllabeCoupure}}
     {\renewcommand\EP@SyllabeEffective{\discretionary{}{}{}}}%
}
\newcommand\MakeUnHyphenable{%
  \setboolean{b@hyphenable}{false}%
  \renewcommand\EP@bas{\EP@basSans}%
  \renewcommand\EP@haut{\EP@hautSans}%
  \ifthenelse{\boolean{b@visible}}
     {\renewcommand\EP@SyllabeEffective{\EPSyllabeMarque}}
     {\renewcommand\EP@SyllabeEffective{\relax}}%
}
\newcommand\MakeVisible{%
  \setboolean{b@visible}{true}%
  \ifthenelse{\boolean{b@hyphenable}}
     {\renewcommand\EP@SyllabeEffective{\EPSyllabeCoupure}}
     {\renewcommand\EP@SyllabeEffective{\EPSyllabeMarque}}%
}
\newcommand\MakeInVisible{%
  \setboolean{b@visible}{false}%
  \ifthenelse{\boolean{b@hyphenable}}
     {\renewcommand\EP@SyllabeEffective{\discretionary{}{}{}}}
     {\renewcommand\EP@SyllabeEffective{\relax}}%
}
\makepoundletter
\def\^^a3a{\ae}                    \def\^^a3A{\EP@al@ng}
\def\^^a3b{\EP@bas}                \def\^^a3B{\EP@bas}
\def\^^a3c{\textopeno}             \def\^^a3C{\textscripta}
\def\^^a3d{\EP@djeu}
\def\^^a3e{\textschwa}             \def\^^a3E{\EP@eul@ng}
\def\^^a3f{\texttheta}
\def\^^a3h{\EP@haut}               \def\^^a3H{\EP@haut}
\def\^^a3i{\EP@icourt}             \def\^^a3I{\EP@il@ng}
\def\^^a3j{\textyogh}
\def\^^a3l{\EP@syll@bicl}          \def\^^a3L{\textbeltl}
\def\^^a3m{\EP@ngln@s@liser}       \def\^^a3M{\EP@fr@nn@s@liser}
\def\^^a3n{\ng}                    \def\^^a3N{\EP@ng@g}
\def\^^a3o{\textturnscripta}       \def\^^a3O{\EP@ol@ng}
\def\^^a3p{\EP@ahyi}               \def\^^a3P{\EP@eheu}
\def\^^a3q{\EP@ehyi}               \def\^^a3Q{\EP@iyeu}
\def\^^a3r{\EP@ohyi}               \def\^^a3R{\EP@oueu}
\def\^^a3s{\textesh}
\def\^^a3t{\EP@tcheu}              \def\^^a3T{\EP@usfl@ppedt}
\def\^^a3u{\textupsilon}           \def\^^a3U{\EP@ul@ng}
\def\^^a3v{\textturnv}             \def\^^a3V{\EP@usoou}
\def\^^a3w{\EP@euou}               \def\^^a3W{\EP@ahou}
\def\^^a3x{\textrevepsilon}        \def\^^a3X{\EP@option@lsound}
\def\^^a3y{\textrhookschwa}
\def\^^a3z{\dh}                    \def\^^a3Z{\EP@silent@r}
\ifthenelse{\boolean{b@visible}}{%
  \ifthenelse{\boolean{b@hyphenable}}{%
    \newcommand\EP@SyllabeEffective{\EPSyllabeCoupure}}{%
    \newcommand\EP@SyllabeEffective{\EPSyllabeMarque}}}{%
  \ifthenelse{\boolean{b@hyphenable}}{%
    \newcommand\EP@SyllabeEffective{\discretionary{}{}{}}}{%
    \newcommand\EP@SyllabeEffective{\relax}}
}
\def\^^a3k{\EP@SyllabeEffective}
\def\^^a3K{\EP@Speci@l}
\catcode `\^^a3=\active
\ifthenelse{\boolean{b@drac}}
  {\DeclareRobustActChar{^^a3}[1]{\csname \string^^a3#1\endcsname}}
  {\def^^a3#1{\csname \string^^a3#1\endcsname}}
\ifthenelse{\boolean{b@wild}}{}{%
\EP@ActiveL@Livre \global\let^^a3=\l@viellelivre\relax
}
\endinput
%%
%% End of file `engpron.sty'.
