From 895adaa5b890a2593a7da3e90d8f1d9a96c1220d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 14 Oct 2011 23:19:55 +0000 Subject: gmverb (14oct11) git-svn-id: svn://tug.org/texlive/trunk@24288 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/gmverb/gmverb.pdf | Bin 293869 -> 216613 bytes Master/texmf-dist/tex/latex/gmverb/gmverb.sty | 286 +++++++++++++++----------- 2 files changed, 164 insertions(+), 122 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/doc/latex/gmverb/gmverb.pdf b/Master/texmf-dist/doc/latex/gmverb/gmverb.pdf index 9fb130ab41f..7209be09876 100644 Binary files a/Master/texmf-dist/doc/latex/gmverb/gmverb.pdf and b/Master/texmf-dist/doc/latex/gmverb/gmverb.pdf differ diff --git a/Master/texmf-dist/tex/latex/gmverb/gmverb.sty b/Master/texmf-dist/tex/latex/gmverb/gmverb.sty index fbeb084ac26..16a64651480 100644 --- a/Master/texmf-dist/tex/latex/gmverb/gmverb.sty +++ b/Master/texmf-dist/tex/latex/gmverb/gmverb.sty @@ -4,7 +4,7 @@ %% \iffalse ^^A we skip the debug setting \IfFileExists{\string~/bin/gen_and_xela}{\errorcontextlines=1000 }{} %% \fi -%% ^^A $Id: TheUltimateMaster.gmd,v 0.298 2011/02/02 18:35:58 natror Exp natror $ +%% ^^A $Id: TheUltimateMaster.gmd,v 0.352 2011/10/12 15:19:42 natror Exp natror $ % \endskiplines % %% \BundleInfoFromName{gmverb} @@ -17,7 +17,7 @@ %% \begin{copyrnote} %% %% -%% Copyright ©\, 2005, 2006, 2007, 2008, 2009, 2010 +%% Copyright ©\, 2005, 2006, 2007, 2008, 2009, 2010, 2011 %% by Grzegorz ‘Natror’ Murzynowski %% natror (at) gmail (dot) com %% @@ -32,8 +32,8 @@ %% %% %% -%% For the documentation please refer to the file(s) -%% \file{gmverb.{gmd,pdf}}. +%% For documentation please refer to the file(s) +%% \file{gmverb.{sty,pdf}}. %% %% \end{copyrnote} %% @@ -48,7 +48,7 @@ %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{gmverb} - [2010/09/07 v0.95 After shortvrb (FM) but my way (GM)] + [2011/10/14 v0.98 After shortvrb (FM) but my way (GM)] %<*master> @@ -93,20 +93,47 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \usepackage{eufrak}% for |\continuum| in the commentary. \twocoltoc + +% % % +\ifdefined\XeTeXversion % was a switch |\ifgmuXeTeX|, but that caused + % an error when not defined (e.g., package \pk{gmmacros} loaded with a standard class). + +\verbLongDashes +\GMverbatimspecials + +\let\zwr\emph % for foreign phrases (in the narration layer of course) + +\fi % of if \XeTeX + + \begin{document} \addtocontents{toc}{\unexpanded{\let\thfileinfo\relax}} +\DefaultIndexExclusions + \def\gmdExt{% sty% } +\addtomacro\IndexParms {\noverbatimspecials} + \DocInput{\jobname.\gmdExt} +% ^^A \unless\ifcsname textfont@name\endcsname +% ^^A \Name\def{textfont@name}{\small} +% ^^A \fi +% ^^A \unless\ifcsname scriptfont@name\endcsname +% ^^A \Name\def{scriptfont@name}{\scriptsize} +% ^^A \fi + \PrintChanges +\let\hyperindexformat\firstofone +\PrintIndex + \thispagestyle{empty} \typeout{% Produce change log with^^J% @@ -124,6 +151,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % \enoughpage 18 % \tableofcontents % +% % \ChangesStart{}{1000/00/00} % % \chschange{v0.70}{06/8/15}{523} @@ -155,9 +183,10 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % \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} -% +% \toCTAN{2011/02/02 v0.95} +% \chschange{}{2011/10/14}{997} +% \toCTAN{2011/10/14 v0.98} % % \division{Intro, usage} % @@ -176,7 +205,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % The \pk{gmverb} package redefines the |\verb| command and the % \env{verbatim} environment in such a~way that | |, |{| and |\| are % breakable, the first with no `hyphen' and the other two with the -% comment char as a~hyphen. I.e. |{|\|}| breaks into +% comment char as a~hyphen. I.e., |{|\|}| breaks into % |{%|\par \|}| ^^A] bal. braces for Emacs % and \|\mymacro| breaks into \|%|\par % |\mymacro|. @@ -222,9 +251,13 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % $2|0$ and |+| |\active|ated this way is in the math mode typeset properly % etc. % -% However, if you don't like such a~conditional behaviour, you may use -% \TextUsage\OldMakeShortVerb\ instead, what I~do when I~like to -% display short verbatims in displaymath. +% However, if you don't like such a~conditional behaviour, you may +% specify some |$$$$|'s (any nonempty seQuence) mixed with star(s) if +% you wish as an optional argument to keep the short-verbatim char +% behave as short-verbatim also in math mode. +% +% For compatibility with \pk{gmdoc} and for convenience there is a +% shorthand for that provided, \TextUsage\OldMakeShortVerb.% % % % There's one more declaration provided by \pk{gmverb}: @@ -266,7 +299,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % 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 @@ -290,9 +323,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % slash is Unicode Fractional Slash, spaces are ignored) you % can write \[\verb:|\macro⁄⁄arg⁄«arg. ⁄¿n+1⁄¿⁄»\⁄››[No⁄››]Value⁄››(T⁄⁄|F⁄››)|:\] to get % \[|\macro⁄arg«arg. ¿n+1¿»\›[No›]Value›(T⁄|F›)|\]%^^A| -% -% ^^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. @@ -432,7 +463,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % \DoIndex{\verb \verb*} % \subdivision{Preliminaries} % -\RequirePackage{gmcommand}[2010/06/20] +\RequirePackage{gmcommand}[2011/10/12] % For |\firstofone|, |\afterfi|, |\gmobeyspaces|, |\@ifnextcat|, |\foone| and % |\noexpand|'s and |\expandafter|'s shorthands |\@nx| and |\@xa| % resp. and |\DeclareCommand|.\rrthis @@ -507,8 +538,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \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 |\{|. +\foone{\catcode`\!=0 \catcode`\\=\active}%%\CodeEscapeChar\!^^A% {%^^A{ !def!dobreakbslash{!catcode`!\=!active !def\{!breakbslash}}% } @@ -516,9 +546,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % The macros defined below, |\visiblebreakspaces| and |\xiiclub| % 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. +% makes a~difference.% \def\breakablevisspace{\discretionary{\visiblespace}{}{\visiblespace}} %\nostanza The \cs{visiblespace} macro is |\let| in \pk{gmutils} @@ -589,52 +617,103 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % The below is copied verbatim ;-) from % \file{doc.pdf} and then is added my slight changes. -\def\MakeShortVerb{% - \gmu@ifstar - {\def\@shortvrbdef{\verb*}\@MakeShortVerb}% - {\def\@shortvrbdef{\verb}\@MakeShortVerb}} +\DeclareCommand \MakeShortVerb{ + #1 Q {*$} %^^A $ + #2 m % the char to be made shortverb. Has to be provided as |\⁄| (backslashed). +}{% + \gmu@ifstrany {*}{#1} + {\def\@shortvrbdef{\verb*}}% + {\def\@shortvrbdef{\verb}} + % + \gmu@ifstrany {$}{#1}% ^^A$ + % + % Depending on whether |$| ^^A $ + % was specified as optional argument to + % |\MakeShortVerb|, we define the \CS\ |\gmV@mm\⁄| as + % either sth.\ special or sth.\ usual in the math mode: + % + {\gmV@MakeShortVerbAlsoInMath #2 }% extracted to a macro because we reassign + % it while typesetting \LaTeXe \ Sources. + {\gmV@MakeShortVerbNotInMath #2}% + % + \@MakeShortVerb #2% +}% of |\MakeShortVerb|. + +\pdef\gmV@MakeShortVerbAlsoInMath #1{% ^^A ( + % If some dollars were specified (paid ;-) ) in |#1|, then we direct the + % shortverb char to behave in the math mode the same as in normal + % text. + \Name\glet {gmV@mm\string#1}\@firstofone +}% + +\pdef\gmV@MakeShortVerbNotInMath #1{% ^^A ( + % If no dollar was paid ;-) in |#1|, we get vicious and define + % shortverb to act in math mode as normal (other) char. + \edef\gmV@tempA {\strip@bslash {#1}}% + % + \@XA {% + \Name\gdef {gmV@mm\string#1}}% + \@xa{\@xa % these two expandafters serve to get “other” version of + % (unbackslashed) |#1|. + \ifmmode \gmV@tempA + % Two subsequent expandafters become part of the definition + % and serve to gobble or execute the short-verbatim macro. + \@xa \@gobble + \else + \@xa \@firstofone + \fi + }% +}% of if to be normal in math mode +% We store the original catcode of a shortverb char in a \CS +% |\gmV@cc\⁄|. Moreover, if the char is originally active +% (of catcode 13), then we create another \CS to store its original +% meaning, |\gmV@ac\⁄|. +% % \Define\@MakeShortVerb \def\@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}. - \@xa - \xdef\csname cc\string#1\endcsname{\the\catcode`#1}% - \begingroup - \catcode`\~\active \lccode`\~=`#1% - \lowercase{% - \global\@xa\let - \csname ac\string#1\endcsname~% - \@xa\gdef\@xa~\@xa{% - \@xa\ifmmode\@xa\string\@xa~% - \@xa\else\@xa\afterfi{\@shortvrbdef~}\fi}}% This - % terrible number of |\expandafter|s is to make the shortverb char - % just other in the math mode (my addition). - \endgroup - \global\catcode`#1\active - \else - \@shortvrbinfo\@empty{#1 already}{\@empty\verb(*)}% - \fi} + \@xa\ifx\csname gmV@cc\string#1\endcsname\relax + \@shortvrbinfo{Made }{#1}\@shortvrbdef + \add@special{#1}% + \AddtoPrivateOthers#1% a~macro to be \emph{really} defined in + % \pk{gmdoc}. + \@xa + \xdef\csname gmV@cc\string#1\endcsname{\the\catcode`#1}% + \begingroup + \catcode`\~\active \lccode`\~=`#1% + \lowercase{% + \Name\glet {ac\string#1}~% + \@xa\gdef\@xa~\@xa{% + \csname \strip@bslash{\gmV@mm}\string#1\endcsname + {\@shortvrbdef~}% + }% of active |#1| def + }% of lowercase + \endgroup + \global\catcode`#1\active + \else + \@shortvrbinfo\@empty{#1 already}{\@empty\verb(*)}% + \fi +}% of |\@MakeShortVerb|. % \Define\DeleteShortVerb \def\DeleteShortVerb#1{% - \@xa\ifx\csname cc\string#1\endcsname\relax - \@shortvrbinfo\@empty{#1 not}{\@empty\verb(*)}% + \@xa\ifx\csname gmV@cc\string#1\endcsname\relax + \@shortvrbinfo\@empty{#1 not}{\@empty\verb(*)}% \else - \@shortvrbinfo{Deleted }{#1 as}{\@empty\verb(*)}% - \rem@special{#1}% - \global\catcode`#1\csname cc\string#1\endcsname - \global \@xa\let \csname cc\string#1\endcsname \relax - \ifnum\catcode`#1=\active - \begingroup - \catcode`\~\active \lccode`\~`#1% - \lowercase{% - \global\@xa\let\@xa~% - \csname ac\string#1\endcsname}% - \endgroup \fi \fi} + \@shortvrbinfo{Deleted }{#1 as}{\@empty\verb(*)}% + \rem@special{#1}% + \global\catcode`#1\csname gmV@cc\string#1\endcsname + \global \@xa\let \csname gmV@cc\string#1\endcsname \relax + \ifnum\catcode`#1=\active + \begingroup + \catcode`\~\active \lccode`\~`#1% + \lowercase{% + \global\@xa\let\@xa~% + \csname gmV@ac\string#1\endcsname}% + \endgroup + \fi + \fi +} % My little addition % \DefIndex\gmv@packname @@ -667,7 +746,8 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % \def\rem@special#1{% \def\do##1{% - \ifnum`#1=`##1 \else \@nx\do\@nx##1\fi}% + \ifnum`#1=`##1 \else \@nx\do\@nx##1\fi + }% \xdef\dospecials{\dospecials}% \begingroup \def\@makeother##1{% @@ -720,7 +800,8 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \vskip\@tempskipa \fi \addvspace\@topsepadd - \@endparenv} + \@endparenv +} % \Define\endverbatim* \n@melet{endverbatim*}{endverbatim} @@ -733,12 +814,8 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \catcode`\\=\active%\CodeEscapeChar\! !gdef!@xverbatim[% [!endlinechar!m@ne !everyeof[!@nx]% - !edef!verbatim@currenvir[% - % ^^A !@xa!@xa!@xa!unexpanded - % ^^A !@xa!@xa!@xa[% - % ^^A - !@xa!scantokens!@xa[!@currenvir]% - % ^^A]% + !edef!verbatim@currenvir[%% + !@xa!scantokens!@xa[!@currenvir]%% ]% of |\verbatim@currenvir|. This macro is defined as the % meaning of \incs{@currenvir} rescanned. It's done specially % for the active star in my verbatims. \incs{@currenvir} is @@ -753,8 +830,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} }[% !@nx!verbatim@PitchContents ####1% !@nx!verbatim@PitchContents@Delim%added 2010/8/16 - ####1!@nx!end[!@currenvir]]]% -% ^^A !s how!verbatim@edef + ####1!@nx!end[!@currenvir]]]%% !verbatim@edef !verbatim@end]% !endgroup @@ -805,17 +881,14 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \@outerparskip \parskip % (End of |\trivlistlist| and |\@trivlist| highlights.) \@@par\addvspace\@topsep - \if@minipage\else\vskip\parskip\fi -%^^A \leftmargin\parindent% please notify me if it's a~bad idea. It is. + \if@minipage\else\vskip\parskip\fi% \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 % be sure no internal \env{list} shall use |\@totalleftmargin| as - % far as no inner environments are possible in \env{verbatim›[*›]}. -%^^A \rightskip\z@ -%^^A \parindent\z@\parfillskip\@flushglue\parskip\z@ + % far as no inner environments are possible in \env{verbatim›[*›]}.% \@@par% most probably redundant. \@tempswafalse \def\par{% but I~don't want the terribly ugly empty lines when @@ -905,12 +978,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \@xa\gn@melet\csname gmu@#2wd@name\endcsname{gmu@tempb}% here we % let the \CS\ with the name contained in |\gmu@⁄wd@name| to % the expanded value of width of the char measured among copies of - % 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}% + % it. % \fi }% of |\gmu@measure⁄|. % \stanza @@ -919,7 +987,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \@xanxcs{gmu@measure#2}% \hbox to \@nx\csname \@xanxcs{gmu@#2wd@name}\@nx\endcsname - {\IfValueTF{#3}{\@nx#3}{\@xanxcs{#2}}% + {\gmuIfValueTF{#3}{\@nx#3}{\@xanxcs{#2}}% \@nx\hss}% }% of |\type@⁄|, }% of |\DefineTypeChar|. @@ -976,8 +1044,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \def\verbeolOK{\let\gm@verb@eol\verb@eolOK} % \changes{v0.74}{06/09/07}{added} % And back to the main matter, -\def\@sverb#1{% - % ^^A \typeout{@@@@ \detokenize{#1} @@@@}% +\def\@sverb#1{%% \catcode`#1\active \lccode`\~=`#1% \gdef\verb@balance@group{\verb@egroup \@latex@error{Illegal use of \bslash verb command}\@ehc}% @@ -1014,9 +1081,9 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \relaxen\edverbs}% \def\gmv@disverb{% - \gmv@dismath - % ^^A \@xa\ verb\string - \hbox\bgroup\def\]{\egroup\gmv@edismath}} + \gmv@dismath% + \hbox\bgroup\def\]{\egroup\gmv@edismath}% +} %\subdivision{\pk{doc}- and \pk{shortvrb}-compatibility} % @@ -1026,36 +1093,11 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % thanks to |\string|. \pk{doc/shortvrb}'s concept is different, there % 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}. - \@xa - \xdef\csname cc\string#1\endcsname{\the\catcode`#1}% - \begingroup - \catcode`\~\active \lccode`\~`#1% - \lowercase{% - \global\@xa\let\csname ac\string#1\endcsname~% - \@xa\gdef\@xa~\@xa{% - \@shortvrbdef~}}% - \endgroup - \global\catcode`#1\active - \else - \@shortvrbinfo\@empty{#1 already}{\@empty\verb(*)}% - \fi} - +% +% % \Define\OldMakeShortVerb -\def\OldMakeShortVerb{\begingroup - \let\@MakeShortVerb=\old@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} +\pdef\OldMakeShortVerb{\MakeShortVerb $$}% +% % \subdivision{Grey visible spaces} % In August 2008 Will Robertson suggested grey spaces for @@ -1145,8 +1187,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \fi }% of \cmd\verbatim@specials. -\long\def\verbatim@specials@#1#2#3#4#5#6{% - % ^^A~\def\-{\discretionary{{\normalfont-}}{}{}}% +\long\def\verbatim@specials@#1#2#3#4#5#6{%% \catcode`#1=0 \protected\@namedef{#1}{#1}% \catcode`#2=1 @@ -1165,16 +1206,16 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} #1catcode#1backquote#1h=11#1relax% }% \endlinechar\gmu@tempa\relax - \IfValueT{#4}{% + \gmuIfValueT{#4}{% \catcode`#4=3 \protected\@namedef{#4}{#4}}% - \IfValueT{#5}{% + \gmuIfValueT{#5}{% \begingroup \lccode`\~=`#5\lowercase{\endgroup\let~\metachar}% \protected\@namedef{#5}{#5}% \catcode`#5=\active }% of if value |#5|. - \PutIfValue{#6}% + \gmuPutIfValue{#6}% } \pdef\noverbatimspecials{\let\verbatim@specials@list\@undefined} @@ -1257,7 +1298,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} \verbDiscretionaryHyphen{"A6}{¦} -\XeTeXifprefix\iftrue +\ifgmuXeTeX % \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} @@ -1324,6 +1365,7 @@ pagella, trebuchet, cursor, fontspec=quiet]{gmdocc} % % % +% \endinput %% %% End of file `gmverb.sty'. -- cgit v1.2.3