%% xypdfpdf.tex from $Id: xypdfpdf.doc,v $

%%

%% Xy-pic ``PDF-PDF'' PDF support.

%% Copyright (c) 1999-1999 Ross Moore <ross@mpce.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-1999 Kristoffer H. Rose <krisrose@ens-lyon.fr>

%%

%% 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.

%%

%% 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 xypdf-pdfloaded\endcsname\empty

 \message{not reloaded}\endinput \fi

\expandafter\let\csname xypdf-pdfloaded\endcsname=\empty \xycatcodes

\global\newif\ifPDFspecials@

\xylet@\PDFmacro@@=\eat@

\xylet@\PDFdict@@=\eat@

\xylet@\PDFspecial@@=\eat@

\xylet@\PDFread@@=\eat@

\xylet@\PDFinclude@@=\eat@

\xylet@\PDFraw@@=\eat@

\xylet@\xyPDFobeylines@@=\relax

\xylet@\PDFspecialdict@@=\eat@

\xydef@\UnloadPDFpdf@{%

 \let\PDFmacro@@=\eat@

 \let\PDFdict@@=\eat@

 \let\PDFspecial@@=\eat@

 \let\PDFread@@=\eat@

 \let\PDFinclude@@=\eat@

 \let\PDFraw@@=\eat@

 \let\xyPDFobeylines@@=\relax

 \let\PDFspecialdict@@=\eat@

}

\xydef@\UnloadPDF@{\UnloadPDFpdf@

 \expandafter\ifx\csname xypdfloaded\endcsname\unknown\PDFspecials@false

 \else\expandafter\NoPDFspecials\fi}

\xylet@\UnloadPDF@@=\UnloadPDF@

\ifx\undefined\dvitype@\xydef@\dvitype@{null}\fi

\xylet@\xyrealshipout@=\shipout

\xydef@\xyPDFshipout@{\xyrealshipout@}

\xydef@\firstPDF@{%

 \global\let\firstPDF@@=\relax \global\let\firstPDF@=\relax}

\xylet@\firstPDF@@=\firstPDF@

\xylet@\dumpPDFdict@@=\relax

\xydef@\installxypdf@{%

 \xyinputorelse@{xypdfpdf}{\xydrivernoload@{pdfpdf}}\xycatcodes

 \installxypdf@@ \installxypdf@x }

\xylet@\installxypdf@@=\relax

\xylet@\setupxyPDF@@=\PDFspecials@true

\xywithoption{pdf}{\let\setupxyPDF@@=\setupxyPDF@}

\xydef@\installxypdf@x{

 \let\firstPDF@=\relax

 \let\XYpredict@=\relax

 \setupxyPDF@@ }

\xydef@\setupxyPDF@{\PDFspecials@true}

\let\realinstallxypdf@x=\installxypdf@x

\ifx\undefined\AfterBeginDocument

 \def\installxypdf@x{\xysetup@@{\realinstallxypdf@x}}%

\else

 \def\installxypdf@x{\AfterBeginDocument{\realinstallxypdf@x}}%

\fi

\xydef@\xydefaultdriver@{dvipdf}

\xydef@\xyPDFdriver#1{\def\xydefaultdriver@{#1}}

