%% %% This is file `pdfcolmk.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% pdfcolmk.dtx (with options: `package') %% %% This is a generated file. %% %% Project: pdfcolmk %% Version: 2016/05/16 v1.3 %% %% Copyright (C) 2000, 2005-2008 by %% Heiko Oberdiek %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either %% version 1.3c of this license or (at your option) any later %% version. This version of this license is in %% http://www.latex-project.org/lppl/lppl-1-3c.txt %% and the latest version of this license is in %% http://www.latex-project.org/lppl.txt %% and version 1.3 or later is part of all distributions of %% LaTeX version 2005/12/01 or later. %% %% This work has the LPPL maintenance status "maintained". %% %% This Current Maintainer of this work is Heiko Oberdiek. %% %% This work consists of the main source file pdfcolmk.dtx %% and the derived files %% pdfcolmk.sty, pdfcolmk.pdf, pdfcolmk.ins, pdfcolmk.drv. %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{pdfcolmk}% [2016/05/16 v1.3 Color support for pdfTeX via marks (HO)] \@ifundefined{ver@pdftex.def}{% \PackageWarningNoLine{pdfcolmk}{% Nothing to fix, because \string`pdftex.def\string' not loaded% }% \endinput }{} \@ifpackageloaded{color}{}{% \PackageWarningNoLine{pdfcolmk}{% Nothing to fix, because \string`color.sty\string' not loaded% }% \endinput } \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname main@pdfcolorstack\endcsname\relax \else % pdftex.def >= 2007/01/01 0.04a and pdfTeX >= 1.40.0 \begingroup \let\on@line\@empty \PackageInfo{pdfcolmk}{% The color stack of pdfTeX \string>\string= 1.40 is used. % Therefore\MessageBreak this package is not necessary and not loaded% }% \endgroup \expandafter\endinput \fi \PackageInfo{pdfcolmk}{% This package tries to simulate dvips's color stack\MessageBreak for pdfTeX based on a mark register of e-TeX.\MessageBreak It redefines LaTeX's output routine. Therefore\MessageBreak use with care, no warranties% } \ifx\marks\@undefined \let\pec@mark\mark \let\pec@value\empty \long\def\mark#1{% \protected@xdef\pec@value{#1}% \pec@setmark }% \def\pec@setmark{% \begingroup \@temptokena\expandafter{\pec@value}% \pec@mark{{\current@color}\the\@temptokena}% \endgroup }% \def\pec@getmark{% \xdef\pec@botcolor{% \expandafter\@firstofthree\botmark\@empty\@empty\@empty }% }% \long\def\@firstofthree#1#2#3{#1}% \CheckCommand{\@leftmark}[2]{#1}% \CheckCommand{\@rightmark}[2]{#2}% \CheckCommand*{\leftmark}{% \expandafter\@leftmark\botmark\@empty\@empty }% \CheckCommand*{\rightmark}{% \expandafter\@rightmark\firstmark\@empty\@empty }% \long\def\@leftmark#1#2#3{#2}% \long\def\@rightmark#1#2#3{#3}% \g@addto@macro\leftmark\@empty \g@addto@macro\rightmark\@empty \else \RequirePackage{etex}[1998/03/26]% \newmarks\pec@marks \def\pec@setmark{\marks\pec@marks{\current@color}}% \def\pec@getmark{\xdef\pec@botcolor{\botmarks\pec@marks}}% \fi \chardef\pec@result\z@ \def\pec@temp#1{% \chardef\pec@result\@ne \begingroup \let\on@line\@empty \PackageInfo{pdfcolmk}{% Patch for \string\@addmarginpar\space applied (#1)% }% \endgroup } \def\pec@addmarginpar{% \@next\@marbox\@currlist{% \@cons\@freelist\@marbox \@cons\@freelist\@currbox }\@latexbug \@tempcnta\@ne \if@twocolumn \if@firstcolumn \@tempcnta\m@ne \fi \else \if@mparswitch \ifodd\c@page \else \@tempcnta\m@ne \fi \fi \if@reversemargin \@tempcnta -\@tempcnta \fi \fi \ifnum\@tempcnta <\z@ \global\setbox\@marbox\box\@currbox \fi \@tempdima\@mparbottom \advance\@tempdima -\@pageht \advance\@tempdima\ht\@marbox \ifdim\@tempdima >\z@ \@latex@warning@no@line{Marginpar on page \thepage\space moved}% \else \@tempdima\z@ \fi \global\@mparbottom\@pageht \global\advance\@mparbottom\@tempdima \global\advance\@mparbottom\dp\@marbox \global\advance\@mparbottom\marginparpush \advance\@tempdima -\ht\@marbox \global\setbox\@marbox\vbox{% \vskip \@tempdima \box \@marbox }% \global \ht\@marbox \z@ \global \dp\@marbox \z@ \kern -\@pagedp \nointerlineskip \hb@xt@\columnwidth{% \ifnum \@tempcnta >\z@ \hskip\columnwidth \hskip\marginparsep \else \hskip -\marginparsep \hskip -\marginparwidth \fi \box\@marbox \hss }% \nointerlineskip \hbox{\vrule \@height\z@ \@width\z@ \@depth\@pagedp}% } \ifx\pec@addmarginpar\@addmarginpar \pec@temp{latex/base}% \fi \def\pec@addmarginpar{% \checkoddpage \@next\@marbox\@currlist{% \@cons\@freelist\@marbox \@cons\@freelist\@currbox }\@latexbug \@tempcnta\@ne \if@twocolumn \if@firstcolumn \@tempcnta\m@ne \fi \else \if@mparswitch \ifoddpage \else \@tempcnta\m@ne \fi \fi \if@reversemargin \@tempcnta -\@tempcnta \fi \fi \ifnum\@tempcnta <\z@ \global\setbox\@marbox\box\@currbox \fi \@tempdima\@mparbottom \advance\@tempdima -\@pageht \advance\@tempdima\ht\@marbox \ifdim\@tempdima >\z@ \@latex@warning@no@line{% Marginpar on page \thepage\space moved by \the\@tempdima }% \else \@tempdima\z@ \fi \global\@mparbottom\@pageht \global\advance\@mparbottom\@tempdima \global\advance\@mparbottom\dp\@marbox \global\advance\@mparbottom\marginparpush \advance\@tempdima -\ht\@marbox \global\setbox\@marbox\vbox{% \vskip \@tempdima \box \@marbox }% \global \ht\@marbox \z@ \global \dp\@marbox \z@ \kern -\@pagedp \nointerlineskip \hb@xt@\columnwidth{% \ifnum \@tempcnta >\z@ \hskip\columnwidth \hskip\marginparsep \else \hskip -\marginparsep \hskip -\marginparwidth \fi \box\@marbox \hss }% \nointerlineskip \hbox{\vrule \@height\z@ \@width\z@ \@depth\@pagedp}% }% \ifx\pec@addmarginpar\@addmarginpar \pec@temp{memoir.cls}% \fi \def\pec@addmarginpar{% \@next \@marbox\@currlist{% \@cons\@freelist\@marbox \@cons\@freelist\@currbox }\@latexbug \global\advance\@mpar@count\m@ne \@ifundefined{@marn@\the\@mpar@count @}{% was location logged last time? \@tempcnta\@ne % NO: use original LaTeX logic \if@twocolumn \if@firstcolumn \@tempcnta\m@ne \fi \else \if@mparswitch \ifodd\c@page \else \@tempcnta\m@ne \fi \fi \if@reversemargin \@tempcnta -\@tempcnta \fi \fi }{% \@tempcnta % YES: use record from last time to decide side. \@nameuse{@marn@\the\@mpar@count @}% \if@reversemargin -\fi \@ne }% \ifnum\@tempcnta <\z@ \global\setbox\@marbox\box\@currbox \global\let\@marnbottom\@mparbottoml \else \global\let\@marnbottom\@mparbottom \fi \@tempdima\@marnbottom \advance\@tempdima -\@pageht \advance\@tempdima\ht\@marbox \ifdim\@tempdima >\z@ \@@warning{Marginpar on page \thepage\space moved}% \else \@tempdima\z@ \fi \global\@marnbottom\@pageht \global\advance\@marnbottom\@tempdima \global\advance\@marnbottom\dp\@marbox \global\advance\@marnbottom\marginparpush \advance\@tempdima -\ht\@marbox \global\ht\@marbox\z@ \global\dp\@marbox\z@ \vskip -\@pagedp \vskip\@tempdima\nointerlineskip \hbox to\columnwidth{% \ifnum \@tempcnta >\z@ \hskip\columnwidth \hskip\marginparsep \else \hskip -\marginparsep \hskip -\marginparwidth \fi \if@filesw % record where this is for use next time: \@marn@log\@mpar@count \fi \box\@marbox \hss }% \nobreak %% RmS 91/06/21 \nobreak added \vskip -\@tempdima \nointerlineskip \hbox{\vrule \@height\z@ \@width\z@ \@depth\@pagedp}% } \ifx\pec@addmarginpar\@addmarginpar \pec@temp{poemscol/(new)marn.sty}% \fi \def\pec@addmarginpar{% \@next\@marbox\@currlist{% \@cons\@freelist\@marbox \@cons\@freelist\@currbox }\@latexbug \@tempcnta\@ne \if@twocolumn \if@firstcolumn \@tempcnta\m@ne \fi \else \@tempcnta\m@ne \fi \ifnum\@tempcnta <\z@ \global\setbox\@marbox\box\@currbox \fi \@tempdima\@mparbottom \advance\@tempdima -\@pageht \advance\@tempdima\ht\@marbox \ifdim\@tempdima >\z@ \@@warning{Marginpar on page \thepage\space moved}% \else \@tempdima\z@ \fi \global\@mparbottom\@pageht \global\advance\@mparbottom\@tempdima \global\advance\@mparbottom\dp\@marbox \global\advance\@mparbottom\marginparpush \advance\@tempdima -\ht\@marbox \global\setbox\@marbox\vbox{% \vskip \@tempdima \box \@marbox }% \global \ht\@marbox \z@ \global \dp\@marbox \z@ \kern -\@pagedp \nointerlineskip \hb@xt@\columnwidth{% \ifnum \@tempcnta >\z@ \hskip\columnwidth \hskip\marginparsep \else \hskip -\marginparsep \hskip -\marginparwidth \fi \box\@marbox \hss }% \nointerlineskip \hbox{\vrule \@height\z@ \@width\z@ \@depth\@pagedp}% } \ifx\pec@addmarginpar\@addmarginpar \pec@temp{ref(art|rep).cls}% \fi \ifcase\pec@result \PackageInfo{pdfcolmk}{% Fix for \string\@addmarginpar\space is omitted, % because this variant\MessageBreak of \string\@addmarginpar\space is not recognized% }% \else % apply patch for \@addmarginpar \def\pec@PatchAddMarginpar#1\columnwidth#2#3\@nil{% \pec@PatchAddMarginparI#2\@nil{#1}{#3}% }% \def\pec@PatchAddMarginparI#1\box\@marbox\hss#2\@nil#3#4{% \def\@addmarginpar{% #3% \columnwidth{% #1% \pdfliteral{q}% \rlap{% \box\@marbox }% \pdfliteral{Q}% \hss #2% }% #4% }% }% \expandafter\pec@PatchAddMarginpar\@addmarginpar\@nil \fi \def\set@color{% \pdfliteral{\current@color}% \ifinner \else \pec@setmark \fi \aftergroup\reset@color } \def\reset@color{% \pdfliteral{\current@color}% \ifinner \else \pec@setmark \fi } \let\pec@botcolor\current@color \def\pec@PatchVBoxCCLV{% \ifx\pec@botcolor\@empty \else \setbox\@cclv\vbox{% \pdfliteral{\pec@botcolor}% \unvbox\@cclv }% \fi \pec@getmark } \def\pec@PatchAlreadyInBox{% \ifx\pec@botcolor\@empty \else \pdfliteral{\pec@botcolor}% \fi \pec@getmark } \@ifclassloaded{memoir}{% \expandafter\def\expandafter\mem@makecol\expandafter{% \expandafter\pec@PatchVBoxCCLV \mem@makecol }% \endinput }{} \@ifclassloaded{seminar}{% \newcommand\pec@org@makeslide{}% \let\pec@org@makeslide\@makeslide \def\@makeslide{% \pec@PatchVBoxCCLV \pec@org@makeslide }% \endinput }{} \long\def\pec@output#1\@specialoutput\else#2\pec@end{% \begingroup \def\x{#2}% \expandafter\endgroup \ifx\x\@empty \PackageWarningNoLine{pdfcolmk}{% Unexpected \string\output\space routine detected,% \MessageBreak loading of package stopped% }% \expandafter\endinput \fi } \expandafter\expandafter\expandafter\pec@output \expandafter\@firstofone\the\output\@specialoutput\else\pec@end \long\def\pec@output#1\@specialoutput\else#2\pec@end{% \output{% #1\@specialoutput\else \pec@PatchVBoxCCLV #2% }% } \expandafter\expandafter\expandafter\pec@output \expandafter\@firstofone\the\output\pec@end \endinput %% %% End of file `pdfcolmk.sty'.