From a439c9fb5cc7d0ee998d96c6563f1df669a22828 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 28 Apr 2007 00:53:46 +0000 Subject: gmutils update (26apr07) git-svn-id: svn://tug.org/texlive/trunk@4206 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/gmutils/gmutils.sty | 661 ++++++++++++++++++------ 1 file changed, 516 insertions(+), 145 deletions(-) (limited to 'Master/texmf-dist/tex/latex/gmutils') diff --git a/Master/texmf-dist/tex/latex/gmutils/gmutils.sty b/Master/texmf-dist/tex/latex/gmutils/gmutils.sty index 761a1d7880d..2d2c7a78f3f 100644 --- a/Master/texmf-dist/tex/latex/gmutils/gmutils.sty +++ b/Master/texmf-dist/tex/latex/gmutils/gmutils.sty @@ -1,15 +1,15 @@ % % \GetFileInfo{gmutils.sty} % \title{The \pk{gmutils} Package\thfileinfo} -% \author{Grzegorz `Natror' Murzynowski} +% \author{Grzegorz Murzynowski} % \maketitle % % \begin{copyrnote} % -%%Written by Grzegorz `Natror' Murzynowski, +%%Written by Grzegorz Murzynowski, %% natror at o2 dot pl %% -%% \copyright\,2005, 2006 by Grzegorz `Natror' Murzynowski. +%% \copyright\,2005, 2006, 2007 by Grzegorz Murzynowski. %% %% This program is subject to the \LaTeX\ Project Public License. %% See ^^A @@ -38,11 +38,14 @@ % \chschange{v0.71}{06/10/27}{876} % \chschange{v0.72}{06/11/14}{906} % \chschange{v0.74}{06/12/1}{1185} +% \chschange{v0.76}{07/4/9}{1538} +% \chschange{v0.77}{07/4/14}{1547} +% \chschange{v0.78}{2007/4/26}{1685} % \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{gmutils} - [2006/11/29 v0.74 some rather TeXnical macros, some of them tricky (GM)] + [2007/04/24 v0.78 some rather TeXnical macros, some of them tricky (GM)] % % \tableofcontents @@ -110,7 +113,12 @@ % \pk{mwcls}, the standard \pk{article.cls} class would be used. % \end{gmlonely} % -% \division{\cs{newgif} and Other Globals} +% +% \division{A~couple of abbreviations} +% \CodeDefine\@xa \CodeDefine\@nx +\let\@xa\expandafter +\let\@nx\noexpand + % % The |\newgif| declaration's effect is used even in the \LaTeXe\ % source by redefining some particular user defined ifs (UD-ifs @@ -132,9 +140,9 @@ % a~group. % \CodeDefIndex\@gif \def\@gif#1#2{% - \expandafter\gdef\csname\expandafter\@gobbletwo\string#1% + \@xa\gdef\csname\@xa\@gobbletwo\string#1% g% the letter $g$ for `|\global|'. - \expandafter\@gobbletwo\string#2\endcsname + \@xa\@gobbletwo\string#2\endcsname {\global\let#1#2}} % After |\newgif\iffoo| you may type |{\foogtrue}| and the |\iffoo| @@ -171,7 +179,72 @@ \def\glet{\global\let} -% \division{\cs{@ifnextcat}} +% \LaTeX\ provides a~very useful |\g@addto@macro| macro that adds its +% second argument to the current definition of its first argument +% (works iff the first argument is a~no argument macro). But I~needed +% it some times in a~document, where |@| is not a~letter. So: +% \CodeDefine\gaddtomacro +\let\gaddtomacro=\g@addto@macro + +% The redefining of the first argument of the above macro(s) is +% |\global|. What if we want it local? Here we are: +% \CodeDefine\addto@macro +\long\def\addto@macro#1#2{% + \toks@\@xa{#1#2}% + \edef#1{\the\toks@}% +}%(|\toks@| is a~scratch register, namely |\toks0|.) + +% And for use in the very document, +% \CodeDefine\addtomacro +\let\addtomacro=\addto@macro + +%\CodeDefine\@emptify \CodeDefine\emptify +\newcommand*\@emptify[1]{\let#1=\@empty} +\@ifdefinable\emptify{\let\emptify\@emptify} + +% Note the two following commands are in fact one-argument. +%\CodeDefine\g@emptify \CodeDefine\gemptify +\newcommand*\g@emptify{\global\@emptify} +\@ifdefinable\gemptify{\let\gemptify\g@emptify} + +% \CodeDefine\@relaxen \CodeDefine\relaxen +\newcommand*\@relaxen[1]{\let#1=\relax} +\@ifdefinable\relaxen{\let\relaxen\@relaxen} + +% Note the two following commands are in fact one-argument. +% \CodeDefine\g@relaxen \CodeDefine\grelaxen +\newcommand*\g@relaxen{\global\@relaxen} +\@ifdefinable\grelaxen{\let\grelaxen\g@relaxen} + + +% For the heavy debugs I~was doing while preparing \pk{gmdoc}, as +% a~last resort I~used |\showlists|. But this command alone was +% usually too little: usually it needed setting |\showboxdepth| and +% |\showboxbreadth| to some positive values. So, +% +% \CodeDefine\gmshowlists +% \changes{v0.59}{06/09/04}{moved here from \pk{gmdoc}} +\def\gmshowlists{\showboxdepth=1000 \showboxbreadth=1000 \showlists} + +% \CodeDefine\nameshow +\newcommand*\nameshow[1]{\@xa\show\csname#1\endcsname} + + +% Standard |\string| command returns a~string of `other' chars except +% for the space, for which it returns | |$_{10}$. In \pk{gmdoc} +% I~needed the spaces in macros' and environments' names to be always +% \catother, so I~define +% \CodeDefine\xiistring +% \changes{v0.59}{06/09/04}{moved here from \pk{gmdoc}} +\def\xiistring#1{% + \if\@nx#1\twelvespace + \twelvespace + \else + \string#1% + \fi} + + +% \division{\cs{@ifnextcat}, \cs{@ifnextac}} % % As you guess, we |\def| |\@ifnextcat| \`a~la |\@ifnextchar|, see % \LaTeXe\ source dated 2003/12/01, file d, lines 253--271. The @@ -181,10 +254,14 @@ % remember from \TeXbook, the former test doesn't expand macros while % the latter does. But in |\@ifnextcat| the peeked token is protected % against expanding by |\noexpand|. Note that the first parameter is -% not protected and therefore it shall be expanded if it's a~macro. +% not protected and therefore it shall be expanded if it's +% a~macro. Because an assignment is involved, you can't test whether +% the next token is an active char. %\CodeDefine\@ifnextcat +% \changes{v0.75}{2007/01/01}{\cs{let} for \cs[\#]1 changed to +% \cs{def} to allow things like \cs{noexpand\*}} \long\def\@ifnextcat#1#2#3{% - \let\reserved@d=#1% + \def\reserved@d{#1}% \def\reserved@a{#2}% \def\reserved@b{#3}% \futurelet\@let@token\@ifncat} @@ -194,7 +271,7 @@ \ifx\@let@token\@sptoken \let\reserved@c\@xifncat \else - \ifcat\reserved@d\noexpand\@let@token + \ifcat\reserved@d\@nx\@let@token \let\reserved@c\reserved@a \else \let\reserved@c\reserved@b @@ -205,10 +282,53 @@ {\def\:{\let\@sptoken= } \: % this makes |\@sptoken| a space token. % \CodeDefIndex\@xifncat -\def\:{\@xifncat} \expandafter\gdef\: {\futurelet\@let@token\@ifncat}} -% Note the trick to achieve a~macro with no parameter and requiring +\def\:{\@xifncat} \@xa\gdef\: {\futurelet\@let@token\@ifncat}} +% Note the trick to get a~macro with no parameter and requiring % a~space after it. We do it inside a~group not to spoil the general % meaning of |\:| (which we extend later). +% \dekmedskip +% +% But how to peek at the next token to check whether it's an active +% char? First, we look with |\@ifnextcat| whether there stands a~group +% opener. We do that to avoid taking a~whole |{...}| as the argument +% of the next macro, that doesn't use |\futurelet| but takes the next +% token as an argument, tests it and puts back intact. +% \CodeDefine\@ifnextac +% \changes{v0.75}{2007/01/11}{added} +% +\long\def\@ifnextac#1#2{% + \@ifnextcat\bgroup{#2}{\gm@ifnac{#1}{#2}}} + +\long\def\gm@ifnac#1#2#3{% + \ifcat\@nx~\@nx#3\afterfi{#1#3}\else\afterfi{#2#3}\fi} + +% Yes, it won't work for an active char |\let| to |{|${}_1$, but it +% \emph{will} work for an active char |\let| to a~char of +% catcode${}\neq1$. (Is there anybody on Earth who'd make an active +% char working as |\bgroup|?) +% +% \stanza Now, define a~test that checks whether the next token is +% a~genuine space, | |${}_{10}$ that is. First define a~CS let such +% a~space. The assignment needs a~little trick (\TeXbook\ appendix D) +% since |\let|'s syntax includes one optional space after |=|. +% +\let\@tempa\*% +\def\*{% + \let\*\@tempa + \let\gm@letspace= }% +\* % + +% \CodeDefine\@ifnextspace +\def\@ifnextspace#1#2{% + \let\@reserveda\*% + \def\*{% + \let\*\@reserveda + \ifx\@let@token\gm@letspace\afterfi{#1}% + \else\afterfi{#2}% + \fi}% + \futurelet\@let@token\*} +% First use of this macro is for an active |-| that expands to |---| +% if followed by a~space. % \division{\cs{afterfi} and Pals} @@ -223,25 +343,29 @@ % % I~think the situations when the Knuthian (the former) trick is not % available are rather seldom, but they are imaginable at least: the -% |\next| trick involves an assignment so it won't work e.g. in +% |\next| trick involves an assignment so it won't work e.g.\ in % |\edef|. But in general it's only a~matter of taste which one to % use. % -% \CodeDefine\afterfi \CodeDefine\afterfifi \CodeDefine\afterelsefi -% \CodeDefine\afterelsefifi \CodeDefine\afterelseiffifi +% One warning: those macros peel the braces off, i.e., +% \[|\if..\afterfi{\@makeother\^^M}\fi|\] +% causes a~leakage of +% |^^M|\catother. To avoid pollution write +% \[|\if..\afterfi{\bgroup\@makeother\^^M\egroup}\fi|\,.\] +% +% \CodeDefine\afterfi \CodeDefine\afterfifi +% \CodeDefine\afteriffifi -\long\def\afterfi#1\fi{\fi#1} -% One more of that family: -\long\def\afterelsefifi#1\else#2\fi#3\fi{\fi\fi#1} -% \dots\ and some other: -\long\def\afterelsefi#1\else#2\fi{\fi#1} -\long\def\afterfifi#1\fi#2\fi{\fi\fi#1} -\long\def\afterelseiffifi#1\else#2\if#3\fi#4\fi{\fi#1} -% Note, if you fancy this smart trick, that some `|else|' cases are -% covered by proper non-|else| |\after...|\ macros, e.g., -% |\afterfielsefi|'s task would be fulfilled by |\afterfifi| and -% |\afterelsefifi| covers also the `|\afterelsefielsefi|' case. +\long\def\afterfi#1#2\fi{\fi#1} +% And two more of that family: +\long\def\afterfifi#1#2\fi#3\fi{\fi\fi#1} +\long\def\afteriffifi#1#2\if#3\fi#4\fi{\fi#1} +% Notice the refined elegance of those macros, that cover both `then' +% and `else' cases thanks to |#2| that is discarded. +\long\def\afterififfififi#1#2\fi#3\fi#4\fi{\fi#1} +\long\def\afteriffififi#1#2\fi#3\fi#4\fi{\fi\fi#1} +\long\def\afterfififi#1#2\fi#3\fi#4\fi{\fi\fi\fi#1} % \division{Almost an Environment or Redefinition of \cs{begin}} % @@ -313,8 +437,8 @@ % we ensure the compared texts are both expanded and made all `other'. \def\@checkend#1{% - \edef\reserved@a{\expandafter\string\csname#1\endcsname}% - \edef\exii@currenvir{\expandafter\string\csname\@currenvir\endcsname}% + \edef\reserved@a{\@xa\string\csname#1\endcsname}% + \edef\exii@currenvir{\@xa\string\csname\@currenvir\endcsname}% \ifx\reserved@a\exii@currenvir\else\@badend{#1}\fi} % Thanks to it you may write |\begin{macrocode*}| with |*|\catother @@ -372,7 +496,7 @@ \advance\@tempcnta#1\relax % watch out for size underflow: \ifnum\@tempcnta<\z@ \rs@size@warning{small}{\string\tiny}\@tempcnta\z@ \fi - \expandafter\endgroup + \@xa\endgroup \ifcase\@tempcnta % set new size based on altered number \tiny \or \scriptsize \or \footnotesize \or \small \or \normalsize \or \large \or \Large \or \LARGE \or \huge \or \Huge \else @@ -495,7 +619,7 @@ % the whole thing inside an |\nfss@text| box in that case. % \end{quotation} \ensuremath\langle - \ifmmode \expandafter \nfss@text \fi + \ifmmode \@xa \nfss@text \fi {% \meta@font@select % Need to keep track of what we changed just in case the user changes font inside @@ -538,7 +662,7 @@ % A~tiny little macro that acts like |\-| outside the math mode and % has its original meaning inside math. -\def\:{\ifmmode\afterelsefi\mskip\medmuskip\else\afterfi\discret{}\fi} +\def\:{\ifmmode\afterfi{\mskip\medmuskip}\else\afterfi{\discret{}}\fi} % \CodeDefine\vs \newcommand*{\vs}{\discre{\textvisiblespace}{}{\textvisiblespace}} @@ -570,8 +694,7 @@ % The below macro I~use to format the packages' names. % \CodeDefine\pk \CodeDefine\file -\@ifundefined{pk}{% - \DeclareRobustCommand*{\pk}[1]{\textsf{\textup{#1}}}}{} +\DeclareRobustCommand*{\pk}[1]{\textsf{\textup{#1}}} % Some (if not all) of the below macros are copied from \pk{doc} % and/or \pk{ltxdoc}. @@ -582,13 +705,13 @@ % boldface sometimes. % % \CodeDefine\cs -\@ifundefined{cs}{\DeclareRobustCommand*{\cs}[2][\bslash]{{% +\DeclareRobustCommand*{\cs}[2][\bslash]{{% \def\-{\discretionary{{\rmfamily-}}{}{}}% - \def\{{\char`\{}\def\}{\char`\}}\ttfamily #1#2}}}{} + \def\{{\char`\{}\def\}{\char`\}}\ttfamily #1#2}} % \CodeDefine\env % \changes{v0.66}{06/09/29}{the braces removed} -\@ifundefined{env}{\DeclareRobustCommand*{\env}[1]{\cs[]{#1}}}{} +\DeclareRobustCommand*{\env}[1]{\cs[]{#1}} % And one for encouraging linebreaks e.g., before long verbatim words. % \CodeDefine\possfil \newcommand*\possfil{\hfil\penalty1000\hfilneg} @@ -601,7 +724,7 @@ % |\outer|).\end{quotation} % % \CodeDefine\cmd -\def\cmd#1{\cs{\expandafter\cmd@to@cs\string#1}} +\def\cmd#1{\cs{\@xa\cmd@to@cs\string#1}} % \CodeDefIndex\cmd@to@cs \def\cmd@to@cs#1#2{\char\number`#2\relax} @@ -628,8 +751,10 @@ % \CodeDefine\arg \AtBeginDocument{% \let\math@arg\arg - \def\arg{\ifmmode\math@arg\else\afterfi - \@ifnextchar[\@oargsq{\@ifnextchar(\@pargp\marg}\fi}%^^A)] + \def\arg{\ifmmode\math@arg\else\afterfi{% + \@ifnextchar[%^^A] + \@oargsq{\@ifnextchar(%^^A) + \@pargp\marg}}\fi}% } % \division{Storing and Restoring the Meanings of CSs} @@ -641,13 +766,28 @@ %\CodeDefine\StoreMacro %\changes{v0.61}{06/09/05}{added.} %\changes{v0.67}{06/10/11}{enriched with \cs{makeatletter}} -\def\StoreMacro{\bgroup\makeatletter\egStore@Macro} +\def\StoreMacro{% + \bgroup\makeatletter\@ifstar\egStore@MacroSt\egStore@Macro} + \long\def\egStore@Macro#1{\egroup\Store@Macro{#1}} +\long\def\egStore@MacroSt#1{\egroup\Store@MacroSt{#1}} + \long\def\Store@Macro#1{% - \expandafter\let\csname /gml/store\string#1\endcsname#1} + \@xa\let\csname /gml/store\string#1\endcsname#1} + +\long\def\Store@MacroSt#1{% + \edef\gmu@smtempa{% + \@nx\let\@xa\@nx\csname/gml/store#1\endcsname\@xa\@nx\csname#1\endcsname} + \gmu@smtempa} % We make the |\StoreMacro| command a~three-step to allow usage of the % most inner macro also in the next command. % +% The starred version, |\StoreMacro*| works with csnames (without the +% backslash). It's first used to store the meanings of robust +% commands, when you may need to store not only |\foo|, but also +% |\csname foo \endcsname|. +% +% % The next command iterates over a~list of CSs and stores each of % them. The CS may be separated with commas but they don't have to. % \CodeDefine\StoreMacros @@ -659,14 +799,14 @@ % And the inner iterating macro: \long\def\gml@storemacros#1{% - \def\@tempa{\noexpand#1}% My \TeX\ Guru's trick to deal with |\fi| + \def\@tempa{\@nx#1}% My \TeX\ Guru's trick to deal with |\fi| % and such, i.e., to hide |#1| from \TeX\ when it is processing a~test's % branch without expanding. \if\@tempa.% a~dot finishes storing. \else \if\@tempa,% The list this macro is put before may % contain commas and that's O.K., we just continue the work. - \afterelsefifi\gml@storemacros + \afterfifi\gml@storemacros \else% what is else this shall be stored. \gml@StoreCS{#1}% we use a~particular CS to may |\let| it both to % the storing macro as above and to the restoring one as @@ -679,10 +819,19 @@ %\CodeDefine\RestoreMacro %\changes{v0.61}{06/09/05}{added.} %\changes{v0.67}{06/10/11}{enriched with \cs{makeatletter}} -\def\RestoreMacro{\bgroup\makeatletter\egRestore@Macro} +\def\RestoreMacro{% + \bgroup\makeatletter\@ifstar\egRestore@MacroSt\egRestore@Macro} + \long\def\egRestore@Macro#1{\egroup\Restore@Macro{#1}} +\long\def\egRestore@MacroSt#1{\egroup\Restore@MacroSt{#1}} + \long\def\Restore@Macro#1{% - \expandafter\let\expandafter#1\csname /gml/store\string#1\endcsname} + \@xa\let\@xa#1\csname /gml/store\string#1\endcsname} + +\long\def\Restore@MacroSt#1{% + \edef\gmu@smtempa{% + \@nx\let\@xa\@nx\csname#1\endcsname\@xa\@nx\csname/gml/store#1\endcsname} + \gmu@smtempa} % \CodeDefine\RestoreMacros \long\def\RestoreMacros{\bgroup\makeatletter\Restore@Macros} @@ -712,9 +861,10 @@ % \changes{v0.61}{06/09/05}{renamed from \cs{MacroStoringDo} and the % storing cs's prefix changed from \cs[]{@gml@srs}.} \long\def\StoringAndRelaxingDo{% - \def\do##1{\expandafter\let\csname /gml/store\string##1\endcsname##1% + \def\do##1{\@xa\let\csname /gml/store\string##1\endcsname##1% \let##1\relax}} + % And here is the counter-definition for restore. % % \CodeDefine\RestoringDo @@ -724,16 +874,51 @@ % relaxing of the storing cs removed.} \long\def\RestoringDo{% \def\do##1{% - \expandafter\let\expandafter##1\csname /gml/store\string##1\endcsname}} + \@xa\let\@xa##1\csname /gml/store\string##1\endcsname}} % And to store a~cs as explicitly named cs, i.e. to |\let| one csname -% another: -\def\@namelet#1#2{% +% another (|\n@melet| not |\@namelet| becasuse the latter is defined +% in Till Tantau's \pk{beamer} class another way): +\def\n@melet#1#2{% \edef\@tempa{% - \let\expandafter\noexpand\csname#1\endcsname - \expandafter\noexpand\csname#2\endcsname}% + \let\@xa\@nx\csname#1\endcsname + \@xa\@nx\csname#2\endcsname}% \@tempa} + +% \division{Not only preamble!} +% Let's remove some commands from the list to erase at begin document! +% Primarily that list was intended to save memory not to forbid +% anything. Nowadays, when memory is cheap, the list of only-preamble +% commands should be rethought \IMO. + +\newcommand\not@onlypreamble[1]{% + \def\do##1{\ifx#1##1\else\@nx\do\@nx##1\fi}% + \edef\@preamblecmds{\@preamblecmds}} + +\not@onlypreamble\@preamblecmds +\not@onlypreamble\@ifpackageloaded +\not@onlypreamble\@ifclassloaded +\not@onlypreamble\@ifl@aded +\not@onlypreamble\@pkgextension + +% And let's make the message of only preamble command's forbidden use +% informative a~bit: + +\def\gm@notprerr{ can be used only in preamble (\on@line)} + +\AtBeginDocument{% + \def\do#1{\@nx\do\@nx#1}% + \edef\@preamblecmds{% + \def\@nx\do##1{% + \def##1{! \@nx\string##1 \@nx\gm@notprerr}}% + \@preamblecmds}} + + + + + + % \division{Third Person Pronouns} % % Is a~reader of my documentations `she' or 'he' and does it make @@ -813,6 +998,7 @@ % e.g. % + % \division{Improvements to \pk{mwcls} Sectioning Commands} % % That is, `Expe-ri-mente'\footnote{A.\ Berg, \textit{Wozzeck}.} mit MW @@ -860,8 +1046,9 @@ % \CodeDefine\@ifnotmw \long\def\@ifnotmw#1#2{\@ifundefined{mw@sectionxx}{#1}{#2}} +\let\gmu@def\def \@ifnotmw{% - \StoreMacro\def \def\def#14#2{\RestoreMacro\def}}{} + \StoreMacro\gmu@def \def\gmu@def#14#2{\RestoreMacro\gmu@def}}{} % I~know it may be of bad taste (to write such a~way \emph{here}) but % I~feel so lonely and am in an alien state of mind after 3 hour sleep % last night and, worst of all, listening to sir Edward Elgar's flamboyant @@ -880,7 +1067,7 @@ % |\let| not |\def|. % The kernel of MW's sectioning commands: -\def\mw@sectionxx#1#2[#3]#4{% +\gmu@def\mw@sectionxx#1#2[#3]#4{% \edef\mw@HeadingLevel{\csname #1@level\endcsname \space}% space delimits level number! \ifHeadingNumbered @@ -949,6 +1136,8 @@ } %%%% (End of Experimente with MW sectioning.) + + % % \division{Compatibilising Standard and \pk{mwcls} Sectionings} % @@ -995,13 +1184,13 @@ % \CodeDefine\gm@secxx \def\gm@secxx#1#2[#3]#4{% \ifx\gm@secstar\@empty - \@namelet{gm@true@#1mark}{#1mark}% a~little trick to allow + \n@melet{gm@true@#1mark}{#1mark}% a~little trick to allow % a~special version of the heading just to the running head. \@namedef{#1mark}##1{% we redefine \cs{\mark} to gobble its % argument and to launch the stored true marking command on the % appropriate argument. \csname gm@true@#1mark\endcsname{#2}% - \@namelet{#1mark}{gm@true@#1mark}% after we've done what we + \n@melet{#1mark}{gm@true@#1mark}% after we've done what we % wanted we restore original |\#1mark|. }% \def\gm@secstar{[#3]}% if |\gm@secstar| @@ -1010,7 +1199,7 @@ % optional argument. Otherwise the sectioning command was written % with star so the `true' s.c.\ takes no optional. \fi - \expandafter\expandafter\csname\gm@secini#1\endcsname + \@xa\@xa\csname\gm@secini#1\endcsname \gm@secstar{#4}}% % \stanza }{% we are in \pk{mwcls} and want to reverse MW's optionals order @@ -1022,7 +1211,7 @@ % tricks for special version to running headings. % \CodeDefine\gm@secxx \def\gm@secxx#1#2[#3]#4{% - \expandafter\expandafter\csname\gm@secini#1\endcsname + \@xa\@xa\csname\gm@secini#1\endcsname \gm@secstar[#2][#3]{#4}}% } @@ -1035,7 +1224,7 @@ \def\gm@straightensec#1{% the parameter is for the command's name. \@ifundefined{#1}{}{% we don't change the ontological status of the % command because someone may test it. - \@namelet{\gm@secini#1}{#1}% + \n@melet{\gm@secini#1}{#1}% \@namedef{#1}{% \@ifstar{\def\gm@secstar{*}\gm@sec{#1}}{% \def\gm@secstar{}\gm@sec{#1}}}}% @@ -1048,90 +1237,187 @@ % capacity exceeded' error. Anyway, who on Earth wants paragraph % titles in toc or running head? % + +% \division{\env{enumerate*} and \env{itemize*}} +% We wish the starred version of \env{enumerate} to be just numbered +% paragraphs. But \pk{hyperref} redefines |\item| so we should do it +% a~smart way, to set the \LaTeX's \env{list} parameters that is. % +% (Marcin Woli\'nski in \pk{mwcls} defines those environments slightly +% different: his item labels are indented, mine are not; his +% subsequent paragraphs of an item are not indented, mine are.) % -%\division{Varia} +% \CodeDefine*{enumerate*} +\@namedef{enumerate*}{% + \ifnum\@enumdepth>\thr@@ + \@toodeep + \else + \advance\@enumdepth\@ne + \edef\@enumctr{enum\romannumeral\the\@enumdepth}% + \@xa\list\csname label\@enumctr\endcsname{% + \partopsep\topsep \topsep\z@ \leftmargin\z@ + \itemindent\@parindent %\advance\itemindent\labelsep + \labelwidth\@parindent + \advance\labelwidth-\labelsep + \listparindent\@parindent + \usecounter \@enumctr + \def\makelabel##1{##1\hfil}}% + \fi} +\@namedef{endenumerate*}{\endlist} + +% \CodeDefine*{itemize*} +\@namedef{itemize*}{% + \ifnum\@itemdepth>\thr@@ + \@toodeep + \else + \advance\@itemdepth\@ne + \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}% + \@xa\list\csname\@itemitem\endcsname{% + \partopsep\topsep \topsep\z@ \leftmargin\z@ + \itemindent\@parindent + \labelwidth\@parindent + \advance\labelwidth-\labelsep + \listparindent\@parindent + \def\makelabel##1{##1\hfil }}% + \fi} +\@namedef{enditemize*}{\endlist} + + +% \division{The Logos} % -% \LaTeX\ provides a~very useful |\g@addto@macro| macro that adds its -% second argument to the current definition of its first argument -% (works iff the first argument is a~no argument macro). But I~needed -% it some times in a~document, where |@| is not a~letter. So: -% \CodeDefine\gaddtomacro -\let\gaddtomacro=\g@addto@macro +% We'll modify The \LaTeX\ logo now to make it fit better to various +% fonts. -% The redefining of the first argument of the above macro(s) is -% |\global|. What if we want it local? Here we are: -% \CodeDefine\addto@macro -\long\def\addto@macro#1#2{% - \toks@\expandafter{#1#2}% - \edef#1{\the\toks@}% -}%(|\toks@| is a~scratch register, namely |\toks0|.) +\let\oldLaTeX\LaTeX +\let\oldLaTeXe\LaTeXe + +\def\TeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX\@} + +\newcommand*\DeclareLogo[3][\relax]{% + % |#1| is for non-\LaTeX\ spelling and will be used in the PD1 + % encoding (to make pdf bookmarks);\\ + % |#2| is the command, its name will be the PD1 spelling by + % default,\\ + % |#3| is the definition for all the font encodings except PD1. + \ifx\relax#1\def\@tempa{\@xa\@gobble\string#2}% + \else + \def\@tempa{#1}% + \fi + \edef\@tempa{% + \@nx\DeclareTextCommand\@nx#2{PD1}{\@tempa}} + \@tempa + \DeclareTextCommandDefault#2{#3}} + + +\DeclareLogo\LaTeX{% + {% + L% + \setbox\z@\hbox{\check@mathfonts + \fontsize\sf@size\z@ + \math@fontsfalse\selectfont + A}% + \kern-.57\wd\z@ + \sbox\tw@ T% + \vbox to\ht\tw@{\copy\z@ \vss}% + \kern-.2\wd\z@}% originally $-,15$\,em for T. + {% + \ifdim\fontdimen1\font=\z@ + \else + \count\z@=\fontdimen5\font + \multiply\count\z@ by 64\relax + \divide\count\z@ by\p@ + \count\tw@=\fontdimen1\font + \multiply\count\tw@ by\count\z@ + \divide\count\tw@ by 64\relax + \divide\count\tw@ by\tw@ + \kern-\the\count\tw@ sp\relax + \fi}% + \TeX} + + +\DeclareLogo\LaTeXe{\mbox{\m@th \if + b\expandafter\@car\f@series\@nil\boldmath\fi + \LaTeX\kern.15em2$_{\textstyle\varepsilon}$}} -% And for use in the very document, -% \CodeDefine\addtomacro -\let\addtomacro=\addto@macro % `\LaTeXpar' in my opinion better describes what I~work with/in than % just `\LaTeX'. % \CodeDefine\LaTeXpar -\DeclareRobustCommand*{\LaTeXpar}{(L\kern-.36em% - {\sbox\z@ T% - \vbox to\ht\z@{\hbox{\check@mathfonts - \fontsize\sf@size\z@ - \math@fontsfalse\selectfont - A}% - \vss}% - }% - \kern-.07em% originally $-,15$\,em - )\TeX} +\DeclareLogo[(La)TeX]{\LaTeXpar}{% + {% + \setbox\z@\hbox{(}%) + \copy\z@ + \kern-.2\wd\z@ L% + \setbox\z@\hbox{\check@mathfonts + \fontsize\sf@size\z@ + \math@fontsfalse\selectfont + A}% + \kern-.57\wd\z@ + \sbox\tw@ T% + \vbox to\ht\tw@{\box\z@% + \vss}% + }% + \kern-.07em% originally $-,15$\,em for T. + {%( + \sbox\z@)% + \kern-.2\wd\z@\copy\z@ + \kern-.2\wd\z@}\TeX +} -%\CodeDefine\@emptify \CodeDefine\emptify -\newcommand*\@emptify[1]{\let#1=\@empty} -\@ifdefinable\emptify{\let\emptify\@emptify} -% Note the two following commands are in fact one-argument. -%\CodeDefine\g@emptify \CodeDefine\gemptify -\newcommand*\g@emptify{\global\@emptify} -\@ifdefinable\gemptify{\let\gemptify\g@emptify} +% \division{Expanding turning stuff all into `other'} -% \CodeDefine\@relaxen \CodeDefine\relaxen -\newcommand*\@relaxen[1]{\let#1=\relax} -\@ifdefinable\relaxen{\let\relaxen\@relaxen} +% While typesetting a~unicode file contents with \pk{inputenc} package +% I~got a~trouble with some Unicode sequences that expanded to +% unexpandable CSs: they could'nt be used within +% |\csname...\endcsname|. My \TeX Guru advised to use |\meanig| to +% make all the name `other'. So---here we are. +% +% Don't use them in |\edef|s, they would expand not quite. +% \CodeDefine\unex@namedef \CodeDefine\unex@nameuse -% Note the two following commands are in fact one-argument. -% \CodeDefine\g@relaxen \CodeDefine\grelaxen -\newcommand*\g@relaxen{\global\@relaxen} -\@ifdefinable\grelaxen{\let\grelaxen\g@relaxen} +% The next macro turns its |#2| all into `other' chars and assigns +% them to |#1| which has to be a~CS or an active char. +% +% \CodeDefine\def@other -% For the heavy debugs I~was doing while preparing \pk{gmdoc}, as -% a~last resort I~used |\showlists|. But this command alone was -% usually too little: usually it needed setting |\showboxdepth| and -% |\showboxbreadth| to some positive values. So, +\long\def\def@other#1#2{% + \long\def\gm@def@other@tempa{#2}% + \all@other#1{#2}} + +% The next macro is intended to be put in |\edef|s with a~macro +% argument. The meaning of the macro will be made all `other' and the +% words '(long) macro:->' gobbled. +%\CodeDefine\all@other +\def\all@other#1{\@xa\gm@gobmacro\meaning#1} + +% The |\gm@gobmacro| macro above is applied to gobble the |\meaning|'s +% beginnig, |long macro:->| all `other' that is. % -% \CodeDefine\gmshowlists -% \changes{v0.59}{06/09/04}{moved here from \pk{gmdoc}} -\def\gmshowlists{\showboxdepth=1000 \showboxbreadth=1000 \showlists} +% \CodeDefine\gm@gobmacro +\edef\@tempa{% + \def\@nx\gm@gobmacro##1\@xa\@gobble\string\macro:->{}} +\@tempa -% \CodeDefine\nameshow -\newcommand*\nameshow[1]{\expandafter\show\csname#1\endcsname} +% In the next two macros' names, `unex' stands both for not expanding +% the argument(s) and for disastrously partial unexpandability of the +% macros themselves. +\long\def\unex@namedef#1#2{% + \edef@other\gmu@tempa{#1}% + \@xa\long\@xa\def\csname\gmu@tempa\endcsname{#2}} -% Standard |\string| command returns a~string of `other' chars except -% for the space, for which it returns | |$_{10}$. In \pk{gmdoc} -% I~needed the spaces in macros' and environments' names to be always -% \catother, so I~define -% \CodeDefine\xiistring -% \changes{v0.59}{06/09/04}{moved here from \pk{gmdoc}} -\def\xiistring#1{% - \if\noexpand#1\twelvespace - \twelvespace - \else - \string#1% - \fi} + +\long\def\unex@nameuse#1{% + \edef@other\gmu@tempa{#1}% + \csname\gmu@tempa\endcsname} +%\division{Varia} +% + % A~very neat macro provided by \pk{doc}. I~copy it % \*|verbatim|. % \CodeDefine\* @@ -1158,7 +1444,7 @@ % \changes{v0.62}{06/09/07}{moved from \pk{pmlectionis.cls}} \bgroup\catcode`\^^M\active% the comment signs here are crucial. \firstofone{\egroup% -\newcommand*\defobeylines{\catcode`\^^M=13 \def^^M{\par}}}% +\def\defobeylines{\catcode`\^^M=13 \def^^M{\par}}}% % Another thing I~dislike in \LaTeX\ yet is doing special things for % |\...skip|'s, 'cause I~like the Knuthian simplicity. So I~sort of @@ -1224,7 +1510,7 @@ \RequirePackage{multicol}% \def\@starttoc##1{% \begin{multicols}{2}\makeatletter\@input {\jobname .##1}% - \if@filesw \expandafter \newwrite \csname tf@##1\endcsname + \if@filesw \@xa \newwrite \csname tf@##1\endcsname \immediate \openout \csname tf@##1\endcsname \jobname .##1\relax \fi \@nobreakfalse\end{multicols}}} @@ -1241,25 +1527,6 @@ \advance\dimen0 by-\pagetotal \ifdim\dimen0<#1\relax\newpage\fi} -% The |\dots| didn't come out well. My small investigation revealed -% a~mysterious replacement of the original \LaTeX\ definition of -% |\textellipsis| with -% \begin{verbatim} -%> \textellipsis=macro: -%->\PD1-cmd \textellipsis \PD1\textellipsis . -% \end{verbatim} -% \par So, let's ensure |\dots| are given the proper kerning: -% \CodeDefine\ltxtextellipsis\CodeDefine\dots -\DeclareTextCommandDefault\ltxtextellipsis{% - .\kern\fontdimen3\font - .\kern\fontdimen3\font - .\kern\fontdimen3\font} - -\DeclareRobustCommand*\dots{% - \ifmmode\mathellipsis\else\ltxtextellipsis\fi} - -\let\ldots\dots - % Two shorthands for debugging: %\CodeDefine\tOnLine\CodeDefine\OnAtLine \newcommand*\tOnLine{\typeout{\on@line}} @@ -1276,11 +1543,105 @@ % \CodeDefine\jobnamewoe \def\gm@jobn#1.#2\@@nil{#1} -\def\jobnamewoe{\expandafter\gm@jobn\jobname.\@@nil}% We add the dot +\def\jobnamewoe{\@xa\gm@jobn\jobname.\@@nil}% We add the dot % to be sure there is one although I'm not sure whether you can \TeX\ % a~file that has no extrension. + +% While typesetting a~UTF-8 ls-R result I~found a~difficulty that +% follows: UTF-8 encoding is handled by the \pk{inputenc} +% package. It's O.K. so far. The UTF-8 sequences are managed using +% active chars. That's O.K. so far. While writing such sequences to +% a~file, the active chars expand. You feel the blues? When the result of +% expansion is read again, it sometimes is again an active char, but +% now it doesn't star a~correct UTF-8 sequence. +% +% Because of that I~wanted to `freeze' the active chars so that they +% would be |\write|n to a~file unexpanded. A~very brutal operation is +% done: we look at all 256 chars' catcodes and if we find an active +% one, we |\let| it |\relax|. As the macro does lots and lots of +% assignments, it shouldn't be used in |\edef|s. +% +% \CodeDefine\freeze@actives +% \changes{v0.76}{2007/02/07}{added} + +\def\freeze@actives{% + \count\z@\z@ + % + \@whilenum\count\z@<\@cclvi\do{% + \ifnum\catcode\count\z@=\active + \uccode`\~=\count\z@ + \uppercase{\let~\relax}% + \fi + \advance\count\z@\@ne}} + + +% A~macro that typesets all 256 chars of given font. It makes use of +% |\@whilenum|. \CodeDefine\ShowFont + +\newcommand*\ShowFont[1][6]{% + \begin{multicols}{#1}[The current font (the \f@encoding\ encoding):] + \parindent\z@ + \count\z@\m@ne + \@whilenum\count\z@<\@cclv\do{ + \advance\count\z@\@ne + \ \the\count\z@:~\char\count\z@\par} + \end{multicols}} + + +% A~couple of macros for typesetting liturgic texts such as psalmody +% of Liturgia Horarum. I~wrap them into a~declaration since they'll be +% needed not every time. +% \CodeDefine\liturgiques +% \changes{v0.76}{07/3/30}{added, or rather moved from \file{Akatyst.tex}} +\newcommand*\liturgiques[1][red]{% Requires the \pk{color} package. + \gmu@RP{color}% + \newcommand*\czerwo{\small\color{#1}}% environment + \newcommand{\czer}[1]{\leavevmode{\czerwo##1}}% we leave + % vmode because if we don't, then \env{verse}'s |\everypar| would be + % executed in a~group and thus its effect lost. + \def\*{\czer{$*$}} + \def\+{\czer{$\dag$}} + \newcommand*\nieczer[1]{\textcolor{black}{##1}}} + +% A~command that issues a~message urging to load a~package if it has +% not been loaded. +\let\gmu@RP\RequirePackage + +% \CodeDefine\gmu@RP +\AtBeginDocument{% + \renewcommand*\gmu@RP[2][]{% + \@ifpackageloaded{#2}{}{% + \typeout{^^J! Package `#2' not loaded!!! (\on@line)^^J}}}} + + +% It's very strange to me but it seems that $\continuum$ is not +% defined in the basic math packages. It is missing at least in the +% \textit{Symbols} book.\CodeDefine\continuum +\providecommand*\continuum{\gmu@RP{eufrak}\mathfrak{c}} + +% And this macro I~saw in the \pk{ltugproc} document class nad I~liked +% it. +\providecommand*\acro[1]{{\scshape\lowercase{#1}}} + +\newcommand*\IMO{\acro{IMO}} +\newcommand*\AKA{\acro{AKA}} + + + +% Probably the only use of it is loading \pk{gmdocc.cls} `as second +% class'. This command takes first argument optional, options of the +% class, and second mandatory, the class name. I~use it in an article +% about \pk{gmdoc}. +\def\secondclass{% + \newif\ifSecondClass + \SecondClasstrue + \@fileswithoptions\@clsextension}%|[outeroff,gmeometric]{gmdocc}|% +% it's loading \pk{gmdocc.cls} with all the bells and whistles except +% the error message. + + \endinput % % \changes{v0.70}{06/10/20}{Package renamed to \pk{gmutils} from @@ -1294,13 +1655,23 @@ % only one optional, it's the title to toc and running head not just % to the latter} % +% \changes{v0.76}{2007/03/10}{A~`fixing' of \cs{dots} was rolled back +% since it came out they were O.K. and that was the QX encoding that +% prints them very tight} % +% \changes{v0.77}{2007/04/13}{\cs{afterfi} \& pals made two-argument +% as the Marcin Woli\'nski's analogoi are. At this occasion some +% redundant macros of that family are deleted} +% +% \changes{v0.78}{2007/04/26}{\cs{@namelet} renamed to \cs{n@melet} +% to solve a~conflict with the \pk{beamer} class. The package contents +% regrouped} % % \PrintChanges\PrintIndex %\NoEOF % (For my GNU Emacs:) %%% Local Variables: -%%% mode: latex -%%% TeX-master: "e:/LaTeX/TeXGuru/gmutils/gmutilsDoc" +%%% mode: doctex +%%% TeX-master: "../../../../LaTeX/TeXGuru/gmutils/gmutilsDoc.tex" %%% End: -- cgit v1.2.3