summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/xypic/latin1.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/xypic/latin1.sty')
-rw-r--r--Master/texmf-dist/source/generic/xypic/latin1.sty242
1 files changed, 242 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/generic/xypic/latin1.sty b/Master/texmf-dist/source/generic/xypic/latin1.sty
new file mode 100644
index 00000000000..c337fb139e9
--- /dev/null
+++ b/Master/texmf-dist/source/generic/xypic/latin1.sty
@@ -0,0 +1,242 @@
+%% $Id: latin1.sty,v 3.4 1997/05/18 03:04:44 krisrose Exp $
+%%
+%% TeX 3 support for ISO 8859-1 (Latin 1) characters.
+%% Copyright (c) 1990-1997 Kristoffer H. Rose <krisrose@brics.dk>
+%%
+%% This file is not part of the Xy-pic package for graphs and diagrams in
+%% TeX but is distributed with it on the same conditions.
+%%
+%% The Xy-pic package is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU General Public License as published by the
+%% Free Software Foundation; either version 2 of the License, or (at your
+%% option) any later version.
+%%
+%% The Xy-pic package is distributed in the hope that it will be useful, but
+%% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+%% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+%% for more details.
+%%
+%% You should have received a copy of the GNU General Public License along
+%% with this package; if not, write to the Free Software Foundation, Inc.,
+%% 675 Mass Ave, Cambridge, MA 02139, USA.
+
+% NOTE: THIS FILE CONTAINS NON-ASCII 8BIT CHARACTERS!
+
+% USAGE: This should be input using the command
+%
+% \input latin1
+%
+% This will then make those ISO 8859-1 (Latin 1) characters that are present
+% in plain TeX available, and for AMS-TeX users, those available there as
+% well (these are marked %%AMS below).
+
+% First we pull the standard trick of dropping out if already loaded or if
+% this is not TeX 3...
+%
+\ifx\inputlineno\undefined
+ \errhelp{You may continue but some things will not typeset right.}%
+ \errmessage{latin1.sty requires TeX version 3---please update}%
+ \endinput\fi
+\expandafter\ifx\csname latin1.tex\endcsname\relax
+\else \message{[already loaded]}\endinput \fi
+\expandafter\edef\csname latin1.tex\endcsname{%
+ \catcode`\noexpand\@\the\catcode`\@\space
+ \expandafter\let\csname latin1.tex\endcsname=\noexpand\empty}
+\catcode`\@=11
+%
+% Next we define some shorthands that users might like as well.
+%
+\def\forcemathdef#1#2{\gdef#1{\relax\ifmmode#2\else{$#2$}\fi}}
+\def\forcemathchardef#1="#2#3#4#5{\forcemathdef#1{\mathchar"#2#3#4#5 }}
+%
+\def\mathtextdef#1#2#3{%
+ \gdef#1{\relax\ifmmode\def\next{#2}\else\def\next{#3}\fi\next}}
+%
+\def\missingchardef#1{\gdef#1{\space}}
+%
+% Code for slashed fractions [from TeXcercise 11.6]:
+%
+\def\slashedfrac#1#2{\hbox{\kern.1em %
+ \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.11em %
+ /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}}
+%
+% Assumes that columns 3-8 are already set up as ASCII.
+%
+% ISO 8859-1 column 10
+%
+\catcode`\ =\active \let =~
+\catcode`\¡=\active \chardef¡='074
+\catcode`\¢=\active
+ \forcemathdef¢{\mathord{\mathpalette\c@ncel{\fam=0\mkern2mu c}}}
+\catcode`\£=\active \forcemathchardef£="0424
+\catcode`\¤=\active \missingchardef¤ %%Missing: currency
+\catcode`\¥=\active \def¥{\yen} %%AMS (msam)
+\catcode`\¦=\active \missingchardef¦ %%Missing: brokenbar
+\catcode`\§=\active \def§{\S}
+\catcode`\¨=\active \mathtextdef¨\ddot\"
+\catcode`\©=\active \def©{\copyright}
+\def\copyright{{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
+\catcode`\ª=\active \forcemathdefª{^{\textrm{\b a}}}
+\catcode`\«=\active \missingchardef« %%Missing: guillemotleft
+\catcode`\¬=\active \forcemathchardef¬="023A
+\catcode`\­=\active \missingchardef­
+\catcode`\®=\active \def®{\circledR} %%AMS (msam)
+\catcode`\¯=\active \mathtextdef¯\bar\B %%AMS
+%
+% ISO 8859-1 column 11
+%
+\catcode`\°=\active \forcemathdef°{^\circ}
+\catcode`\±=\active \forcemathchardef±="2206
+\catcode`\²=\active \forcemathdef²{^2}
+\catcode`\³=\active \forcemathdef³{^3}
+\catcode`\´=\active \let´=\'
+\catcode`\µ=\active \forcemathchardefµ="0116
+\catcode`\¶=\active \def¶{\P}
+\catcode`\·=\active \forcemathchardef·="2201
+\catcode`\¸=\active \let¸=\c
+\catcode`\¹=\active \forcemathdef¹{^1}
+\catcode`\º=\active \forcemathdefº{^{\textrm{\b o}}}
+\catcode`\»=\active \missingchardef» %%Missing: guillemotright
+\catcode`\¼=\active \def¼{\slashedfrac14}
+\catcode`\½=\active \def½{\slashedfrac12}
+\catcode`\¾=\active \def¾{\slashedfrac34}
+\catcode`\¿=\active \chardef¿='076
+%
+% ISO 8859-1 columns 12-15, by letter:
+%
+\catcode`\à=\active \defà{\`a}
+\catcode`\À=\active \defÀ{\`A}
+\ifx\inputlineno\undefined\else\uccode`\à=`\À \lccode`\À=`\à \fi
+\catcode`\á=\active \defá{\'a}
+\catcode`\Á=\active \defÁ{\'A}
+\ifx\inputlineno\undefined\else\uccode`\á=`\Á \lccode`\Á=`\á \fi
+\catcode`\â=\active \defâ{\^a}
+\catcode`\Â=\active \defÂ{\^A}
+\ifx\inputlineno\undefined\else\uccode`\â=`\Â \lccode`\Â=`\â \fi
+\catcode`\ã=\active \defã{\~a}
+\catcode`\Ã=\active \defÃ{\~A}
+\ifx\inputlineno\undefined\else\uccode`\ã=`\Ã \lccode`\Ã=`\ã \fi
+\catcode`\ä=\active \defä{\"a}
+\catcode`\Ä=\active \defÄ{\"A}
+\ifx\inputlineno\undefined\else\uccode`\ä=`\Ä \lccode`\Ä=`\ä \fi
+\catcode`\å=\active \letå=\aa
+\catcode`\Å=\active \letÅ=\AA
+\ifx\inputlineno\undefined\else\uccode`\å=`\Å \lccode`\Å=`\å \fi
+%
+\catcode`\æ=\active \chardefæ="1A
+\catcode`\Æ=\active \chardefÆ="1D
+\ifx\inputlineno\undefined\else\uccode`\æ=`\Æ \lccode`\Æ=`\æ \fi
+\uccode"1A="1D \lccode"1D="1A % Scandinavian...
+%
+\catcode`\ç=\active \defç{\c c}
+\catcode`\Ç=\active \defÇ{\c C}
+\ifx\inputlineno\undefined\else\uccode`\ç=`\Ç \lccode`\Ç=`\ç \fi
+%
+\catcode`\è=\active \defè{\`e}
+\catcode`\È=\active \defÈ{\`E}
+\ifx\inputlineno\undefined\else\uccode`\è=`\È \lccode`\È=`\è \fi
+\catcode`\é=\active \defé{\'e}
+\catcode`\É=\active \defÉ{\'E}
+\ifx\inputlineno\undefined\else\uccode`\é=`\É \lccode`\É=`\é \fi
+\catcode`\ê=\active \defê{\^e}
+\catcode`\Ê=\active \defÊ{\^E}
+\ifx\inputlineno\undefined\else\uccode`\ê=`\Ê \lccode`\Ê=`\ê \fi
+\catcode`\ë=\active \defë{\"e}
+\catcode`\Ë=\active \defË{\"E}
+\ifx\inputlineno\undefined\else\uccode`\ë=`\Ë \lccode`\Ë=`\ë \fi
+%
+\catcode`\ì=\active \defì{\`\i}
+\catcode`\Ì=\active \defÌ{\`I}
+\ifx\inputlineno\undefined\else\uccode`\ì=`\Ì \lccode`\Ì=`\ì \fi
+\catcode`\í=\active \defí{\'\i}
+\catcode`\Í=\active \defÍ{\'I}
+\ifx\inputlineno\undefined\else\uccode`\í=`\Í \lccode`\Í=`\í \fi
+\catcode`\î=\active \defî{\^\i}
+\catcode`\Î=\active \defÎ{\^I}
+\ifx\inputlineno\undefined\else\uccode`\î=`\Î \lccode`\Î=`\î \fi
+\catcode`\ï=\active \defï{\"\i}
+\catcode`\Ï=\active \defÏ{\"I}
+\ifx\inputlineno\undefined\else\uccode`\ï=`\Ï \lccode`\Ï=`\ï \fi
+%
+\catcode`\Ð=\active \missingchardefÐ %%Missing: Eth
+\catcode`\ð=\active \missingchardefð %%Missing: eth
+\ifx\inputlineno\undefined\else\uccode`\Ð=`\ð \lccode`\ð=`\Ð \fi
+%
+\catcode`\ñ=\active \defñ{\~n}
+\catcode`\Ñ=\active \defÑ{\~N}
+\ifx\inputlineno\undefined\else\uccode`\ñ=`\Ñ \lccode`\Ñ=`\ñ \fi
+%
+\catcode`\ò=\active \defò{\`o}
+\catcode`\Ò=\active \defÒ{\`O}
+\ifx\inputlineno\undefined\else\uccode`\ò=`\Ò \lccode`\Ò=`\ò \fi
+\catcode`\ó=\active \defó{\'o}
+\catcode`\Ó=\active \defÓ{\'O}
+\ifx\inputlineno\undefined\else\uccode`\ó=`\Ó \lccode`\Ó=`\ó \fi
+\catcode`\ô=\active \defô{\^o}
+\catcode`\Ô=\active \defÔ{\^O}
+\ifx\inputlineno\undefined\else\uccode`\ô=`\Ô \lccode`\Ô=`\ô \fi
+\catcode`\õ=\active \defõ{\^o}
+\catcode`\Õ=\active \defÕ{\^O}
+\ifx\inputlineno\undefined\else\uccode`\õ=`\Õ \lccode`\Õ=`\õ \fi
+\catcode`\ö=\active \defö{\"o}
+\catcode`\Ö=\active \defÖ{\"O}
+\ifx\inputlineno\undefined\else\uccode`\ö=`\Ö \lccode`\Ö=`\ö \fi
+\catcode`\ø=\active \chardefø="1C
+\catcode`\Ø=\active \chardefØ="1F
+\ifx\inputlineno\undefined\else\uccode`\ø=`\Ø \lccode`\Ø=`\ø \fi
+\uccode"1C="1F \lccode"1F="1C % I'm Danish!
+%
+\catcode`\ù=\active \defù{\`u}
+\catcode`\Ù=\active \defÙ{\`U}
+\ifx\inputlineno\undefined\else\uccode`\ù=`\Ù \lccode`\Ù=`\ù \fi
+\catcode`\ú=\active \defú{\'u}
+\catcode`\Ú=\active \defÚ{\'U}
+\ifx\inputlineno\undefined\else\uccode`\ú=`\Ú \lccode`\Ú=`\ú \fi
+\catcode`\û=\active \defû{\^u}
+\catcode`\Û=\active \defÛ{\^U}
+\ifx\inputlineno\undefined\else\uccode`\û=`\Û \lccode`\Û=`\û \fi
+\catcode`\ü=\active \defü{\"u}
+\catcode`\Ü=\active \defÜ{\"U}
+\ifx\inputlineno\undefined\else\uccode`\ü=`\Ü \lccode`\Ü=`\ü \fi
+%
+\catcode`\Ý=\active \defÝ{\'Y}
+\catcode`\ý=\active \defý{\'y}
+\ifx\inputlineno\undefined\else\uccode`\Ý=`\ý \lccode`\ý=`\Ý \fi
+\catcode`\ÿ=\active \defÿ{\"y}
+%
+\catcode`\Þ=\active \missingchardefÞ %%Missing: Thorn
+\catcode`\þ=\active \missingchardefþ %%Missing: thorn
+\ifx\inputlineno\undefined\else\uccode`\þ=`\Þ \lccode`\Þ=`\þ \fi
+%
+\catcode`\ß=\active \letß=\ss
+%
+% ISO 8859-1 columns 12-15, symbols:
+%
+\catcode`\×=\active \forcemathchardef×="2202
+\catcode`\÷=\active \forcemathchardef÷="2204
+%
+\csname latin1.tex\endcsname
+
+% $Log: latin1.sty,v $
+% Revision 3.4 1997/05/18 03:04:44 krisrose
+% Package, now...
+%
+% Revision 3.3 1996/12/19 03:31:56 krisrose
+% Maintenance release
+%
+% Revision 3.1 1995/09/05 20:31:32 kris
+% Releasing!
+%
+% Revision 3.0 1995/07/07 20:14:21 kris
+% Major release w/new User's Guide!
+%
+% Revision 2.13 1995/07/04 15:11:17 kris
+% Ready to release v3?
+%
+% Revision 2.8 1994/11/07 04:40:31 kris
+% Abandoned.
+%
+% Revision 2.7 1994/03/08 02:06:01 kris
+% Release 3alpha.
+%
+% New for Xy-pic 2.7 based on latin1.doc of the XPPT distribution.