% opmac-xetex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Petr Olsak, 2013, 2014, 2015

% OPmac features (such as hyperlinks, outlines, colors, transformations,
% pictures) are based on pdfTeX primitives. Unfortunately, these pdfTeX
% primitives are unavailable in XeTeX. XeTeX uses dvipdfm(x) extension
% instead this, which is based on \special{pdf:SOMETHING} commands (see the
% documentation of dvipdfmx). This is a reason why we need to redefine some
% OPmac macros in order to keep the mentioned features in XeTeX.

% This file is read by opmac.tex automatically when XeTeX is detected.
% Don't use \input opmac-xetex in your document.

% Implementation

% \special{pdf:bann <</Type/Annot/Subtype/Link/A<</S/GoTo/D(LABEL)>>>>}%
% TEXT\special{pdf:eann} has to be used instead of
% \pdfstartlink goto name{LABEL}\relax TEXT\pdfendlink:

\def\linkactive[#1:#2]#3#4{\leavevmode
   \special{pdf:bann <</Type/Annot/Subtype/Link\pdfborder{#1}/A<</S/GoTo/D(#1:#2)>>>>}%
   {#3#4}\special{pdf:eann}%
}
\def\pdfborder#1{\if^#1^\else \isdefined{#1border}\iftrue
   \if^\csname#1border\endcsname^\else /C[\csname#1border\endcsname]/Border[0 0 .6]\fi
   \else /Border[0 0 0]\fi\fi
}

% Unfortunately, \pdflinkmargin is unsupported in XeTeX. We create
% only a void compensation:

\newdimen\pdflinkmargin

% \special{pdf:bann <</Type/Annot/Subtype/Link/A<</S/URI/URI(URL)>>>>}%
% TEXT\special{pdf:eann} has to be used instead of
% \pdfstartlink user{/Subtype/Link/A <</Type/Action/S/URI/URI(URL)>>}TEXT\pdfendlink:

\def\urllink[#1:#2]#3{{\let~=\relax \let\\=\relax \let\{=\relax \let\}=\relax
   \leavevmode
   \special{pdf: bann <</Type/Annot/Subtype/Link\pdfborder{#1}/A<</S/URI/URI(#2)>>>>}%   
   {\def~{\nobreak\space}\urlcolor#3}\special{pdf:eann}}%
}

% \special{pdf:dest (LABEL) [@thispage /XYZ @xpos @ypos null]}
% has to be used instead of \pdfdest name{LABEL} xyz :

\def\pdfdest name#1#2#3#4{\special{pdf:dest (#1) [@thispage /XYZ @xpos @ypos null]}}

% \special{pdf:literal CODE} has to be used instead of \pdfliteral{CODE}:

\def\pdfliteral#1{\special{pdf:literal #1}}

% \pdfcolorstack is implemented by \special{color push <text>} and \special{color pop}

\def\colorstackpush#1{\colorspecialinit \special{color push cmyk #1}}
\def\colorstackpop{\special{color pop}}
\def\colorstackset#1{\colorspecialinit \special{color pop}\special{color push cmyk #1}}
\def\colorspecialinit{\special{color push gray 0}\gdef\colorspecialinit{}}
%\def\special#1{\message{special:{#1}}}

% The \pdfsetmatrix, \pdfsave, \pdfrestore can be implemented by \pdfliteral:

\def\pdfsetmatrix#1{\pdfliteral{#1 0 0 cm}}
\def\pdfsave{\pdfliteral{q}}
\def\pdfrestore{\pdfliteral{Q}}

% \special{pdf:out [MINUS] LEVEL <</Title(TEXT)/A<</S/GoTo/D(LABEL)>>>>} 
% has to be used instead of
% \pdfoutline goto name{LABEL} count MINUS-CHILDS {TEXT}.
% Note, we needn't calculate CHILDS, simply LEVEL of outline is used.

\def\outlinesC#1#2#3#4#5{\special{pdf:out [#3] #1 <</Title(#5)/A<</S/GoTo/D(#2)>>>>}}
\def\pdfoutline goto name#1#2#{\outlinesC{0}{#1}{}{}}

% \special{pdf:docview<<CODE>>} has to be used instead of \pdfcatalog{CODE}:

\def\pdfcatalog#1{\special{pdf:docview <<#1>>}}

% \special{pdf:docinfo<<CODE>>} has to be used instead of \pdfinfo{CODE}:

\def\pdfinfo#1{\special{pdf:docinfo <<#1>>}}

% \XeTeXpicfile FILE width DIMEN height DIMEN 
% has to be used to load bitmap picture and
% \XeTeXpdffile FILE width DIMEN height DIMEN
% has to be used to load the picture in PDF format. We need to detect the
% format by the extension of the file.   

\def\inspic #1 {\hbox{\def\tmp##1.pdf##2\relax{%
   \ifnum\strcmp{##2}{.pdf}=0 \XeTeXpdffile \else \XeTeXpicfile \fi}%
   \lowercase{\tmp #1}.pdf\relax \picdir#1
       \ifdim\picwidth=0pt \else width\picwidth\fi
       \ifdim\picheight=0pt \else height\picheight\fi}}

\endinput

=== Unsolved problems ===

1) The size of clickable area cannot be controlled by height/depth parameter
   and by \pdflinkmargin. The result depends on an accident.
2) The PDF/bitmap loading depends on suffix, not on interal magic code in
   the loaded file. The \inspic parameter have to be expanded.
3) The memory sparing method of \pdfximage ... \pdfrefximage
   is not simply available.

% End of opmac-xetex.tex file