From 251fba88ba88c1933446fe148caa2329687c5b17 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Wed, 20 Apr 2011 01:03:05 +0000
Subject: paresse (19apr11)

git-svn-id: svn://tug.org/texlive/trunk@22131 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/paresse/paresse.sty | 198 ++++++++++--------------
 1 file changed, 83 insertions(+), 115 deletions(-)

(limited to '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
index 9b0612cde95..e3242423c4b 100644
--- a/Master/texmf-dist/tex/latex/paresse/paresse.sty
+++ b/Master/texmf-dist/tex/latex/paresse/paresse.sty
@@ -4,10 +4,11 @@
 %%
 %% The original source files were:
 %%
-%% paresse.dtx  (with options: `package')
+%% paresse.dtx  (with options: `common,package')
 %% This is a generated file.
 %% 
-%% Copyright (C) 2003-2010 Y. Henel, le TeXnicien de surface
+%% Copyright (C) 2011
+%% by Yvon Henel, alias le TeXnicien de surface
 %% <le.texnicien.de.surface@wanadoo.fr>
 %% 
 %% This file may be distributed and/or modified under the conditions of
@@ -17,127 +18,94 @@
 %% 
 %%    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.
+%% 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{v3}
-\def\filedate{2010/03/21}
-\def\fileinfo{fichier paresse.dtx par le TeXnicien de surface}
+\def\fileversion{v4}
+\def\filedate{2011/04/19}
+\def\fileinfo{fichier paresse par le TeXnicien de surface}
 \ProvidesPackage{paresse}
    [\filedate\space\fileversion\space\fileinfo]
-\newif\ifGA@optiontame
-\newif\ifGA@optiontau
-\newif\ifGA@optionvareps
-\newif\ifGA@optionvartheta
-\newif\ifGA@optionvarrho
-\newif\ifGA@optionvarsigma
-\newif\ifGA@optionvarphi
-\newif\ifGA@optionvarpi
-\newif\ifGA@optionlegacy
-\DeclareOption{tame}{\GA@optiontametrue}
-\DeclareOption{wild}{\GA@optiontamefalse}
-\DeclareOption{ttau}{\GA@optiontautrue}
-\DeclareOption{ttheta}{\GA@optiontaufalse}
-\DeclareOption{varepsilon}{\GA@optionvarepstrue}
-\DeclareOption{epsilon}{\GA@optionvarepsfalse}
-\DeclareOption{vartheta}{\GA@optionvarthetatrue}
-\DeclareOption{theta}{\GA@optionvarthetafalse}
-\DeclareOption{varrho}{\GA@optionvarrhotrue}
-\DeclareOption{rho}{\GA@optionvarrhofalse}
-\DeclareOption{varpi}{\GA@optionvarpitrue}
-\DeclareOption{pi}{\GA@optionvarpifalse}
-\DeclareOption{varsigma}{\GA@optionvarsigmatrue}
-\DeclareOption{sigma}{\GA@optionvarsigmafalse}
-\DeclareOption{varphi}{\GA@optionvarphitrue}
-\DeclareOption{phi}{\GA@optionvarphifalse}
-\DeclareOption{legacy}{\GA@optionlegacytrue}
-\DeclareOption{Levi}{\GA@optionlegacyfalse}
-\DeclareOption*{\PackageError{paresse}
-  {The option \CurrentOption\space is not known!\MessageBreak
-    The default options are:\MessageBreak
+\RequirePackage{skeyval}
+\RequirePackage{ifluatex}
+\RequirePackage{ifxetex}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{legacy}[true]{levi}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{wild}[true]{tame}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{ttau}[true]{ttheta}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{varepsilon}[true]{epsilon}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{varphi}[true]{phi}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{pi}[true]{varpi}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{sigma}[true]{varsigma}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{rho}[true]{varrho}{}{}
+\define@bitogkeys[GA]{paresse.sty}[GA@]{theta}[true]{vartheta}{}{}
+\DeclareOptionX*{\PackageError{paresse} {The option "\CurrentOption"
+    is not known!\MessageBreak The default options are:\MessageBreak
     legacy, varepsilon, theta, pi, rho, sigma, and varphi.}%
   {Choose between `wild' (for an active Paresse in all the document)
-    \MessageBreak and `tame' (so that ^^a7 prints the paragraph symbol).
+    \MessageBreak and `tame', so that the character obtained by
+    \string\S\MessageBreak prints the section symbol \string\S).
     \MessageBreak See the documentation for other options.}}
-\ExecuteOptions{legacy,wild,varepsilon,theta,pi,rho,sigma,varphi}
-\ProcessOptions\relax
-\count@=\catcode`\^^a7
-\let\GA@LaVieilleParesse= ^^a7
-\def\^^a7{\S}
-\newcommand{\makeparesseletter}{\catcode `\^^a7=11\relax}
-\newcommand{\makeparesseother}{\catcode `\^^a7=12\relax}
-\newcommand{\GA@MakeParesseActive}{\catcode `\^^a7=\active}
-\def\GA@ActiveLaParessexii{\catcode `\^^a7=\active}
-\def\GA@ActiveLaParessexiii{\catcode `\^^a7=\active
-  \def^^a7##1{\ensuremath{\csname \string^^a7##1\endcsname}}}
-\ifnum\count@=12
-\let\GA@ActiveLaParesse \GA@ActiveLaParessexii
+\ExecuteOptionsX[GA]{legacy,wild,varepsilon,theta,pi,rho,sigma,varphi}
+\ProcessOptionsX[GA]\relax
+\iftogon{GA@varepsilon}{%
+  \def\GA@epsilon{\varepsilon}}{\def\GA@epsilon{\epsilon}}
+\iftogon{GA@vartheta}{\def\GA@theta{\vartheta}}{\def\GA@theta{\theta}}
+\iftogon{GA@varpi}{\def\GA@pi{\varpi}}{\def\GA@pi{\pi}}
+\iftogon{GA@varrho}{\def\GA@rho{\varrho}}{\def\GA@rho{\rho}}
+\iftogon{GA@varsigma}{\def\GA@sigma{\varsigma}}{\def\GA@sigma{\sigma}}
+\iftogon{GA@varphi}{\def\GA@phi{\varphi}}{\def\GA@phi{\phi}}
+\ifluatex
+  \PackageInfo{paresse}{compiling with luatex}
+  \InputIfFileExists{paresseold.sto}{%
+    \PackageInfo{paresse}{paresseold loaded}}{%
+    \PackageInfo{paresse}{paresseold not loaded}}
 \else
-\let\GA@ActiveLaParesse \GA@ActiveLaParessexiii
+  \ifxetex
+    \PackageInfo{paresse}{compiling with xetex}
+    \InputIfFileExists{paresseold.sto}{%
+      \PackageInfo{paresse}{paresseold loaded}}{%
+      \PackageInfo{paresse}{paresseold not loaded}}
+  \else
+\newcommand\encoding@error{%
+  \@latex@error{%
+    paresse needs inputenc loaded with option "utf8"
+    or option such as "latin1" (8 bits encodign).}{}\stop}
+\@ifpackageloaded{inputenc}\relax
+{\PackageError{paresse}{%
+    Please, load inputenc package before paresse}{%
+  With LaTeX, "paresse" needs to know the encoding to work well and so
+  the package "inputenc" must be loaded, with \string\usepackage, before
+  loading "paresse" itself}}
+\AtBeginDocument{%
+  \@ifpackageloaded{inputenc}\find@encoding\encoding@error}
+\newtog[GA@]{utf8}[false]
+\newcommand\find@encoding{%
+  \begingroup
+  \def\utf@encoding{utf8}%
+  \def\temp@a{\togoff{GA@utf8}%
+    \PackageInfo{paresse}{8-bit encoding expected\@gobble}}
+  \ifx\utf@encoding\inputencodingname
+  \def\temp@a{\togon{GA@utf8}%
+    \PackageInfo{paresse}{utf8 encoding detected\@gobble}}
+  \fi
+  \expandafter\endgroup\temp@a}
+\AtBeginDocument{%
+  \makeatletter
+  \iftogoff{GA@utf8}{%
+    \InputIfFileExists{paresseold.sto}{%
+      \PackageInfo{paresse}{old loaded\@gobble}}{%
+      \PackageError{paresse}{paresseold.sto not found}{%
+        The package "paresse" needs to load the file "paresseold.sto"
+        but can't find it. Something seems to be broken in your TeX
+        system}}}{%
+    \InputIfFileExists{paresseutf8.sto}{%
+    \PackageInfo{paresse}{utf8 loaded\@gobble}}{%
+    \PackageError{paresse}{paresseutf8 not found}{%
+        The package "paresse" needs to load the file "paresseutf8.sto"
+        but can't find it. Something seems to be broken in your TeX
+        system}}}
+  \makeatother}
 \fi
-\newcommand{\ActiveLaParesse}{\GA@ActiveLaParesse}
-\newenvironment{ParesseActive}{\GA@ActiveLaParesse}{}
-\ifGA@optionvareps\def\GA@epsilon{\varepsilon}\else\def\GA@epsilon{\epsilon}\fi
-\ifGA@optionvartheta\def\GA@theta{\vartheta}\else\def\GA@theta{\theta}\fi
-\ifGA@optionvarpi\def\GA@pi{\varpi}\else\def\GA@pi{\pi}\fi
-\ifGA@optionvarrho\def\GA@rho{\varrho}\else\def\GA@rho{\rho}\fi
-\ifGA@optionvarsigma\def\GA@sigma{\varsigma}\else\def\GA@sigma{\sigma}\fi
-\ifGA@optionvarphi\def\GA@phi{\varphi}\else\def\GA@phi{\phi}\fi
-\makeparesseletter
-\def\^^a7a {\alpha}
-\def\^^a7b {\beta}
-\def\^^a7g {\gamma}
-\def\^^a7d {\delta}
-\def\^^a7e {\GA@epsilon}
-\def\^^a7z {\zeta}
-\def\^^a7h {\eta}
-\def\^^a7i {\iota}
-\def\^^a7k {\kappa}
-\def\^^a7l {\lambda}
-\def\^^a7m {\mu}
-\def\^^a7n {\nu}
-\def\^^a7x {\xi}
-\def\^^a7p {\GA@pi}
-\def\^^a7r {\GA@rho}
-\def\^^a7s {\GA@sigma}
-\def\^^a7u {\upsilon}
-\def\^^a7f {\GA@phi}
-\def\^^a7w {\omega}
-\ifGA@optionlegacy
-\def\^^a7v {\GA@theta}
-\def\^^a7y {\tau}
-\def\^^a7c {\chi}
-\def\^^a7q {\psi}
-\ifGA@optiontau \def\^^a7t {\tau}\else \def\^^a7t {\GA@theta}\fi
-\else
-\def\^^a7j {\GA@theta}
-\def\^^a7t {\tau}
-\def\^^a7q {\chi}
-\def\^^a7y {\psi}
-\def\^^a7c {\varsigma}
-\fi
-\def\^^a7G {\Gamma}
-\def\^^a7D {\Delta}
-\def\^^a7L {\Lambda}
-\def\^^a7P {\Pi}
-\def\^^a7S {\Sigma}
-\def\^^a7U {\Upsilon}
-\def\^^a7F {\Phi}
-\def\^^a7X {\Xi}
-\def\^^a7W {\Omega}
-\ifGA@optionlegacy
-\def\^^a7V {\Theta}
-\def\^^a7T {\Theta}
-\def\^^a7Q {\Psi}
-\else
-\def\^^a7J {\Theta}
-\def\^^a7Y {\Psi}
-\fi
-\catcode `\^^a7=\active
-\def^^a7#1{\ensuremath{\csname \string^^a7#1\endcsname}}
-\ifGA@optiontame
-\catcode`\^^a7=\count@
-\ifnum\count@=13 \let ^^a7=\GA@LaVieilleParesse \fi
 \fi
 \endinput
 %%
-- 
cgit v1.2.3

