gmverb (24oct10)

git-svn-id: svn://tug.org/texlive/trunk@20184 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 356 insertions, 205 deletions

diff --git a/Master/texmf-dist/tex/latex/gmverb/gmverb.sty b/Master/texmf-dist/tex/latex/gmverb/gmverb.sty
index b3d4cda16d2..09740e33966 100644
--- a/Master/texmf-dist/tex/latex/gmverb/gmverb.sty
+++ b/Master/texmf-dist/tex/latex/gmverb/gmverb.sty
@@ -1,35 +1,131 @@
-%
-% \GetFileInfo{gmverb.sty}
-% \title{The \pk{gmverb} Package\thfileinfo}
-% \author{Natror (Grzegorz Murzynowski)}
-% \date{\fakeonum[0.6]{\today}}
-% \maketitle
-%%
-%% This is (a~documentation of) file \pk{gmverb.sty},
-%% intended to be used with \LaTeXe\ as a~package for
-%% a~slight redefinition of the |\verb| macro and \env{verbatim}
-%% environment and for short verb marking such as \verb+|\mymacro|+.
-%% \medskip
+%% 
+% \skiplines
+%<*master>
+%% \iffalse ^^A we skip the debug setting
+\IfFileExists{\string~/bin/gen_and_xela}{\errorcontextlines=1000 }{}
+%% \fi
+%% ^^A $Id: TheUltimateMaster.gmd,v 0.250 2010/10/24 14:42:35 natror Exp natror $
+% \endskiplines
+%
+%% \BundleInfoFromName{gmverb}
+%% \title{The \pk {gmverb} Package\thfileinfo }
+%% \author{Grzegorz Murzynowski}
+%% \maketitle
 %%
-% \begin{copyrnote}
-%
-%%Written by Natror (Grzegorz Murzynowski),
-%% natror at o2 dot pl
+%% \let\ty\emph \let\df\dekfracc
 %%
-%% \copyright\,2005, 2006, 2007, 2008, 2009, 2010 by Natror (Grzegorz Murzynowski).
+%% \begin{copyrnote}
 %%
+%% 
+%% Copyright ©\, 2005, 2006, 2007, 2008, 2009, 2010
+%% by Grzegorz ‘Natror’ Murzynowski
+%% natror (at) o2 (dot) pl
+%% 
 %% This program is subject to the \LaTeX\ Project Public License.
-%% See \url{http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html} ^^A
+%% See ^^A
+%% \url{http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html} ^^A
 %% for the details of that license.\rrthis
 %%
-%% LPPL status: "author-maintained".\par
+%% \acro{LPPL} status: "author-maintained". \par
 %%
