summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/paresse/paresseutf8.sto
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/paresse/paresseutf8.sto
Initial commit
Diffstat (limited to 'macros/latex/contrib/paresse/paresseutf8.sto')
-rw-r--r--macros/latex/contrib/paresse/paresseutf8.sto140
1 files changed, 140 insertions, 0 deletions
diff --git a/macros/latex/contrib/paresse/paresseutf8.sto b/macros/latex/contrib/paresse/paresseutf8.sto
new file mode 100644
index 0000000000..0f232d83c4
--- /dev/null
+++ b/macros/latex/contrib/paresse/paresseutf8.sto
@@ -0,0 +1,140 @@
+%%
+%% This is file `paresseutf8.sto',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% paresse.dtx (with options: `utf8pack')
+%% This is a generated file.
+%%
+%% Copyright (C) 2011, 2013
+%% 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
+%% 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.
+\ProvidesFile{paresseutf8.sto}
+\begingroup
+\catcode`\"=12
+\catcode`\<=12
+\catcode`\.=12
+\catcode`\,=12
+\catcode`\;=12
+\catcode`\!=12
+\catcode`\~=13
+\global\let\GA@parse@UTFviii@a=\parse@UTFviii@a
+\global\let\GA@parse@UTFviii@b=\parse@UTFviii@b
+\gdef\declareunicodecharacter#1#2{%
+ \count@"#1\relax
+ \wlog{\space\space Redefining Unicode char U+#1 (decimal \the\count@)}%
+ \begingroup
+ \GA@parse@XML@charref
+ \def\UTFviii@two@octets##1##2{\csname u8:##1\string##2\endcsname}%
+ \def\UTFviii@three@octets##1##2##3{\csname u8:##1%
+ \string##2\string##3\endcsname}%
+ \def\UTFviii@four@octets##1##2##3##4{\csname u8:##1%
+ \string##2\string##3\string##4\endcsname}%
+ \expandafter\expandafter\expandafter
+ \expandafter\expandafter\expandafter
+ \expandafter
+ \gdef\UTFviii@tmp{\IeC{#2}}%
+ \endgroup}
+\gdef\GA@parse@XML@charref{%
+ \ifnum\count@<"A0\relax
+ \PackageError{inputenc}{Cannot\space define\space Unicode\space
+ char\space value\space <\space 00A0}\@eha
+ \else\ifnum\count@<"800\relax
+ \GA@parse@UTFviii@a,%
+ \GA@parse@UTFviii@b C\UTFviii@two@octets.,%
+ \else\ifnum\count@<"10000\relax
+ \GA@parse@UTFviii@a;%
+ \GA@parse@UTFviii@a,%
+ \GA@parse@UTFviii@b E\UTFviii@three@octets.{,;}%
+ \else
+ \GA@parse@UTFviii@a;%
+ \GA@parse@UTFviii@a,%
+ \GA@parse@UTFviii@a!%
+ \GA@parse@UTFviii@b F\UTFviii@four@octets.{!,;}%
+ \fi
+ \fi
+\fi}
+\endgroup
+\newcommand{\makeparesseletter}{\DeclareUnicodeCharacter{00A7}\S}
+\newcommand{\makeparesseother}{%
+ \PackageWarning{paresse}{%
+ Command \string\makeparesseother disabled}{%
+ The command \string\makeparesseother would have been meaningless
+ in the current context}}
+\newcommand{\ActiveLaParesse}{\declareunicodecharacter{00A7}\@paresse}
+\newenvironment{ParesseActive}{\ActiveLaParesse}{}
+\ActiveLaParesse
+\def\@paresse{\futurelet\@toks\@i@paresse}
+\def\@i@paresse{%
+ \csname\ifcat a\@toks @ii@paresse\else S\fi\endcsname}
+\def\@ii@paresse#1{%
+ \ifcsname @paresse@#1\endcsname
+ \csname @paresse@#1\endcsname\expandafter\@gobble
+ \else
+ \expandafter\@firstofone
+ \fi{\S#1}}
+\def\define@paresse@car#1#2{%
+ \expandafter\def\csname @paresse@#1\endcsname{\ensuremath{#2}}}
+\define@paresse@car Z\S
+\define@paresse@car a\alpha
+\define@paresse@car b\beta
+\define@paresse@car g\gamma
+\define@paresse@car d\delta
+\define@paresse@car e\GA@epsilon
+\define@paresse@car z\zeta
+\define@paresse@car h\eta
+\define@paresse@car i\iota
+\define@paresse@car k\kappa
+\define@paresse@car l\lambda
+\define@paresse@car m\mu
+\define@paresse@car n\nu
+\define@paresse@car x\xi
+\define@paresse@car p\GA@pi
+\define@paresse@car r\GA@rho
+\define@paresse@car s\GA@sigma
+\define@paresse@car u\upsilon
+\define@paresse@car f\GA@phi
+\define@paresse@car w\omega
+\iftogon{GA@legacy}{%
+ \define@paresse@car v\GA@theta
+ \define@paresse@car y\tau
+ \define@paresse@car c\chi
+ \define@paresse@car q\psi
+ \iftogon{GA@ttau}{%
+ \define@paresse@car t\tau}{%
+ \define@paresse@car t\GA@theta}}{%
+ \define@paresse@car j\GA@theta
+ \define@paresse@car t\tau
+ \define@paresse@car q\chi
+ \define@paresse@car y\psi
+ \define@paresse@car c\varsigma}
+\define@paresse@car G\Gamma
+\define@paresse@car D\Delta
+\define@paresse@car L\Lambda
+\define@paresse@car P\Pi
+\define@paresse@car S\Sigma
+\define@paresse@car U\Upsilon
+\define@paresse@car F\Phi
+\define@paresse@car X\Xi
+\define@paresse@car W\Omega
+\iftogon{GA@legacy}{%
+ \define@paresse@car V\Theta
+ \define@paresse@car T\Theta
+ \define@paresse@car Q\Psi}{%
+ \define@paresse@car J\Theta
+ \define@paresse@car Y\Psi}%
+\iftogon{GA@tame}{\makeparesseletter}
+\endinput
+%%
+%% End of file `paresseutf8.sto'.