Released version 1.0

[ucwmac.git] / ucw-verb.tex

diff --git a/ucw-verb.tex b/ucw-verb.tex
index 2b9890972e8a7c6cc4112493741862e246aa12bf..981aebefbb834fa4062d6e10a142aae038c30c3a 100644 (file)
--- a/ucw-verb.tex
+++ b/ucw-verb.tex
@@ -1,4 +1,4 @@
-% The UCW Macro Collection: Verbatim environment
+% The UCW Macro Collection: Verbatim environments
 % Written by Martin Mares <mj@ucw.cz> in 2010 and placed into public domain
 % -------------------------------------------------------------------------
 
@@ -9,7 +9,7 @@
 \def\frenchsp@cing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m%
 \sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m}
 
-% Typesetting of one verbatim word: |word|
+% Typesetting of one verbatim word: |word| (enable by \inlineverbon)
 
 % Set if spaces should be rendered as "bath-tub" glyphs
 \newif\ifshowspaces
@@ -28,9 +28,21 @@
 \gdef\showsp@ces{\ifshowspaces\let =\sp@ce\fi}
 \global\let =\ }
 
-\catcode124=\active % Make | active
-\def\ttst@rt{\begingroup\setverb@tim\let|=\endgroup}
-\let|=\ttst@rt
+{\catcode124=\active % Make | active
+\gdef\ttst@rt{\begingroup\setverb@tim\let|=\endgroup}
+\gdef\inlineverbon{\catcode124=\active\let|=\ttst@rt}
+\gdef\inlineverboff{\catcode124=12}
+}
+
+% Typesetting of verbatim text with a given delimiter:
+%      - usage: \verb%verbatim text%
+%      - the delimiter is the first character after \verb
+%      - remember that writing (for example) \verbz with meaning \verb
+%        with the delimiter 'z' is possible only if \catcode`z is not 11
+
+\def\verb{\relax\def\sv@rb##1{\uccode`~=`##1%
+\uppercase{\catcode`~13\global\let~\endgroup}}%
+\begingroup\setverb@tim\sv@rb}
 
 % Typesetting of verbatim blocks:
 %      - the block is enclosed in balanced {}'s