summaryrefslogtreecommitdiff
path: root/texmf-dist
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-06-11 12:25:50 +0900
committerNorbert Preining <norbert@preining.info>2018-06-11 12:25:50 +0900
commit7e4d939488c15290b3df52942833411d669c44d7 (patch)
tree8df9abc80b9b2ce51e6af2dac34bf91803553427 /texmf-dist
parent69aed6c627813afde6fb1983e8b673ed5b8ec0d5 (diff)
aeb-mlink update
Diffstat (limited to 'texmf-dist')
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/README.md57
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/aebmlink_man.pdfbin0 -> 328132 bytes
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.pdfbin0 -> 66094 bytes
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.tex (renamed from texmf-dist/doc/latex/aeb-mlink/mlink_tst.tex)30
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.pdfbin0 -> 37152 bytes
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.tex (renamed from texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.tex)5
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/np_test.txt (renamed from texmf-dist/doc/latex/aeb-mlink/np_test.txt)0
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/examples/shameless_ad.pdf (renamed from texmf-dist/doc/latex/aeb-mlink/shameless_ad.pdf)bin40725 -> 40725 bytes
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/mlink_tst.pdfbin57009 -> 0 bytes
-rw-r--r--texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.pdfbin29460 -> 0 bytes
-rw-r--r--texmf-dist/source/latex/aeb-mlink/aeb_mlink.dtx1123
-rw-r--r--texmf-dist/source/latex/aeb-mlink/aeb_mlink.ins1
-rw-r--r--texmf-dist/source/latex/aeb-mlink/doc/aebmlink_man.tex415
-rw-r--r--texmf-dist/tex/latex/aeb-mlink/aeb-mlink.sty28
-rw-r--r--texmf-dist/tex/latex/aeb-mlink/aeb_mlink.sty683
15 files changed, 2057 insertions, 285 deletions
diff --git a/texmf-dist/doc/latex/aeb-mlink/README.md b/texmf-dist/doc/latex/aeb-mlink/README.md
index a7c43656..58255db7 100644
--- a/texmf-dist/doc/latex/aeb-mlink/README.md
+++ b/texmf-dist/doc/latex/aeb-mlink/README.md
@@ -1,35 +1,44 @@
-Package: aeb_mlink
-Author: D. P. Story
-Dated: 2016/02/16
-Version: v2.0
+Package: aeb_mlink
+Author: D. P. Story
+Dated: 2018/04/26
-The aeb_mlink package implements new links capable of created multi-line
-links. The new commands are \mlhypertext, \mlhyperlink, \mlhyperref,
-\mlnameref, \mlNameref, \mlhref, and \mlurl. All but the first are multi-line
-versions of hyperref commands with the same root name.
+The aeb_mlink package defines new link commands to create multi-line links.
+The new commands are \mlhypertext, \mlhyperlink, \mlhyperref, \mlnameref,
+\mlNameref, \mlhref, and \mlurl.
-What new in version 2.0, added the \mlurl command.
+PDF Creators: Adobe Distiller or ps2pdf
-Restriction: This package requires that the PDF be created by Adobe
-Distiller, version 7.0 or later to create multi-line links, and requires
-Adobe Reader 7.0 or later for the links to work correctly.
+What's New (2018/04/26): Included a 'dummy' package named aeb-mlink. The
+aeb_mlink package is listed on CTAN as aeb-mlink, though there is no such
+package by that name. Well, now there is.
-This package requires the latest version of AeB, in particular, the
-eforms package required is dated 2008/03/14 or later. See
-ctan.org/pkg/acrotex or
-www.math.uakron.edu/~dpstory/webeq.html to retrieve acrotex.zip.
+What's New (2018/04/20): Previously, the links created by aeb_mlink consisted
+of a series of rectangles around each of the syllables of the hypertext or
+url; the little rectangles responded in unison when any one of them were
+clicked. In this version, Postscript procedures are used to combine the
+little rectangles into one rectangle per line of hypertext. Also the Rect
+entry has been changed to be the smallest rectange that encloses the
+hypertext (or url). The Postscript tries to detect problems with the links,
+and reports to the log (distiller or ps2pdf log). The PDF Specification does
+not support cross-page links, to resolve this issued, a method of 'cracking'
+a link apart, breaking it into two links. The second link is free to move to
+the next page.
-Installation Instructions: Place the zip file in your latex search
-path and unzip. Refresh your file name database, and you are ready
-to go. Start with documentation and the demo files contained in the
-examples folder.
+This package requires the latest version of AeB, in particular, the eforms
+package required is dated 2018/03/22 or later. See ctan.org/pkg/acrotex.
+
+In addition to the demo files distributed with the package, there are two new
+demo files available from the AcroTeX Blog webiste:
+
+ aeb_mlink: Fixing multi-line link boxes
+ (http://www.acrotex.net/blog/?p=1377)
+
+ aeb_mlink: Crossing page boundaries with multi-line links
+ (http://www.acrotex.net/blog/?p=1383)
Let me know if there are problems or suggested features. e-mail
me at dpstory@uakron.edu or dpstory@acrotex.net
-The latest updates to the aeb_mlink package can be found at
-www.math.uakron.edu/~dpstory/aeb_pro.html.
-
My other web site is http://blog.acrotex.net/ has the latest on my
ruminations on LaTeX and PDF.
@@ -37,4 +46,4 @@ Now, I simply must get back to my retirement.
D. P. Story
dpstory@uakron.edu
-2016/02/16
+
diff --git a/texmf-dist/doc/latex/aeb-mlink/aebmlink_man.pdf b/texmf-dist/doc/latex/aeb-mlink/aebmlink_man.pdf
new file mode 100644
index 00000000..2cd55b33
--- /dev/null
+++ b/texmf-dist/doc/latex/aeb-mlink/aebmlink_man.pdf
Binary files differ
diff --git a/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.pdf b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.pdf
new file mode 100644
index 00000000..5f2e7d64
--- /dev/null
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.pdf
Binary files differ
diff --git a/texmf-dist/doc/latex/aeb-mlink/mlink_tst.tex b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.tex
index 3e1f2f54..4c74a11a 100644
--- a/texmf-dist/doc/latex/aeb-mlink/mlink_tst.tex
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst.tex
@@ -17,11 +17,18 @@
\university{NORTHWEST FLORIDA STATE COLLEGE\\
Department of Mathematics}
\email{storyd@nwfsc.edu}
-\version{1.0}
+\version{2.2}
\revisionLabel{}
\newcommand{\cs}[1]{\texttt{\char`\\#1}}
+\flJSStr\Msgi{First Link\\n\\nLet's try another! J\\374rgen and with unicode J\\u00FCrgen}
+\flJSStr\Msgii{Success! Multi-line links with hyphenation!\\n\\nCongrats, J\\u00FCrgen}
+\flJSStr\Msgiii{I said, \\"No, they won't work.\\"...I'm wrong again.}
+
+% \mlMarksOn
+
+
\begin{document}
\maketitle
@@ -34,9 +41,7 @@ links that wrap around a line. Most of the text is nonsense, and was
created to fill the page, no offence taken I hope
This paragraph contains two links that go beyond the
-\mlhypertext[\S{U}\W{1}\Color{0 .6 0}\A{\JS{app.alert("First
-Link\\n\\nLet's try another! J\\374rgen and with unicode J\\u00FCrgen")}}
-]{margins of this text width} so it wraps around to the
+\mlhypertext[\S{U}\W{1}\Color{0 .6 0}\A{\JS{app.alert(\Msgi);}}]{margins of this text width} so it wraps around to the
next line. Now, I'll \mlhypertext[\A{\JS{app.alert("Second
Link")}}]{insert a multi-line link.}\footnote{Techniques by D. P.
Story} Can we continue with this? Yes, so says D. P. Story.
@@ -58,8 +63,9 @@ this? Yes, so says D. P. Story.
On the next page, we try multiple column format.
-\mlhypertext[\S{U}\W{1}\Color{0 0.6 0}\A{\JS{app.alert("Success! Multi-line links with hyphenation!\\n\\nCongrats,
-J\\u00FCrgen")}}]{Welcome my friends to my residence, humble as it is. The encyclopedia is a wonderful book.}
+\goodbreak
+
+\mlhypertext[\S{U}\W{1}\Color{0 0.6 0}\A{\JS{app.alert(\Msgii)}}]{Welcome my friends to my residence, humble as it is. The encyclopedia is a wonderful book.}
We shall study it closely during your visit.
Try this great link: \mlhypertext[\A{\JS{app.alert("Yes, they do!");}}]{J\"{u}rgen, \LaTeX{} and
@@ -94,7 +100,7 @@ this? Yes, so says D. P. Story.
Let us begin by having page filling mindless text,
then we'll force a page break, but before we break, a friend of
mine, asked if multi-line links work with math formulas. A very strange request,
-\mlhypertext[\A{\JS{app.alert("I said, \\"No, they won't work.\\"...I'm wrong again.")}}]{$ x= f(t)$, $ x= g(t)$, $h(x) = e^x$}, very strange
+\mlhypertext[\A{\JS{app.alert(\Msgiii)}}]{$ x= f(t)$, $ x= g(t)$, $h(x) = e^x$}, very strange
indeed. Let's try.
Use \LaTeX/hyperref system of cross-referencing
@@ -108,11 +114,12 @@ the \texttt{\string\nameref} command from hyperref.The
\section{Third of Three Sections}\label{three}
The second section, oops, I've lost count. I have nothing to say in
-this section. I take that back, below are problem areas multi-line
-linking:
+this section. I take that back, below are notes and problem areas:
\begin{enumerate}
- \item This method cannot work across page boundaries
+ \item It is possible to break multi-line links across page boundaries, see
+ the \href{http://www.acrotex.net/blog/?p=1383}{{Acro\!\TeX} Blog} article
+ \textsl{\mlhref{http://www.acrotex.net/blog/?p=1383}{Crossing page boundaries with multi-line links}} for a demo file of this.
\item See the \textsf{soul} package documentation for limitations on the arguments
of the \cs{mlxx} commands.
\item Works for footnotes
@@ -127,7 +134,8 @@ Let us try a URL across lines: \mlhref[\S{U}\W{1}\Color{0.6 0 0}]{%
http://www.math.uakron.edu/~dpstory/acrotex.html#educational}
{See the educational offerings of the {Acro\negthinspace{\TeX}} Web
Site at the University of Akron}. This link plays off the
-\texttt{\string\href} \hypertarget{command}{command}.
+\texttt{\string\href} \hypertarget{command}{command}. There is also the \cs{mlurl}
+command, illustrated in the file \texttt{mlink\_tst\_url.tex}.
We can also call a local file, let's try: \mlhref{shameless_ad.pdf}{Here
is a shameless advertisement for Acro\!\TeX}.
diff --git a/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.pdf b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.pdf
new file mode 100644
index 00000000..17e2a612
--- /dev/null
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.pdf
Binary files differ
diff --git a/texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.tex b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.tex
index 2e966d63..ca8c7d8f 100644
--- a/texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.tex
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/mlink_tst_url.tex
@@ -5,7 +5,7 @@
\usepackage{aeb_mlink}
\definePath{\urlAcroTeXBlog}{http://www.acrotex.net/blog}
-\definecolor{webgreen}{rgb}{0,.5,0}
+\definecolor{webgreen}{rgb}{0,.6,0}
\parindent0pt \parskip3pt
@@ -15,7 +15,8 @@ In this demo file we test the \verb~\mlurl~ command.
OK, let's see if we still wrap around the line
\mlurl{http://www.math.uakron.edu/~dpstory}. Now let's try another link, the following URL
-\mlurl[\S{U}\W{1}\Color{0 .6 0}\linktxtcolor{webgreen}]{http://www.acrotex.net}, does it wrap?
+\mlurl[\S{U}\W{1}\Color{0 .6 0}\linktxtcolor{webgreen}]{http://www.acrotex.net}, does it wrap? Yes,
+but did the change in color also change the color of the next link: \setLink[\A{\JS{app.alert("Splendid, you clicked a link, a link to nowhere. The color of the link is as it should be.")}}\Color{1 0 0}]{Go There!}
Let's try a footnote.\footnote{OK, lets see if we still wrap around the line, does it work?
\mlurl{http://www.math.uakron.edu/~dpstory}.}
diff --git a/texmf-dist/doc/latex/aeb-mlink/np_test.txt b/texmf-dist/doc/latex/aeb-mlink/examples/np_test.txt
index d9ea3996..d9ea3996 100644
--- a/texmf-dist/doc/latex/aeb-mlink/np_test.txt
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/np_test.txt
diff --git a/texmf-dist/doc/latex/aeb-mlink/shameless_ad.pdf b/texmf-dist/doc/latex/aeb-mlink/examples/shameless_ad.pdf
index 69a04440..69a04440 100644
--- a/texmf-dist/doc/latex/aeb-mlink/shameless_ad.pdf
+++ b/texmf-dist/doc/latex/aeb-mlink/examples/shameless_ad.pdf
Binary files differ
diff --git a/texmf-dist/doc/latex/aeb-mlink/mlink_tst.pdf b/texmf-dist/doc/latex/aeb-mlink/mlink_tst.pdf
deleted file mode 100644
index 56009cc3..00000000
--- a/texmf-dist/doc/latex/aeb-mlink/mlink_tst.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.pdf b/texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.pdf
deleted file mode 100644
index bf10f2a1..00000000
--- a/texmf-dist/doc/latex/aeb-mlink/mlink_tst_url.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/source/latex/aeb-mlink/aeb_mlink.dtx b/texmf-dist/source/latex/aeb-mlink/aeb_mlink.dtx
index c4c7b7be..7d61b888 100644
--- a/texmf-dist/source/latex/aeb-mlink/aeb_mlink.dtx
+++ b/texmf-dist/source/latex/aeb-mlink/aeb_mlink.dtx
@@ -1,10 +1,9 @@
% \iffalse
%<*copyright>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% aeb_mlink.sty package, 2015-10-28 %%
-%% Copyright (C) 2006--2015 D. P. Story %%
+%% aeb_mlink.sty package, %%
+%% Copyright (C) 2006--2018 D. P. Story %%
%% dpstory@acrotex.net %%
-%% storyd@owc.edu %%
%% %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License %%
@@ -15,28 +14,56 @@
%</copyright>
%<package>\NeedsTeXFormat{LaTeX2e}
%<package>\ProvidesPackage{aeb_mlink}
-%<package> [2016/02/16 v2.0 AeB MLink (dps)]
+%<package> [2018/04/26 v2.3 AeB MLink (dps)]
%<*driver>
\documentclass{ltxdoc}
-\usepackage[colorlinks,hyperindex]{hyperref}
+\usepackage[colorlinks,hyperindex=false]{hyperref}
\pdfstringdefDisableCommands{\let\\\textbackslash}%
-\EnableCrossrefs \CodelineIndex
\OnlyDescription % comment out for implementation details
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\InputIfFileExists{aebdocfmt.def}{\PackageInfo{web}{Inputting aebdocfmt.def}}
+ {\def\IndexOpt{\DescribeMacro}\def\IndexKey{\DescribeMacro}\let\setupFullwidth\relax
+ \PackageInfo{web}{aebdocfmt.def cannot be found}}
\begin{document}
- \GetFileInfo{aeb_mlink.sty}
+\def\CMD#1{\textbackslash#1}
+\let\pkg\textsf
+\let\env\texttt
+\let\opt\texttt
+\let\app\textsf
+\def\visispace{\symbol{32}}
+\def\ameta#1{\ensuremath{\langle\textit{\texttt{#1}}\rangle}}
+\def\meta#1{\textsl{\texttt{#1}}}
+\def\SUB#1{\ensuremath{{}_{\mbox{\scriptsize\ttfamily#1}}}}
+\def\darg#1{\texttt{\char123\relax#1\char125\relax}}
+\addtolength{\marginparwidth}{3pt}
+ \GetFileInfo{web.sty}
\title{The \textsf{aeb\_mlink} Package\texorpdfstring{\\}{: }
A member of the AeB Pro family}
\author{D. P. Story\\
- Email: \texttt{storyd@owc.edu}}
+ Email: \texttt{dpstory@uakron.edu}}
\date{processed \today}
\maketitle
\tableofcontents
- \let\Email\texttt
\DocInput{aeb_mlink.dtx}
- \PrintIndex
+
+\IfFileExists{\jobname.ind}{\newpage\setupFullwidth\par\PrintIndex}
+ {\paragraph*{Index} The index goes here. Execute
+ \[\texttt{makeindex -s gind.ist -o aeb\_mlink.ind aeb\_mlink.idx}\] on the command line and recompile
+ \texttt{web.dtx}.}
+\IfFileExists{\jobname.gls}{\PrintChanges}
+ {\paragraph*{Change History} The list of changes goes here. Execute
+ \[\texttt{makeindex -s gglo.ist -o aeb\_mlink.gls aeb\_mlink.glo}\] on the command line and recompile
+ \texttt{aeb\_mlink.dtx}.}
+
\end{document}
%</driver>
% \fi
+% \MakeShortVerb{|}
+% \InputIfFileExists{aebdonotindex.def}{\PackageInfo{web}{Inputting aebdonotindex.def}}
+% {\PackageInfo{aeb_mlink}{cannot find aebdonotindex.def}}
+%
% \section{Introduction}
% This package creates \underbar{m}ultiline-\underbar{links}.
% The package \textsf{hyperref} does create links, but generally
@@ -74,45 +101,80 @@
%specified by \texttt{Rect}.
%\end{quote}
% \begin{macrocode}
-%<*package>
% \end{macrocode}
+% \section{The \texorpdfstring{\protect\pkg{aeb-mlink}}{aeb-mlink} Package}
+% The \pkg{aeb\_mlink} package is listed on CTAN as \pkg{aeb-mlink}; there was, in
+% fact, no \pkg{aeb-mlink}. Here, we provide a `dummy' package by that name which
+% passes everything on to \pkg{aeb\_mlink}.
% \begin{macrocode}
+%<*altpkgname>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{aeb-mlink}
+ [2018/04/26 v1.0 AeB MLink Alt-name (dps)]
+\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{aeb_mlink}}
+\ProcessOptions
+\RequirePackage{aeb_mlink}[2018/03/22]
+%</altpkgname>
+% \end{macrocode}
+% \section{Package Requirements and Options}
+% After having established the alternate of this package, we now work on the package itself.
+% \changes{v2.3}{2018/04/26}{Added \string\pkg{aeb-mlink} as an alternate name for this package}
+% \begin{macrocode}
+%<*package>
+\RequirePackage{xkeyval}
\RequirePackage{ifpdf}[2006/02/20]
\RequirePackage{ifxetex}[2006/08/21]
\newif\if@ml@dvips \@ml@dvipstrue
+\def\mlcsarg#1#2{\expandafter#1\csname#2\endcsname}
% \end{macrocode}
% \begin{macro}{dvipsone}
% Set the driver for \texttt{dvipsone}
% \begin{macrocode}
-\DeclareOption{dvipsone}{\def\eq@drivernum{0}\@ml@dvipsfalse
+\DeclareOptionX{dvipsone}{\def\eq@drivernum{0}\@ml@dvipsfalse
\PassOptionsToPackage{dvipsone}{eforms}
- \PassOptionsToPackage{dvipsone}{hyperref} %,colorlinks
+ \PassOptionsToPackage{dvipsone}{hyperref}
}
% \end{macrocode}
% \end{macro}
% \begin{macro}{dvips}
% Set the driver for \texttt{dvips}
% \begin{macrocode}
-\DeclareOption{dvips}{\def\eq@drivernum{0}\@ml@dvipstrue
+\DeclareOptionX{dvips}{\def\eq@drivernum{0}\@ml@dvipstrue
\PassOptionsToPackage{dvips}{eforms}
- \PassOptionsToPackage{dvips}{hyperref} %,colorlinks
+ \PassOptionsToPackage{dvips}{hyperref}
}
+\DeclareOptionX*{\PassOptionsToPackage{\CurrentOption}{eforms}}
% \end{macrocode}
% \end{macro}
% \begin{macrocode}
+\newcount\mldblevel \mldblevel=0
+\define@key{aeb_mlink.sty}{dblevel}[0]{\mldblevel=#1 }
+% \end{macrocode}
+% \begin{macrocode}
\def\ml@err@msg{This package requires the driver dvips and\MessageBreak
Adobe Distiller as the PDF creator}
\ifpdf\PackageError{aeb_mlink}{\ml@err@msg}\else
\ifxetex\PackageError{aeb_mlink}{\ml@err@msg}\else
- \InputIfFileExists{web.cfg}{}{}
+ \let\ExecuteOptions@SAVE\ExecuteOptions
+ \let\ExecuteOptions\ExecuteOptionsX
+ \InputIfFileExists{web.cfg}{}
+ {\@ifundefined{l@tex@@@@driver}{\ExecuteOptionsX{dvips}}
+ {\ExecuteOptionsX{dvipsone}}}%
+ \let\ExecuteOptions\ExecuteOptions@SAVE
\fi\fi
-\ProcessOptions
+\ProcessOptionsX
% \end{macrocode}
% We require hyperref, eforms and soul. For eforms, a recent version is needed,
% \texttt{2008/03/14} or later.
% \begin{macrocode}
\RequirePackage{hyperref}
-\RequirePackage{eforms}[2008/03/14]
+\RequirePackage{refcount}
+% \end{macrocode}
+% Beginning with the version of \pkg{eforms} dated 2018/03/22 or later, there are several
+% link options that are defined. These are \cs{mlfix}, \cs{mlstrut}, \cs{mlcrackat} and
+% \cs{mlhyph}.
+% \begin{macrocode}
+\RequirePackage{eforms}[2018/03/22]
\RequirePackage{soul}
% \end{macrocode}
%
@@ -121,18 +183,54 @@
% Driver dependent definitions for dvipsone and dvips.
% \begin{macrocode}
\def\ps@mark{[\space}
+\ifnum\mldblevel>0
+ \def\mlpgMsg{(\string\n Beginning of page: ) pf
+ PhysicalPage 20 string cvs
+ pf(\string\n)pf}\else
+ \def\mlpgMsg{}\fi
+\def\pgmonitoring{\if@ml@dvips
+ dup /PhysicalPage exch 1 add def
+ /PhysicalPage PhysicalPage def^^J\fi
+ \mlpgMsg
+}
+% \end{macrocode}
+% Redefining \cs{mllnkcontainer}, defined in \pkg{eforms}
+% dated 2018/03/14 or later. If \cs{ifoldstylequads} is true,
+% we do not set \texttt{/Rect} to the minimal rectangle, rather
+% it is set to the region defining the whole page. This was
+% the default rectangle in the past.
+% \begin{macrocode}
+\def\smallRectTF{\ifoldstylequads false\else
+ \iffixmlinks true\else false\fi\fi\space
+ \ifSmallRect true\else false\fi\space and}
+\def\mllnkcontainer#1{bCreateLink { xoMsgB {
+ \smallRectTF\space mlRectFix^^J%
+ #1}if}{\the\aeb@mLinkCnt\space mlIsBldMsg}ifelse}
+% \end{macrocode}
+% \cs{pboxRect} is defined in \pkg{eforms}
+% \begin{macrocode}
+\def\pboxRect{mlRect }
\if@ml@dvips
% \end{macrocode}
-% This next \cs{special} defines some standard conversion
-% formulas, {\TeX} to PDF and PDF to {\TeX} for \textsf{dvips}.
+% \textsf{\textbf{dvips} driver:} Code for the \textsf{dvips} driver
+% This next \cs{special} defines some standard conversion
+% formulas, {\TeX} to PDF and PDF to {\TeX} for \textsf{dvips}.
% \begin{macrocode}
+\def\mlDict{SDict}
\special{!userdict begin
- /TeXtoPDF {65536 div DVImag mul} def % sp to pts
- /PDFtoDvips {72.27 div Resolution mul} def % points to dots
- /PDFtoVDvips {72.27 div VResolution mul} def % points to dots
- /DvipstoPDF {72.27 mul Resolution div} def % dots to points
- /HTeXtoDvips {TeXtoPDF PDFtoDvips} def % sp to dots
- /VTeXtoDvips {TeXtoPDF PDFtoVDvips} def end} % sp to dots
+ /TeXtoPDF {65536 div DVImag mul} def % sp to pts
+ /PDFtoDvips {72.27 div Resolution mul} def % points to dots
+ /PDFtoVDvips {72.27 div VResolution mul} def % points to dots
+ /DvipstoPDF {72.27 mul Resolution div} def % dots to points
+ /HTeXtoDvips {TeXtoPDF PDFtoDvips} def % sp to dots
+ /VTeXtoDvips {TeXtoPDF PDFtoVDvips} def^^J% % sp to dots
+ /PhysicalPage 0 def^^J%
+ /PageHeight {vsize} def^^J%
+ /PDFtoTeX {PDFtoDvips} def^^J%
+ /pf{print flush}def^^J%
+ /bop-hook{ \pgmonitoring\space } def
+end}
+
% \end{macrocode}
% This command calculates the \cs{QuadPoints} array
% when we are using the \textsf{dvips} driver.
@@ -155,12 +253,17 @@
hsize 72 sub PDFtoDvips 72 neg PDFtoVDvips
}
% \end{macrocode}
-% This next \cs{special} defines some standard conversion
-% formulas, {\TeX} to PDF and PDF to {\TeX} in the YandY TeX System.
+% \textsf{\textbf{dvipsone} driver:} Code for the \textsf{dvipsone} driver
+% This next \cs{special} defines some standard conversion
+% formulas, {\TeX} to PDF and PDF to {\TeX} in the \textsf{YandY {\TeX} System}.
% \begin{macrocode}
\else
+\def\mlDict{dvidict}
\special{!/TeXtoPDF {65536 div mag 1000 div mul} def
-/PDFtoTeX {65536 mul mag 1000 div div} def}
+ /PDFtoTeX {65536 mul mag 1000 div div} def^^J%
+ /pf{print flush}def^^J%
+ /bphook{ \pgmonitoring\space } def^^J%
+}
% \end{macrocode}
% This command calculates the \cs{QuadPoints} array
% when we are using the \textsf{dvipsone} driver.
@@ -192,21 +295,35 @@
\newbox\aeb@bbox
\newcount\aeb@arrayIndx \aeb@arrayIndx=0
\newcount\aeb@mLinkCnt \aeb@mLinkCnt=0
+\newif\ifmllinktotalchanged\mllinktotalchangedfalse
% \end{macrocode}
-% \begin{macro}{\mlhypertext}
-%
-% This is a general purpose hypertext link. Not only is it
-% a fine stand-alone linking command, but it also serves
-% as a building block to some convenience commends that follow.
-%
-% The commands takes two arguments, the first an optional one the second
-% one requires.
-% \begin{enumerate}
-% \item[\texttt{[\#1]}] A standard optional argument for eForms, to change
-% the appearance of the link and/or to include actions.
-% \item[\texttt{\#2}] The text to be enclosed in a link.
-% \end{enumerate}
+% When \cs{ifSmallRect} is true (the default), the smallest possible \texttt{Rect}
+% is constructed to enclose the text; obeyed only when \cs{iffixmlinks} (defined in \pkg{eforms}
+% is true.
% \begin{macrocode}
+\newif\ifSmallRect \SmallRecttrue
+\AtEndDocument{\wrtmlinktot@l\ckchngmlinktot@l\wrt@linksnotformed}
+\def\wrt@linksnotformed{\iflinknotformed
+ \PackageWarningNoLine{aeb_mlinks}{Some link calculations are not
+ complete.\MessageBreak
+ DO NOT CONVERT TO PDF at this time. Compile at \MessageBreak
+ least twice more}\fi}
+\def\wrtmlinktot@l{\immediate\write\@auxout{\string\gdef
+ \string\mlinkstotal{\the\aeb@mLinkCnt}}}
+\def\ckchngmlinktot@l{\@ifundefined{mlinkstotal}{}
+ {\ml@mlinktot@l@changed}}
+\def\ml@mlinktot@l@changed{%
+ \ifnum\mlinkstotal=\the\aeb@mLinkCnt\relax\else
+ \PackageWarningNoLine{aeb_mlink}{The number of links has
+ changed. Compile again\MessageBreak until this message
+ does not appear}\immediate
+ \write\@auxout{\string\mllinktotalchangedtrue}\fi
+}
+\def\ml@mllinktotalchanged{\ifmllinktotalchanged
+ \PackageWarningNoLine{aeb_mlink}
+ {The number of links has changed, continue\MessageBreak
+ to compile}\fi}
+\AtBeginDocument{\ml@mllinktotalchanged}
\def\CurrentBorderColor{\@linkbordercolor}
\def\ml@nocolorHighlight{I}
\def\ml@nocolorLineStyle{S}
@@ -224,33 +341,503 @@
\def\ml@earlyExecProps#1{%
\eq@setWidgetProps\relax{#1}%
}
+% \end{macrocode}
+% The new scheme of fixing up the quad points write information
+% to the AUX file, which then requires multiple compilations to bring
+% that information up to date in the document. When working on document
+% development, you can declare \cs{OldStyleBoxesOn} in the preamble to revert
+% to the old style boxes that do not require AUX info.
+%\changes{v2.1.3}{2018/03/10}{Reinstate old style link}
+% \begin{macrocode}
+\newif\ifoldstylequads \oldstylequadsfalse
+\def\OldStyleBoxesOn{\mlfixOff\oldstylequadstrue}
+\def\OldStyleBoxesOff{\oldstylequadsfalse}
+\@onlypreamble\OldStyleBoxesOn
+\@onlypreamble\OldStyleBoxesOff
\let\mlh@preambleCmdInsert\relax
-\newcommand{\mlhypertext}[1][]{\global\aeb@arrayIndx=0\relax
- \global\advance\aeb@mLinkCnt1\relax
-% \end{macrocode}
-% We do something different, we process the options early, mostly
-% to get any change in \texttt{linktxtcolor}, but only if the user-friendly \texttt{ui} is
-% present.
-% \begin{macrocode}
- \special{ps: \ps@mark/_objdef {mLink\the\aeb@mLinkCnt}
- /type /array /OBJ pdfmark}%
- \def\mlh@preambleCmdInsert{\ml@earlyExecProps{#1}}%
- \def\mlh@postambleCmd{\setLinkPbox{\S{S}\W{0}%
- \presets{\ml@nocolor@defaults}%
- \QuadPoints{mLink\the\aeb@mLinkCnt}#1}\endgroup}%
- \aeb@mlh
+\def\mlcs#1{\texttt{\@backslashchar#1}}
+\bgroup\@makeother\%
+\gdef\CMT#1{ %\space #1}\egroup
+\def\mldbModeOn{\def\mldb##1##2{##2}}
+\def\mldbModeOff{\def\mldb##1##2{}}
+\def\mldb#1#2{\ifnum#1<\mldblevel#2\fi}
+\def\ml@adj@x{2}\def\ml@adj@y{2}
+\AtBeginDvi{\special{!%
+% \end{macrocode}
+% \paragraph*{Begin Postscript code} This code is executed as the PDF is created
+% by either \app{Adobe Distiller} (preferred) or \app{ps2pdf}. Information is
+% written to the \app{distiller} (\app{ps2pdf}) log.\medskip\par
+%
+% {\noindent}A switch to determine if the link should be created or now; it may not be
+% fully formed.
+% \begin{macrocode}
+/bCreateLink true def
+% \end{macrocode}
+% The length of the arrays we deal with are multiples of eight (8), we use a value
+% of 17 as a way of testing whether an array size has been updated. All arrays
+% are set to 17 in length initially.
+% \begin{macrocode}
+/mlIsBld 17 def
+/mlIsBldMsg {
+ /lnkCnt exch def
+ (\string\n!! mLink)pf
+ lnkCnt 20 string cvs pf
+ ( is not completely formed,
+ compile again!!\string\n)pf
+} def
+/xoMsgB true def^^J%
+/xoMsg {^^J%
+ /lnkCnt exch def^^J%
+ /Indx exch def^^J%
+ /nSyllable Indx 8 div def^^J% dpsa08
+ (!!------------------------------------------------------------------%
+ \string\n Warning:\string\n
+ The text of mLink)pf
+ lnkCnt 20 string cvs pf
+ ( has crossed a page boundary from page )pf
+ PhysicalPage 1 sub 10 string cvs pf
+ ( to ) pf PhysicalPage 10 string cvs pf
+ (.\string\n Cross page links are not supported by the
+ PDF Specification)pf
+ (.\string\n This link is not constructed,
+ please fix it.\string\n) pf
+ (Break point is after syllable number )pf
+ nSyllable cvi 20 string cvs pf (.\string\n)pf
+ (Use the \string\\mlcrackat{)pf
+ nSyllable cvi 20 string cvs pf
+ (} option with this link.\string\n)pf
+ (!!------------------------------------------------------------------%
+ \string\n)pf^^J%
+} def^^J%
+% \end{macrocode}
+% quadpointsfixup is the major procedure for combining all `rectangles' that are on
+% the same line.
+% \begin{macrocode}
+/quadpointsfixup {^^J%
+ /ary exch def^^J%
+ /quadL exch def^^J%
+ /lnkCnt exch def^^J%
+\mldb0{(Processing mLink)pf^^J}%
+\mldb0{lnkCnt 20 string cvs pf (: OK\string\n) pf^^J}%
+quadL 0 eq {
+(Problems with this link, length=0,
+ will skip the creation of this link)pf^^J%
+}{
+% \end{macrocode}
+% Begin by defining some variables needed for this operation.
+% \begin{macrocode}
+/gOffset 0 def^^J%
+% \end{macrocode}
+% \texttt{gY} holds the y-coordinate of the lower-left corner of the first entry
+% of a quad. We use it and others like it to determine at which syllable the line
+% is broken.
+% \begin{macrocode}
+/gY ary\space 1 gOffset add get def^^J%
+\mldb1{(gY is ) pf gY 20 string cvs print^^J}%
+\mldb1{flush (\string\n) pf^^J}%
+/gN 0 def^^J%
+% \end{macrocode}
+% \texttt{gMrk} is an array that will hold the offsets into \texttt{mLinkFxup<num>}. Each
+% offset is the beginning of a line. We initially set the length of the array to 10, though
+% this may not be correct. That is, we assume the hypertext will not exceed 10 lines in length.
+% \begin{macrocode}
+/gMrk 10 array def^^J% limitation
+% \end{macrocode}
+% The first entry is always 0, because marks the location of the quad corresponding to the
+% beginning of the first syllable.
+% \begin{macrocode}
+gMrk 0 0 put^^J%
+% \end{macrocode}
+% \texttt{gMrkL} is the length of the array, we set it to 1, as we've already inserted
+% the first entry into \texttt{gMrkL}.
+% \begin{macrocode}
+/gMrkL 1 gOffset add def^^J%
+\mldb2{(Begin first for\string\n) pf^^J}%
+% \end{macrocode}
+% Begin a for loop\marginpar{\raggedleft for loop}. The purpose of this loop is to search
+% through the quad points of \texttt{mLinkFxup<num>} and find the offsets into the
+% structure where the line breaks occur.
+% \begin{macrocode}
+0 8 quadL 8 sub {^^J%
+% \end{macrocode}
+% \texttt{gIndx} is the loop counter, which we use below. Since we are dealing
+% with quads, we increment by 8 each time.
+% \begin{macrocode}
+ /gIndx exch def^^J%
+\mldb2{(Outside gt if with gIndx=) pf^^J}%
+\mldb2{gIndx 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+% \end{macrocode}
+% \texttt{getEntry} is the y-coordinate of the lower-left corner of the
+% quad we are currently examining. We will compare its value to that
+% of \cs{gY}.
+% \begin{macrocode}
+ /getEntry ary\space 1 gOffset add get def^^J%
+\mldb2{(getEntry=) pf getEntry 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+% \end{macrocode}
+% Here's where we compare \texttt{gY} with \texttt{getEntry}. If they differ
+% by more than 2 points then the line has changed. (We do it this way since these
+% are decimal numbers and they may have been rounded in unpredictable ways.\marginpar{\raggedleft if comparison}
+% \begin{macrocode}
+ gY getEntry sub abs 2 gt {^^J%
+\mldb2{(Inside gt if\string\n) pf^^J}%
+% \end{macrocode}
+% The two entries differ, so a line break must have occurred. We inert value
+% of \texttt{gIndx} into \texttt{gMrk}. \texttt{gIndx} is essentially the offset
+% into \texttt{mLinkFxup<num>} where the line break occurs.
+% \begin{macrocode}
+ gMrk gMrkL gIndx put^^J%
+% \end{macrocode}
+% Increment \texttt{gMrkL} accordingly.
+% \begin{macrocode}
+ /gMrkL gMrkL 1 add def^^J%
+% \end{macrocode}
+% Place the new y-value in \texttt{gY} before we look back
+% and look for another line break.
+% \begin{macrocode}
+ /gY getEntry def^^J%
+\mldb2{(Updating gY to )pf gY 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+\mldb2{(gMrkL=)pf gMrkL 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+% \end{macrocode}
+% End of the if\marginpar{\raggedleft end if}
+% \begin{macrocode}
+ } if^^J%
+ /gOffset gOffset 8 add def^^J%
+% \end{macrocode}
+% End of the for loop\marginpar{\raggedleft end for}
+% \begin{macrocode}
+} for^^J%
+\mldb2{(end first for\string\n) pf^^J}%
+% \end{macrocode}
+% We finished searching for line breaks and are now going to work on combining
+% contiguous quads. Contiguous quads are the ones between the offsets recorded
+% in the \texttt{gMrk} array. Now, if there are now line breaks, the length
+% of \texttt{gMrk} is one
+%
+% \texttt{gAry} is an temporary array what holds all the quads corresponding to
+% one line. Each syllable generates an quad of length 8. Here, we assume any given
+% line has at most 20 syllables, this may be revised. The array \texttt{gAry} is declared
+% inside the next loop, so it is redeclared at each iteration of the loop.
+% \begin{macrocode}
+ /gAryL 8 20 mul def^^J% limitation
+\mldb2{(gAryL=) pf gAryL 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+% \end{macrocode}
+% \texttt{gFixup} is an array that will old the final combined quad points, this array
+% is the one that will be referenced by the \texttt{QuadPoints} entry of the link annotation.
+% It's length is set to 8 times the number of lines over which the hypertext is broken (\texttt{gMrkL})
+% One quad for each line, rather than many quads, one for each syllable.
+% \begin{macrocode}
+ /gFixup 8 gMrkL mul array def^^J%
+ /gOffset 0 def^^J%
+\mldb2{(for loop: gMrkL=)pf gMrkL 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+% \end{macrocode}
+% The last loop. In this loop, for each line of hypertext,
+% we build its contiguous quad and load it into \texttt{gFixup}.\marginpar{\raggedleft begin for}
+% \begin{macrocode}
+0 1 gMrkL 1 sub {^^J%
+\mldb2{(After gAry\string\n) pf^^J}%
+\mldb2{(Top of for loop\string\n) pf^^J}%
+ /gIndx exch def^^J%
+\mldb2{(gIndx=)pf gIndx 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+\mldb2{(gMrk=)pf gMrk gIndx get 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+\mldb2{(mLinkFxup<num> length = )^^J}%
+\mldb2{pf ary\space length 20 string cvs^^J}%
+\mldb2{pf (\string\n) pf^^J}%
+% \end{macrocode}
+% We need to determine if we are examining the quads for the last line, or not.
+% The calculation of \texttt{gCount} is dependent on this.
+% \begin{macrocode}
+gIndx 1 add gMrkL eq {^^J%
+ /gCount ary\space length gMrk gIndx get sub def^^J%
+}{^^J%
+ /gCount gMrk gIndx 1 add get gMrk gIndx get sub def^^J%
+} ifelse^^J%
+% \end{macrocode}
+% Declare the \texttt{gAry} array
+% \begin{macrocode}
+/gAry gAryL array def^^J%
+\mldb2{(gCount=)pf gCount 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+% \end{macrocode}
+% We want to copy a slice of \texttt{mLinkFxup<num>}, we declare the next
+% array of length \texttt{gCount} just computed.
+% \begin{macrocode}
+/sliceOfLinkfxup gCount array def^^J%
+% \end{macrocode}
+% Populate this array with a slice of \texttt{mLinkFxup<num>} beginning at
+% \texttt{gMrk[gIndx]} and including the subsequent \texttt{gCount} entries.
+% array of length \texttt{gCount} just computed.
+% \begin{macrocode}
+sliceOfLinkfxup 0 ary gMrk gIndx get^^J%
+ gCount getinterval putinterval^^J%
+ gAry 0 sliceOfLinkfxup putinterval^^J%
+\mldb1{(Listing elements of gFixup\string\n) pf^^J}%
+\mldb1{gAry 0 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 1 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 5 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 4 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 3 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 2 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 6 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 7 get 20 string cvs pf (\string\n)pf^^J}%
+ gFixup gOffset [^^J%
+ gAry 0 get ^^J% x1 ll
+ gAry 1 get^^J% y1 ll
+ gAry gCount 1 sub 5 sub get^^J% x2 lr
+ gAry gCount 1 sub 4 sub get^^J% y2 lr
+ gAry gCount 1 sub 3 sub get^^J% x3 ur
+ gAry gCount 1 sub 2 sub get^^J% y3 ur
+ gAry 6 get^^J% x4 ul
+ gAry 7 get^^J% y4 ul
+ ] putinterval^^J%
+ /gOffset gOffset 8 add def^^J%
+ } for^^J%
+\mldb2{(End of second for\string\n) pf^^J}%
+ } ifelse
+ } def^^J%
+% \end{macrocode}
+% \texttt{smallquadpointsfixup} fixes up the bounding boxes. Raises their heights
+% by \cs{ml@adj@y}, and moves the left boundary \cs{ml@adj@x} to the left.
+% \changes{v2.1.2}{2018/03/09}{Added PS proc \string\texttt{smallquadpointsfixup}}
+% \begin{macrocode}
+/smallquadpointsfixup {^^J%
+/gIndx exch def^^J%
+/ary exch def^^J%
+/lnkCnt exch def^^J%
+/quadL exch def^^J%
+/gSFup 8 array def^^J%
+ gSFup 0 ary 0 gIndx add get
+ gIndx 0 eq {\ml@adj@x\space sub} if put^^J% x1
+ gSFup 1 ary 1 gIndx add get put^^J% y1
+ gSFup 2 ary 2 gIndx add get put^^J% x2
+ gSFup 3 ary 3 gIndx add get put^^J% y2
+ gSFup 4 ary 4 gIndx add get put^^J% x3
+ gSFup 5 ary 5 gIndx add get put^^J%
+ gSFup 6 ary 6 gIndx add get
+ gIndx 0 eq {\ml@adj@x\space sub} if put^^J% x4
+ gSFup 7 ary 7 gIndx add get put^^J%
+ ary gIndx gSFup putinterval^^J%
+} def^^J%
+% \end{macrocode}
+% The \texttt{mlRectFix} procedure creates the minimum sized rectangle
+% that encloses the text, and we use this as the dimensions of \texttt{/Rect}
+% \changes{v2.1.10}{2018/03/25}{Set \string\texttt{/Rect} to minimal rectangle containing text}
+% \begin{macrocode}
+/mlRectFix {^^J%
+/ifRectFix exch def^^J%
+ifRectFix {
+ /nL gFixup length 8 sub def^^J% number of lines
+ /xMin gFixup 0 get def^^J%
+ 0 8 nL {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get xMin lt {/xMin gFixup Indx get def}if } for^^J%
+ /xMin xMin 2 sub def^^J%
+ /xMax gFixup 2 get def^^J%
+ 2 8 nL 2 add {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get xMax gt {/xMax gFixup Indx get def}if } for^^J%
+ /xMax xMax 2 add def^^J%
+ /yMin gFixup 1 get def^^J%
+ 1 8 nL 1 add {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get yMin lt {/yMin gFixup Indx get def}if } for^^J%
+ /yMin yMin 4 sub def^^J%
+ /yMax gFixup 5 get def^^J%
+ 5 8 nL 5 add{^^J%
+ /Indx exch def^^J%
+ gFixup Indx get yMax gt {/yMax gFixup Indx get def}if } for^^J%
+ /yMax yMax 2 add def^^J%
+ /mlRect {/Rect [^^J%
+ xMin 72 sub PDFtoTeX^^J%
+ PageHeight 72 sub yMax sub PDFtoTeX^^J%
+ xMax 72 sub PDFtoTeX^^J%
+ PageHeight yMin sub 72 sub PDFtoTeX ]^^J%
+ }def^^J%
+}{^^J%
+ /mlRect{/Rect [ \par@@Rect ] }def^^J%
+}ifelse^^J%
+ifRectFix {
+\mldb1{(/Rect [)pf^^J%
+xMin 20 string cvs pf( )pf^^J%
+yMax 20 string cvs pf( )pf^^J%
+xMax 20 string cvs pf( )pf^^J%
+yMin 20 string cvs pf(]\string\n)pf^^J}%
+} if^^J%
+} def
+}}
+% \end{macrocode}
+% \leavevmode\DescribeMacro{\mlMarksOn}
+% Added tracking marks. Turn them on with \cs{mlMarksOn} and off again
+% with \DescribeMacro{\mlMarksOff}\cs{mlMarksOff}.
+% \changes{v2.1.8}{2018/03/19}{Added tracking marks}
+% \begin{macrocode}
+\newif\ifmlmarks\mlmarksfalse
+\def\mlMarksOn{\mlmarkstrue}
+\def\mlMarksOff{\mlmarksfalse}
+% \end{macrocode}
+% \leavevmode\DescribeMacro{\ml@MrkLnk}\hskip-\marginparsep\darg{\ameta{num}}
+% The internal command \cs{ml@MrkLnk} typesets the tracking mark; it may be redefined.
+% When the link is within a \env{tabular} environment (and perhaps others), in this case,
+% \cs{baselineskip=0pt}. We raise instead the height of the capital letter `T',
+% plus a little.
+% \changes{v2.1.9}{2018/03/22}{Changed the definition of \cs{ml@MrkLnk}}
+% \begin{macrocode}
+\def\ml@MrkLnk#1{\ifmlmarks\bgroup\ifdim\baselineskip=0pt
+ \setbox\z@\hbox{T}\def\ml@raiseamt{\ht\z@+.4pt}\else
+ \def\ml@raiseamt{.6\baselineskip}\fi\smash{\rlap{\normalcolor\bfseries
+ \raisebox{\ml@raiseamt}{\tiny\strut{L#1}}}}\egroup\fi}
+\newif\iflinknotformed \linknotformedfalse
+\def\ml@underlinded{U}
+% \end{macrocode}
+% \begin{macro}{\mlhypertext}
+%
+% This is a general purpose hypertext link. Not only is it
+% a fine stand-alone linking command, but it also serves
+% as a building block to some convenience commends that follow.
+%
+% The commands takes two arguments, the first an optional one the second
+% one requires.
+% \begin{enumerate}
+% \item[\texttt{[\#1]}] A standard optional argument for \pkg{eforms}, to change
+% the appearance of the link and/or to include actions.
+% \item[\texttt{\#2}] The text to be enclosed in a link.
+% \end{enumerate}
+% The most recently, \pkg{eforms} defines \cs{mlhypertext} to a warning
+% message. So if \cs{mlhypertext} is already defined, we \cs{renewcommand}
+% else we \cs{newcommand}.
+% \changes{v2.1.17}{2018/04/19}{added conditional command definition for \string\cs{mlhypertext}}
+% \begin{macrocode}
+\@ifundefined{mlhypertext}{\newcommand}{\renewcommand}%
+{\mlhypertext}[2][]{\begingroup
+ \toks@=\expandafter{#2}%
+ \edef\ml@HytextArg{{\the\toks@}}%
+ \global\aeb@arrayIndx=\z@ % dpsa08
+% \global\advance\aeb@mLinkCnt\@ne\relax
+ \def\ml@setlink##1{\setLinkPbox{%
+ \QuadPoints{mLink##1}#1}}%
+ \expandafter\processAppArgs\set@LinkPboxDefaults
+ \presets{\ml@nocolor@defaults}\S{S}\W{0}#1\end\@nil
+ \ifx\eq@S@value\ml@underlinded
+ \let\itsunderline\ef@YES\else\let\itsunderline\ef@NO\fi
+% \end{macrocode}
+% Now we test whether \cs{eq@mlcrackat} is empty or not. If not-empty
+% we break this link to two parts.
+% \begin{macrocode}
+ \ifx\eq@mlignore\ef@YES
+ \global\advance\aeb@mLinkCnt\@ne\relax
+ \def\ml@next{\mlhypertext@i{#1}}\else
+ \ifx\eq@mlcrackat\@empty
+% \end{macrocode}
+% A `normal' link, continue
+% \begin{macrocode}
+ \global\advance\aeb@mLinkCnt\@ne\relax
+ \def\ml@next{\mlhypertext@i{#1}}%
+ \else
+% \end{macrocode}
+% We need to crack this link up into two
+% \begin{macrocode}
+ \edef\temp@crackAt{\noexpand
+ \crackAt{\eq@mlcrackat}{\the\toks@}}\temp@crackAt
+ \def\ml@next{\mlhypertext[#1\mlignore{}]{\the\mlfrstoftwo}%
+ \eq@mlcrackinsat\penalty-50
+ \mlhypertext[#1\mlignore{}]{\the\mlsndoftwo}\aftergroup
+ \normalcolor\endgroup}%
+ \fi\fi
+ \ml@next
+}
+\def\mlhypertext@i#1{%
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{\global
+ \linknotformedtrue\def\lngth{17}}
+ {\edef\lngth{\@nameuse{mLinkLngth\the\aeb@mLinkCnt}}}%
+ \ml@start@link{\the\aeb@mLinkCnt}{\lngth}% Step 1
+ \def\mlh@preambleCmdInsert{%
+ \ml@MrkLnk{\the\aeb@mLinkCnt}\ml@earlyExecProps{#1}}%
+ \def\mlh@postambleCmd{\endgroup}%
+% \end{macrocode}
+% Start \pkg{soul} on hypertext
+% \begin{macrocode}
+ \expandafter\aeb@mlh\ml@HytextArg
+ \ml@finish@link{\the\aeb@mLinkCnt}{\lngth}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \ifoldstylequads\else
+ \iffixmlinks\literalps@out{restore}\fi\fi
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{%
+ \immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}{17}}%
+ }{\immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}%
+ {\the\aeb@arrayIndx}}}\endgroup
}
-\def\mlh@setQuadSyllable#1{%
- \setbox\aeb@bbox=\hbox{\strut#1}%
+\def\mlh@setQuadSyllable#1#2#3#4{%
+% #1 = current array Index
+% #2 = quad total
+% #3 = link cnt
+% #4 = content
+ \setbox\aeb@bbox=\hbox{\ml@strut#4}%
{%
- \count\z@=\ht\aeb@bbox\xdef\aeb@bbox@ht{\the\count\z@}%
- \count\z@=\wd\aeb@bbox\xdef\aeb@bbox@wd{\the\count\z@}%
- \dp\aeb@bbox=1pt\relax
- \count\z@=\dp\aeb@bbox\xdef\aeb@bbox@dp{\the\count\z@}%
+ \setbox\@tempboxa\hbox{\ml@strut}%
+ \ifx\itsunderline\ef@YES\@tempdima1bp\relax\else
+ \@tempdima\dp\@tempboxa \ifdim\@tempdima>2bp
+ \advance\@tempdima-2bp\fi
+ \fi
+ \dp\aeb@bbox\@tempdima
+ \@tempdima\ht\@tempboxa \advance\@tempdima\dp\aeb@bbox
+ \advance\@tempdima1bp
+ \ht\aeb@bbox\@tempdima\def\x{\the\count\z@}%
+ \count\z@=\ht\aeb@bbox\xdef\aeb@bbox@ht{\x}%
+ \count\z@=\wd\aeb@bbox\xdef\aeb@bbox@wd{\x}%
+ \count\z@=\dp\aeb@bbox\xdef\aeb@bbox@dp{\x}%
}%
- \special{ps: \ps@mark{mLink\the\aeb@mLinkCnt}
+ \ifoldstylequads
+ \literalps@out{%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#3\space known {^^J%
+ \ps@mark{mLink#3}
\the\aeb@arrayIndx\space [\setQuadBox]
- \space /PUTINTERVAL pdfmark}%
+ \space /PUTINTERVAL pdfmark}{^^J%
+ xoMsgB {
+ /xoMsgB false def
+ \the\aeb@arrayIndx\space
+ #3\space
+ xoMsg % dpsa08
+ } if^^J% xoMsgB
+ } ifelse } if
+ }%
+ \else
+ \literalps@out{%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#3\space known {^^J%
+ mLinkFxup#3\space
+ #1\space[\setQuadBox] putinterval^^J%
+% \end{macrocode}
+% Initiate fix up of little rectangles
+% \begin{macrocode}
+ #2\space %
+ #3\space
+ mLinkFxup#3\space
+ #1\space
+ smallquadpointsfixup }{^^J%
+ xoMsgB {
+ /xoMsgB false def
+% \the\aeb@arrayIndx\space
+ #1\space
+ #3\space
+ xoMsg % dpsa08
+ } if^^J% xoMsgB
+ } ifelse } if
+ }%
+ \fi
\global\advance\aeb@arrayIndx8\relax
}
% \end{macrocode}
@@ -259,12 +846,15 @@
% \cs{labelRef} and \cs{atPage} are public, and can be used.
% \begin{macrocode}
\def\aeb@exiii{\expandafter\expandafter\expandafter}
+%\def\aebnameref#1{\getrefbykeydefault{#1}{name}{??}}
\def\aebnameref#1{\@ifundefined{r@#1}{??}
{\aeb@exiii\@thirdoffive\csname r@#1\endcsname}}
+%\def\labelRef#1{\getrefbykeydefault{#1}{}{Doc-Start}}
\def\labelRef#1{\@ifundefined{r@#1}{Doc-Start}
{\aeb@exiii\@fourthoffive\csname r@#1\endcsname}}
-\def\atPage#1{\@ifundefined{r@#1}{1}
- {\aeb@exiii\@secondoffive\csname r@#1\endcsname}}
+\def\atPage#1{\getrefbykeydefault{#1}{page}{??}}
+%\def\atPage#1{\@ifundefined{r@#1}{1}
+% {\aeb@exiii\@secondoffive\csname r@#1\endcsname}}
% \end{macrocode}
% \begin{macro}{\mlhyperlink}
% \begin{macro}{\mlhyperref}
@@ -327,7 +917,9 @@
\def\ml@hyper@linkfile#1#2#3{%
\let\ef@thislinkcolor\@filecolor
\let\CurrentBorderColor\@filebordercolor
- \def\theView{[0 \@pdfstartview]}%
+ \ifx\@pdfstartview\@empty
+ \def\theView{[0 /Fit]}\else
+ \def\theView{[0 \@pdfstartview]}\fi
\@ifundefined{ifHy@pdfnewwindow}
{\ifHy@newwindow}{\ifHy@pdfnewwindow}%
\def\isWindow{/NewWindow true}\else
@@ -370,16 +962,17 @@
%
% The problem is not as ``easy'' as the previous cases. Arseneau places the URL in math mode
% and it does not reconstruct (\texttt{soul} terminology) as it should. Our solution is to
-% hijack three commands of \texttt{soul} \cs{SOUL@doword}, \cs{SOUL@analyze}, and \cs{SOUL@dosyllable},
+% hijack three commands of \texttt{soul}, these are \cs{SOUL@doword}, \cs{SOUL@analyze}, and \cs{SOUL@dosyllable},
% and modify them to do the work on an URL.
% \begin{macrocode}
-\newbox\ml@urlbuild
-\setbox\ml@urlbuild\hbox{}
+\newbox\ml@urlbuildi
+\newbox\ml@urlbuildii
% \end{macrocode}
% We modify \cs{SOUL@doword} and name it \cs{ml@SOUL@doword}.
% \begin{macrocode}
\def\ml@SOUL@doword{%
- \global\setbox\ml@urlbuild\hbox{}%
+ \global\setbox\ml@urlbuildi\hbox{}%
+ \global\setbox\ml@urlbuildii\hbox{}%
\edef\x{\the\SOUL@word}%
\ifx\x\empty
\else
@@ -427,53 +1020,36 @@
\global\setbox\@ne=\lastbox}%
\ifvoid\@ne
\else
- \setbox\@ne\hbox{\unhbox\@ne}%
% \end{macrocode}
-% If we say \verb!\mlurl{http://www.math.uakron.edu/~dpstory}!, then the \cs{box\cs{z@}} above contains
-% the following tokens, listed at their breakpoints:\goodbreak
-% \begin{flushleft}
-% \texttt{http:}\\
-% \texttt{\string\\}\\
-% \texttt{www.}\\
-% \texttt{math.}\\
-% \texttt{uakron.}\\
-% \texttt{edu/}\\
-% \texttt{\string~dpstory}
-% \end{flushleft}
-% The idea is to get each of these using \verb~\global\setbox\@ne=\lastbox~ (bottom to top)
-% and to build the URL with the quad points calculated. Each new token is added in front
-% of the URL as we build it. Results are held in \cs{ml@urlbuild}. We insert \cs{penalty0} to
-% promote a break point between components, as each component is enclosed in an \cs{hbox} now.
+% We encapsulate our changes at this point in \cs{ml@interface@analyze}
% \begin{macrocode}
- \global\setbox\ml@urlbuild=\hbox{%
- \mlh@setQuadSyllable{\unhcopy\@ne}%
- \hbox{\unhcopy\@ne}\penalty0\unhcopy\ml@urlbuild}%
- \SOUL@syllgoal=\wd\@ne
- \advance\count@\@ne
+ \ml@interface@analyze
+ \SOUL@syllgoal=\wd\@ne
+ \advance\count@\@ne
% \end{macrocode}
-% We get the tokens recursively, be we jump back to \cs{ml@SOUL@analyze} not
+% We get the tokens recursively, but we jump back to \cs{ml@SOUL@analyze} not
% \cs{SOUL@analyze}.
% \begin{macrocode}
- \ml@SOUL@analyze
- \SOUL@syllwidth\z@
- \SOUL@syllable={}%
- \ifnum\count@>\z@
- \advance\SOUL@syllgoal-\SOUL@ttwidth
+ \ml@SOUL@analyze
+ \SOUL@syllwidth\z@
+ \SOUL@syllable={}%
+ \ifnum\count@>\z@
+ \advance\SOUL@syllgoal-\SOUL@ttwidth
% \end{macrocode}
% At this point, we jump to \cs{ml@SOUL@dosyllable} rather than
% \cs{SOUL@dosyllable}.
% \begin{macrocode}
- \ml@SOUL@dosyllable
- \SOUL@getkern{\the\SOUL@lasttoken}{\SOUL@hyphkern}%
- {\SOUL@sethyphenchar}%
- \SOUL@everyhyphen
- \else
+ \ml@SOUL@dosyllable
+ \SOUL@getkern{\the\SOUL@lasttoken}{\SOUL@hyphkern}%
+ {\SOUL@sethyphenchar}%
+ \SOUL@everyhyphen
+ \else
% \end{macrocode}
% Use \cs{ml@SOUL@dosyllable} not \cs{SOUL@dosyllable}.
% \begin{macrocode}
- \ml@SOUL@dosyllable
- \fi
- \fi
+ \ml@SOUL@dosyllable
+ \fi
+ \fi
}}
% \end{macrocode}
% We modify \cs{SOUL@dosyllable} and name it \cs{ml@SOUL@dosyllable}.
@@ -519,21 +1095,175 @@
\SOUL@n
}
% \end{macrocode}
+% We put most of our changes to \cs{ml@SOUL@analyze} in
+% \DescribeMacro{\ml@interface@analyze}\cs{ml@interface@analyze}
+% \begin{macrocode}
+\def\ml@interface@analyze{%
+ \global\advance\syllableCnt\@ne % dpsa11
+ \setbox\@ne\hbox{\unhbox\@ne}%
+% \end{macrocode}
+% If we say \verb!\mlurl{http://www.math.uakron.edu/~dpstory}!, then the \cs{box\cs{z@}} above contains
+% the following tokens, listed at their breakpoints:\goodbreak
+% \begin{flushleft}
+% \texttt{http:}\\
+% \texttt{\string\\}\\
+% \texttt{www.}\\
+% \texttt{math.}\\
+% \texttt{uakron.}\\
+% \texttt{edu/}\\
+% \texttt{\string~dpstory}
+% \end{flushleft}
+% The idea is to get each of these using \verb~\global\setbox\@ne=\lastbox~ (bottom to top)
+% and to build the URL with the quad points calculated. Each new token is added in front
+% of the URL as we build it. Results are held in \cs{ml@urlbuild}. We insert \cs{penalty0} to
+% promote a break point between components, as each component is enclosed in an \cs{hbox} now.
+% \begin{macrocode}
+% \end{macrocode}
+% We'll try cracking the url here, if requested.
+% \begin{macrocode}
+ \ifx\eq@mlcrackat\@empty
+% \end{macrocode}
+% Ordinary link, we don't crack it apart, continue with the old code.
+% \begin{macrocode}
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+ \ifnum\syllableCnt=\revCrackAt\relax
+% \end{macrocode}
+% Everything is in reverse order, this is the last syllable of the first chunk
+% \begin{macrocode}
+ \aeb@arrayIndx=\z@
+% \end{macrocode}
+% start first link
+% \begin{macrocode}
+ \ml@start@link{\the\aeb@mLinkCnt}{\ml@qlngthchunki}%
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+% \end{macrocode}
+% Continue with first link
+% \begin{macrocode}
+ \ifnum\syllableCnt>\revCrackAt\relax
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+ \ifnum\syllableCnt=\@ne
+% \end{macrocode}
+% start second link
+% \begin{macrocode}
+ \aeb@arrayIndx=\z@
+% \end{macrocode}
+% Everything is in reverse order, this is the last syllable of the second chunk
+% \begin{macrocode}
+ \ml@start@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \ml@bld@quadchunks{\aeb@mLinkCnt@}
+ {\ml@qlngthchunkii}{\ml@urlbuildii}%
+ \else
+% \end{macrocode}
+% continue with second link
+% \begin{macrocode}
+ \ml@bld@quadchunks{\aeb@mLinkCnt@}
+ {\ml@qlngthchunkii}{\ml@urlbuildii}%
+ \fi
+ \fi
+ \fi
+ \fi
+}
+\def\ml@bld@quadchunks#1#2#3{{%
+% #1 = link cnt
+% #2 = chunk size
+% #3 = \ml@urlbuild to i or ii
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}
+ {\edef\@indx{\the\aeb@arrayIndx}}
+ {\@tempcnta#2\relax
+ \advance\@tempcnta-8\relax
+ \advance\@tempcnta-\aeb@arrayIndx
+ \def\@indx{\the\@tempcnta}%
+ }%
+ \global\setbox#3=\hbox{%
+ \mlh@setQuadSyllable{\@indx}{#2}{#1}{\unhcopy\@ne}%
+ \hbox{\unhcopy\@ne}\penalty0\unhcopy#3}%hbox
+}}
+% \end{macrocode}
% After the above preliminaries, we finally define \DescribeMacro{\mlurl}\cmd{\mlurl}.
% \begin{macrocode}
-\newcommand{\mlurl}{\begingroup\def~{\string~}%
+\newcommand{\mlurl}{\begingroup\@makeother\~\relax% \def~{\string~}%
\ef@sanitize@toks\mlurl@}
% \end{macrocode}
% After sanitizing, we save the URL (\texttt{\#2}) an a macro
% \cs{ml@url} using the \cs{urldef} command, defined in the \textsf{url} package.
% \begin{macrocode}
-\newcommand{\mlurl@}[2][]{\urldef\ml@url\nolinkurl{#2}%
-\def\SOUL@mlhpreamble{%\begingroup
+\newcommand{\mlurl@}[2][]{\@ifundefined{ef@thislinkcolor}
+ {\let\ef@thislinkcolor\normalcolor}{}\expandafter
+ \def\expandafter\ef@thislinkcolor@SAVE
+ \expandafter{\ef@thislinkcolor}%
+%\def\ml@urlOpts{#1}\def\ml@urlURI{#2}%
+ \def\ml@setlink##1{\setLinkPbox{\A{\URI{#2}}%
+ \QuadPoints{mLink##1}#1}}%
+% \end{macrocode}
+% We get the link options early to determine if this link is to
+% be underlined.
+% \begin{macrocode}
+ \expandafter\processAppArgs\set@LinkPboxDefaults
+ \presets{\ml@nocolor@defaults}\S{S}\W{0}#1\end\@nil
+ \ifx\eq@S@value\ml@underlinded
+ \let\itsunderline\ef@YES\else\let\itsunderline\ef@NO\fi
+% \end{macrocode}
+% \cs{ml@url} is the specified url to create a link around
+% \begin{macrocode}
+ \global\aeb@arrayIndx=0\relax
+ \global\syllableCnt=0\relax
+ \global\advance\aeb@mLinkCnt\@ne\relax
+% \end{macrocode}
+% \begin{macrocode}
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{%
+ \global\linknotformedtrue\def\lngth{17}%
+ \def\ml@qlngthchunki{17}}
+ {\@tempcnta\@nameuse{mLinkLngth\the\aeb@mLinkCnt}\relax
+ \edef\lngth{\the\@tempcnta}%\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunki{\the\@tempcnta}}%
+% \end{macrocode}
+% We make some calculations in preparation to a link that will be
+% cracked apart.
+% \cs{MAXCNT} is the number of syllables of the un-cracked URL.
+% \begin{macrocode}
+ \@ifundefined{mLinkSyCnt\the\aeb@mLinkCnt}
+ {\def\MAXCNT{0}\def\ml@lngthchunki{0}\def\ml@lngthchunkii{0}%
+ \def\ml@qlngthchunki{0}\def\ml@qlngthchunkii{0}\def\revCrackAt{0}}
+ {\edef\MAXCNT{\@nameuse{mLinkSyCnt\the\aeb@mLinkCnt}}%
+% \end{macrocode}
+% When \cs{MAXCNT} is known, and \cs{eq@mlcrackat} is known, we can calculate
+% the number of syllables of each chunk of the URL, for the first chunk, it is
+% \cs{eq@mlcrackat}, for the second it is $\cs{MAXCNT} - \cs{eq@mlcrackat}$.
+% \begin{macrocode}
+ \ifx\eq@mlcrackat\@empty\else
+ \@tempcnta\MAXCNT\relax\advance\@tempcnta-\eq@mlcrackat\relax
+ \edef\ml@lngthchunki{\eq@mlcrackat}%
+ \edef\ml@lngthchunkii{\the\@tempcnta}%
+ \@tempcnta\ml@lngthchunki\relax\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunki{\the\@tempcnta}%
+ \@tempcnta\ml@lngthchunkii\relax\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunkii{\the\@tempcnta}%
+% \end{macrocode}
+% We take these chunks off in reverse order so we measure each from the end of the url.
+% This calculation can be move to earlier code where it is not executed for each syllable (chunk).
+% \cs{revCrackAt} is the value of \cs{eq@mlcrackat} as measure from the end of the url.
+% \begin{macrocode}
+ \@tempcnta\MAXCNT\relax
+ \advance\@tempcnta-\eq@mlcrackat\relax
+ \advance\@tempcnta\@ne
+ \edef\revCrackAt{\the\@tempcnta}%
+ \fi}%
+ \@tempcnta\aeb@mLinkCnt\advance\@tempcnta\@ne
+ \edef\aeb@mLinkCnt@{\the\@tempcnta}%
+% \begin{macrocode}
+ \urldef\ml@url\nolinkurl{#2}%
+ \def\SOUL@mlhpreamble{%\begingroup
\mlh@preambleCmdInsert\ef@colorthislink}\hyper@chars
\let\ef@thislinkcolor\@urlcolor
\let\CurrentBorderColor\@urlbordercolor
% \end{macrocode}
-% Within this group, we direct the \textsf{soul} package to our customized versions of the
+% Within this group, we direct the \pkg{soul} package to our customized versions of the
% commands.
% \begin{macrocode}
\let\ml@SOUL@doword@SAVE\SOUL@doword
@@ -542,27 +1272,105 @@
% The next several lines are taken from the definition of \cs{mlhypertext}, the basic command
% for construction many of the `\cs{ml}' commands of this package.
% \begin{macrocode}
- \global\aeb@arrayIndx=0\relax
- \global\advance\aeb@mLinkCnt1\relax
- \special{ps: \ps@mark/_objdef {mLink\the\aeb@mLinkCnt}%
- /type /array /OBJ pdfmark}%
- \def\mlh@preambleCmdInsert{\ml@earlyExecProps{#1}}%
- \def\mlh@postambleCmd{\setLinkPbox{\S{S}\W{0}\A{\URI{#2}}%
- \presets{\ml@nocolor@defaults}
- \QuadPoints{mLink\the\aeb@mLinkCnt}#1}\expandafter
+ \ifx\eq@mlcrackat\@empty\ml@start@link{\the\aeb@mLinkCnt}{\lngth}\fi
+ \def\mlh@preambleCmdInsert{\ml@MrkLnk{\the\aeb@mLinkCnt}%
+ \ml@earlyExecProps{#1}}%
+ \def\mlh@postambleCmd{%
+ \expandafter
% \end{macrocode}
% The coloring of the hypertext does not work unless we make the definition
% global, so we do so and hope this does not mess other things up.
+% \changes{v2.0.1}{2017/09/19}{Save the incoming link color}
+% Save the incoming link color so we can globally change it.
+% After the link is formed, change it back again.
% \begin{macrocode}
- \gdef\expandafter\ef@thislinkcolor
+ \def\expandafter\ef@thislinkcolor
\expandafter{\ef@thislinkcolor}}%
% \end{macrocode}
% Finally, we call \cs{aeb@mlh} which starts \textsf{soul} with \cs{SOUL@}.
% This does this analysis, the custom command build the url in \cs{ml@urlbuild}, which
% we then unbox.
% \begin{macrocode}
- \aeb@mlh\ml@url\ef@colorthislink\unhcopy\ml@urlbuild\endgroup
+ \aeb@mlh\ml@url\ef@colorthislink\unhcopy\ml@urlbuildi
+ \expandafter\gdef\expandafter\ef@thislinkcolor
+ \expandafter{\ef@thislinkcolor@SAVE}%
+ \immediate\write\@auxout{\string\mlcsarg\string
+ \gdef{mLinkSyCnt\the\aeb@mLinkCnt}{\the\syllableCnt}}% dpsa11
+ \immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}{\the\aeb@arrayIndx}}%
+ \ifx\eq@mlcrackat\@empty
+ \ml@finish@link{\the\aeb@mLinkCnt}{\lngth}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \iffixmlinks\literalps@out{restore}\fi
+ \else
+ \ml@finish@link{\the\aeb@mLinkCnt}{\ml@qlngthchunki}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \iffixmlinks\literalps@out{restore}\fi
+ \eq@mlcrackinsat\penalty-50
+ \ml@start@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \penalty0\@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{}
+ {\ml@MrkLnk{\aeb@mLinkCnt@}}\unhcopy\ml@urlbuildii
+ \ml@finish@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \ml@setlink{\aeb@mLinkCnt@}\iffixmlinks
+ \literalps@out{restore}\fi
+ \global\advance\aeb@mLinkCnt\@ne
+ \fi\aftergroup\normalcolor\endgroup
}
+\def\ml@start@link#1#2{% Step 1
+% #1=link number
+% #2 = final quad length
+ \literalps@out{%
+ /xoMsgB true def^^J%
+ \ps@mark/_objdef {mLink#1}%
+ /type /array /OBJ pdfmark^^J%
+ \ifoldstylequads
+ /mLinkFxup#1\space0 array def
+ \else
+ /bCreateLink mlIsBld #2\space eq not def^^J%
+ bCreateLink{ /mLinkFxup#1\space
+ #2\space array def }if
+ \fi
+ }%
+}
+\def\ml@finish@link#1#2{% Step 4 and 5
+% #1=link number
+% #2 = final quad length
+ \ifoldstylequads\else
+ \ifnum\aeb@arrayIndx=0\relax
+ \PackageWarning{aeb_mlink}{%
+ Problem with mLink\the\aeb@mLinkCnt,\MessageBreak
+ Will skip the creation of this link}\fi
+ \literalps@out{%
+% \end{macrocode}
+% If \cs{iffixmlinks} is true, we fix the links, otherwise, we no not.
+% \begin{macrocode}
+ \iffixmlinks
+ \ifnum\aeb@arrayIndx>0
+ save^^J%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#1\space known {^^J%
+ #1\space
+ #2\space
+ mLinkFxup#1\space
+ quadpointsfixup^^J%
+ \ps@mark{mLink#1} 0 gFixup
+ /PUTINTERVAL pdfmark^^J%
+ }if }if
+ \fi
+ \else
+% \end{macrocode}
+% (2018/04/20) Added \texttt{bCreateLink}, etc., to protect
+% against \app{distiller}/\app{ps2pdf} from crashing when \cs{mlfix\darg{n}}.
+% \changes{v2.1.18}{2018/04/20}{Added \string\texttt{bCreateLink}, etc., to protect
+% against distiller/ps2pdf from crashing}
+% \begin{macrocode}
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#1\space known {^^J%
+ \ps@mark{mLink#1} 0 mLinkFxup#1
+ /PUTINTERVAL pdfmark^^J%
+ }if }if
+ \fi}%
+\fi}
% \end{macrocode}
% \end{macro}
% \section{Macros used by the SOUL Interface}
@@ -581,15 +1389,11 @@
% (2011/12/27) Originally, I had \verb|\let\protect\@empty| here, but removing this
% seems to do no harm, so, we'll go for it.
% \begin{macrocode}
-% \mlh@preambleCmdInsert\ef@colorthislink\let\protect\@empty}
\mlh@preambleCmdInsert\ef@colorthislink}
\def\SOUL@mlheverysyllable{%
- \mlh@setQuadSyllable{\the\SOUL@syllable}%
- \the\SOUL@syllable%
- \SOUL@setkern\SOUL@charkern}%
-%\def\SOUL@mlheveryspace#1{%
-% \mlh@setQuadSyllable{ #1\space\hskip\spaceskip}%
-% #1\space\hskip\spaceskip}%
+ \mlh@setQuadSyllable{\the\aeb@arrayIndx}{\lngth}%
+ {\the\aeb@mLinkCnt}{\the\SOUL@syllable}%
+ \the\SOUL@syllable\SOUL@setkern\SOUL@charkern}%
\def\SOUL@mlheveryspace#1{#1\space\hskip\spaceskip}%
\def\SOUL@mlheveryhyphen{%
\discretionary{%
@@ -599,7 +1403,8 @@
}{}{}%
}
\def\SOUL@mlheveryexhyphen#1{%
- \mlh@setQuadSyllable{\SOUL@setkern\SOUL@hyphkern#1}%
+ \mlh@setQuadSyllable{\the\aeb@arrayIndx}{\lngth}%
+ {\the\aeb@mLinkCnt}{\SOUL@setkern\SOUL@hyphkern#1}%
\SOUL@setkern\SOUL@hyphkern#1%
\discretionary{}{}{%
\SOUL@setkern\SOUL@charkern
@@ -617,7 +1422,69 @@
}
\DeclareRobustCommand*\aeb@mlh{\SOUL@mlhsetup\SOUL@}
% \end{macrocode}
+% \leavevmode\DescribeMacro{\crackAt}\hskip-\marginparsep\darg{\ameta{num}}\darg{\ameta{string}}
+% The macro \cs{crackAt} breaks \ameta{string} into two parts and places the two parts in their
+% own token register: \cs{mofrstoftwo} contains contains that portion of the string up to and including
+% the \ameta{num}${}^{\mbox{\scriptsize th}}$ syllable. We use this macro to break apart a string that itself
+% breaks across a page boundary on the \ameta{num}${}^{\mbox{\scriptsize th}}$ syllable.
+% \begin{macrocode}
+\newtoks\mlfrstoftwo \mlfrstoftwo={}
+\newtoks\mlsndoftwo \mlsndoftwo={}
+\newcount\syllableCnt \syllableCnt=0
+% \end{macrocode}
+% We use the \pkg{soul} engine to break \ameta{string} apart, we count the syllables are they are
+% determined by \pkg{soul}. Next is the setup for our soul command, \cs{crackAt}.
+% \begin{macrocode}
+\def\SOUL@ckhsetup{\SOUL@setup
+% \end{macrocode}
+% Processing syllables
+% \begin{macrocode}
+ \def\SOUL@everysyllable{\global\advance\syllableCnt\@ne
+ \ifnum\syllableCnt=\mlcr@ckAt\relax
+ \edef\x{\the\mlfrstoftwo\the\SOUL@syllable\eq@mlhyph}%
+ \global\mlfrstoftwo=\expandafter{\x}\else
+ \ifnum\syllableCnt>\mlcr@ckAt\relax
+ \edef\x{\the\mlsndoftwo\the\SOUL@syllable}%
+ \global\mlsndoftwo=\expandafter{\x}\else
+ \edef\x{\the\mlfrstoftwo\the\SOUL@syllable}%
+ \global\mlfrstoftwo=\expandafter{\x}\fi\fi
+ }%
+% \end{macrocode}
+% Processing spaces
+% \begin{macrocode}
+ \def\SOUL@everyspace##1{%
+ \ifnum\syllableCnt<\mlcr@ckAt\relax
+ \edef\x{\the\mlfrstoftwo}%
+ \global\mlfrstoftwo=\expandafter{\x##1 }\else
+ \edef\x{\the\mlsndoftwo}%
+ \ifnum\syllableCnt=\mlcr@ckAt\relax
+% \end{macrocode}
+% We assume the link breaks across a page here, so we try to toss the space.
+% \begin{macrocode}
+ \global\mlsndoftwo=\expandafter{\x##1}\else
+ \global\mlsndoftwo=\expandafter{\x##1 }\fi\fi
+ }%
+% \def\SOUL@everyhyphen{%
+% \ifnum\syllableCnt>\mlcr@ckAt\relax
+% \edef\x{\the\mlsndoftwo}\global
+% \mlsndoftwo=\expandafter{\x\SOUL@mlheveryhyphen}\else
+% \edef\x{\the\mlfrstoftwo}\global
+% \mlfrstoftwo=\expandafter{\x\SOUL@mlheveryhyphen}\fi
+% }%
+ \def\SOUL@everyexhyphen##1{\global
+ \ifnum\syllableCnt>\mlcr@ckAt\relax
+ \edef\x{\the\mlsndoftwo}\global
+ \mlsndoftwo=\expandafter{\x##1}\else
+ \edef\x{\the\mlfrstoftwo}\global
+ \mlfrstoftwo=\expandafter{\x##1}\fi
+ }%
+}
+\DeclareRobustCommand*\crackAt[1]{\def\mlcr@ckAt{#1}%
+ \mlfrstoftwo={}\mlsndoftwo={}\syllableCnt=0
+ \SOUL@ckhsetup\SOUL@}
+% \end{macrocode}
% \begin{macrocode}
+% End of Package
%</package>
% \end{macrocode}
% \Finale
diff --git a/texmf-dist/source/latex/aeb-mlink/aeb_mlink.ins b/texmf-dist/source/latex/aeb-mlink/aeb_mlink.ins
index db8819d8..23b18e35 100644
--- a/texmf-dist/source/latex/aeb-mlink/aeb_mlink.ins
+++ b/texmf-dist/source/latex/aeb-mlink/aeb_mlink.ins
@@ -45,6 +45,7 @@
\generate
{%
\file{aeb_mlink.sty}{\from{aeb_mlink.dtx}{copyright,package}}
+ \file{aeb-mlink.sty}{\from{aeb_mlink.dtx}{copyright,altpkgname}}
}
\Msg{***************************************************************}
diff --git a/texmf-dist/source/latex/aeb-mlink/doc/aebmlink_man.tex b/texmf-dist/source/latex/aeb-mlink/doc/aebmlink_man.tex
index 4295fd8d..5190c8fa 100644
--- a/texmf-dist/source/latex/aeb-mlink/doc/aebmlink_man.tex
+++ b/texmf-dist/source/latex/aeb-mlink/doc/aebmlink_man.tex
@@ -7,13 +7,15 @@
eforms={useui},
aebxmp
]{aeb_pro}
-\usepackage{aeb_mlink}
+\usepackage[dblevel=1]{aeb_mlink}
%\usepackage{myriadpro}
\usepackage[altbullet]{lucidbry}
\usepackage{acroman}
+\def\amtIndent{15pt}
+
\usepackage[active]{srcltx}
\DeclareDocInfo
@@ -23,9 +25,9 @@
author={D. P. Story},
email={dpstory@acrotex.net},
subject={Wrapping links around to the next line},
- keywords={XMP, E4X, Adobe Acrobat, JavaScript},
+ keywords={multi-line links, quad points, latex, pdf, aeb},
talksite={\url{www.acrotex.net}},
- version={2.0},
+ version={2.3, 2018/04/26},
copyrightStatus={True},
copyrightNotice={Copyright (C) 2006-\the\year, D. P. Story},
copyrightInfoURL={http://www.acrotex.net}
@@ -37,6 +39,7 @@
\kern-.6em \hbox{$\mathcal S$}}$}
+
\def\AcroTeX{Acro\negthinspace\TeX}
\def\unskipparskip{\vskip-\parskip}
@@ -46,6 +49,7 @@
{\parskip0pt\noindent\footnotesize\verbatim}{\endverbatim\par\aftergroup\unskipparskip}
\def\anglemeta#1{$\langle\textit{\texttt{#1}}\rangle$}
+\let\ameta\anglemeta
\def\meta#1{\textit{\texttt{#1}}}
\def\darg#1{\texttt{\{#1\}}}
\def\takeMeasure{\bgroup\obeyspaces\takeMeasurei}
@@ -56,7 +60,8 @@
\let\opt\texttt
\let\app\textsf
-\let\amtIndent\leftmargini
+%\let\amtIndent\leftmargini
+%\let\amtIndent\parindent
\def\SUB#1{${}_{\text{#1}}$}
\newdimen\aebdimen \aebdimen 0pt %\advance\aebdimen\partopsep
@@ -76,23 +81,67 @@
\subsubDefaultDing{\texorpdfstring{$\bullet$}{\textrm\textbullet}}
\makeatletter
+\def\cs#1{\texttt{\@backslashchar#1}}
\renewcommand{\paragraph}
{\@startsection{paragraph}{4}{0pt}{6pt}{-3pt}{\bfseries}}
+\renewcommand{\subparagraph}
+ {\@startsection{subparagraph}{5}{15pt}{6pt}{-3pt}{\bfseries}}
\makeatother
%\parindent0pt\parskip\medskipamount
-\definePath\bgPath{"C:/Users/Public/Documents/%
- ManualBGs/Manual_BG_Print_AeB.pdf"}
+%\definePath\bgPath{"C:/Users/Public/Documents/%
+% ManualBGs/Manual_BG_Print_AeB.pdf"}
+%\begin{docassembly}
+%\addWatermarkFromFile({%
+% bOnTop: false,
+% cDIPath: \bgPath
+%})
+%\executeSave()
+%\end{docassembly}
+
+\chngDocObjectTo{\newDO}{doc}
\begin{docassembly}
-\addWatermarkFromFile({%
- bOnTop: false,
- cDIPath: \bgPath
-})
-\executeSave()
+var titleOfManual="The AeB mLink Manual";
+var manualfilename="Manual_BG_Print_mlink.pdf";
+var manualtemplate="Manual_BG_Blue.pdf"; // Blue, Green, Brown
+var _pathToBlank="C:/Users/Public/Documents/ManualBGs/"+manualtemplate;
+var doc;
+var buildIt=false;
+if ( buildIt ) {
+ console.println("Creating new " + manualfilename + " file.");
+ doc = \appopenDoc({cPath: _pathToBlank, bHidden: true});
+ var _path=this.path;
+ var pos=_path.lastIndexOf("/");
+ _path=_path.substring(0,pos)+"/"+manualfilename;
+ \docSaveAs\newDO ({ cPath: _path });
+ doc.closeDoc();
+ doc = \appopenDoc({cPath: manualfilename, oDoc:this, bHidden: true});
+ f=doc.getField("ManualTitle");
+ f.value=titleOfManual;
+ doc.flattenPages();
+ \docSaveAs\newDO({ cPath: manualfilename });
+ doc.closeDoc();
+} else {
+ console.println("Using the current "+manualfilename+" file.");
+}
+var _path=this.path;
+var pos=_path.lastIndexOf("/");
+_path=_path.substring(0,pos)+"/"+manualfilename;
+\addWatermarkFromFile({
+ bOnTop:false,
+ bOnPrint:false,
+ cDIPath:_path
+});
+\executeSave();
\end{docassembly}
+\reversemarginpar
+
+%\mlMarksOn
+
+
\begin{document}
\maketitle
@@ -105,36 +154,42 @@
\section{Introduction}
-This package creates \underbar{m}ulti-line \underbar{link}s, a dream
-that I have had for a number of years. The package \pkg{hyperref}
-does create links, but generally these links cannot be broken across
-lines, unless the application \app{pdflatex} is used to create a
-PDF; however, since my workflow is primarily through \app{Acrobat
-Distiller}, this does me little good.
-
-This package uses the \texttt{QuadPoints} entry of the link
-annotation dictionary to create a bounding region; consequently,
-\textbf{this package requires \app{Acrobat Distiller}} to create a PDF. The
-\texttt{QuadPoints} entry in the link annotation is a PDF 1.6
-feature, so these multi-line links will work in Adobe Reader 7.0 or
-later. If viewed in a version of Adobe Reader previous to 7.0, the
-viewer will use the underlying bounding box, which in the case of
-this package, is the entire page. \emph{Because the multi-line links don't
-work for versions of Adobe Reader prior to 7.0, this package should
-be used only when the reading audience has the required version}.
-
+This package creates \underbar{m}ulti-line \underbar{link}s, a dream of mine
+for a number of years. The package \pkg{hyperref} does create links,
+but generally these links cannot be broken across lines, unless the
+application \app{pdflatex} (or \app{xelatex}) is used to create a PDF;
+however, since my workflow is primarily through \app{Acrobat Distiller}, this
+does me little good.
+
+This package uses the \texttt{QuadPoints} entry of the link annotation
+dictionary to create a bounding region; consequently, this package
+requires\marginpar{\small\raggedright\flushright \app{Distiller} or
+\app{ps2pdf} required} \app{Acrobat Distiller} or the \app{ps2pdf.exe}
+converter to create a PDF. The \texttt{QuadPoints} entry in the link
+annotation is a PDF 1.6 feature, so these multi-line links will work in
+\app{Adobe Reader} 7.0 or later. If viewed in a version of \app{Adobe Reader}
+previous to 7.0, the viewer will use the underlying bounding box, which is the
+smallest rectangle containing the link text.
+
+\section{Alternate package name: \texorpdfstring{\protect\pkg{aeb-mlink}}{aeb-mlink}}
+
+This package is known on CTAN as \pkg{aeb-mlink}
+(\href{http://www.ctan.org/pkg/aeb-mlink}{ctan.org/pkg/aeb-mlink}), even
+though there is no such package by that name, until now. Included within this distrubution
+is the `dummy' package \pkg{aeb-mlink} which loads \pkg{aeb\_mlink} and passes all options
+to it.
\section{Requirements}
The following {\LaTeX} packages are the major ones required by \texttt{aeb\_mlink}.
\begin{itemize}
\item \pkg{eforms} provides form and link support, \`a la
- {Acro\negthinspace\TeX} (\url{ctan.org/pkg/acrotex}).
+ {Acro\negthinspace\TeX} (\href{http://www.ctan.org/pkg/acrotex}{ctan.org/pkg/acrotex}).
\item \pkg{hyperref} provides link support, including the
commands \cs{hyperref}, \cs{hyperlink}, \cs{href}, \cs{nameref},
\cs{Nameref}, and \cs{href}.
\item \pkg{soul} a very nice package by Melchior FRANZ, used by
- \pkg{aeb\_mlink} to hyphenate links (\url{ctan.org/pkg/soul}).
+ \pkg{aeb\_mlink} to break the text of a link into its syllables (\href{http://www.ctan.org/pkg/soul}{ctan.org/pkg/soul}).
% \nolinkurl{CTAN: tex-archive/macros/latex/contrib/soul/}}
\end{itemize}
@@ -153,13 +208,13 @@ of the Y\&Y {\TeX} System, no longer available, but is used by this author.} The
\documentclass{article}
\usepackage{xcolor}
\usepackage[colorlinks]{hyperref}
-\usepackage[!anglemeta(driver)]{aeb_mlink}
+\usepackage[!anglemeta(options)]{aeb_mlink}
\end{Verbatim}
\end{minipage}\quad\begin{minipage}[t]{.4\linewidth}
\begin{Verbatim}[commandchars=!(),fontsize=\small]
\documentclass{article}
\usepackage[designi]{web}
-\usepackage[!anglemeta(driver)]{aeb_mlink}
+\usepackage[!anglemeta(options)]{aeb_mlink}
\end{Verbatim}
\end{minipage}
\eVerb Above are two typical preambles for the use of \pkg{aeb\_mlink}:
@@ -174,11 +229,23 @@ of the Y\&Y {\TeX} System, no longer available, but is used by this author.} The
comes last.
\end{itemize}
+\paragraph*{Options of \pkg{aeb\_mlinks}.} These are,
+\begin{description}
+ \item[\normalfont\texttt{dvips}] Use this option when the \textsf{dvips} application is used
+ to create the Postscript file.
+ \item[\normalfont\texttt{dvipsone}] Use this option when the \textsf{dvipsone} application is used
+ to create the Post\-script file. (Only a few people worldwide use this option.)
+ \item[\normalfont\texttt{dblevel=\ameta{\upshape{0|1|2}}}] To obtain information on the multi-line links being
+ created. Each value gives more information about what is going on. Used for development.
+ \item[\normalfont\ameta{eforms-options}] Any options other than the ones listed above are passed to the
+ \pkg{eforms} package.
+\end{description}
Since \pkg{eforms} is a required package, the \pkg{acrotex} bundle
(\pkg{AeB}) is installed; consequently, if you've set up the \texttt{web.cfg}
configuration file (that accompanies \pkg{AeB}) with either
\cs{ExecuteOptions\darg{dvips}} or \cs{ExecuteOptions\darg{dvipsone}}, the
-specification of the \anglemeta{driver} is not normally needed.
+specification of the driver (\opt{dvips} or \opt{dvipsone}) is not normally
+needed.
\section{Multi-line link commands}
@@ -187,10 +254,10 @@ We define seven multi-line hypertext link commands: \cs{mlhypertext},
\cs{href}, and \cs{mlurl}. The first is a basic command that is used in the definitions of
the other six.
-\newtopic\noindent\textbf{Note:} Because of the way the bounding boxes are
-constructed, it is best that the bounding rectangle is set on invisible, that
-is, the line width of the boundary line is zero. The \opt{colorlinks} option
-of \app{hyperref} should be taken.
+%\newtopic\noindent\textbf{Note:} Because of the way the bounding boxes are
+%constructed, it is best that the bounding rectangle is set on invisible, that
+%is, the line width of the boundary line is zero. The \opt{colorlinks} option
+%of \app{hyperref} should be taken.
\exSrc{mlink_tst}The demo file is \texttt{mlink\_tst.tex}, it illustrates all
the commands -- with the exception of \cs{mlurl} -- of this package. The
@@ -238,7 +305,7 @@ create this PDF document.
{Acrobat Distiller, version~7.0 or greater}
\end{dCmd*}
\eVerb In the above example, the link, shown in \textcolor{webgreen}{green}
-is broken across lines. Though is is not shown in this example, these links
+is broken across lines. Though is not shown in this example, these links
can break a line at a hyphenation point as well. The optional argument is
used to create an alert box that appears when the link is clicked.
@@ -274,7 +341,8 @@ the following text appears
\end{quote}
creating the named destination of \texttt{retire}.
-\subsection{\cmdtitle{mlhyperref}} A multi-line version of the \cs{hyperref} command.
+\subsection{\cmdtitle{mlhyperref}}\label{ss:mlhyperref}
+A multi-line version of the \cs{hyperref} command.
\bVerb\takeMeasure{\string\mlhyperref[\#1]\darg{\#2}\darg{\#3}}%
\begin{dCmd}{\bxSize}
@@ -493,11 +561,20 @@ two styles of key-values:
\A{\JS{app.alert("AcroTeX rocks!")}}]{AcroTeX...browser.}
\end{Verbatim}
+ An alternative link format is to provide a visible rectangle; \mlhypertext[\W1\linktxtcolor{}
+ \Color{red}\A{\JS{app.alert("Wrap the link!")}}]{Use a link with a non-zero boundary size along
+ with {\protect\cs{S\string{S\string}}}, which is the default.}
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small]
+\mlhypertext[\W1\linktxtcolor{}\Color{red}
+\A{\JS{app.alert("Wrap the link!")}}]{Use a ... boundary size.}
+\end{Verbatim}
+
The eForms KVP system is explained in the eforms manual,
\textsl{\mlhref{http://www.math.uakron.edu/~dpstory/acrotex/eformman.pdf}{Support for AcroForms and Links, and for Document JavaScript and Open Page Events}},\footnote
{\url{http://www.math.uakron.edu/~dpstory/acrotex/eformman.pdf}}
where a complete listing of all supported KVPs is found in the appendices.
+
\item \pkg{xkeyval} KVP: When the \opt{useui} option is taken of the eforms package, key-value pairs are
defined of the form \texttt{\anglemeta{key}[\,=\,\anglemeta{value}]}. The key-value pairs are actually a value of
a special eForms key, \cs{ui}. The value of \cs{ui} consists of a comma-delimited list of
@@ -518,14 +595,266 @@ two styles of key-values:
linktxtcolor=webgreen,
js={app.alert("AcroTeX rocks!")}}]{AcroTeX...browser.}
\end{Verbatim}
-
-
\item[] The \pkg{xkeyval} KVP system is described in the document
\textsl{\mlhref{http://www.math.uakron.edu/~dpstory/acrotex/eformman.pdf}{Support for AcroForms and Links, and for Document JavaScript and Open Page Events}}.\footnote
{ibid.}
-
\end{enumerate}
+\paragraph*{Keys special to the \pkg{aeb\_mlink} package.} The following links are defined
+within \pkg{eforms}, but are only obeyed from within the option list of one of the
+\cs{ml\ameta{cmdname}} commands.
+\begin{itemize}
+\item \cs{mlfix\darg{\ameta{\upshape{y|n}}}} (\pkg{xkeyval} KVP: \texttt{mlfix=\ameta{\upshape{yes|no}}})\\
+ If \cs{mlfix\darg{y}} is specified, contiguous bounding rectangles are combined; otherwise they are not.
+ See Section~\ref{s:FixQuads} for more information.
+\item \cs{mlstrut\darg{\ameta{some-strut}}} (\pkg{xkeyval} KVP: \texttt{mlstrut=\ameta{some-strut}})\\
+ The value of this key sets the height of the bounding rectangles; the default is \cs{strut}. See
+ Section~\ref{s:FixQuads} for detains and examples.
+\item \cs{mlcrackat\darg{\ameta{num}}} (\pkg{xkeyval} KVP: \texttt{mlcrackat=\ameta{num}})\\
+ This key is use to crack (or break) an hypertext or url into two links.
+ The application is to enable the link to break across a page boundary. Refer
+ to the paragraph \textbf{\mlnameref{para:xpage}}, beginning on page~\pageref{para:xpage}
+ for more information on \cs{mlcrackat}.
+\item \cs{mlhyph\darg{\ameta{\upshape{y|n}}}} (\pkg{xkeyval} KVP: \texttt{mlhyph=\ameta{\upshape{yes|no}}})\\
+ When the \cs{mlcrackat} option is used, an hyphen is inserted provided \cs{mlhyph{y}}, otherwise, no hypen
+ is inserted. Refer to the paragraph \textbf{\mlnameref{spara:fixxpage}}, page~\pageref{spara:fixxpage}, for
+ an example.
+\item \cs{mlcrackinsat\darg{\ameta{text}}} (\pkg{xkeyval} KVP: \texttt{mlcrackinsat=\ameta{text}})\\
+ The value \ameta{text} of this key is inserted after the break point, when
+ \cs{mlcrackat} is used. Normally, nothing is inserted after the brake point.
+\end{itemize}
+
+\section{Fixing the quad points}\label{s:FixQuads}
+
+In versions of \pkg{aeb\_mlink} prior to 2018/03/19, the each syllable
+(possible break point) of multi-line text was enclosed in a bounding
+rectangle (described by the coordinates of its four corners). For example, it
+is well known that \mlhypertext[\A{\JS{app.alert("And so it
+is");}}\mlfix{n}\linktxtcolor{}\W1\H{O}\S{S}\Color{red}]{the acrotex website
+is free to all who dare to enter.} Now you see the individual bounding
+rectangles; they are all linked together, if you click on one of them, they
+all react.
+
+Beginning with the version of \pkg{aeb\_mlink} dated 2018/03/19, Postscript
+code was introduced to fix up these bounding boxes so that all syllables
+\emph{on the same line} are enclosed in a single bounding rectangle.
+\mlhypertext[\A{\JS{app.alert("And so it is");}}\linktxtcolor{}\W1\H{O}\S{S}\Color{red}]{If we turn on this feature
+and declare the acrotex website is free to all who dare to enter.} Very cool!
+
+\exAeBBlogPDF{p=1377} The demonstration document for these feature is found on the
+\href{\urlAcroTeXBlog}{{\AcroTeX} Blog} web site. Refer to the article
+titled \textsl{\href{\urlAcroTeXBlog?p=1377}{Fixing multi-line link boxes}}.
+
+
+\paragraph*{Turning the fix on and off.} The feature of fixing up these
+little rectangles into one rectangle per line is controlled by the commands
+\cs{mlfixOn} and \cs{mlfixOff}; the first turns on the fix up, the second
+turns it off. The default is \cs{mlfixOn}. These two commands turn on or off
+the fix up for the document (or within a group), to turn the fix on or off
+for an individual link, use the key-value pairs \verb~\mlfix{y}~ to turn on
+the fix and \verb~\mlfix{n}~ to turn it off. These key-values are placed as
+an optional argument of any of the \cs{ml\ameta{cmdname}} commands. For
+example,
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\mlhypertext[!textbf(\mlfix{n})\A{\JS{app.alert("And so it is");}}
+\linktxtcolor{}\W1\H{O}\S{S}\Color{red}]{the acrotex website is
+free to all}
+\end{Verbatim}
+The user-friendly counterpart is \texttt{mlfix=\ameta{\upshape{yes|no}}}.
+
+\paragraph*{Changing the vertical size of the rectangles.} The default height
+and depth of the boxes are determined by \cs{strut}, in the current font
+size. A \emph{new key is introduced}, \cs{mlstrut\darg{\ameta{some-strut}}}.
+You can simple increase the vertical dimensions of the boxes by
+\verb~\mlstrut{\large\strut}~ or \verb~\mlstrut{\huge\strut}~.
+\mlhypertext[\A{\JS{app.alert("And so it is");}}\mlstrut{\large\strut}\linktxtcolor{}\W1\H{O}\S{S}\Color{red}]
+{The acrotex website is free to all} link should have vertically expanded rectangles.
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\mlhypertext[!textbf(\mlstrut{\large\strut})\A{\JS{app.alert("And so it is");}}
+\linktxtcolor{}\W1\H{O}\S{S}\Color{red}]{The acrotex website
+is free to all}
+\end{Verbatim}
+When the link is underlined (\verb~\S{U}~) the depth is set to 1bp. These
+changes to the vertical size of the rectangles do not affect any text
+positioning of the content, only the bounding boxes.
+
+\texttt{mlstrut=\ameta{some-strut}} is the counterpart to
+ \cs{mlstrut\darg{\ameta{some-strut}}} in the user-friendly key-value system.
+
+The \ameta{some-strut} argument can be anything that takes up vertical space, any horizontal space is ignored.
+For example, \mlhypertext[\mlstrut{$\displaystyle\int_0^\pi$}\linktxtcolor{}\W1\H{O}\S{S}\Color{red}
+\A{\JS{app.alert("No action defined, other than this one.")}}]{``The integral
+{$\displaystyle\int_0^\pi \sin(x)\,dx$} has a value of a crummy little $2$.''}
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\mlhypertext[\mlstrut{$\displaystyle\int_0^\pi$}\linktxtcolor{}\W1\H{O}
+\S{S}\Color{red}]{``The integral {$\displaystyle\int_0^\pi \sin(x)\,dx$}
+... $2$.''}
+\end{Verbatim}
+
+\paragraph*{Important:} When the feature of fixing the
+rectangles is active (with \cs{mlfixOn} or locally with \cs{mlfix\darg{y}}),
+you need to \emph{compile the document at least three times} before
+distilling the document; otherwise distiller fails. There are commands
+written to the \textsf{AUX} file that needs to be up to date. This is only
+needed after you modify any of the multi-line hypertext links. There are
+{\LaTeX} warning messages written to the {\TeX} log to inform you if the
+links are not fully formed; there are also messages in the distiller log.
+Setting the package option \texttt{dblevel=1} can increase the amount of
+feedback you get through the distiller log.
+
+\paragraph*{Marking the links.} You can run into trouble with one or more of the links. There
+may be tex log or distiller log messages referring to the link number (e.g.,
+\texttt{mLink30}), but where is this link? By expanding \cs{mlMarksOn}, you
+turn on the marking of the links. I'm turning on link marking for the rest of
+the document. Look for `L\ameta{num}' beginning in section~\ref{ss:probs}.
+Turn marking back off with \cs{mlMarksOff}. Above the starting point of each
+link will be a tiny `L\ameta{num}'. The format for this little `L\ameta{num}'
+is determined by the internal command \cs{ml@MrkLnk}; it may redefined as
+desired.
+
+\mlMarksOn
+
+\paragraph*{Multi-line links that break across pages.}\label{para:xpage} This phenomenon is not
+supported by the PDF Reference. These kinds of links can be created by
+{\LaTeX} when the link is near the bottom of the page and {\LaTeX} moves a
+portion of it to the next page. \pkg{aeb\_mlinks} detects this when the
+document is distilled and places a message in the distiller (or \app{ps2pdf}) log. If you have
+a link that crosses page boundaries, you need to reword the paragraph to
+avoid this. The message reads,\goodbreak
+\begin{Verbatim}[fontsize=\small]
+Beginning of page: 3
+!!------------------------------------------------------------------
+Warning:
+The text of mLink4 has crossed a page boundary from page 2 to 3.
+Cross page links are not supported by the PDF Specification.
+This link is not constructed, please fix it.
+Break point is after syllable number 4.
+Use the \mlcrackat{4} option with this link.
+!!------------------------------------------------------------------
+\end{Verbatim}
+and can't be missed. The link is not constructed. You can see here, there is a reference
+to \texttt{mLink4}. You need to turn on link marking (\cs{mlMarksOn}) or just go to page~2
+and look at the bottom of the page.
+
+\subparagraph*{Fixing a cross-page link.}\label{spara:fixxpage} There are several actions you can
+take to fix a link that has crossed a page boundary: (1) rewrite the
+paragraph so the link does not cross the page boundary; (2) as the log file suggests, you
+can use the \cs{mlcrackat\darg{4}} option. In this latter case, for example,
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\mlhypertext[\mlcrackat{4}\mlhyph{y}!ameta(other-opts)]
+ {Doctor Story created the acrotex website.}
+\end{Verbatim}
+Two links are created, the first consisting of the text `Doctor Story cre-'
+and the second on `ated the acrotex website.'; the second link (should) be
+inserted on the next page. The link option \cs{mlhyp\darg{y}} inserts an
+hyphen at the break point. For URLs, a hyphen may not be appropriate.
+
+%\kern7pt
+
+\exAeBBlogPDF{p=1383}\textbf{ A working document:} The demonstration document
+for breaking links across pages is found on the
+\href{\urlAcroTeXBlog}{{\AcroTeX} Blog} web site. Please refer to the
+article titled
+\textsl{\mlhref{\urlAcroTeXBlog?p=1377}{Crossing page
+boundaries with multi-line links}}. Many other articles on {\AEB} and {\PDF}
+can be found at the \href{\urlAcroTeXBlog}{{\AcroTeX} Blog} web site, as
+well.
+
+%\normalcolor
+
+\paragraph*{Reverting to the old style.}
+The restriction of having to compile multiple times before
+distillation may be a burden when it comes to developing a document. You can
+declare \cs{OldStyleBoxesOn} in the preamble to revert to the old style that
+does not use the information written to the auxiliary file. After document
+development and the text of all links are stable, you can then say
+\cs{OldStyleBoxesOff} (or comment out \cs{OldStyleBoxesOn}) in the preamble.
+Compiling then yields the better formed and combined bounding rectangles.
+
+\paragraph*{Minimally sized \texttt{/Rect}.} For multi-line links, the link
+annotation contains two entries containing dimensions of rectangles, the
+\texttt{/Rect} and \texttt{/QuadPoints} entries. Our focus in this paragraph
+is on \texttt{/Rect}; there are two possible values for \texttt{/Rect}: (1)
+the dimensions of the entire page, which has been the default value since the
+inception of this package, or (2) the dimensions of the smallest rectangle
+containing all the hypertext, the new default.\smallskip
+
+\noindent\strut{\fboxsep0pt\fcolorbox{blue}{white}{\parbox{\linewidth}
+{\hskip\amtIndent For example, the following link is constructed using
+\cs{mlhypertext}: \mlhypertext[\A{\JS{app.alert("AcroTeX rocks with minimal rectangles!")}}]%
+{Acrobat Distiller, version~7.0 or greater} was used to
+create this PDF document. The blue rectangle}}} is a representation of the `unseen' \texttt{/Rect}
+dimensions. It is the smallest rectangle that contains the hypertext. You can revert to the old
+default (the whole page) by expanding \cs{useSmallRectOff}, the default is \cs{useSmallRectOn}.\medskip
+
+\textbf{The importance of small rectangles.} In the current age we live in,
+web browsers have their own `native' PDF viewers. These viewers generally do
+not obey JavaScript actions but they do recognize basic actions such as
+jumping to the destination in the document; however, they ignore the
+\texttt{/QuadPoints} entry in a link, and respect only the \texttt{/Rect}
+entry. In a `native' viewer, following a multi-line link may be problem when
+the \texttt{/Rect} entry is set the whole page. Now, the \texttt{/Rect} is
+the minimal rectangle, and following a link should not be an issue as long as
+\emph{one rectangle is not contained within another}. Multi-line links are
+fully supported by \app{Adobe Acrobat Reader}.
+
+\paragraph*{Tricky bits.} The use of \cs{mlnameref} and \cs{mlNameref} can be tricky when
+the referenced label contains special commands or font changes. Two tricks
+are to enclose the bad bits in braces (\texttt{\darg{}}) and/or \cs{protect}
+commands. Section or paragraph commands that end up as PDF bookmark need to use
+the \pkg{hyperref} command \cs{texorpdfstring}. To illustrate, an dummy subsection
+is introduced, and the discussion on this topic is continued there.
+
+
+\subsection{Discussion of \texorpdfstring
+ {{\protect\cs{mlnameref}}, {\protect\cs{mlNameref}}, and {\protect\cs{mlhypertext}}}
+ {\textbackslash{mlnameref}, \textbackslash{mlNameref}, and \textbackslash{mlhypertext}}}\label{ss:probs}
+
+To illustrate, we reference the section title ``\mlnameref{ss:probs}.'' The verbatim listing of this subsection is
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\subsection{Discussion of problems with \texorpdfstring
+ {{\protect\cs{mlnameref}}, {\protect\cs{mlNameref}},
+ and {\protect\cs{mlhypertext}}}
+ {\textbackslash{mlnameref}, \textbackslash{mlNameref},
+ and \textbackslash{mlhypertext}}}\label{ss:probs}
+\end{Verbatim}
+Observe use of \cs{texorpdfstring}, the first argument is typeset, the second
+one is placed in the bookmarks.
+\begin{itemize}
+ \item On the first argument of \cs{texorpdfstring}, we focus our comments
+ on the first \verb~{\protect\cs{mlnameref}}~ of the three commands
+ referenced. Note that it is enclosed in braces that signals the
+ \opt{soul} package, which does the parsing, to treat it as an
+ unbreakable unit. The control sequence \cs{cs} is protected by
+ \cs{protect}. Finally \cs{cs} is a command that produces a backslash in
+ front of its argument in monospace font.
+
+ There are two `common' definitions of \cs{cs}-style commands:
+ \begin{itemize}
+ \item \verb~\def\cs#1{\texttt{\char`\\#1}}~
+ \item \verb~\def\cs#1{\texttt{\@backslashchar#1}}~ (used in this manual)
+ \end{itemize}
+ The latter definition must be the one used within a section title, not the first one.
+
+ The \pkg{aeb\_mlinks} defines \cs{mlcs} using the second version; that
+ is \begin{flushleft}\hskip\amtIndent\verb~\def\mlcs#1{\texttt{\@backslashchar#1}}~\end{flushleft} is defined. In
+ this way both definitions for \cs{cs} are available. The \cs{mlcs}
+ version must be used in text that can be referenced by \mlcs{mlnameref}
+ or \mlcs{mlNameref}.
+\end{itemize}
+In the above title declaration, if any of the components (the braces, the \cs{protect}, and the special
+definition of \cs{cs}) {\LaTeX} compilation errors occur.
+
+Similar comments are made for \cs{mlhypertext}, \cs{mlhyperref}, and \cs{mlhyperlink}. These three take
+a text phrase as its `hypertext' string. For example,
+``\mlhyperref[\linktxtcolor{}\Color{red}\S{S}\W1]{ss:mlhyperref}{The exciting world of {\protect\mlcs{mlhyperref}} is average wonderful.}''
+\begin{Verbatim}[xleftmargin=\amtIndent,fontsize=\small,commandchars=!()]
+\mlhyperref[\linktxtcolor{}\Color{red}\S{S}\W1]{ss:mlhyperref}{The
+ exciting world of {\protect\mlcs{mlhyperref}} is average wonderful.}
+\end{Verbatim}
+Notice the braces, the \cs{protect}, and the use of \cs{mlcs}; they work
+together for a successful link construction.
+
\newpage
\section{My \textbf{Retirement} Home}\label{retirement}
diff --git a/texmf-dist/tex/latex/aeb-mlink/aeb-mlink.sty b/texmf-dist/tex/latex/aeb-mlink/aeb-mlink.sty
new file mode 100644
index 00000000..9064bb26
--- /dev/null
+++ b/texmf-dist/tex/latex/aeb-mlink/aeb-mlink.sty
@@ -0,0 +1,28 @@
+%%
+%% This is file `aeb-mlink.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% aeb_mlink.dtx (with options: `copyright,altpkgname')
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% aeb_mlink.sty package, %%
+%% Copyright (C) 2006--2018 D. P. Story %%
+%% dpstory@acrotex.net %%
+%% %%
+%% This program can redistributed and/or modified under %%
+%% the terms of the LaTeX Project Public License %%
+%% Distributed from CTAN archives in directory %%
+%% macros/latex/base/lppl.txt; either version 1 of the %%
+%% License, or (at your option) any later version. %%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{aeb-mlink}
+ [2018/04/26 v1.0 AeB MLink Alt-name (dps)]
+\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{aeb_mlink}}
+\ProcessOptions
+\RequirePackage{aeb_mlink}[2018/03/22]
+\endinput
+%%
+%% End of file `aeb-mlink.sty'.
diff --git a/texmf-dist/tex/latex/aeb-mlink/aeb_mlink.sty b/texmf-dist/tex/latex/aeb-mlink/aeb_mlink.sty
index cc323916..479b2cc8 100644
--- a/texmf-dist/tex/latex/aeb-mlink/aeb_mlink.sty
+++ b/texmf-dist/tex/latex/aeb-mlink/aeb_mlink.sty
@@ -7,10 +7,9 @@
%% aeb_mlink.dtx (with options: `copyright,package')
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% aeb_mlink.sty package, 2015-10-28 %%
-%% Copyright (C) 2006--2015 D. P. Story %%
+%% aeb_mlink.sty package, %%
+%% Copyright (C) 2006--2018 D. P. Story %%
%% dpstory@acrotex.net %%
-%% storyd@owc.edu %%
%% %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License %%
@@ -20,37 +19,73 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{aeb_mlink}
- [2016/02/16 v2.0 AeB MLink (dps)]
+ [2018/04/26 v2.3 AeB MLink (dps)]
+\RequirePackage{xkeyval}
\RequirePackage{ifpdf}[2006/02/20]
\RequirePackage{ifxetex}[2006/08/21]
\newif\if@ml@dvips \@ml@dvipstrue
-\DeclareOption{dvipsone}{\def\eq@drivernum{0}\@ml@dvipsfalse
+\def\mlcsarg#1#2{\expandafter#1\csname#2\endcsname}
+\DeclareOptionX{dvipsone}{\def\eq@drivernum{0}\@ml@dvipsfalse
\PassOptionsToPackage{dvipsone}{eforms}
- \PassOptionsToPackage{dvipsone}{hyperref} %,colorlinks
+ \PassOptionsToPackage{dvipsone}{hyperref}
}
-\DeclareOption{dvips}{\def\eq@drivernum{0}\@ml@dvipstrue
+\DeclareOptionX{dvips}{\def\eq@drivernum{0}\@ml@dvipstrue
\PassOptionsToPackage{dvips}{eforms}
- \PassOptionsToPackage{dvips}{hyperref} %,colorlinks
+ \PassOptionsToPackage{dvips}{hyperref}
}
+\DeclareOptionX*{\PassOptionsToPackage{\CurrentOption}{eforms}}
+\newcount\mldblevel \mldblevel=0
+\define@key{aeb_mlink.sty}{dblevel}[0]{\mldblevel=#1 }
\def\ml@err@msg{This package requires the driver dvips and\MessageBreak
Adobe Distiller as the PDF creator}
\ifpdf\PackageError{aeb_mlink}{\ml@err@msg}\else
\ifxetex\PackageError{aeb_mlink}{\ml@err@msg}\else
- \InputIfFileExists{web.cfg}{}{}
+ \let\ExecuteOptions@SAVE\ExecuteOptions
+ \let\ExecuteOptions\ExecuteOptionsX
+ \InputIfFileExists{web.cfg}{}
+ {\@ifundefined{l@tex@@@@driver}{\ExecuteOptionsX{dvips}}
+ {\ExecuteOptionsX{dvipsone}}}%
+ \let\ExecuteOptions\ExecuteOptions@SAVE
\fi\fi
-\ProcessOptions
+\ProcessOptionsX
\RequirePackage{hyperref}
-\RequirePackage{eforms}[2008/03/14]
+\RequirePackage{refcount}
+\RequirePackage{eforms}[2018/03/22]
\RequirePackage{soul}
\def\ps@mark{[\space}
+\ifnum\mldblevel>0
+ \def\mlpgMsg{(\string\n Beginning of page: ) pf
+ PhysicalPage 20 string cvs
+ pf(\string\n)pf}\else
+ \def\mlpgMsg{}\fi
+\def\pgmonitoring{\if@ml@dvips
+ dup /PhysicalPage exch 1 add def
+ /PhysicalPage PhysicalPage def^^J\fi
+ \mlpgMsg
+}
+\def\smallRectTF{\ifoldstylequads false\else
+ \iffixmlinks true\else false\fi\fi\space
+ \ifSmallRect true\else false\fi\space and}
+\def\mllnkcontainer#1{bCreateLink { xoMsgB {
+ \smallRectTF\space mlRectFix^^J%
+ #1}if}{\the\aeb@mLinkCnt\space mlIsBldMsg}ifelse}
+\def\pboxRect{mlRect }
\if@ml@dvips
+\def\mlDict{SDict}
\special{!userdict begin
- /TeXtoPDF {65536 div DVImag mul} def % sp to pts
- /PDFtoDvips {72.27 div Resolution mul} def % points to dots
- /PDFtoVDvips {72.27 div VResolution mul} def % points to dots
- /DvipstoPDF {72.27 mul Resolution div} def % dots to points
- /HTeXtoDvips {TeXtoPDF PDFtoDvips} def % sp to dots
- /VTeXtoDvips {TeXtoPDF PDFtoVDvips} def end} % sp to dots
+ /TeXtoPDF {65536 div DVImag mul} def % sp to pts
+ /PDFtoDvips {72.27 div Resolution mul} def % points to dots
+ /PDFtoVDvips {72.27 div VResolution mul} def % points to dots
+ /DvipstoPDF {72.27 mul Resolution div} def % dots to points
+ /HTeXtoDvips {TeXtoPDF PDFtoDvips} def % sp to dots
+ /VTeXtoDvips {TeXtoPDF PDFtoVDvips} def^^J% % sp to dots
+ /PhysicalPage 0 def^^J%
+ /PageHeight {vsize} def^^J%
+ /PDFtoTeX {PDFtoDvips} def^^J%
+ /pf{print flush}def^^J%
+ /bop-hook{ \pgmonitoring\space } def
+end}
+
\def\setQuadBox{%
currentpoint DvipstoPDF \aeb@bbox@dp\space TeXtoPDF add
neg vsize add 72 sub % y1
@@ -65,8 +100,12 @@
hsize 72 sub PDFtoDvips 72 neg PDFtoVDvips
}
\else
+\def\mlDict{dvidict}
\special{!/TeXtoPDF {65536 div mag 1000 div mul} def
-/PDFtoTeX {65536 mul mag 1000 div div} def}
+ /PDFtoTeX {65536 mul mag 1000 div div} def^^J%
+ /pf{print flush}def^^J%
+ /bphook{ \pgmonitoring\space } def^^J%
+}
\def\setQuadBox{%
currentpoint \aeb@bbox@dp\space add TeXtoPDF
neg PageHeight add 72 sub % y1
@@ -84,6 +123,30 @@
\newbox\aeb@bbox
\newcount\aeb@arrayIndx \aeb@arrayIndx=0
\newcount\aeb@mLinkCnt \aeb@mLinkCnt=0
+\newif\ifmllinktotalchanged\mllinktotalchangedfalse
+\newif\ifSmallRect \SmallRecttrue
+\AtEndDocument{\wrtmlinktot@l\ckchngmlinktot@l\wrt@linksnotformed}
+\def\wrt@linksnotformed{\iflinknotformed
+ \PackageWarningNoLine{aeb_mlinks}{Some link calculations are not
+ complete.\MessageBreak
+ DO NOT CONVERT TO PDF at this time. Compile at \MessageBreak
+ least twice more}\fi}
+\def\wrtmlinktot@l{\immediate\write\@auxout{\string\gdef
+ \string\mlinkstotal{\the\aeb@mLinkCnt}}}
+\def\ckchngmlinktot@l{\@ifundefined{mlinkstotal}{}
+ {\ml@mlinktot@l@changed}}
+\def\ml@mlinktot@l@changed{%
+ \ifnum\mlinkstotal=\the\aeb@mLinkCnt\relax\else
+ \PackageWarningNoLine{aeb_mlink}{The number of links has
+ changed. Compile again\MessageBreak until this message
+ does not appear}\immediate
+ \write\@auxout{\string\mllinktotalchangedtrue}\fi
+}
+\def\ml@mllinktotalchanged{\ifmllinktotalchanged
+ \PackageWarningNoLine{aeb_mlink}
+ {The number of links has changed, continue\MessageBreak
+ to compile}\fi}
+\AtBeginDocument{\ml@mllinktotalchanged}
\def\CurrentBorderColor{\@linkbordercolor}
\def\ml@nocolorHighlight{I}
\def\ml@nocolorLineStyle{S}
@@ -101,28 +164,318 @@
\def\ml@earlyExecProps#1{%
\eq@setWidgetProps\relax{#1}%
}
+\newif\ifoldstylequads \oldstylequadsfalse
+\def\OldStyleBoxesOn{\mlfixOff\oldstylequadstrue}
+\def\OldStyleBoxesOff{\oldstylequadsfalse}
+\@onlypreamble\OldStyleBoxesOn
+\@onlypreamble\OldStyleBoxesOff
\let\mlh@preambleCmdInsert\relax
-\newcommand{\mlhypertext}[1][]{\global\aeb@arrayIndx=0\relax
- \global\advance\aeb@mLinkCnt1\relax
- \special{ps: \ps@mark/_objdef {mLink\the\aeb@mLinkCnt}
- /type /array /OBJ pdfmark}%
- \def\mlh@preambleCmdInsert{\ml@earlyExecProps{#1}}%
- \def\mlh@postambleCmd{\setLinkPbox{\S{S}\W{0}%
- \presets{\ml@nocolor@defaults}%
- \QuadPoints{mLink\the\aeb@mLinkCnt}#1}\endgroup}%
- \aeb@mlh
+\def\mlcs#1{\texttt{\@backslashchar#1}}
+\bgroup\@makeother\%
+\gdef\CMT#1{ %\space #1}\egroup
+\def\mldbModeOn{\def\mldb##1##2{##2}}
+\def\mldbModeOff{\def\mldb##1##2{}}
+\def\mldb#1#2{\ifnum#1<\mldblevel#2\fi}
+\def\ml@adj@x{2}\def\ml@adj@y{2}
+\AtBeginDvi{\special{!%
+/bCreateLink true def
+/mlIsBld 17 def
+/mlIsBldMsg {
+ /lnkCnt exch def
+ (\string\n!! mLink)pf
+ lnkCnt 20 string cvs pf
+ ( is not completely formed,
+ compile again!!\string\n)pf
+} def
+/xoMsgB true def^^J%
+/xoMsg {^^J%
+ /lnkCnt exch def^^J%
+ /Indx exch def^^J%
+ /nSyllable Indx 8 div def^^J% dpsa08
+ (!!------------------------------------------------------------------%
+ \string\n Warning:\string\n
+ The text of mLink)pf
+ lnkCnt 20 string cvs pf
+ ( has crossed a page boundary from page )pf
+ PhysicalPage 1 sub 10 string cvs pf
+ ( to ) pf PhysicalPage 10 string cvs pf
+ (.\string\n Cross page links are not supported by the
+ PDF Specification)pf
+ (.\string\n This link is not constructed,
+ please fix it.\string\n) pf
+ (Break point is after syllable number )pf
+ nSyllable cvi 20 string cvs pf (.\string\n)pf
+ (Use the \string\\mlcrackat{)pf
+ nSyllable cvi 20 string cvs pf
+ (} option with this link.\string\n)pf
+ (!!------------------------------------------------------------------%
+ \string\n)pf^^J%
+} def^^J%
+/quadpointsfixup {^^J%
+ /ary exch def^^J%
+ /quadL exch def^^J%
+ /lnkCnt exch def^^J%
+\mldb0{(Processing mLink)pf^^J}%
+\mldb0{lnkCnt 20 string cvs pf (: OK\string\n) pf^^J}%
+quadL 0 eq {
+(Problems with this link, length=0,
+ will skip the creation of this link)pf^^J%
+}{
+/gOffset 0 def^^J%
+/gY ary\space 1 gOffset add get def^^J%
+\mldb1{(gY is ) pf gY 20 string cvs print^^J}%
+\mldb1{flush (\string\n) pf^^J}%
+/gN 0 def^^J%
+/gMrk 10 array def^^J% limitation
+gMrk 0 0 put^^J%
+/gMrkL 1 gOffset add def^^J%
+\mldb2{(Begin first for\string\n) pf^^J}%
+0 8 quadL 8 sub {^^J%
+ /gIndx exch def^^J%
+\mldb2{(Outside gt if with gIndx=) pf^^J}%
+\mldb2{gIndx 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+ /getEntry ary\space 1 gOffset add get def^^J%
+\mldb2{(getEntry=) pf getEntry 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+ gY getEntry sub abs 2 gt {^^J%
+\mldb2{(Inside gt if\string\n) pf^^J}%
+ gMrk gMrkL gIndx put^^J%
+ /gMrkL gMrkL 1 add def^^J%
+ /gY getEntry def^^J%
+\mldb2{(Updating gY to )pf gY 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+\mldb2{(gMrkL=)pf gMrkL 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+ } if^^J%
+ /gOffset gOffset 8 add def^^J%
+} for^^J%
+\mldb2{(end first for\string\n) pf^^J}%
+ /gAryL 8 20 mul def^^J% limitation
+\mldb2{(gAryL=) pf gAryL 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+ /gFixup 8 gMrkL mul array def^^J%
+ /gOffset 0 def^^J%
+\mldb2{(for loop: gMrkL=)pf gMrkL 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+0 1 gMrkL 1 sub {^^J%
+\mldb2{(After gAry\string\n) pf^^J}%
+\mldb2{(Top of for loop\string\n) pf^^J}%
+ /gIndx exch def^^J%
+\mldb2{(gIndx=)pf gIndx 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+\mldb2{(gMrk=)pf gMrk gIndx get 20 string cvs pf^^J}%
+\mldb2{(\string\n) pf^^J}%
+\mldb2{(mLinkFxup<num> length = )^^J}%
+\mldb2{pf ary\space length 20 string cvs^^J}%
+\mldb2{pf (\string\n) pf^^J}%
+gIndx 1 add gMrkL eq {^^J%
+ /gCount ary\space length gMrk gIndx get sub def^^J%
+}{^^J%
+ /gCount gMrk gIndx 1 add get gMrk gIndx get sub def^^J%
+} ifelse^^J%
+/gAry gAryL array def^^J%
+\mldb2{(gCount=)pf gCount 20 string cvs pf^^J}%
+\mldb2{(\string\n)pf^^J}%
+/sliceOfLinkfxup gCount array def^^J%
+sliceOfLinkfxup 0 ary gMrk gIndx get^^J%
+ gCount getinterval putinterval^^J%
+ gAry 0 sliceOfLinkfxup putinterval^^J%
+\mldb1{(Listing elements of gFixup\string\n) pf^^J}%
+\mldb1{gAry 0 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 1 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 5 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 4 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 3 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry gCount 1 sub 2 sub get
+ 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 6 get 20 string cvs pf (\string\n)pf^^J}%
+\mldb1{gAry 7 get 20 string cvs pf (\string\n)pf^^J}%
+ gFixup gOffset [^^J%
+ gAry 0 get ^^J% x1 ll
+ gAry 1 get^^J% y1 ll
+ gAry gCount 1 sub 5 sub get^^J% x2 lr
+ gAry gCount 1 sub 4 sub get^^J% y2 lr
+ gAry gCount 1 sub 3 sub get^^J% x3 ur
+ gAry gCount 1 sub 2 sub get^^J% y3 ur
+ gAry 6 get^^J% x4 ul
+ gAry 7 get^^J% y4 ul
+ ] putinterval^^J%
+ /gOffset gOffset 8 add def^^J%
+ } for^^J%
+\mldb2{(End of second for\string\n) pf^^J}%
+ } ifelse
+ } def^^J%
+/smallquadpointsfixup {^^J%
+/gIndx exch def^^J%
+/ary exch def^^J%
+/lnkCnt exch def^^J%
+/quadL exch def^^J%
+/gSFup 8 array def^^J%
+ gSFup 0 ary 0 gIndx add get
+ gIndx 0 eq {\ml@adj@x\space sub} if put^^J% x1
+ gSFup 1 ary 1 gIndx add get put^^J% y1
+ gSFup 2 ary 2 gIndx add get put^^J% x2
+ gSFup 3 ary 3 gIndx add get put^^J% y2
+ gSFup 4 ary 4 gIndx add get put^^J% x3
+ gSFup 5 ary 5 gIndx add get put^^J%
+ gSFup 6 ary 6 gIndx add get
+ gIndx 0 eq {\ml@adj@x\space sub} if put^^J% x4
+ gSFup 7 ary 7 gIndx add get put^^J%
+ ary gIndx gSFup putinterval^^J%
+} def^^J%
+/mlRectFix {^^J%
+/ifRectFix exch def^^J%
+ifRectFix {
+ /nL gFixup length 8 sub def^^J% number of lines
+ /xMin gFixup 0 get def^^J%
+ 0 8 nL {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get xMin lt {/xMin gFixup Indx get def}if } for^^J%
+ /xMin xMin 2 sub def^^J%
+ /xMax gFixup 2 get def^^J%
+ 2 8 nL 2 add {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get xMax gt {/xMax gFixup Indx get def}if } for^^J%
+ /xMax xMax 2 add def^^J%
+ /yMin gFixup 1 get def^^J%
+ 1 8 nL 1 add {^^J%
+ /Indx exch def^^J%
+ gFixup Indx get yMin lt {/yMin gFixup Indx get def}if } for^^J%
+ /yMin yMin 4 sub def^^J%
+ /yMax gFixup 5 get def^^J%
+ 5 8 nL 5 add{^^J%
+ /Indx exch def^^J%
+ gFixup Indx get yMax gt {/yMax gFixup Indx get def}if } for^^J%
+ /yMax yMax 2 add def^^J%
+ /mlRect {/Rect [^^J%
+ xMin 72 sub PDFtoTeX^^J%
+ PageHeight 72 sub yMax sub PDFtoTeX^^J%
+ xMax 72 sub PDFtoTeX^^J%
+ PageHeight yMin sub 72 sub PDFtoTeX ]^^J%
+ }def^^J%
+}{^^J%
+ /mlRect{/Rect [ \par@@Rect ] }def^^J%
+}ifelse^^J%
+ifRectFix {
+\mldb1{(/Rect [)pf^^J%
+xMin 20 string cvs pf( )pf^^J%
+yMax 20 string cvs pf( )pf^^J%
+xMax 20 string cvs pf( )pf^^J%
+yMin 20 string cvs pf(]\string\n)pf^^J}%
+} if^^J%
+} def
+}}
+\newif\ifmlmarks\mlmarksfalse
+\def\mlMarksOn{\mlmarkstrue}
+\def\mlMarksOff{\mlmarksfalse}
+\def\ml@MrkLnk#1{\ifmlmarks\bgroup\ifdim\baselineskip=0pt
+ \setbox\z@\hbox{T}\def\ml@raiseamt{\ht\z@+.4pt}\else
+ \def\ml@raiseamt{.6\baselineskip}\fi\smash{\rlap{\normalcolor\bfseries
+ \raisebox{\ml@raiseamt}{\tiny\strut{L#1}}}}\egroup\fi}
+\newif\iflinknotformed \linknotformedfalse
+\def\ml@underlinded{U}
+\@ifundefined{mlhypertext}{\newcommand}{\renewcommand}%
+{\mlhypertext}[2][]{\begingroup
+ \toks@=\expandafter{#2}%
+ \edef\ml@HytextArg{{\the\toks@}}%
+ \global\aeb@arrayIndx=\z@ % dpsa08
+ \def\ml@setlink##1{\setLinkPbox{%
+ \QuadPoints{mLink##1}#1}}%
+ \expandafter\processAppArgs\set@LinkPboxDefaults
+ \presets{\ml@nocolor@defaults}\S{S}\W{0}#1\end\@nil
+ \ifx\eq@S@value\ml@underlinded
+ \let\itsunderline\ef@YES\else\let\itsunderline\ef@NO\fi
+ \ifx\eq@mlignore\ef@YES
+ \global\advance\aeb@mLinkCnt\@ne\relax
+ \def\ml@next{\mlhypertext@i{#1}}\else
+ \ifx\eq@mlcrackat\@empty
+ \global\advance\aeb@mLinkCnt\@ne\relax
+ \def\ml@next{\mlhypertext@i{#1}}%
+ \else
+ \edef\temp@crackAt{\noexpand
+ \crackAt{\eq@mlcrackat}{\the\toks@}}\temp@crackAt
+ \def\ml@next{\mlhypertext[#1\mlignore{}]{\the\mlfrstoftwo}%
+ \eq@mlcrackinsat\penalty-50
+ \mlhypertext[#1\mlignore{}]{\the\mlsndoftwo}\aftergroup
+ \normalcolor\endgroup}%
+ \fi\fi
+ \ml@next
+}
+\def\mlhypertext@i#1{%
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{\global
+ \linknotformedtrue\def\lngth{17}}
+ {\edef\lngth{\@nameuse{mLinkLngth\the\aeb@mLinkCnt}}}%
+ \ml@start@link{\the\aeb@mLinkCnt}{\lngth}% Step 1
+ \def\mlh@preambleCmdInsert{%
+ \ml@MrkLnk{\the\aeb@mLinkCnt}\ml@earlyExecProps{#1}}%
+ \def\mlh@postambleCmd{\endgroup}%
+ \expandafter\aeb@mlh\ml@HytextArg
+ \ml@finish@link{\the\aeb@mLinkCnt}{\lngth}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \ifoldstylequads\else
+ \iffixmlinks\literalps@out{restore}\fi\fi
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{%
+ \immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}{17}}%
+ }{\immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}%
+ {\the\aeb@arrayIndx}}}\endgroup
}
-\def\mlh@setQuadSyllable#1{%
- \setbox\aeb@bbox=\hbox{\strut#1}%
+\def\mlh@setQuadSyllable#1#2#3#4{%
+ \setbox\aeb@bbox=\hbox{\ml@strut#4}%
{%
- \count\z@=\ht\aeb@bbox\xdef\aeb@bbox@ht{\the\count\z@}%
- \count\z@=\wd\aeb@bbox\xdef\aeb@bbox@wd{\the\count\z@}%
- \dp\aeb@bbox=1pt\relax
- \count\z@=\dp\aeb@bbox\xdef\aeb@bbox@dp{\the\count\z@}%
+ \setbox\@tempboxa\hbox{\ml@strut}%
+ \ifx\itsunderline\ef@YES\@tempdima1bp\relax\else
+ \@tempdima\dp\@tempboxa \ifdim\@tempdima>2bp
+ \advance\@tempdima-2bp\fi
+ \fi
+ \dp\aeb@bbox\@tempdima
+ \@tempdima\ht\@tempboxa \advance\@tempdima\dp\aeb@bbox
+ \advance\@tempdima1bp
+ \ht\aeb@bbox\@tempdima\def\x{\the\count\z@}%
+ \count\z@=\ht\aeb@bbox\xdef\aeb@bbox@ht{\x}%
+ \count\z@=\wd\aeb@bbox\xdef\aeb@bbox@wd{\x}%
+ \count\z@=\dp\aeb@bbox\xdef\aeb@bbox@dp{\x}%
}%
- \special{ps: \ps@mark{mLink\the\aeb@mLinkCnt}
+ \ifoldstylequads
+ \literalps@out{%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#3\space known {^^J%
+ \ps@mark{mLink#3}
\the\aeb@arrayIndx\space [\setQuadBox]
- \space /PUTINTERVAL pdfmark}%
+ \space /PUTINTERVAL pdfmark}{^^J%
+ xoMsgB {
+ /xoMsgB false def
+ \the\aeb@arrayIndx\space
+ #3\space
+ xoMsg % dpsa08
+ } if^^J% xoMsgB
+ } ifelse } if
+ }%
+ \else
+ \literalps@out{%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#3\space known {^^J%
+ mLinkFxup#3\space
+ #1\space[\setQuadBox] putinterval^^J%
+ #2\space %
+ #3\space
+ mLinkFxup#3\space
+ #1\space
+ smallquadpointsfixup }{^^J%
+ xoMsgB {
+ /xoMsgB false def
+ #1\space
+ #3\space
+ xoMsg % dpsa08
+ } if^^J% xoMsgB
+ } ifelse } if
+ }%
+ \fi
\global\advance\aeb@arrayIndx8\relax
}
\def\aeb@exiii{\expandafter\expandafter\expandafter}
@@ -130,8 +483,7 @@
{\aeb@exiii\@thirdoffive\csname r@#1\endcsname}}
\def\labelRef#1{\@ifundefined{r@#1}{Doc-Start}
{\aeb@exiii\@fourthoffive\csname r@#1\endcsname}}
-\def\atPage#1{\@ifundefined{r@#1}{1}
- {\aeb@exiii\@secondoffive\csname r@#1\endcsname}}
+\def\atPage#1{\getrefbykeydefault{#1}{page}{??}}
\newcommand\mlhyperlink[3][]{%
\mlhypertext[#1\A{/S/GoTo/D (#2)}]{#3}}
\newcommand\mlhyperref[3][]{%
@@ -152,7 +504,9 @@
\def\ml@hyper@linkfile#1#2#3{%
\let\ef@thislinkcolor\@filecolor
\let\CurrentBorderColor\@filebordercolor
- \def\theView{[0 \@pdfstartview]}%
+ \ifx\@pdfstartview\@empty
+ \def\theView{[0 /Fit]}\else
+ \def\theView{[0 \@pdfstartview]}\fi
\@ifundefined{ifHy@pdfnewwindow}
{\ifHy@newwindow}{\ifHy@pdfnewwindow}%
\def\isWindow{/NewWindow true}\else
@@ -181,10 +535,11 @@
\let\@hyper@launch\ml@hyper@launch
\aeb@saved@href
}
-\newbox\ml@urlbuild
-\setbox\ml@urlbuild\hbox{}
+\newbox\ml@urlbuildi
+\newbox\ml@urlbuildii
\def\ml@SOUL@doword{%
- \global\setbox\ml@urlbuild\hbox{}%
+ \global\setbox\ml@urlbuildi\hbox{}%
+ \global\setbox\ml@urlbuildii\hbox{}%
\edef\x{\the\SOUL@word}%
\ifx\x\empty
\else
@@ -221,25 +576,22 @@
\global\setbox\@ne=\lastbox}%
\ifvoid\@ne
\else
- \setbox\@ne\hbox{\unhbox\@ne}%
- \global\setbox\ml@urlbuild=\hbox{%
- \mlh@setQuadSyllable{\unhcopy\@ne}%
- \hbox{\unhcopy\@ne}\penalty0\unhcopy\ml@urlbuild}%
- \SOUL@syllgoal=\wd\@ne
- \advance\count@\@ne
- \ml@SOUL@analyze
- \SOUL@syllwidth\z@
- \SOUL@syllable={}%
- \ifnum\count@>\z@
- \advance\SOUL@syllgoal-\SOUL@ttwidth
- \ml@SOUL@dosyllable
- \SOUL@getkern{\the\SOUL@lasttoken}{\SOUL@hyphkern}%
- {\SOUL@sethyphenchar}%
- \SOUL@everyhyphen
- \else
- \ml@SOUL@dosyllable
- \fi
- \fi
+ \ml@interface@analyze
+ \SOUL@syllgoal=\wd\@ne
+ \advance\count@\@ne
+ \ml@SOUL@analyze
+ \SOUL@syllwidth\z@
+ \SOUL@syllable={}%
+ \ifnum\count@>\z@
+ \advance\SOUL@syllgoal-\SOUL@ttwidth
+ \ml@SOUL@dosyllable
+ \SOUL@getkern{\the\SOUL@lasttoken}{\SOUL@hyphkern}%
+ {\SOUL@sethyphenchar}%
+ \SOUL@everyhyphen
+ \else
+ \ml@SOUL@dosyllable
+ \fi
+ \fi
}}
\def\ml@SOUL@dosyllable{%
\SOUL@gettoken
@@ -278,27 +630,169 @@
\fi\fi\fi\fi
\SOUL@n
}
-\newcommand{\mlurl}{\begingroup\def~{\string~}%
+\def\ml@interface@analyze{%
+ \global\advance\syllableCnt\@ne % dpsa11
+ \setbox\@ne\hbox{\unhbox\@ne}%
+ \ifx\eq@mlcrackat\@empty
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+ \ifnum\syllableCnt=\revCrackAt\relax
+ \aeb@arrayIndx=\z@
+ \ml@start@link{\the\aeb@mLinkCnt}{\ml@qlngthchunki}%
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+ \ifnum\syllableCnt>\revCrackAt\relax
+ \ml@bld@quadchunks{\the\aeb@mLinkCnt}
+ {\ml@qlngthchunki}{\ml@urlbuildi}%
+ \else
+ \ifnum\syllableCnt=\@ne
+ \aeb@arrayIndx=\z@
+ \ml@start@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \ml@bld@quadchunks{\aeb@mLinkCnt@}
+ {\ml@qlngthchunkii}{\ml@urlbuildii}%
+ \else
+ \ml@bld@quadchunks{\aeb@mLinkCnt@}
+ {\ml@qlngthchunkii}{\ml@urlbuildii}%
+ \fi
+ \fi
+ \fi
+ \fi
+}
+\def\ml@bld@quadchunks#1#2#3{{%
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}
+ {\edef\@indx{\the\aeb@arrayIndx}}
+ {\@tempcnta#2\relax
+ \advance\@tempcnta-8\relax
+ \advance\@tempcnta-\aeb@arrayIndx
+ \def\@indx{\the\@tempcnta}%
+ }%
+ \global\setbox#3=\hbox{%
+ \mlh@setQuadSyllable{\@indx}{#2}{#1}{\unhcopy\@ne}%
+ \hbox{\unhcopy\@ne}\penalty0\unhcopy#3}%hbox
+}}
+\newcommand{\mlurl}{\begingroup\@makeother\~\relax% \def~{\string~}%
\ef@sanitize@toks\mlurl@}
-\newcommand{\mlurl@}[2][]{\urldef\ml@url\nolinkurl{#2}%
-\def\SOUL@mlhpreamble{%\begingroup
+\newcommand{\mlurl@}[2][]{\@ifundefined{ef@thislinkcolor}
+ {\let\ef@thislinkcolor\normalcolor}{}\expandafter
+ \def\expandafter\ef@thislinkcolor@SAVE
+ \expandafter{\ef@thislinkcolor}%
+ \def\ml@setlink##1{\setLinkPbox{\A{\URI{#2}}%
+ \QuadPoints{mLink##1}#1}}%
+ \expandafter\processAppArgs\set@LinkPboxDefaults
+ \presets{\ml@nocolor@defaults}\S{S}\W{0}#1\end\@nil
+ \ifx\eq@S@value\ml@underlinded
+ \let\itsunderline\ef@YES\else\let\itsunderline\ef@NO\fi
+ \global\aeb@arrayIndx=0\relax
+ \global\syllableCnt=0\relax
+ \global\advance\aeb@mLinkCnt\@ne\relax
+ \@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{%
+ \global\linknotformedtrue\def\lngth{17}%
+ \def\ml@qlngthchunki{17}}
+ {\@tempcnta\@nameuse{mLinkLngth\the\aeb@mLinkCnt}\relax
+ \edef\lngth{\the\@tempcnta}%\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunki{\the\@tempcnta}}%
+ \@ifundefined{mLinkSyCnt\the\aeb@mLinkCnt}
+ {\def\MAXCNT{0}\def\ml@lngthchunki{0}\def\ml@lngthchunkii{0}%
+ \def\ml@qlngthchunki{0}\def\ml@qlngthchunkii{0}\def\revCrackAt{0}}
+ {\edef\MAXCNT{\@nameuse{mLinkSyCnt\the\aeb@mLinkCnt}}%
+ \ifx\eq@mlcrackat\@empty\else
+ \@tempcnta\MAXCNT\relax\advance\@tempcnta-\eq@mlcrackat\relax
+ \edef\ml@lngthchunki{\eq@mlcrackat}%
+ \edef\ml@lngthchunkii{\the\@tempcnta}%
+ \@tempcnta\ml@lngthchunki\relax\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunki{\the\@tempcnta}%
+ \@tempcnta\ml@lngthchunkii\relax\multiply\@tempcnta8\relax
+ \edef\ml@qlngthchunkii{\the\@tempcnta}%
+ \@tempcnta\MAXCNT\relax
+ \advance\@tempcnta-\eq@mlcrackat\relax
+ \advance\@tempcnta\@ne
+ \edef\revCrackAt{\the\@tempcnta}%
+ \fi}%
+ \@tempcnta\aeb@mLinkCnt\advance\@tempcnta\@ne
+ \edef\aeb@mLinkCnt@{\the\@tempcnta}%
+ \urldef\ml@url\nolinkurl{#2}%
+ \def\SOUL@mlhpreamble{%\begingroup
\mlh@preambleCmdInsert\ef@colorthislink}\hyper@chars
\let\ef@thislinkcolor\@urlcolor
\let\CurrentBorderColor\@urlbordercolor
\let\ml@SOUL@doword@SAVE\SOUL@doword
\let\SOUL@doword\ml@SOUL@doword
- \global\aeb@arrayIndx=0\relax
- \global\advance\aeb@mLinkCnt1\relax
- \special{ps: \ps@mark/_objdef {mLink\the\aeb@mLinkCnt}%
- /type /array /OBJ pdfmark}%
- \def\mlh@preambleCmdInsert{\ml@earlyExecProps{#1}}%
- \def\mlh@postambleCmd{\setLinkPbox{\S{S}\W{0}\A{\URI{#2}}%
- \presets{\ml@nocolor@defaults}
- \QuadPoints{mLink\the\aeb@mLinkCnt}#1}\expandafter
- \gdef\expandafter\ef@thislinkcolor
+ \ifx\eq@mlcrackat\@empty\ml@start@link{\the\aeb@mLinkCnt}{\lngth}\fi
+ \def\mlh@preambleCmdInsert{\ml@MrkLnk{\the\aeb@mLinkCnt}%
+ \ml@earlyExecProps{#1}}%
+ \def\mlh@postambleCmd{%
+ \expandafter
+ \def\expandafter\ef@thislinkcolor
\expandafter{\ef@thislinkcolor}}%
- \aeb@mlh\ml@url\ef@colorthislink\unhcopy\ml@urlbuild\endgroup
+ \aeb@mlh\ml@url\ef@colorthislink\unhcopy\ml@urlbuildi
+ \expandafter\gdef\expandafter\ef@thislinkcolor
+ \expandafter{\ef@thislinkcolor@SAVE}%
+ \immediate\write\@auxout{\string\mlcsarg\string
+ \gdef{mLinkSyCnt\the\aeb@mLinkCnt}{\the\syllableCnt}}% dpsa11
+ \immediate\write\@auxout{\string\mlcsarg
+ \string\gdef{mLinkLngth\the\aeb@mLinkCnt}{\the\aeb@arrayIndx}}%
+ \ifx\eq@mlcrackat\@empty
+ \ml@finish@link{\the\aeb@mLinkCnt}{\lngth}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \iffixmlinks\literalps@out{restore}\fi
+ \else
+ \ml@finish@link{\the\aeb@mLinkCnt}{\ml@qlngthchunki}%
+ \ml@setlink{\the\aeb@mLinkCnt}%
+ \iffixmlinks\literalps@out{restore}\fi
+ \eq@mlcrackinsat\penalty-50
+ \ml@start@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \penalty0\@ifundefined{mLinkLngth\the\aeb@mLinkCnt}{}
+ {\ml@MrkLnk{\aeb@mLinkCnt@}}\unhcopy\ml@urlbuildii
+ \ml@finish@link{\aeb@mLinkCnt@}{\ml@qlngthchunkii}%
+ \ml@setlink{\aeb@mLinkCnt@}\iffixmlinks
+ \literalps@out{restore}\fi
+ \global\advance\aeb@mLinkCnt\@ne
+ \fi\aftergroup\normalcolor\endgroup
}
+\def\ml@start@link#1#2{% Step 1
+ \literalps@out{%
+ /xoMsgB true def^^J%
+ \ps@mark/_objdef {mLink#1}%
+ /type /array /OBJ pdfmark^^J%
+ \ifoldstylequads
+ /mLinkFxup#1\space0 array def
+ \else
+ /bCreateLink mlIsBld #2\space eq not def^^J%
+ bCreateLink{ /mLinkFxup#1\space
+ #2\space array def }if
+ \fi
+ }%
+}
+\def\ml@finish@link#1#2{% Step 4 and 5
+ \ifoldstylequads\else
+ \ifnum\aeb@arrayIndx=0\relax
+ \PackageWarning{aeb_mlink}{%
+ Problem with mLink\the\aeb@mLinkCnt,\MessageBreak
+ Will skip the creation of this link}\fi
+ \literalps@out{%
+ \iffixmlinks
+ \ifnum\aeb@arrayIndx>0
+ save^^J%
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#1\space known {^^J%
+ #1\space
+ #2\space
+ mLinkFxup#1\space
+ quadpointsfixup^^J%
+ \ps@mark{mLink#1} 0 gFixup
+ /PUTINTERVAL pdfmark^^J%
+ }if }if
+ \fi
+ \else
+ bCreateLink {^^J%
+ \mlDict\space/mLinkFxup#1\space known {^^J%
+ \ps@mark{mLink#1} 0 mLinkFxup#1
+ /PUTINTERVAL pdfmark^^J%
+ }if }if
+ \fi}%
+\fi}
\ifHy@colorlinks
\def\ef@colorthislink{\color{\ef@thislinkcolor}}
\else
@@ -308,9 +802,9 @@
\def\SOUL@mlhpreamble{\begingroup
\mlh@preambleCmdInsert\ef@colorthislink}
\def\SOUL@mlheverysyllable{%
- \mlh@setQuadSyllable{\the\SOUL@syllable}%
- \the\SOUL@syllable%
- \SOUL@setkern\SOUL@charkern}%
+ \mlh@setQuadSyllable{\the\aeb@arrayIndx}{\lngth}%
+ {\the\aeb@mLinkCnt}{\the\SOUL@syllable}%
+ \the\SOUL@syllable\SOUL@setkern\SOUL@charkern}%
\def\SOUL@mlheveryspace#1{#1\space\hskip\spaceskip}%
\def\SOUL@mlheveryhyphen{%
\discretionary{%
@@ -320,7 +814,8 @@
}{}{}%
}
\def\SOUL@mlheveryexhyphen#1{%
- \mlh@setQuadSyllable{\SOUL@setkern\SOUL@hyphkern#1}%
+ \mlh@setQuadSyllable{\the\aeb@arrayIndx}{\lngth}%
+ {\the\aeb@mLinkCnt}{\SOUL@setkern\SOUL@hyphkern#1}%
\SOUL@setkern\SOUL@hyphkern#1%
\discretionary{}{}{%
\SOUL@setkern\SOUL@charkern
@@ -337,6 +832,40 @@
\def\SOUL@postamble{\SOUL@mlhpostamble}%
}
\DeclareRobustCommand*\aeb@mlh{\SOUL@mlhsetup\SOUL@}
+\newtoks\mlfrstoftwo \mlfrstoftwo={}
+\newtoks\mlsndoftwo \mlsndoftwo={}
+\newcount\syllableCnt \syllableCnt=0
+\def\SOUL@ckhsetup{\SOUL@setup
+ \def\SOUL@everysyllable{\global\advance\syllableCnt\@ne
+ \ifnum\syllableCnt=\mlcr@ckAt\relax
+ \edef\x{\the\mlfrstoftwo\the\SOUL@syllable\eq@mlhyph}%
+ \global\mlfrstoftwo=\expandafter{\x}\else
+ \ifnum\syllableCnt>\mlcr@ckAt\relax
+ \edef\x{\the\mlsndoftwo\the\SOUL@syllable}%
+ \global\mlsndoftwo=\expandafter{\x}\else
+ \edef\x{\the\mlfrstoftwo\the\SOUL@syllable}%
+ \global\mlfrstoftwo=\expandafter{\x}\fi\fi
+ }%
+ \def\SOUL@everyspace##1{%
+ \ifnum\syllableCnt<\mlcr@ckAt\relax
+ \edef\x{\the\mlfrstoftwo}%
+ \global\mlfrstoftwo=\expandafter{\x##1 }\else
+ \edef\x{\the\mlsndoftwo}%
+ \ifnum\syllableCnt=\mlcr@ckAt\relax
+ \global\mlsndoftwo=\expandafter{\x##1}\else
+ \global\mlsndoftwo=\expandafter{\x##1 }\fi\fi
+ }%
+ \def\SOUL@everyexhyphen##1{\global
+ \ifnum\syllableCnt>\mlcr@ckAt\relax
+ \edef\x{\the\mlsndoftwo}\global
+ \mlsndoftwo=\expandafter{\x##1}\else
+ \edef\x{\the\mlfrstoftwo}\global
+ \mlfrstoftwo=\expandafter{\x##1}\fi
+ }%
+}
+\DeclareRobustCommand*\crackAt[1]{\def\mlcr@ckAt{#1}%
+ \mlfrstoftwo={}\mlsndoftwo={}\syllableCnt=0
+ \SOUL@ckhsetup\SOUL@}
\endinput
%%
%% End of file `aeb_mlink.sty'.