summaryrefslogtreecommitdiff
path: root/systems/doc/hitex/hint.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-03-06 03:01:07 +0000
committerNorbert Preining <norbert@preining.info>2022-03-06 03:01:07 +0000
commita2c331d17828388705046ea495e5fe5135bbcc83 (patch)
treebc7f9b50750ad2331f4495f511f6e71ac13bf680 /systems/doc/hitex/hint.sty
parent19a90b19f6ec33aec1291be08fecfece45735a22 (diff)
CTAN sync 202203060301
Diffstat (limited to 'systems/doc/hitex/hint.sty')
-rw-r--r--systems/doc/hitex/hint.sty87
1 files changed, 77 insertions, 10 deletions
diff --git a/systems/doc/hitex/hint.sty b/systems/doc/hitex/hint.sty
index 4b702e84d5..1fa9d7232f 100644
--- a/systems/doc/hitex/hint.sty
+++ b/systems/doc/hitex/hint.sty
@@ -1,6 +1,79 @@
+% Copyright 2017-2022 Martin Ruckert, Hochschule Muenchen, Lothstrasse 64, 80336 Muenchen
+%
+% Permission is hereby granted, free of charge, to any person obtaining a copy
+% of this software and associated documentation files (the "Software"), to deal
+% in the Software without restriction, including without limitation the rights
+% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+% copies of the Software, and to permit persons to whom the Software is
+% furnished to do so, subject to the following conditions:
+%
+% The above copyright notice and this permission notice shall be
+% included in all copies or substantial portions of the Software.
+%
+% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+% COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+% WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT
+% OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+% THE SOFTWARE.
+%
+% Except as contained in this notice, the name of the copyright holders shall
+% not be used in advertising or otherwise to promote the sale, use or other
+% dealings in this Software without prior written authorization from the
+% copyright holders.
+
\input idxmac.tex
\let\displayverbatimfont=\tt
-\input verbatim.tex
+
+% V E R B A T I M . T E X
+%
+% THIS SET OF MACROs IS TAKEN FROM D.E.K.'s TeXBook
+% AND PROVIDES AN EASY WAY OF TYPESETTING TEXTS VERBATIM:
+%
+% 1. \verbatim<character><text without that character><character>
+% causes the text to be set verbatim using \tt font;
+% 2. if the text uses up all the alphabet, \doubleverbatim macro
+% can be used instead; this is similar to the previous one but
+% a pair of characters is now used as a delimiter;
+% 3. in case of emergency \tripleverbatim macro may be of help...
+%
+%---------------------------------------------
+\def\uncatcodespecials % see D.E.K., pp. 344 and 380
+ {\def\do##1{\catcode`##1=12}\dospecials}%
+%---------------------------------------------
+{\catcode`\^^I=\active \gdef^^I{\ \ \ \ }% TAB character is replaced by
+ % 4 spaces; it is better than
+ % nothing, but it does not mimic
+ % true tabbing satisfactorily---maybe
+ % some nice day...
+ \catcode`\`=\active\gdef`{\relax\lq}}% this line inhibits Spanish
+ % ligatures ?` and !` of \tt font
+\def\setupverbatim % see D.E.K., p. 381
+ {\tt %
+ \spaceskip=0pt \xspaceskip=0pt % just in case...
+ \catcode`\^^I=\active %
+ \catcode`\`=\active %
+ \def\par{\leavevmode\endgraf}% this causes that empty lines aren't
+ % skipped
+ \obeylines \uncatcodespecials \obeyspaces}%
+{\obeyspaces \global\let =\ }% this causes that leading blanks aren't
+ % skipped; cf. also def's of \space, \endgraf,
+ % \lq, \obeyspaces, and \obeylines,
+ % D.E.K., pp. 351--352
+%---------------------------------------------
+% see D.E.K., p. 382
+\def\doverbatim#1{\def\next##1#1{##1\endgroup}\next}%
+\def\verbatim{\begingroup\setupverbatim\doverbatim}%
+%----------
+\def\dodoubleverbatim#1#2{\def\next##1#1#2{##1\endgroup}\next}%
+\def\doubleverbatim{\begingroup\setupverbatim\dodoubleverbatim}%
+%----------
+\def\dotripleverbatim#1#2#3{\def\next##1#1#2#3{##1\endgroup}\next}%
+\def\tripleverbatim{\begingroup\setupverbatim\dotripleverbatim}%
+%---------------------------------------------
+
+
%%
%% special treatment for @
@@ -225,7 +298,7 @@
% redefine \5 for an optional break without the 2.5em reduced indentation
%\def\5{\hskip 0pt plus 2.5em\penalty-1\hskip 0pt plus -2.5em\kern0.5em\ignorespaces}% optional break
%redefine \5 to give some shrinkability
-% form hitex and hint style:
+% from hitex and hint style:
%\def\5{\hfil\penalty-1\hskip 0pt minus 6pt\hfilneg\kern2.5em\copy\bakk\ignorespaces}% optional break
\def\5{\hfil\penalty10\hfilneg\hskip 0pt minus 6pt\kern2.5em\copy\bakk\ignorespaces}% optional break
\def\J{}% dont show @& in the tex output
@@ -1365,7 +1438,8 @@
\ifbook\let\pagelabel=\relax\else
\ifpdf
-\def\pagelabel{\pdfdest name {page.\thepageno} fitv\relax}
+\def\pagelabel{%\message{pagelabel=\thepageno}
+\pdfdest name {page.\thepageno} fitv\relax}
\else
\let\pagelabel=\relax
\fi\fi
@@ -1437,10 +1511,3 @@
\ifhint\eject\fi% hitex will remove empty pages that were introduced by cwebmac
\makeatother
-
-
-
-
-
-
-