-%% Many thanks to my \TeX\ Guru Marcin Woli\nacute ski for his \TeX nical ^^A
-%% support.\par
-%\end{copyrnote}
+%% 
+%% 
+%% 
+%% 
+%% For the documentation please refer to the file(s)
+%% \file{gmverb.{gmd,pdf}}.
+%%
+%% \end{copyrnote}
+%% 
+%
+%
+% \skiplines
+%</master>
+% \endskiplines
+%
+%
+%% 
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{gmverb}
+    [2010/09/07 v0.95 After shortvrb (FM) but my way (GM)]
+
+
+%<*master>
+%
+% (A handful of meta-settings skipped)
+% \skiplines
+\def\Name#1#2{\expandafter#1\csname#2\endcsname}
+
+% The »v« letter before version number is obligatory and will be
+% passed further.
+\def\ProvideDateVersion#1[#2 v#3]{%
+  \Name\def{#1Date}{#2}%
+  \Name\def{#1Version}{v#3}%
+}
+
+\def\ProvideInfo#1[#2 v#3 #4]{%
+  \ProvideDateVersion{#1}[#2 v#3]%
+  \Name\def{#1Info}{#4}%
+}
+
+\def\ProvideLeafInfo#1[#2 v#3 #4]{%
+  \ProvideDateVersion{#1}[#2 v#3]%
+  \Name\def{#1LeafInfo}{#4}%
+}
+
+\def\gmutilsThanks{%
+  Many thanks to my \TeX\ Guru Marcin Woliński for his \TeX nical
+  support.%
+}
+
+% \endskiplines
+%</master>
+%\skiplines we skip the driver
+%<*master>
+\ifnum\catcode`\@=12
+
+
+\documentclass[debug, countalllines, codespacesgrey, outeroff,
+%
+pagella, trebuchet, cursor, fontspec=quiet]{gmdocc}
+
+\usepackage{eufrak}% for |\continuum| in the commentary.
+\twocoltoc
+
+%
+%
+
+\begin{document}
+
+\addtocontents{toc}{\unexpanded{\let\thfileinfo\relax}}
+
+\def\gmdExt{%
+    sty%
+}
+
+\DocInput{\jobname.\gmdExt}
+
+\PrintChanges
+\thispagestyle{empty}
+\typeout{%
+  Produce change log with^^J%
+  makeindex -r -s gmglo.ist -o \jobname.gls \jobname.glo^^J
+  (gmglo.ist should be put into some texmf/makeindex directory.)^^J}
+\typeout{%
+  Produce index with^^J%
+  makeindex -r \jobname^^J}
+\afterfi{\end{document}}
+
+\fi% of driver pass
+%</master>
+%\endskiplines
+%
+% \enoughpage 18
+% \tableofcontents
 %
 % \ChangesStart{}{1000/00/00}
-% 
+%
 % \chschange{v0.70}{06/8/15}{523}
 % \chschange{v0.71}{06/9/04}{596}
 % \chschange{v0.72}{06/9/05}{660}
@@ -56,33 +152,13 @@
 % \chschange{v0.93}{2010/3/4}{1035}
 % [ a bug fix in \cmd\scanverb\space (halfing the hashes)]
 % \toCTAN{2010/03/04 v0.93}
+% \chschange{v0.94}{2010/07/07}{979}
+% [wrapping the \ac{UTF-8} dashes' setting in a \protect\XeTeX's conditional]
+% \toCTAN{2010/07/07 v0.94}
+%
+% \chschange{}{2010/10/24}{1040}
 %
-% \skiplines we skip the driver
-\ifnum\catcode`\@=12
-
-\documentclass [debug, countalllines, codespacesgrey, pagella, trebuchet, cursor] {gmdocc}
-\twocoltoc
-\begin{document}
-\DocInput{\jobname.sty}
-% \typeout{%
-%   Produce index with^^J%
-%   makeindex -r \jobname^^J}
-%
-% \typeout{%
-%   Produce change log with^^J%
-%   makeindex -r -s gmglo.ist -o \jobname.gls \jobname.glo^^J
-%   (gmglo.ist should be put into some texmf/makeindex directory.)^^J}
-\afterfi{\end{document}}
-\fi
-%\endskiplines
-
-\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{gmverb}
-    [2010/03/04 v0.93 After shortvrb (FM) but my way (GM)]
-
 %
-% \tableofcontents
-% 
 % \division{Intro, usage}
 %
 % This package redefines the |\verb| command and the \env{verbatim}
@@ -92,10 +168,10 @@
 % \env{verbatim}-like environments provided their contents would be not
 % \emph{horribly} long (as long as a macro's argument may be at most).
 %
-% This package also allows the user to declare a chosen char(s) as 
+% This package also allows the user to declare a chosen char(s) as
 % a `short verb' e.g., to write \verb+|\a\verbatim\example|+ instead of
 % \verb+\verb|\a\verbatim\example|+.
-% \dekmedskip 
+% \dekmedskip
 %
 % The \pk{gmverb} package redefines the |\verb| command and the
 % \env{verbatim} environment in such a~way that | |, |{| and |\| are
@@ -119,11 +195,11 @@
 % \stanza
 % Another difference is the \TextUsage\verbeolOK\ declaration
 % (\acro{OCSR}). Within its scope, |\verb| allows an
-% end of a~line in its argument and typesets it just as a~space. 
+% end of a~line in its argument and typesets it just as a~space.
 %
 % As in the standard version(s), the plain |\verb| typesets the spaces
-% blank and |\verb*| makes them visible. 
-% 
+% blank and |\verb*| makes them visible.
+%
 % Moreover, \pk{gmverb} provides the \TextUsage\MakeShortVerb\ macro
 % that takes a~one-char control sequence as the only argument and
 % turns the char used into a~short verbatim delimiter, e.g., after
@@ -154,18 +230,18 @@
 % There's one more declaration provided by \pk{gmverb}:
 % \TextUsage\dekclubs, which is a~shorthand for
 % \verb+\MakeShortVerb\|+, \TextUsage*{\dekclubs*}\ for
-% \verb+\MakeShortVerb*\|+ and \TextUsage\olddekclubs\ for 
-% \verb+\OldMakeShortVerb\|+.  
+% \verb+\MakeShortVerb*\|+ and \TextUsage\olddekclubs\ for
+% \verb+\OldMakeShortVerb\|+.
 %
-% There's one more declaration, \TextUsage\edverbs\ that makes 
+% There's one more declaration, \TextUsage\edverbs\ that makes
 % \cs{[} %^^A]
 % checks if the next token is an active char and opens an |\hbox| if
-% so. That is done  
+% so. That is done
 % so that you can write (in  |\edverbs|' and |\dekclubs|' scope)
 %\[\verb+\[|<verbatim stuff>|\]+\]
-% instead of 
+% instead of
 %\[\verb+\[\hbox{|<verbatim stuff>|}\]+\]
-% to get a~displayed shortverb. 
+% to get a~displayed shortverb.
 %
 % Both versions of |\dekclubs| \acro{OCSR}.
 %
@@ -190,27 +266,33 @@
 % curly braces because those are recatcoded to
 % ‘other’. But if you make some other pair of chars  category 1 and 2
 % that are not on the \cmd\dospecials\ list, then you can wrap the
-% arguments in those chars, but what for?}, 
+% arguments in those chars, but what for?},
 % \dc * m a~char for group starter (for catcode 1), has to be
 % unbraced,
 % \dc * m a~char for group ender (for catcode 2), has to be
-% unbraced, 
+% unbraced,
 % \opt (optional) a~char for verbatim math shift (for catcode 3); it has
 % to be in square brackets if present. If
 % absent, nothing is set for the verbatim math shift,
 % \opt (optional) a~char for the shorthand for |\metachar|; it has to be
-% in square brackets if present.
+% in square brackets if present. If provided, e.g., |⁄››| as I suggest
+% in |\GMverbatimspecials|, then it itself becomes an active char
+% let-equal to |\meta|, and a \CS made of it, |⁄›⁄›| in this example,
+% becomes |\string|.
 % \dc b optional in curly braces, additional stuff (commands) to be
 % executed in a~verbatim.
 % \end{enumargs}
-% For example, after telling \TeX 
-% \[|\verbatimspecials ⁄⁄ ⁄« ⁄» [ ⁄¿ ] [ ⁄› ] {\def⁄string⁄|{$\vert$}}|\] (the
+% All the specials defined this way, except the meta char, if preceded
+% with the escape char, will be typeset verbatim.
+%
+% For example, after telling \TeX
+% \[|\verbatimspecials ⁄⁄ ⁄« ⁄» [ ⁄¿ ] [ ⁄›› ] {\def⁄›⁄|{$\vert$}}|\] (the
 % slash is Unicode Fractional Slash, spaces are ignored) you
-% can write \[\verb:|\macro⁄⁄arg⁄«arg. ⁄¿n+1⁄¿⁄»\⁄›[No⁄›]Value⁄›(T⁄⁄|F⁄›)|:\] to get
+% can write \[\verb:|\macro⁄⁄arg⁄«arg. ⁄¿n+1⁄¿⁄»\⁄››[No⁄››]Value⁄››(T⁄⁄|F⁄››)|:\] to get
 % \[|\macro⁄arg«arg. ¿n+1¿»\›[No›]Value›(T⁄|F›)|\]%^^A|
 %
-% To get a~‘verbatim special’ verbatim, precede it with the  ‘verbatim
-% escape’: |⁄⁄⁄⁄ ⁄⁄⁄« ⁄⁄⁄» ⁄⁄⁄¿ ⁄⁄⁄›| in the example above.
+% ^^A % To get a~‘verbatim special’ verbatim, precede it with the  ‘verbatim
+% ^^A % escape’: |⁄⁄⁄⁄ ⁄⁄⁄« ⁄⁄⁄» ⁄⁄⁄¿ ⁄⁄⁄›| in the example above.
 %
 % Note also that \verb+⁄⁄|+ is a~control sequence so it doesn't
 % delimit the short verbatim \verb+|+'s argument.
@@ -254,73 +336,95 @@
 % arguments. Broken bar is declared as
 % \[|\verbDiscretionaryHyphen{"A6}{¦}|\]
 %
+% \stanza Since version 0.95 (August 2010) this package also provides
+% the |\VerbatimPitch| declaration that modifies the \env{verbatim}
+% environments and derivatives so that the environment contents
+% (recatcoded, i.e.\ “sanitised”) are wrapped in the macro
+% |\VerbatimContents| and therefore available after environment's end
+% (after |\endverbatim| to be precise, so also in the end-def of a
+% derivative verbatim).
+%
+% This may be useful for \TeX nical examples: you can  rescan the
+% contents of a verbatim with |\scantokens| and execute/typeset it.
+% Such a thing is done in the \pk{gmdoc} package, see the
+% \env{verbatim@p} environment.
+%
 %
 %
 % \subdivision{The package options}
 % As many good packages, this also does not support any options.
 %
 % \begin{gmlonely}
-%   \subdivision{Installation}
-%
-%   Unpack the \file{gmverb-tds.zip} archive (this is an archive
-%   conforming the \acro{TDS} standard, see \file{CTAN/tds/tds.pdf})
-%   in a~\file {texmf} directory or put the \pk{gmverb.sty} somewhere
-%   in the \file{texmf/tex/latex} branch on your own. Creating
-%   a~\file{texmf/tex/latex/gm} directory may be advisable if
-%   you consider using other packages written by me.
-%
-%   Then you should refresh your \TeX\ distribution's files' database
-%   most probably.
+% \subdivision{Installation}
+% 
+% Unpack the \file{\jobname-tds.zip}
+% archive (this is an archive that conforms the \acro{TDS} standard,
+% see \file{CTAN/tds/tds.pdf}) in some texmf directory or just put
+% the \pk{gmutils.sty} somewhere in the \file{texmf/\:tex/\:latex}
+% branch. Creating a \file{texmf/\:tex/\:latex/\:gm} directory may
+% be advisable if you consider using other packages written by me.
+% 
+% Then you should refresh your \TeX\ distribution's files' database
+% most probably.
 % \end{gmlonely}
-%
-% \subdivision{Contents of the \pk{gmverb.zip} archive}
-%
-% The distribution of the \pk{gmverb} package consists of the
-% following three files and a~\acro{TDS}-compliant archive.
+% 
+% \subdivision{Contents of the \pk{\jobname.zip} archive}
+% 
+% The distribution of the \pk{gmutils} package consists of the
+% following three files and a \acro{TDS}-compliant archive.
 % \begin{verse}
-%   \pk{gmverb.sty}\\
-%   \pk{README}\\
-%   \pk{gmverb.pdf}\\
-%   \pk{gmverb.tds.zip}
+% \pk{\jobname.\gmdExt}\\
+% \pk{README}\\
+% \pk{\jobname.pdf}\\
+% \pk{\jobname.tds.zip}
 % \end{verse}
 % 
-% This package requires another package of mine, \pk{gmutils},
-% also available on \acro{CTAN}.
-%
 % \begin{gmlonely}
-%   \subdivision{Compiling of the documentation}
-%
-%   The last of the above files (the \pk{.pdf}, i.e., \emph{this
-%     file}) is a~documentation compiled from the \pk{.sty} file by
-%   running \XeLaTeX\ on the \pk{gmverb.sty} file 
-%   (|xelatex gmverb.sty| in the directory you wish the
-%   documentation to be in, you don't have copy the \file{.sty} file
-%   there, \TeX\ will find it) twice, then MakeIndex on the gmverb.idx file, and
-%   then \LaTeX\ on gmverb.tex once more.
-%
-%   MakeIndex shell command:
+% \subdivision{Compiling of the documentation}
+% 
+% The last of the above files (the \pk{.pdf}, i.e., \emph{this
+% file}) is a documentation compiled from the \pk{.\gmdExt} file by
+% running \LaTeX\ on the \pk{\jobname.\gmdExt} file twice
+% (|xelatex ⁄jobname.⁄gmdExt| in the directory you wish the
+% documentation to be in^^A
+% \ifnum\numexpr\strcmp{\gmdExt}{sty}*\strcmp{cls}{\gmdExt}=0\relax^^A
+%, you don't have copy the \file{.\gmdExt} file
+% there, \TeX\ will find it\fi),
+% then MakeIndex on the \file{\jobname.idx} file, and then \LaTeX\
+% on \file{\jobname.\gmdExt} once more.
+% 
+%MakeIndex shell commands:
 %\begin{verbatim}
-%makeindex -r gmverb
+%makeindex -r ⁄jobname
+%makeindex -r -s gmglo.ist -o ⁄jobname.gls ⁄jobname.glo
 %\end{verbatim}
-%   The |-r| switch is to forbid MakeIndex to make implicit ranges since
-%   the (code line) numbers will be hyperlinks.
-%
-%   Compiling the documentation requires the packages:
-%   \pk{gmdoc} (\pk{gmdoc.sty} and \pk{gmdocc.cls}), \pk{gmverb.sty},
-%   \pk{gmutils.sty} and also some standard packages:
-%   \pk{hyperref.sty}, \pk{color.sty}, \pk{geometry.sty},
-%   \pk{multicol.sty}, \pk{lmodern.sty} and \pk{fontenc.sty} that should
-%   be installed on your computer by default.
-%
-%   If you had not installed the \pk{mwcls} classes (available on
-%   CTAN and present in \TeX\ Live e.g.), the result of your
-%   compilation might differ a~bit from the \pk{.pdf} provided in this
-%   \pk{.zip} archive in formatting: If you had not installed
-%   \pk{mwcls}, the standard \pk{article.cls} class would be used.
+% 
+% The |-r| switch is to forbid MakeIndex to make implicit ranges since
+% the (code line) numbers will be hyperlinks.
+% 
+% Compiling the documentation requires the packages:
+% \pk{gmdoc} (\pk{gmdoc.sty} and \pk{gmdocc.cls}), \pk{gmverb.sty},
+% the \pk{gmutils} bundle, \pk{gmiflink.sty}
+% and also some standard packages:
+% \pk{hyperref.sty}, \pk{color.sty}, \pk{geometry.sty},
+% \pk{multicol.sty}, \pk{lmodern.sty}, \pk{fontenc.sty} that should
+% be installed on your computer by default.
+% 
+% Moreover, you should put the \file{gmglo.ist} file, a MakeIndex
+% style for the changes' history, into some \file{texmf/makeindex}
+% (sub)directory.
+% 
+% Then you should refresh your \TeX\ distribution's files' database
+% most probably.
+% 
+% If you had not installed the \pk{mwcls} classes (available on
+% \acro{CTAN} and present in \TeX\ Live e.g.), the result of your
+% compilation might differ a bit from the \pk{.pdf} provided in this
+% \pk{.zip} archive in formatting: If you had not installed
+% \pk{mwcls}, the standard \pk{article.cls} class would be used.
 % \end{gmlonely}
-%
-%
-% \StopEventually{\NoEOF}
+% 
+% 
 %
 %
 % \division{The code}
@@ -328,20 +432,20 @@
 % \DoIndex{\verb \verb*}
 % \subdivision{Preliminaries}
 %
-\RequirePackage{gmutils}[2008/10/08]
+\RequirePackage{gmcommand}[2010/06/20]
 % For |\firstofone|, |\afterfi|, |\gmobeyspaces|, |\@ifnextcat|, |\foone| and
 % |\noexpand|'s and |\expandafter|'s shorthands |\@nx| and |\@xa|
-% resp.\rrthis
-
-
-
+% resp. and |\DeclareCommand|.\rrthis
+%
+%
+%
 % Someone may want to use another char for comment, but we assume here
 % `orthodoxy'. Other assumptions in \pk{gmdoc} are made. The `knowledge'
 % what char is the comment char is used to put proper `hyphen' when
 % a~\env{verbatim} line is broken.
 % \Define\verbhyphen
 % \changes{v0.75}{06/9/8}{renamed from a~rather confusing
-% \cs{commentchar}} 
+% \cs{commentchar}}
 \let\verbhyphen\xiipercent
 
 % Provide a~declaration for easy changing it. Its argument should be
@@ -353,7 +457,6 @@
     \@xa\gdef\@xa\verbhyphen\@xa{\string#1}}}
 % As you see, it's always global.
 
-
 % \subdivision{The breakables}
 %
 % Let's define a~|\discretionary| left brace such that if it breaks,
@@ -363,16 +466,15 @@
   \discretionary{\type@lbrace\verbhyphen}{}{\type@lbrace}%
   \yeshy}
 
-
 \foone{\catcode`\[=1 \catcode`\{=\active \catcode`\]=2 }%
 [%
-   \def\dobreaklbrace[\catcode`\{=\active 
+   \def\dobreaklbrace[\catcode`\{=\active
    \def{%^^A}
      [\breaklbrace\gm@lbracehook]]%\label{gm@lbracehook}
 ]
 
 % Now we only initialise the hook. Real use of it will be made in
-% \pk{gmdoc}. 
+% \pk{gmdoc}.
 \relaxen\gm@lbracehook
 
 % The |\bslash| macro defined below I~use also in more `normal' \TeX ing, e.g.,
@@ -405,8 +507,6 @@
 \pdef\nobreaklbrace{\def\breaklbrace{\type@lbrace\yeshy}}
 % \changes{v0.92}{2008/12/11}{renamed from \cmd\fixlbrace}
 
-
-
 \foone{\catcode`\!=0 \catcode`\\=\active}%%\CodeEscapeChar\!^^A
   % ^^A~One r-brace is turned off for Emacs  by |\{|.
 {%^^A{
@@ -418,7 +518,7 @@
 % we'll use in the almost Knuthian macro making verbatim. This `almost'
 % makes a~difference.
 % ^^A \foone{\catcode`\ =12 }% note this space is ${}_{10}$ and is gobbled
-% ^^A % by parsing of the number. 
+% ^^A % by parsing of the number.
 
 \def\breakablevisspace{\discretionary{\visiblespace}{}{\visiblespace}}
 %\nostanza The \cs{visiblespace} macro is |\let| in \pk{gmutils}
@@ -428,7 +528,7 @@
 {%
 \newcommand*\dobreakvisiblespace{\def {\breakablevisspace}\obeyspaces}%^^A
 % |\def|ing it caused a~stack overflow disaster with \pk{gmdoc}.\ilrr
-\newcommand*\dobreakblankspace{\let =\space\obeyspaces}% 
+\newcommand*\dobreakblankspace{\let =\space\obeyspaces}%
 }
 
 % \Define\xiiclub
@@ -440,25 +540,33 @@
 % |\ttverbatim| comes from \TeXbook\ too, but I~add into it a~\LaTeX\
 % macro changing the |\catcode|s and make spaces visible and breakable
 % and left braces too.
-% 
+%
 % \changes{v0.80}{2007/2/27}{\cs{ttverbatim@hook} added}
 \pdef\ttverbatim{%
   \let\do=\do@noligs \verbatim@nolig@list
   \let\do=\@makeother \dospecials
   \dobreaklbrace\dobreakbslash
   \dobreakspace
-  \makeatletter 
+  \makeatletter
   % \chgs{2008/12/10 v0.92 added \cmd\makeatletter\ to sound with the
   % ‘verbatim specials’, namely to allow control sequences containing
   % \env @}
   \ifhmode
     \setspaceskip
   \fi
-  \tt
-  \edef\gmv@storedhyphenchar{\the\hyphenchar\font}%
+  \verbatimfont
+  \xdef\gmv@storedhyphenchar{\the\hyphenchar\font}%
+  % Assignment of the hyphenchar is always global so let the above
+  % edefinition be also such.
   \hyphenchar\font=\gmv@hyphenchar
-  \ttverbatim@hook}
+  \ttverbatim@hook
+}% of |\ttverbatim|
 
+% \CH{2010/08/14  v0.993 rigid \cmd\tt in \cmd\ttverbatim changed to
+% redefinable \cmd\verbatimfont due to absurd problems with bad
+% fontifying of \pk{gmdoc}}
+%
+\def\verbatimfont{\tt}
 
 % While typesetting stuff in the \acro{QX} fontencoding I~noticed there were
 % no spaces in verbatims. That was because the \acro{QX} encoding doesn't
@@ -482,7 +590,7 @@
 % \file{doc.pdf} and then is added my slight changes.
 
 \def\MakeShortVerb{%
-  \gm@ifstar
+  \gmu@ifstar
   {\def\@shortvrbdef{\verb*}\@MakeShortVerb}%
   {\def\@shortvrbdef{\verb}\@MakeShortVerb}}
 
@@ -555,7 +663,7 @@
 % removed and to unexpandable \CSs\ |\do| and \<\cs{do}'s argument>
 % otherwise. With |\do| defined this way the entire list is just
 % globally expanded itself. Analogous hack is done to the |\@sanitize|
-% list. 
+% list.
 %
 \def\rem@special#1{%
   \def\do##1{%
@@ -586,9 +694,15 @@
   \hyphenpenalty=\gmv@hyphenpe\relax
   \exhyphenpenalty=\gmv@exhyphenpe
   \hyphenchar\font=\m@ne
+%
+% The line below serves as the delimiter for
+% |\verbatim@PitchContents|, to discard the stuff before it (see
+% l.~\ref{verbatim@PitchContents:1/2}).
+%
+  \@gobble\verbatim
 }% in the \LaTeX\ version
 % there's \incs{@vobeyspaces} instead of \incs{gmobeyspaces}.
-% \changes{v0.73}{06/09/06}{\cs{@vobeyspaces} changed to 
+% \changes{v0.73}{06/09/06}{\cs{@vobeyspaces} changed to
 %   \cs{obeyspaces} to make the blank \cs{verb›[atim›]} spaces breakable}
 % \Define*{verbatim*}
 \@namedef{verbatim*}{\@beginparpenalty \predisplaypenalty \@verbatim
@@ -597,8 +711,9 @@
 }
 
 \def\endverbatim{\@@par
-  \hyphenchar\font=\gmv@storedhyphenchar % hyphenchar assignments are
-  % always global.
+% ^^V   \hyphenchar\font=\gmv@storedhyphenchar % hyphenchar assignments are
+% ^^V   % always global. And for an entire paragraph works the one
+% last in it so we hide it.
   \ifdim\lastskip >\z@
     \@tempskipa\lastskip \vskip -\lastskip
     \advance\@tempskipa\parskip \advance\@tempskipa -\@outerparskip
@@ -621,7 +736,7 @@
     !edef!verbatim@currenvir[%
     % ^^A      !@xa!@xa!@xa!unexpanded
     % ^^A      !@xa!@xa!@xa[%
-    % ^^A     
+    % ^^A
       !@xa!scantokens!@xa[!@currenvir]%
       % ^^A]%
     ]% of |\verbatim@currenvir|. This macro is defined as the
@@ -636,7 +751,10 @@
   ####1!noexpand\end!@nx{%
     !@xa!unexpanded!@xa[!verbatim@currenvir]%
   }[%
+    !@nx!verbatim@PitchContents ####1%
+    !@nx!verbatim@PitchContents@Delim%added 2010/8/16
     ####1!@nx!end[!@currenvir]]]%
+% ^^A     !s how!verbatim@edef
   !verbatim@edef
   !verbatim@end]%
 !endgroup
@@ -645,13 +763,32 @@
 % \Define\@sxverbatim
 \let\@sxverbatim=\@xverbatim
 
+\def\verbatim@PitchContents@Left{%
+  \long\def\verbatim@PitchContents
+  ##1\@gobble\verbatim ##2\verbatim@PitchContents@Delim
+}
+
+% By default we make |\verbatim@PitchContents| a gobbler.
+\verbatim@PitchContents@Left {}
+
+\pdef\VerbatimPitch{%
+% But in this declaration scope we make |\@xverbatim| pitch the contents of
+% \env{verbatim}s in a macro. We use that in \pk{gmdoc} not to repeat
+% examples' code.
+% \label{verbatim@PitchContents:1/2}
+  \verbatim@PitchContents@Left {%
+    \gdef\VerbatimContents{##2}%
+  }%
+  %
+}% of |\VerbatimThrow|.
+
 % \Define\@verbatim
 % F.\,Mittelbach says the below is copied almost verbatim from \LaTeX\
 % source, modulo |\check@percent|.\Define\@verbatim
 \def\@verbatim{%
   % \changes{v0.71}{06/09/04}{\cs{trivlist} substituted with
   % chosen explicit macros. Analogous in \cs{endverbatim}.}
-  % 
+  %
   % Originally here was just |\trivlist \item[]|, but it worked
   % badly in my document(s), so let's take just highlights of if.
   \parsep\parskip
@@ -671,6 +808,7 @@
   \if@minipage\else\vskip\parskip\fi
 %^^A  \leftmargin\parindent% please notify me if it's a~bad idea. It is.
   \advance\@totalleftmargin\verbatimleftskip
+  \parskip\verbatimparskip % added 2010/6/2
   \raggedright
   \leftskip\@totalleftmargin% so many assignments to preserve the
   % \env{list} thinking for possible future changes. However, we may
@@ -699,7 +837,6 @@
 \@ifundefined{stanzaskip}{\newlength\stanzaskip}{}
 \stanzaskip=\medskipamount
 
-
 \newskip\verbatimleftskip
 %\changes{v0.91}{2008/11/12}{added}
 \verbatimleftskip\leftmargini
@@ -708,7 +845,8 @@
 % \changes{v0.71}{06/09/04}{added to verbatim parameters.}
 \verbatimhangindent=3em
 
-
+\newskip\verbatimparskip
+\verbatimparskip\z@skip
 
 \providecommand*\check@percent{}
 % In the \pk{gmdoc} package shall it be defined to check if the next
@@ -732,7 +870,7 @@
   \ttverbatim
   \verbatim@specials
   \gm@verb@eol
-  \gm@ifstar
+  \gmu@ifstar
   {\verb@lasthook\@sverb@chbsl}%
   {\gmobeyspaces\frenchspacing\verb@lasthook\@sverb@chbsl}}%\
 % in the \LaTeX\ version there's |\@vobeyspaces| instead of
@@ -749,7 +887,6 @@
 % For the special case of a~backslash opening a~(short) verbatim, in
 % which it shouldn't be breakable, we define the checking macro.
 
-
 \DeclareCommand\DefineTypeChar{mmo}{%
   % \begin{enumargs}
   % \dc m the char as a~\CS,
@@ -768,21 +905,21 @@
     \@xa\gn@melet\csname gmu@#2wd@name\endcsname{gmu@tempb}% here we
     % let the \CS\ with the name contained in |\gmu@⁄<char-name>wd@name| to
     % the expanded value of width of the char measured among copies of
-    % it. 
-    \typeout{@@@@ package gmverb:
-      \@xa\string
-      \csname\csname gmu@#2wd@name\endcsname\endcsname
-      \space is 
-      \csname\csname gmu@#2wd@name\endcsname\endcsname}%
+    % it.
+    % ^^A     \typeout{@@@@ package gmverb:
+    %   ^^A       \@xa\string
+    %   ^^A       \csname\csname gmu@#2wd@name\endcsname\endcsname
+    %   ^^A       \space is
+    %   ^^A       \csname\csname gmu@#2wd@name\endcsname\endcsname}%
     \fi
   }% of |\gmu@measure⁄<char-name>|.
   % \stanza
   \@nameedef{type@#2}{%
     \@nx\leavevmode
-    \@xa\@nx\csname gmu@measure#2\endcsname
+    \@xanxcs{gmu@measure#2}%
     \hbox to \@nx\csname
-    \@xa\@nx\csname gmu@#2wd@name\endcsname\@nx\endcsname
-    {\IfValueTF{#3}{\@nx#3}{\@xa\@nx\csname #2\endcsname}%
+    \@xanxcs{gmu@#2wd@name}\@nx\endcsname
+    {\IfValueTF{#3}{\@nx#3}{\@xanxcs{#2}}%
       \@nx\hss}%
   }% of |\type@⁄<char-name>|,
 }% of |\DefineTypeChar|.
@@ -806,8 +943,11 @@
 
 % \Define\verb@egroup
 \def\verb@egroup{\global\let\verb@balance@group\@empty
-  \hyphenchar\font=\gmv@storedhyphenchar
-  \egroup}
+% ^^V   \hyphenchar\font=\gmv@storedhyphenchar % |\hyphenchar| behaves
+% like |\hyphenpenalty| etc.: the last one in a paragraph is in charge
+% for entire.
+  \egroup
+}
 
 % \Define\gm@verb@eol
 %\changes[\verb]{v0.74}{06/09/07}{line end forbidden inside \texttilde}
@@ -837,6 +977,7 @@
 % \changes{v0.74}{06/09/07}{added}
 % And back to the main matter,
 \def\@sverb#1{%
+  % ^^A   \typeout{@@@@ \detokenize{#1} @@@@}%
   \catcode`#1\active \lccode`\~=`#1%
   \gdef\verb@balance@group{\verb@egroup
     \@latex@error{Illegal use of \bslash verb command}\@ehc}%
@@ -856,11 +997,11 @@
 % And finally, what I~thought to be so smart and clever, now is just
 % one of many possible uses of a~general almost Rainer Sch\"opf's
 % macro:
-\def\dekclubs{\gm@ifstar{\MakeShortVerb*\|}{\MakeShortVerb\|}}
+\def\dekclubs{\gmu@ifstar{\MakeShortVerb*\|}{\MakeShortVerb\|}}
 \def\olddekclubs{\OldMakeShortVerb\|}
 
 % But even if a~shortverb is unconditional, the spaces in the math
-% mode are not printed. So, 
+% mode are not printed. So,
 %\Define\edverbs
 % \changes{v0.79}{2007/01/01}{added}
 % \changes{v0.80}{2007/02/27}{debugged, i.e. \cs{hbox} added back and
@@ -886,13 +1027,13 @@
 % a~`shortverb' char should work as usual in the math mode. So let it
 % may be as they wish:
 % \Define\old@MakeShortVerb
- 
+
 \def\old@MakeShortVerb#1{%
   \@xa\ifx\csname cc\string#1\endcsname\relax
   \@shortvrbinfo{Made }{#1}\@shortvrbdef
   \add@special{#1}%
   \AddtoPrivateOthers#1% a~macro to be \emph{really} defined in
-  % \pk{gmdoc}. 
+  % \pk{gmdoc}.
   \@xa
   \xdef\csname cc\string#1\endcsname{\the\catcode`#1}%
   \begingroup
@@ -910,13 +1051,12 @@
 % \Define\OldMakeShortVerb
 \def\OldMakeShortVerb{\begingroup
   \let\@MakeShortVerb=\old@MakeShortVerb
-  \gm@ifstar{\eg@MakeShortVerbStar}{\eg@MakeShortVerb}}
+  \gmu@ifstar{\eg@MakeShortVerbStar}{\eg@MakeShortVerb}}
 
 % \Define\eg@MakeShortVerbStar \Define\eg@MakeShortVerb
 \def\eg@MakeShortVerbStar#1{\MakeShortVerb*#1\endgroup}
 \def\eg@MakeShortVerb#1{\MakeShortVerb#1\endgroup}
 
-
 % \subdivision{Grey visible spaces}
 % In August 2008 Will Robertson suggested grey spaces for
 % \pk{gmdoc}. I~added a~respective option to that package but I~like
@@ -940,7 +1080,6 @@
         {\@xa\unexpanded\@xa{\visiblespace}}}}%
   }}
 
-
 % \subdivision{Verbatim specials---\CSes in verbatims}
 
 \pdef\verbatimspecials{% This declaration only defines a~bearer\
@@ -956,13 +1095,13 @@
   % \end{enumargs}
   \@bsphack
   \begingroup
-  \let\do\@makeother 
+  \let\do\@makeother
   \dospecials
   \catcode`\ =10
   \verbatim@specials@iii}
 
 \pdef\verbatim@specials@iii#1#2#3{% as you see, we take only first
-  % three arguments in a~despecialized group. It's to avoid 
+  % three arguments in a~despecialized group. It's to avoid
   % \incs{futurelet} of the optionals' parser to touch (and thus
   % spoil) subsequent token. Yes, we could handle the case of a~space
   % or single line end but handling the case of a~backslash would be
@@ -974,7 +1113,7 @@
     \catcode`\ =9
     \verbatim@specials@iv}%
   {\addtomacro\verbatim@specials@list{\NoValue\NoValue}%
-    \verbatim@specials@vi}%  
+    \verbatim@specials@vi}%
 }% of |\verbatim@specials@iii|.
 
 \pdef\verbatim@specials@iv[#1]{%
@@ -988,7 +1127,6 @@
   \verbatim@specials@vi}%
 }% of |\verbatim@specials@iv|.
 
