path: root/Master/texmf-dist/source/latex/continue/continue.dtx

% \iffalse meta-comment
%
% continue.dtx
%
%  Author: Peter Wilson (Herries Press) herries dot press at earthlink dot net
%  Copyright 2015, 2018 Peter R. Wilson, Donald Arseneau and Merciadri Luca
%
%  This work may be distributed and/or modified under the
%  conditions of the Latex Project Public License, either
%  version 1.3 of this license or (at your option) any
%  later version.
%  The latest version of the license is in
%    http://www.latex-project.org/lppl.txt
%  and version 1.3 or later is part of all distributions of
%  LaTeX version 2003/06/01 or later.
%
%  This work has the LPPL maintenance status "unmaintained".
%
%  This work consists of the files listed in the README file.
%
%<*driver>
\documentclass{ltxdoc}
\EnableCrossrefs
\CodelineIndex
\setcounter{StandardModuleDepth}{1}
%%%\usepackage{url}
%%%\usepackage[draft=false,
%%%            plainpages=false,
%%%            pdfpagelabels,
%%%            bookmarksnumbered,
%%%            hyperindex=false
%%%           ]{hyperref}
 \begin{document}
   \DocInput{continue.dtx}
 \end{document}
%</driver>
%
% \fi
%
% \CheckSum{12458}
%
% \DoNotIndex{\',\.,\@M,\@@input,\@addtoreset,\@arabic,\@badmath}
% \DoNotIndex{\@centercr,\@cite}
% \DoNotIndex{\@dotsep,\@empty,\@float,\@gobble,\@gobbletwo,\@ignoretrue}
% \DoNotIndex{\@input,\@ixpt,\@m}
% \DoNotIndex{\@minus,\@mkboth,\@ne,\@nil,\@nomath,\@plus,\@set@topoint}
% \DoNotIndex{\@tempboxa,\@tempcnta,\@tempdima,\@tempdimb}
% \DoNotIndex{\@tempswafalse,\@tempswatrue,\@viipt,\@viiipt,\@vipt}
% \DoNotIndex{\@vpt,\@warning,\@xiipt,\@xipt,\@xivpt,\@xpt,\@xviipt}
% \DoNotIndex{\@xxpt,\@xxvpt,\\,\ ,\addpenalty,\addtolength,\addvspace}
% \DoNotIndex{\advance,\Alph,\alph}
% \DoNotIndex{\arabic,\ast,\begin,\begingroup,\bfseries,\bgroup,\box}
% \DoNotIndex{\bullet}
% \DoNotIndex{\cdot,\cite,\CodelineIndex,\cr,\day,\DeclareOption}
% \DoNotIndex{\def,\DisableCrossrefs,\divide,\DocInput,\documentclass}
% \DoNotIndex{\DoNotIndex,\egroup,\ifdim,\else,\fi,\em,\endtrivlist}
% \DoNotIndex{\EnableCrossrefs,\end,\end@dblfloat,\end@float,\endgroup}
% \DoNotIndex{\endlist,\everycr,\everypar,\ExecuteOptions,\expandafter}
% \DoNotIndex{\fbox}
% \DoNotIndex{\filedate,\filename,\fileversion,\fontsize,\framebox,\gdef}
% \DoNotIndex{\global,\halign,\hangindent,\hbox,\hfil,\hfill,\hrule}
% \DoNotIndex{\hsize,\hskip,\hspace,\hss,\if@tempswa,\ifcase,\or,\fi,\fi}
% \DoNotIndex{\ifhmode,\ifvmode,\ifnum,\iftrue,\ifx,\fi,\fi,\fi,\fi,\fi}
% \DoNotIndex{\input}
% \DoNotIndex{\jobname,\kern,\leavevmode,\let,\leftmark}
% \DoNotIndex{\list,\llap,\long,\m@ne,\m@th,\mark,\markboth,\markright}
% \DoNotIndex{\month,\newcommand,\newcounter,\newenvironment}
% \DoNotIndex{\NeedsTeXFormat,\newdimen}
% \DoNotIndex{\newlength,\newpage,\nobreak,\noindent,\null,\number}
% \DoNotIndex{\numberline,\OldMakeindex,\OnlyDescription,\p@}
% \DoNotIndex{\pagestyle,\par,\paragraph,\paragraphmark,\parfillskip}
% \DoNotIndex{\penalty,\PrintChanges,\PrintIndex,\ProcessOptions}
% \DoNotIndex{\protect,\ProvidesClass,\raggedbottom,\raggedright}
% \DoNotIndex{\refstepcounter,\relax,\renewcommand,\reset@font}
% \DoNotIndex{\rightmargin,\rightmark,\rightskip,\rlap,\rmfamily,\roman}
% \DoNotIndex{\roman,\secdef,\selectfont,\setbox,\setcounter,\setlength}
% \DoNotIndex{\settowidth,\sfcode,\skip,\sloppy,\slshape,\space}
% \DoNotIndex{\symbol,\the,\trivlist,\typeout,\tw@,\undefined,\uppercase}
% \DoNotIndex{\usecounter,\usefont,\usepackage,\vfil,\vfill,\viiipt}
% \DoNotIndex{\viipt,\vipt,\vskip,\vspace}
% \DoNotIndex{\wd,\xiipt,\year,\z@}
% \DoNotIndex{\0,\1,\2,\3,\4,\5,\6,\7,\8,\9}
%
% \def\dtxfile{continue.dtx}
% \changes{v0.1}{2015/12/09}{First trial release}
% \def\fileversion{v0.1} \def\filedate{2015/12/09}
% \changes{v0.2}{2018/12/09}{Second trial release, markers can be on all pages and stopped and started at will}
% \def\fileversion{v0.2} \def\filedate{2018/12/09}

% ^^A Flag an option
% \makeatletter
% \newcommand{\OptFont}{\fontencoding\encodingdefault
%   \fontfamily\sfdefault
%   \fontseries\mddefault
%   \fontshape\updefault
%   \small}
% 
% \newcommand{\DescribeOption}{\leavevmode\@bsphack
%   \begingroup\MakePrivateLetters\Describe@Opt}
% \newcommand{\Describe@Opt}[1]{\endgroup
%   \marginpar{\raggedleft\PrintDescribeOption{#1}}%
%   \SpecialOptIndex{#1}\@esphack\ignorespaces}
%   \newcommand*{\PrintDescribeOption}[1]{\strut \OptFont #1\ }
%   \newcommand*{\PrintOptionName}[1]{\strut \OptFont #1\ }
% \newcommand*{\SpecialOptIndex}[1]{\@bsphack
%   \index{#1\actualchar{\protect\sffamily#1}
%     (option)\encapchar usage}%
%   \index{options:\levelchar#1\actualchar
%     {\protect\sffamily#1}\encapchar usage}\@esphack}
% 
% \makeatother
% 
% \providecommand{\phantomsection}{}
% %\OnlyDescription ^^A comment this out for the full glory
% \setcounter{StandardModuleDepth}{1}
% \makeatletter
%   \@mparswitchfalse
% \makeatother
% \renewcommand{\MakeUppercase}[1]{#1}
% \pagestyle{headings}
% \newenvironment{addtomargins}[1]{%
%   \begin{list}{}{%
%     \topsep 0pt%
%     \addtolength{\leftmargin}{#1}%
%     \addtolength{\rightmargin}{#1}%
%     \listparindent \parindent
%     \itemindent \parindent
%     \parsep \parskip}%
%   \item[]}{\end{list}}
% \MakeShortVerb{\|}
%
% \newcommand*{\Lpack}[1]{\textsf {#1}}           ^^A typeset a package
% \newcommand*{\Lopt}[1]{\textsf {#1}}            ^^A typeset an option
% \newcommand*{\file}[1]{\texttt {#1}}            ^^A typeset a file
% \newcommand*{\Lcount}[1]{\textsl {\small#1}}    ^^A typeset a counter
% \newcommand*{\pstyle}[1]{\textsl {#1}}          ^^A typeset a pagestyle
% \newcommand*{\Lenv}[1]{\texttt {#1}}            ^^A typeset an environment
% \newcommand{\BC}{\textsc{bc}}
% \newcommand{\AD}{\textsc{ad}}
%
% \title{\Lpack{Continue}: Continuation marks on (by default odd) pages\thanks{This
%        file (\texttt{\dtxfile}) has version number \fileversion, last revised
%        \filedate.}}
%
% \author{%
% Peter Wilson\thanks{\texttt{herries dot press at earthlink dot net}} with 
% Donald Arseneau and Merciadri Luca \\
% Herries Press
% }
% \date{\filedate}
% \maketitle
% \begin{abstract}
%    The \Lpack{continue} package provides for a variety of continuation indicators on
% pages in a twosided document when the text continues on the following
% page. The default is to only mark odd pages but all pages can be marked or marking
% can be stopped or started at any point.  
% \end{abstract}
% \tableofcontents
%
% 
%
% \section{Introduction}
%
%    In some types of documents it is customary or convenient to indicate at the
% bottom of a page that the text continues on the following page. For example, when
% a two page exam sheet is printed twosided it could be advantageous for the student
% to have an indication on the first page that there are further questions on the back 
% of the page. Another instance is when documents are printed in the expectation
% that they will be read by someone in front of an audience, so in order to minimise
% any hesitation as a page is turned over, the first word on the following page is printed
% at the bottom of the preceeding page.
%
% This manual is typeset according to the conventions of the
% \LaTeX{} \textsc{docstrip} utility which enables the automatic
% extraction of the \LaTeX{} macro source files~\cite{GOOSSENS94}.
%
%    Section~\ref{sec:usc} describes the usage of the package.
% Commented package code may be in later sections.
%
%
% \section{The \Lpack{continue} package} \label{sec:usc}
%
%    The \Lpack{continue} package is an amalgam of modified versions of
% two packages --- \Lpack{fwlw} (First Word, Last Word) by Donald 
% Arseneau~\cite{FWLW} which% among other things gets the first word
% on the next page and \Lpack{turnpageetex} by Merciadri Luca~\cite{TURNPAGEETEX}
% for placing something at the bottom of the text block. 
%
% The \Lpack{fwlw} package includes the following statement:
%
%     Copyright (C) 1993,1995 by Donald Arseneau
%     Vancouver, Canada, email asnd@triumf.ca
%     This software package may be freely used, transmitted, reproduced,
%     or modified provided that this notice is left intact.
%
% In this instance I have modified the original package as allowed above.
%
%    With respect to the \Lpack{turnpageetex} package this was released under the
% LaTeX Project Public License and I have taken the liberty of extending its functionality
% slightly, as allowed.
%
%
%
% \subsection{Options}
%
%     There are three options that can be used when calling the package denoting the
% kind and position of the continuation marker.
%
% \DescribeOption{margin}
%    With this option the continuation marker is placed in the margin aligned with
% the bottom of the text block. If the option is not used then the continuation
% marker is placed below the text text block ending at the outer margin.
%
% \DescribeOption{word}
%    With this option the package attempts to use the first `word' on the following
% verso page as the continuation marker. If the option is not used then a user
% specified marker is employed.
%
% \DescribeOption{allpages}
%    With this option the package tries to provide a marker on each page, whether 
% odd or even.
% The default is to only provide markers on odd pages.
%
%  The relevant portions of the introduction to the \Lpack{fwlw} package are: \\
% \begin{quotation}
%  The \Lpack{fwlw} package provides a mechanism to determine ...
%  the first word on the \textit{next} page.  The `words'
%  you see may not be real words, but any unbreakable object.
%
% ...
%
%  ... labelling does not make much sense when |\chapter| generates a page
%  break, so the last page before a |\chapter| (or any |\clearpage|) gets 
%  a blank "next word" ...
%
%  Note that `words' may unfortunately be things like:
% \begin{itemize}
%    \item two~words
%    \item |[ ]|Word  ( |[ ]| represents a parindent box)
%    \item a whole displayed equation
%    \item the first column of an aligned equation
%    \item anomalously blank, if there are |\write|s or split footnotes etc.
%    \item partial words like  par-  or  -tial due to hyphenation.
% \end{itemize}
% \end{quotation}
%
%    In essence, the `word' might not be what you might expect, but for most documents
% the results are good. However, page~3 of the example file |trycontinue.tex| prints
% a blank word as the continuation marker because the first line on the following
% page is the start of a paragraph which starts with a space.
%
%
%
% \subsection{Macros}
%
% When the \Lopt{word} option is not used the following macros are available:
%
% \DescribeMacro{\flagcont}
%    This command defines the continuation mark. Its default specification is: \\
%    |\newcommand*{\flagcont}{Continued}| \\
% It can be changed in the document's preamble to, perhaps: \\
%    |\renewcommand*{\flagcont}{---$>$}| \\
% to print a right pointing arrow.
%
% \DescribeMacro{\flagend}
%    This command defines the continuation mark when the last odd page is the final
% page (i.e. when there is no following recto page). Its default specification is: \\
%    |\newcommand*{\flagend}{End}| \\
% but it can be changed in the document's preamble.
%
% When the \Lopt{word} option is used the following macros are available:
%
% \DescribeMacro{\flagword}
%     This command specifies how the continuation word is formated. Its definition is: \\
%    |\newcommand*{\flagword}{\preflagword\usebox\NextWordBox\postflagword}| \\
% where |\NextWordBox| holds the first word on the next recto page (empty if there
% is no next recto page).
%
% \DescribeMacro{\preflagword}
%    This command is printed before the word continuation marker. Its default definition is: \\
%    |\newcommand*{\preflagword}{}| \\
% but can be redefined in the document preamble to put, perhaps, an opening brace
% before the word like: \\
%    |\renewcommand*{\preflagword}{[}|
%
% \DescribeMacro{\postflagword}
%    Similar to |\preflagword| except that it is printed after the marker. Its default 
%  definition is: \\
%    |\newcommand*{\postflagword}{}| \\
%
% \DescribeMacro{\contsep}
% \DescribeMacro{\contdrop}
%     When the \Lopt{margin} option is used the continuation marker is set a distance
% |\contsep| to the right of the textblock. When \Lopt{margin} is not used then the
% marker is set a distance |\contdrop| below the textblock. Their default values
% are set by: \\
% |\setlength{\contsep}{\marginparsep}| and |\setlength{\contdrop}{0.5\footskip}|
%
% \section{An example document}
%
% You can use the document |trycontinue.tex| to experiment with the options.
% It may take two (pdf)LaTeX runs for the continuation marks to settle down to their
% final values and positions.
%
%    \begin{macrocode}
%<*try>
%% trycontinue.tex  An example usage of the continue package (2018/12/09)
%%
%% The document is set with footnotes on A6 paper (I wanted
%% to get many pages from little text). It is not pretty but does shows 
%% some of the continue package's capabilities. Try modifying it by changing 
%% options, etc., and see what happens.
%% 
%% You can try and contact me, Peter Wilson at herries.press@earthlink.net, if there
%% are problems other than the aesthetics.
%%
\documentclass[%
  twoside,
  a6paper
  ]%
  {memoir}

\usepackage%
%%  [margin]%
%%  [word]%
%%  [margin,word]%
  [margin,word,allpages]%
  {continue}
\usepackage{lipsum}
%%  try this without the word option
%%\renewcommand{\flagcont}{---$>$}

\renewcommand*{\preflagword}{[}

\begin{document}

First\footnote{Foot 1} \lipsum[1]

Second\footnote{Foot 2} \lipsum[2]

Third\footnote{Foot 3} \lipsum[3]

\contstop % stop marking

Fourth\footnote{Foot 4} \lipsum[4]

Fifth\footnote{Foot 5} \lipsum[5]

\contgo % start marking

Sixth\footnote{Foot 6} \lipsum[6]

\end{document}

%</try>
%    \end{macrocode}
%
% \section{The \Lpack{continue} code} \label{sec:code}
%
%    Announce the name and version of the package, which requires
% \LaTeXe{} and the \Lpack{atbegshi}, \Lpack{picture}, \Lpack{zref-abspage} and
% \Lpack{zref-lastpage} packages and has options \Lopt{margin}, \Lopt{word} and \Lopt{allpages}
% (added \Lopt{allpages} 2018/11/30).
%    \begin{macrocode}
%<*usc>
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{continue}[2018/12/09 v0.2 Continues on the following page]
 \PackageInfo{continue}{This is continue using e-TeX.}

%    \end{macrocode}
% \begin{macro}{\ifcontmargin}
% \begin{macro}{\ifcontword}
% Now for the options.
%    \begin{macrocode}
 \newif{\ifcontmargin} \contmarginfalse
 \newif{\ifcontword}   \contwordfalse
 \newif{\ifcontallpages} \contallpagesfalse
 \DeclareOption{margin}{\contmargintrue}
 \DeclareOption{word}{\contwordtrue}
 \DeclareOption{allpages}{\contallpagestrue}
 \ProcessOptions

%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\ifc@go}
% \begin{macro}{\contgo}
% \begin{macro}{\contstop}
% Continuation marks will stop after |\contstop| but will continue after |\contgo| 
% (the default)
%    \begin{macrocode}
\newif{\ifc@go} \c@gotrue
\newcommand{\contgo}{\c@gotrue}
\newcommand{\contstop}{\c@gofalse}

%    \end{macrocode}%
% \end{macro}
% \end{macro}
% \end{macro}
%
% And the required packages needed by the original \Lpack{turnpageetex} package.
%
%    \begin{macrocode}
 \RequirePackage{atbegshi}
 \RequirePackage{picture}
 \RequirePackage{zref-abspage}
 \RequirePackage{zref-lastpage}

%    \end{macrocode}
%
% The next chunk of code is a revised version of the \Lpack{fwlw} package. I don't
% really understand it but I have a feeling that certain parts are irrelevant
% to the purposes at hand.
%
%    \begin{macrocode}
% --------------------------------------------------------------------------
%
%    \end{macrocode}
%
% \begin{macro}{\LWC@pen}
% Declare a \textit{unique} penalty flag as a value.
%    \begin{macrocode}
 \mathchardef\LWC@pen 13452
%    \end{macrocode} 
% \end{macro}
%
% \begin{macro}{\FirstWordBox}
% \begin{macro}{\NextWordBox}
% \begin{macro}{\LastWordBox}
% \begin{macro}{\LWC@box}
% \begin{macro}{\LWC@saved}
% Allocate box registers
%    \begin{macrocode}
 \newbox\FirstWordBox     \global\setbox\FirstWordBox\hbox{}
 \newbox\NextWordBox      \global\setbox\NextWordBox\hbox{}
 \newbox\LastWordBox      \global\setbox\LastWordBox\hbox{}
 \newbox\LWC@box           \global\setbox\LWC@box\hbox{}
 \newbox\LWC@saved
%    \end{macrocode} 
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\FWLWCnormal@L@output}
%  Shell around old output routine.  Gets first word from next page by
%  letting TeX continue with |\vsize=0| to get a look at the next line.
%  Values of |\outputpenalty| for |\specialoutput| ( -10001 to -19999 ) are
%  simply run through the output routine.
%  |\supereject| and |\clearpage| give a blank "next word".
%  When called after making a stub-page the stub is returned to the
%  vertical list, the previous page is restored and shipped out normally,
%  but knowing what the next word will be.
%    \begin{macrocode}
 \edef\FWLWCnorm@L@output{\the\output}

 \output{\@tempswafalse
 \ifnum \outputpenalty>-\@MM \ifnum\outputpenalty<-\@M \@tempswatrue\fi\fi
 \if@tempswa % special (float) output
%  \message{Float handler: penalty=\the\outputpenalty}%
    \FWLWCnorm@L@output
 \else
   \ifvoid\LWC@saved % end of real page
%    \message{End of real page}%
      \global\setbox\LWC@saved\copy\@cclv % save page
%\begin{comment}
      \setbox\@tempboxa\vbox{\unvbox\@cclv \unskip\unkern\unpenalty%     
       \unskip\unkern\unpenalty \unskip\unkern\unpenalty
        \setbox\@tempboxa\lastbox
        \LWC@getlast@word\@tempboxa\LastWordBox
      }
%\end{comment}
      \ifnum\outputpenalty>-\@MM % not \supereject
        \xdef\LWC@vsize{\global\vsize\the\vsize 
           \global\holdinginserts\the\holdinginserts}%
        \global\vsize\z@ \global\holdinginserts\@ne 
      \else % \supereject, just output, don't look for word on next page
%      \message{caused by super-eject.}
        \global\setbox\@cclv\box\LWC@saved
        \global\setbox\NextWordBox\hbox{}%
        \FWLWCnorm@L@output
        \global\setbox\FirstWordBox\box\NextWordBox
      \fi
   \else % saved page => just did tiny page to get next word
%    \message{Just got next line:}{\tracingall\showboxdepth2 \showbox\@cclv}%
      \setbox\@tempboxa\vbox{\penalty\LWC@pen\unvcopy\@cclv \LWC@getall@boxes
        \ifvbox\LWC@box \penalty\LWC@pen\unvbox\LWC@box \LWC@getall@boxes\fi
        \ifvbox\LWC@box \global\setbox\NextWordBox\hbox{}\else
          \LWC@getfirst@word\LWC@box\NextWordBox
        \fi}%  Return tiny page to page list:
      \unvbox\@cclv \ifnum\outputpenalty<\@M \penalty\outputpenalty\fi
      \LWC@vsize\relax
      \global\setbox\@cclv\box\LWC@saved
      \FWLWCnorm@L@output
      \global\setbox\FirstWordBox\box\NextWordBox
 \fi\fi}

%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\LWC@getlast@word}
% Globally get last "word" from a box |#1| into another box |#2|
%
%    \begin{macrocode}
 \def\LWC@getlast@word#1#2{\setbox\@tempboxa\vbox{\hsize\maxdimen \@parboxrestore
   \hyphenpenalty\@M \exhyphenpenalty\@M 
   \rightskip\fill \looseness\@M \linepenalty\z@
   \noindent\unhbox#1\endgraf
   \unskip\unkern\unpenalty \global\setbox\LWC@box\lastbox
   }\LWC@repack{#2}}

%    \end{macrocode}
% \end{macro}
% \begin{macro}{\LWC@getfirst@word}
% Globally get first "word" from a box |#1| into another box |#2|
%
%    \begin{macrocode}
 \def\LWC@getfirst@word#1#2{\setbox\@tempboxa\vbox{\@parboxrestore
   \parshape\thr@@ \z@\z@ \z@\z@ \z@\maxdimen \parfillskip\fill
   \hyphenpenalty\@M \exhyphenpenalty\@M 
   \hbadness\@MM \overfullrule\z@ \hfuzz\maxdimen
   \ifhbox#1\noindent
    \vadjust{\penalty\LWC@pen}\penalty-\@M\unhbox#1% eliminate previous \leftskip
   \else\ifvbox#1\penalty\LWC@pen\unvbox#1\fi\fi
   \endgraf
   \@tempcnta\z@  \LWC@getall@boxes}\LWC@repack{#2}}

%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\LWC@getall@boxes}
% Go through a vertical list that starts with special penalty
%
%    \begin{macrocode}
 \def\LWC@getall@boxes{\global\setbox\LWC@box\lastbox \unskip\unkern \unskip\unkern
   \let\@tempa\relax
   \ifvoid \LWC@box \advance\@tempcnta\@ne \else \@tempcnta\z@ \fi
   \ifnum\lastpenalty=\LWC@pen \else \unpenalty\fi
   \ifnum\lastpenalty=\LWC@pen \else \unpenalty\fi
   \ifnum\lastpenalty=\LWC@pen \else \ifnum\@tempcnta<5
     \let\@tempa\LWC@getall@boxes \fi \fi \unpenalty \@tempa}

%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\LWC@repack}
% Put contents of |\LWC@box| into hbox |#1|
%
%    \begin{macrocode}
 \def\LWC@repack#1{\global\setbox#1\hbox{\ifhbox\LWC@box
    \unhbox\LWC@box\unskip\unskip\unpenalty\unskip
   \else\ifvbox\LWC@box\box\LWC@box\fi\fi}}
%    \end{macrocode} 
% \end{macro}
%
% The next chunk of code is a revised version of the original \Lpack{turnpageetex} package.
%    \begin{macrocode}
% --------------------------------------------------------------------------
%
%    \end{macrocode}
%
% \begin{macro}{\preflagword}
% \begin{macro}{\postflagword}
% \begin{macro}{\flagcont}
% \begin{macro}{\flagend}
% \begin{macro}{\flagword}
% \begin{macro}{\contsep}
% \begin{macro}{\contdrop}
% The user's macros
%
%    \begin{macrocode}

 \newcommand*{\preflagword}{}
 \newcommand*{\postflagword}{}
 \newcommand*{\flagcont}{Continued}
 \newcommand*{\flagend}{End}
 \newcommand*{\flagword}{\preflagword\usebox\NextWordBox\postflagword}
 \newlength{\contsep}\setlength{\contsep}{\marginparsep}
 \newlength{\contdrop}\setlength{\contdrop}{0.5\footskip}
%    \end{macrocode}
% Adjust |\flagcont| when the \Lopt{word} option is used.
%    \begin{macrocode}
 \ifcontword
  \let\flagcont\flagword
 \fi
%    \end{macrocode}
%
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\c@ntoddpagepos}
% |\c@ntoddpagepos| calculates the position of the marker on odd pages.
%    \begin{macrocode}
 \newcommand{\c@ntoddpagepos}{%
     \dimen1=1in
     \advance\dimen1 by \textwidth
     \advance\dimen1 by \oddsidemargin
     \dimen3=1in
     \advance\dimen3 by \topmargin
     \advance\dimen3 by \headheight
     \advance\dimen3 by \headsep
     \advance\dimen3 by \textheight
     \ifcontmargin
       \advance\dimen1 by \contsep
     \else
       \advance\dimen3 by \contdrop
     \fi
 }
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\c@ntevenpagepos}
% |\c@ntevenpagepos| calculates the position of the marker on even pages.
%    \begin{macrocode}
 \newcommand{\c@ntevenpagepos}{%
     \dimen1=1in
     \advance\dimen1 by \textwidth
     \advance\dimen1 by \evensidemargin
     \dimen3=1in
     \advance\dimen3 by \topmargin
     \advance\dimen3 by \headheight
     \advance\dimen3 by \headsep
     \advance\dimen3 by \textheight
     \ifcontmargin
       \advance\dimen1 by \contsep
     \else
       \advance\dimen3 by \contdrop
     \fi
 }
%    \end{macrocode}
% \end{macro}
%
%
% \begin{macro}{\c@outcontpage}
% Output continued marked page.
%    \begin{macrocode}
\newcommand{\c@outcontpage}{%
  \ifnum\zref@extract{LastPage}{abspage}>\c@abspage
    \ifcontmargin
      \put(\dimen1,-\dimen3){{\flagcont}}%
    \else
      \put(\dimen1,-\dimen3){\llap{\flagcont}}%
    \fi
  \else
    \ifcontmargin
      \put(\dimen1,-\dimen3){{\flagend}}%
    \else
      \put(\dimen1,-\dimen3){\llap{\flagend}}%
    \fi
  \fi
}% end of \c@outcontpage
%    \end{macrocode}
% \end{macro}
%
% Output the page and marks.
%    \begin{macrocode}
\AtBeginShipout{%
\AtBeginShipoutUpperLeft{%
 \ifc@go
  \ifodd\c@page
    \c@ntoddpagepos
    \c@outcontpage
  \else
    \ifcontallpages
      \c@ntevenpagepos
      \c@outcontpage
    \fi
  \fi
 \fi
} % end AtBeginShipoutUpperLeft
} % end AtBeginShipout
%
%</usc>
%    \end{macrocode}
%
%
% \bibliographystyle{alpha}
% \begin{thebibliography}{GMS94}
%
% \bibitem[Ars95]{FWLW}
% Donald Arseneau.
% \newblock \emph{fwlw.sty (First Word, Last Word)}.
% \newblock 1995. (Available from CTAN in \texttt{macros/latex/contrib/fwlw}).
%
% \bibitem[GMS94]{GOOSSENS94}
% Michel Goossens, Frank Mittelbach, and Alexander Samarin.
% \newblock \emph{The LaTeX Companion}.
% \newblock Addison-Wesley Publishing Company, 1994.
%
% \bibitem[Luc15]{TURNPAGEETEX}
% Merciadri Luca.
% \newblock \emph{turnpageetex.sty}.
% \newblock 2011. (Available from CTAN in \texttt{macros/latex/contrib/turnthepage}).
%
% \end{thebibliography}
%
% \PrintIndex
%     
% \Finale
%
% \endinput



%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}