blob: 45f2299a8e8ebabdb14a0e2cfa9ed51544fbc317 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
%% xyps-s.tex from $Id: xyps-s.doc,v 3.11 2011/03/14 20:14:00 krisrose Exp $
%%
%% Xy-pic ``Style extension'' PostScript support.
%% Copyright (c) 1995-1996 Ross Moore <ross.moore@mq.edu.au>
%%
%% This file is part of the Xy-pic package for graphs and diagrams in TeX.
%% See the companion README and INSTALL files for further information.
%% Copyright (c) 1991-2011 Kristoffer H. Rose <krisrose@tug.org>
%%
%% 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, see http://www.gnu.org/licenses/.
%%
%% As a special exception, you may use this file and all files derived
%% from it without restrictions. This special exception was added with
%% version 3.7 of Xy-pic.
%%
\expandafter\ifx\csname xyps-sloaded\endcsname\empty
\message{not reloaded}\endinput \fi
\expandafter\let\csname xyps-sloaded\endcsname=\empty \xycatcodes
\xydef@\xykillstyles@@{\Unloadstyle@}%
\xywarnifdefined\xyPSescapestyle@
\xywarnifdefined\xyPSsplitescape@
{\xyuncatcodes \catcode`@=11
\gdef\xyPSescapestyle@#1@@{\xyPSsplitescape@#1<><>@@}%
\gdef\xyPSsplitescape@#1<>#2<>#3@@{\xyescape@@{#1}{#2}}}
\xydef@\xyPSsplitPS@#1#2{%
\def\xyPSpre@{#1}\def\xyPSpost@{#2}\modPSboxz@ }
\xydef@\xyescape@@#1#2{\checkXyStyle@
\applyFIFOstyle@\prexyescape@{#1}\postxyescape@{#2}}
\xydef@\prexyescape@{\xyescapeSpecial@}
\xydef@\postxyescape@{\xyescapeSpecial@}
\xylet@\xyescapeSpecial@=\eat@
\let\xyescapeSpecial@=\addtostyletoks@
\xydef@\installPSstyle@{%
\def\preXYstyle@@{\xyPSpre@}%
\let\xydoprestyles@=\xyPSrawstyleA@
\let\xydopoststyles@=\xyPSrawZ@
\let\xykillstyles@=\xykillstyles@@
}
\xydef@\xyPSrawstyleA@#1{\xyPSrawA@{{#1}{}}}
\endinput
|