-
 \pdef\verbatim@specials@v[#1]{%
   \endgroup
   \addtomacro\verbatim@specials@list{#1}%
@@ -1041,19 +1179,25 @@
 
 \pdef\noverbatimspecials{\let\verbatim@specials@list\@undefined}
 
-
 \def\GMverbatimspecials{%
-  \gm@testdefined\XeTeXversion\iftrue
-  \verbatimspecials ⁄«»[¿][›]% 
-  {\def\|{\metachar{$\vert$}}%
-    % ^^A    \hyphenchar\font=\gmv@hyphenchar
-    \makestarlow
-    \relaxen\‘% to provide a~\CS\ separator (space is not $_{10}$\ in verbatims).
-  }% of |#6|.
-  \fi
+  \gmu@ifCSdefined {\XeTeXversion}% ^^A \begingroup \let\do\@makeother
+                                % ^^A \do\⁄ \do\« \do\» \do\¿ \do\›
+  {\verbatimspecials
+    ⁄% escape
+    «»% |\bgroup| and |\egroup|
+    [¿]% math shift
+    [›]% meta-char
+    {\def\|{\metachar{$\vert$}}%
+      % ^^A    \hyphenchar\font=\gmv@hyphenchar
+      \makestarlow
+      \relaxen\‘% to provide a~\CS\ separator (space is not \cat 10 in
+                % verbatims).
+      \let\›\string
+    }% of |#6|.
+  }%
+  {}% ^^A \endgroup
 }% of |\GMverbatimspecials|.
 
-
 % \subdivision{Partial \cmd\verb\ in arguments}
 
 % Now command for partial verbatims in arguments of commands:
@@ -1067,7 +1211,6 @@
     \catcode`#\active}%
 }
 
-
 \foone{\@makeother\^^R}{%
   \@xa\DeclareCommand\@xa\scanverb\@xa{%
     % \chgs{2010/03/01 v0.93 mandatory argument made long (a bug fix)}
@@ -1075,7 +1218,7 @@
     % \begin{enumargs}
     %   \dc Q{*_}
     %   \dc m the stuff to be rescanned and typeset verbatim. Note that |%|
-    %   will be executed during first scan so at best will disappear. 
+    %   will be executed during first scan so at best will disappear.
     % \end{enumargs} Spaces are ignored (because of detokenizers that add
     % a~space after a~\CS) but if you declare some
     % \incmd\verbatimspecials, then you can use \inverb|⁄⁄ | where |⁄⁄| denotes
@@ -1089,7 +1232,7 @@
     \@xa\IfIntersect\@xa{\all@unders}{#1}%
     {}{% We make spaces ignored only if there was no underscore in
       % \inhash1 and if \inhash2 doesn't contain \inverb|\ |.
-      \IfAmong\ \among{#2}%
+      \gmu@ifxany\ {#2}%
       {}{\addtomacro\verb@lasthook{\catcode`\ =9 }}}%
     \addtomacro\verb@lasthook{\gmv@hashhalfing }%
     \@makeother\^^R%
