From 5f3eae18dd4f1cefde5a284c07d2f2768bffda06 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:54:50 +0000 Subject: engpron git-svn-id: svn://tug.org/texlive/trunk@862 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/engpron/engpron.sty | 166 ++++++++++++++++++++++++ 1 file changed, 166 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/engpron/engpron.sty (limited to 'Master') diff --git a/Master/texmf-dist/tex/latex/engpron/engpron.sty b/Master/texmf-dist/tex/latex/engpron/engpron.sty new file mode 100644 index 00000000000..b26d117ce96 --- /dev/null +++ b/Master/texmf-dist/tex/latex/engpron/engpron.sty @@ -0,0 +1,166 @@ +%% +%% 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 +%% +%% +%% 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 +%%% --------------------------------------------------------------- +\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'. -- cgit v1.2.3