From e6d80de7402f094f5a5172b96a620733136a4084 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jan 2006 00:01:47 +0000 Subject: paresse git-svn-id: svn://tug.org/texlive/trunk@1171 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/paresse/paresse.sty | 127 ++++++++++++++++++++++++ 1 file changed, 127 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/paresse/paresse.sty diff --git a/Master/texmf-dist/tex/latex/paresse/paresse.sty b/Master/texmf-dist/tex/latex/paresse/paresse.sty new file mode 100644 index 00000000000..76f302def76 --- /dev/null +++ b/Master/texmf-dist/tex/latex/paresse/paresse.sty @@ -0,0 +1,127 @@ +%% +%% This is file `paresse.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% paresse.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) 2004 by Yvon Henel +%%%% -------------------------------------------------------- +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\def\fileversion{v1a} +\def\filedate{2005/03/01} +\def\fileinfo{fichier paresse.dtx par Le \TeX nicien de surface} +\ProvidesPackage{paresse} + [\filedate\space\fileversion\space\fileinfo] +\newif\if@optiontame \newif\if@optiontau +\newif\if@optionvareps +\newif\if@optionvartheta +\newif\if@optionvarrho +\newif\if@optionvarsigma +\newif\if@optionvarphi +\newif\if@optionvarpi +\DeclareOption{tame}{\@optiontametrue} +\DeclareOption{wild}{\@optiontamefalse} +\DeclareOption{ttau}{\@optiontautrue} +\DeclareOption{ttheta}{\@optiontaufalse} +\DeclareOption{varepsilon}{\@optionvarepstrue} +\DeclareOption{epsilon}{\@optionvarepsfalse} +\DeclareOption{vartheta}{\@optionvarthetatrue} +\DeclareOption{theta}{\@optionvarthetafalse} +\DeclareOption{varrho}{\@optionvarrhotrue} +\DeclareOption{rho}{\@optionvarrhofalse} +\DeclareOption{varpi}{\@optionvarpitrue} +\DeclareOption{pi}{\@optionvarpifalse} +\DeclareOption{varsigma}{\@optionvarsigmatrue} +\DeclareOption{sigma}{\@optionvarsigmafalse} +\DeclareOption{varphi}{\@optionvarphitrue} +\DeclareOption{phi}{\@optionvarphifalse} +\DeclareOption{defaut}{\@optiontamefalse \@optionvarepstrue + \@optionvarthetafalse \@optionvarrhofalse \@optionvarsigmafalse + \@optionvarpifalse \@optionvarphitrue \@optiontaufalse} +\DeclareOption*{\PackageError{paresse}{% + L'option \CurrentOption\space n'est pas connue !\MessageBreak + Les options par défaut sont << wild >> et << theta >>.}% + {Choisissez entre << wild >> (pour une Paresse active dans tout + le document) \MessageBreak et << tame >> (pour que § imprime + la marque de paragraphe). \MessageBreak Choisissez entre << + theta >> (pour que §t imprime theta) \MessageBreak et << tau + >> (pour que §t imprime tau).}} \ExecuteOptions{defaut} +\ProcessOptions\relax +\count@=\catcode`\§ +\let\GA@LaVieilleParesse= § +\def\§{\S} +\newcommand{\makeparesseletter}{\catcode `\§=11\relax} +\newcommand{\makeparesseother}{\catcode `\§=12\relax} +\newcommand{\GA@MakeParesseActive}{\catcode `\§=\active} +\def\GA@ActiveLaParessexii{\catcode `\§=\active} +\def\GA@ActiveLaParessexiii{\catcode `\§=\active + \def§##1{\ensuremath{\csname \string§##1\endcsname}}} +\ifnum\count@=12 +\let\GA@ActiveLaParesse \GA@ActiveLaParessexii +\else +\let\GA@ActiveLaParesse \GA@ActiveLaParessexiii +\fi +\newcommand{\ActiveLaParesse}{\GA@ActiveLaParesse} +\newenvironment{ParesseActive}{\GA@ActiveLaParesse}{} +\newcommand{\GA@ActiveL@P@resse}{\catcode `\§=\active% + \def§##1{\ensuremath{\csname \string§##1\endcsname}}} +\if@optionvareps \def\@epsilon {\varepsilon} + \else \def\@epsilon {\epsilon} \fi +\if@optionvartheta \def\@theta {\vartheta} + \else \def\@theta {\theta} \fi +\if@optionvarpi \def\@pi {\varpi} + \else \def\@pi {\pi} \fi +\if@optionvarrho \def\@rho {\varrho} + \else \def\@rho {\rho} \fi +\if@optionvarsigma \def\@sigma {\varsigma} + \else \def\@sigma {\sigma} \fi +\if@optionvarphi \def\@phi {\varphi} + \else \def\@phi {\phi} \fi +\makeparesseletter +%%% minuscules +\def\§a {\alpha} \def\§b {\beta} +\def\§g {\gamma} \def\§d {\delta} +\def\§e {\@epsilon} \def\§z {\zeta} +\def\§h {\eta} \def\§v {\@theta} +\def\§i {\iota} \def\§k {\kappa} +\def\§l {\lambda} \def\§m {\mu} +\def\§n {\nu} \def\§x {\xi} +\def\§p {\@pi} +\def\§r {\@rho} \def\§s {\@sigma} +\def\§y {\tau} \def\§u {\upsilon} +\def\§f {\@phi} \def\§c {\chi} +\def\§q {\psi} \def\§w {\omega} +\if@optiontau \def\§t {\tau}\else \def\§t {\@theta}\fi +%%% Majuscules +\def\§G {\Gamma} \def\§D {\Delta} +\def\§V {\Theta} \def\§T {\Theta} +\def\§L {\Lambda} \def\§X {\Xi} +\def\§P {\Pi} \def\§S {\Sigma} +\def\§U {\Upsilon} \def\§F {\Phi} +\def\§Q {\Psi} \def\§W {\Omega} +\catcode `\§=\active +\def§#1{\ensuremath{\csname \string§#1\endcsname}} +\if@optiontame +\catcode`\§=\count@ +\ifnum\count@=13 \let §=\GA@LaVieilleParesse \fi +\fi +\endinput +%% +%% End of file `paresse.sty'. -- cgit v1.2.3