diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/hyperref/hdvipson.def')
-rw-r--r-- | Master/texmf-dist/tex/latex/hyperref/hdvipson.def | 77 |
1 files changed, 35 insertions, 42 deletions
diff --git a/Master/texmf-dist/tex/latex/hyperref/hdvipson.def b/Master/texmf-dist/tex/latex/hyperref/hdvipson.def index cbe393a29dd..1af801080cc 100644 --- a/Master/texmf-dist/tex/latex/hyperref/hdvipson.def +++ b/Master/texmf-dist/tex/latex/hyperref/hdvipson.def @@ -24,16 +24,16 @@ %% given in the file `manifest.txt'. %% \ProvidesFile{hdvipson.def} - [2008/04/20 v6.77s + [2008/04/22 v6.77t Hyperref driver for dvipsone] \providecommand*\@pdfborder{0 0 1} \providecommand*\@pdfborderstyle{} +\def\literalps@out#1{\special{ps:#1}}% +\def\headerps@out#1{\special{headertext=#1}}% \input{pdfmark.def}% \ifx\@pdfproducer\relax \def\@pdfproducer{dvipsone + Distiller}% \fi -\def\literalps@out#1{\special{ps:#1}}% -\def\headerps@out#1{\special{! #1}}% \def\PDF@FinishDoc{% \Hy@UseMaketitleInfos \special{PDF: Keywords \@pdfkeywords}% @@ -142,52 +142,45 @@ 72 add exch pop null exch null% } \def\Hy@BorderArrayPatch{BorderArrayPatch} -\special{headertext=% - /DvipsToPDF { 65781 div } def% - /PDFToDvips { 65781 mul } def% - /BPToDvips{65781 mul}def% - /HyperBorder { 1 PDFToDvips } def% - /H.B {/Rect[pdf@llx pdf@lly pdf@urx pdf@ury]} def% +\g@addto@macro\Hy@FirstPageHook{% + \headerps@out{% + /DvipsToPDF { 65781 div } def% + /PDFToDvips { 65781 mul } def% + /BPToDvips{65781 mul}def% + /HyperBorder { 1 PDFToDvips } def% + /H.B {/Rect[pdf@llx pdf@lly pdf@urx pdf@ury]} def% /BorderArrayPatch{% [exch{% dup dup type/integertype eq exch type/realtype eq or% {BPToDvips}if% }forall]% }def% - /H.S {% - currentpoint % - HyperBorder add /pdf@lly exch def % - dup DvipsToPDF 72 add /pdf@hoff exch def % - HyperBorder sub /pdf@llx exch def% - } def% - /H.L {% - 2 sub % - PDFToDvips /HyperBase exch def % - currentpoint % - HyperBase sub /pdf@ury exch def% - /pdf@urx exch def% - } def% - /H.A {% - H.L % - currentpoint exch pop % - HyperBase sub % baseline skip - DvipsToPDF /pdf@voff exch def% - } def% - /H.R {% - currentpoint % - HyperBorder sub /pdf@ury exch def % - HyperBorder add /pdf@urx exch def % - currentpoint exch pop DvipsToPDF /pdf@voff exch def% - } def % - systemdict% - /pdfmark known% - {% - userdict /?pdfmark /exec load put% - }{% - userdict /?pdfmark /pop load put % - userdict /pdfmark systemdict /cleartomark get put% + /H.S {% + currentpoint % + HyperBorder add /pdf@lly exch def % + dup DvipsToPDF 72 add /pdf@hoff exch def % + HyperBorder sub /pdf@llx exch def% + } def% + /H.L {% + 2 sub % + PDFToDvips /HyperBase exch def % + currentpoint % + HyperBase sub /pdf@ury exch def% + /pdf@urx exch def% + } def% + /H.A {% + H.L % + currentpoint exch pop % + HyperBase sub % baseline skip + DvipsToPDF /pdf@voff exch def% + } def% + /H.R {% + currentpoint % + HyperBorder sub /pdf@ury exch def % + HyperBorder add /pdf@urx exch def % + currentpoint exch pop DvipsToPDF /pdf@voff exch def% + } def% }% - ifelse% } \endinput %% |