\xydef@\installxypdf@orig{\DN@{}%

 \ifx\xydriversselected@@\empty

 \DN@{\expandafter\defaultinstallpdf@\expandafter{\xydefaultdriver@}}%

 \else \def\do##1{%

 \expandafter\ifx\csname##1@xy@pdf\endcsname\relax

 \DN@{\defaultinstallpdf@{##1}}}%

 \xydriversselected@@ 

 \else \DN@##1{}\fi\fi \next@ }

\xydef@\defaultinstallpdf@#1#2{%

 \xywarning@{no driver specified, using #1 }%

 \xyrequire{#1}\csname #1@xy@pdf\endcsname{}}

\xydef@\null@xy@pdf{\installxypdf@}

\xydefcsname@{shape [!...]}#1{%

 \expandafter\ifx\csname xypdf-sloaded\endcsname\empty \DN@{\xyPDFescapestyle@{#1}@@}%

 \else\ifxyPDFshapes@\DN@{\xyPDFshapechar@{#1}@@}%

 \else \DN@{\xyPDFcharwarning@}\fi\fi \next@ }

\xydefcsname@{shape [pdfxy]}{\ifxyPDFshapes@\DN@{\xyPDFpdfxy@}%

 \else \DN@{\xyPDFcharwarning@}\fi \next@ }

\xydef@\xyPDFpdfxy@{%

 \setboxz@h{\dimen@=\L@p \advance\dimen@-\R@p 

 \dimen@ii=-\U@p \raise\dimen@ii\hbox to\z@{%

 \kern\dimen@\xyPDFcurrpt@\kern-\dimen@}\boxz@}}%

\xydef@\xyPDFcurrpt@{\ifxyPDFshapes@\expandafter\xyPDFcurrpt@@\fi}

\xydef@\xyPDFcurrpt@@@{\PDFspecial@@{xyi}\PDFraw@@{userdict begin xyx end}}%%%%<<<<<--- here

\ifx\undefined\xyPDFcurrpt@@ \xylet@\xyPDFcurrpt@@=\xyPDFcurrpt@@@ \fi

\xywarnifdefined\xyPDFshapechar@

\xywarnifdefined\xyPDFsplitshape@

{\xyuncatcodes \catcode`@=11

 \gdef\xyPDFshapechar@#1@@{\xyPDFsplitshape@#1<><>@@}%

 \gdef\xyPDFsplitshape@#1<>#2<>#3@@{\xyPDFsplitPDF@{#1}{#2}}}

\xydef@\xyPDFrawA@#1{\expandafter\xyPDFrawAA@ #1{}{}}%

\xydef@\xyPDFrawAA@#1#2{\PDFraw@@{ #1 #2}\PDFmessage{ #1 #2 }}%

\xydef@\xyPDFrawZ@#1{\PDFraw@@{ #1}\PDFmessage{ #1 }}%

\xydef@\modPDFboxz@{%

 \expandafter\DN@\expandafter{\xyPDFpre@{}}\ifx\next@\empty\else

 \setboxz@h{\expandafter\xyPDFrawA@\expandafter{\xyPDFpre@{}}\boxz@

 \expandafter\xyPDFrawZ@\expandafter{\xyPDFpost@}}\DN@{}\fi}%

\xydef@\modPDFdrop@{%

 \expandafter\DNii@\expandafter{%

 \expandafter\xyPDFrawA@\expandafter{\xyPDFpre@{}}}%

 \DN@##1{\expandafter\def\expandafter\tmp@\expandafter{\nextii@ ##1}}%

 \expandafter\next@\expandafter{\Drop@@}%

 \expandafter\DNii@\expandafter{%

 \expandafter\xyPDFrawZ@\expandafter{\xyPDFpost@}}%

 \DN@##1{\expandafter\def\expandafter\Drop@@\expandafter{\tmp@ ##1}}%

 \expandafter\next@\expandafter{\nextii@}}%

\xydef@\modPDFconnect@{%

 \expandafter\DNii@\expandafter{%

 \expandafter\xyPDFrawA@\expandafter{\xyPDFpre@{}}}%

 \DN@##1{\expandafter\def\expandafter\tmp@\expandafter{\nextii@ ##1}}%

 \expandafter\next@\expandafter{\Connect@@}%

 \expandafter\DNii@\expandafter{%

 \expandafter\xyPDFrawZ@\expandafter{\xyPDFpost@}}%

 \DN@##1{\expandafter\def\expandafter\Connect@@\expandafter{\tmp@ ##1}}%

 \expandafter\next@\expandafter{\nextii@}}%

\xydef@\xyPDFpre@{{}{}}

\xydef@\xyPDFpost@{}

\xydef@\PDFmessage@#1{\W@{PDF: #1}}

\xydef@\PDFignore@#1{}%

\xydef@\showPDFmessages{\let\PDFmessage=\PDFmessage@}

\xydef@\hidePDFmessages{\let\PDFmessage=\PDFignore@}

\xylet@\PDFtracing=\showPDFmessages

\hidePDFmessages

\xydef@\PDFmacro@#1{\PDFmacro@@{#1}\PDFmessage{#1}}

\xydef@\includeXYPDFdict@{\relax}

\xydef@\xyPDFdictknown@{}

\xywarnifdefined\obeyoutlines@

{\catcode`\^^M=\active%

 \gdef\obeyoutlines@{\catcode`\^^M=\active \def^^M{^^J}%

 \newlinechar=`\^^J\obeyspaces}}

\xynew@{if}\ifxyPDFshapes@ \xyPDFshapes@true 

\xydef@\xyPDFcharwarning@@{\xyPDFcharmessage@

 \gdef\xyPDFcharwarning@@{\xyPDFcharmessage@

 \xywarning@{...no further PDF warnings will be given}%

 \global\let\xyPDFcharwarning@@=\relax }}

\xydef@\xyPDFcharmessage@{\xywarning@{%

 the current <driver> does not fully support PDF effects}}%

\xydef@\newxyshape#1#2#3{%

 \DN@{#3}\ifx\next@\empty

 \xydefcsname@{shape [#1]}{\csname xyshape@#1@\endcsname}%

 \else \expandafter\def\csname shape [#1]\endcsname{%

 \csname xyshape@#1@\endcsname}\fi

 \DN@{#2}\ifx\next@\empty

 \expandafter\def\csname xyshape@#1@\endcsname{%

 \xyundefinedEffect@{#1}{}@@}%

 \else \expandafter\def\csname xyshape@#1@\endcsname{#2}\fi }

\xydef@\xyundefinedEffect@#1#2@@{%

 \xywarning@{The #1 #2 effect is not implemented with the current driver}}%

\xydef@\newxyPDFshape#1#2{%

 \expandafter\DN@\expandafter{\csname shape [#1]\endcsname}%

 \DNii@{\relax}\ifx\next@\nextii@ \newxyshape{#1}{}\relax\fi

 \expandafter\DNii@\expandafter{\csname xyPDFshape@#1@\endcsname}%

 \expandafter\def\nextii@{#2}%

 \ifx\nextii@\empty\expandafter\def\next@{\xyPDFnotimplemented@@`#1'@@}%

 \else

 \edef\tmp@{\noexpand\let\expandafter\noexpand\next@

 \expandafter\noexpand\nextii@}%

 \expandafter\tmp@\fi }

\xydef@\xyPDFnotimplemented@@#1@@{%

 \xywarning@{This PostScript effect is not implemented yet}}%

\xydef@\xyPDFnotfinished@@{%

 \xywarning@{This effect is not reliable yet; box sizes may be wrong}}%

\installxypdf@

\endinput