Gecko [ 122.154.134.11 ]

Name	Size	Permission	Action
engpron.sty	6.61 KB	-rw-r--r--

Code Editor : engpron.sty

%%
%% This is file `engpron.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% engpron.dtx  (with options: `package')
%% 
%% This is a generated file.
%% 
%% Copyright (C) 2003 Y. Henel, le TeXnicien de surface
%% <Yvon.Henel@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.
%% 
%%% Copyright (C) 2003, 2004  by Yvon Henel <Yvon.Henel@wanadoo.fr>
%%% ---------------------------------------------------------------
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\def\fileversion{v1}
\def\filedate{2004/04/17}
\def\fileinfo{fichier engpron.dtx par Le \TeX nicien 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@harraps}
\DeclareOption{defaut}{%
  \setboolean{tip@style}{false}\setboolean{b@wild}{true}%
  \setboolean{b@jones}{true}\setboolean{b@harraps}{false}%
}
\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}%
  \setboolean{b@harraps}{false}}
\DeclareOption{harraps}{\setboolean{b@jones}{false}%
  \setboolean{b@harraps}{true}}
\DeclareOption*{\PackageError{engpron}{%
    L'option \CurrentOption\space n'est pas connue !\MessageBreak
    C'est << monstress >> qui est l'option par d^^e9faut}%
  {Choisissez entre << monstress >> (pour un accent tonique gras)
    \MessageBreak et << tipastress >> (pour l'accent tonique fourni
    par tipa.sty).}}
\ExecuteOptions{defaut}
\ProcessOptions\relax
\let\l@viellelivre=\pounds
\newcommand{\EP@ActiveL@Livre}{\catcode `\^^a3=\active}
\newcommand{\ActiveLaLivre}{\EP@ActiveL@Livre\def^^a3##1{\csname
    \string^^a3##1\endcsname}}
\newcommand{\makepoundletter}{\catcode`\^^a311\relax}
\newcommand{\makepoundother}{\catcode`\^^a312\relax}
\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}\,}
\newenvironment{LivreActive}{\ActiveLaLivre}{}
\def\^^a3{\pounds}
\newcommand{\EP@bas}{\EPaccentprincipal}
\newcommand{\EP@haut}{\EPaccentsecondaire}
\newcommand{\EP@djeu}{d\textyogh}
\newcommand{\EP@icourt}{\i}
\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}}
\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 \relax
                 \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 \relax
                 \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}
\ifthenelse{\boolean{b@harraps}}{%
  \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}}{}
\makepoundletter
\let\^^a3a \ae                     \let\^^a3A \EP@al@ng
\let\^^a3b \EP@bas                 \let\^^a3B \EP@bas
\let\^^a3c \textopeno              \let\^^a3C \textscripta
\let\^^a3d \EP@djeu               %\let\^^a3D
\let\^^a3e \textschwa              \let\^^a3E \EP@eul@ng
\let\^^a3f \texttheta             %\let\^^a3F
\let\^^a3h \EP@haut                \let\^^a3H \EP@haut
\let\^^a3i \EP@icourt              \let\^^a3I \EP@il@ng
\let\^^a3j \textyogh              %\let\^^a3J
\let\^^a3l \EP@syll@bicl           \let\^^a3L \textbeltl
\let\^^a3m \EP@ngln@s@liser        \let\^^a3M \EP@fr@nn@s@liser
\let\^^a3n \ng                     \let\^^a3N \EP@ng@g
\let\^^a3o \textturnscripta        \let\^^a3O \EP@ol@ng
\let\^^a3p \EP@ahyi                \let\^^a3P \EP@eheu
\let\^^a3q \EP@ehyi                \let\^^a3Q \EP@iyeu
\let\^^a3r \EP@ohyi                \let\^^a3R \EP@oueu
\let\^^a3s \textesh               %\let\^^a3S
\let\^^a3t \EP@tcheu               \let\^^a3T \EP@usfl@ppedt
\let\^^a3u \textupsilon            \let\^^a3U \EP@ul@ng
\let\^^a3v \textturnv              \let\^^a3V \EP@usoou
\let\^^a3w \EP@euou                \let\^^a3W \EP@ahou
\let\^^a3x \textrevepsilon         \let\^^a3X \EP@option@lsound
\let\^^a3y \textrhookschwa        %\let\^^a3Y
\let\^^a3z \dh                     \let\^^a3Z \EP@silent@r
%%% some other free slots *** quelques cases libres
%%% \let\^^a3g                    %\let\^^a3G
%%% \let\^^a3k                    %\let\^^a3K
\catcode `\^^a3=\active
\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'.

${this.title}

Code Editor : engpron.sty