@@ -1105,7 +1248,6 @@
   }% of |\scanverb|,
 }% of |\foone|.
 
-
 \def\verbDiscretionaryHyphen#1#2{%
   % \chgs{2010/03/03 v0.93 added to synchronise hyphen chars in
   % \pk{gmdoc}'s documentation}
@@ -1115,11 +1257,16 @@
 
 \verbDiscretionaryHyphen{"A6}{¦}
 
+\XeTeXifprefix\iftrue
+% \CH{2010/06/28  v0.94 due to Will Robertson's remark that
+% recatcoding long (no-\acro{ASCII}) dashes works only under \XeTeX\
+% and \LuaTeX, I embrace them in a \XeTeX\ conditional}
+
 \def\gmu@tempa{%
   \DeclareCommand\verbLongDashes{
-    >iS{–}% to memorise which dash we set
+    >iT{–}% to memorise which dash we set
     B{1.41} % expansion of en-dash
-    >iS{—} % as above
+    >iT{—} % as above
     B{2} % expansion of em-dash
   }%
 }
@@ -1140,16 +1287,21 @@
 }%
 \gmu@tempa
 
-
-\endinput% for the Tradition.
-
-
+\fi % of if \XeTeX.
+%
+% Note that we have two “hyphens”: one for places where a line may be
+% broken with a comment char and another, provided as |\hyphenchar|,
+% for discretionary hyphens at points where correct \TeX\ code cannot
+% be broken, such as \CS names.
+%
+%
+%
 % \ChangesGeneral
 %
 % \changes{v0.81}{2007/04/13}{\cs{afterfi} made two-argument (first
 % undelimited, the stuff to be put after \cs{fi}, and the other,
 % delimited with \cs{fi}, to be discarded}
-
+%
 % \changes{v0.83}{2007/11/09}{added a~hook in the active left brace
 % definition intended for \pk{gmdoc} automatic detection of
 % definitions (in line \protect\ref{gm@lbracehook})}
@@ -1171,17 +1323,16 @@
 % \cs{›(begin⁄!|end›)group}}
 %
 %
-% \PrintChanges \PrintIndex
-% \Finale
-
-% (For my GNU Emacs:)
-%%% Local Variables: 
+%
+%
+%
+%
+%%% (For my GNU Emacs:)
+%%% Local Variables:
 %%% mode: doctex
-%%% mode: flyspell
-%%% ispell-local-dictionary: "british"
-%%% TeX-master: "../../../../LaTeX/TeXGuru/gmverb/gmverbDoc.tex"
 %%% coding: utf-8
-%%% End: 
-
-% LocalWords:  breakbslash dobreakbslash chbsl exhyphenpe hyphenpe lasthook
-% LocalWords:  visspacesgrey sxverbatim septify measurewd bslashwd
+%%% End:
+%
+\endinput
+%%
+%% End of file `gmverb.sty'.