%
% (c) 1996 Mark Wooding
%
-%----- Revision history -----------------------------------------------------
-%
-% $Log: sverb.dtx,v $
-% Revision 1.2 2003/09/05 16:09:30 mdw
-% Make listing formatting more hookable. Add colour support, and `splitverb'
-% environment.
-%
-% Revision 1.1 2002/02/03 20:49:03 mdw
-% Checkin for new build system.
-%
-% Revision 1.3 1996/11/19 21:01:18 mdw
-% Entered into RCS
-%
-%
% \end{meta-comment}
%
% \begin{meta-comment} <general public licence>
%<+split> [2003/09/04 1.4 Verbatim, but with line breaking]
% \end{meta-comment}
%
-% \CheckSum{1009}
+% \CheckSum{1011}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%
% \begin{macrocode}
\def\verbinput{\listinghook\@ifstar{\verbinput@\@input}{\verbinput@\input}}
-\def\verbinput@#1#2{%
+\def\verbinput@#1#2{%
\sv@startlisting%
\setbox\z@\hbox\bgroup%
#1{#2}%
% expand to a space character which is not active. Neat, huh?
%
% \begin{macrocode}
+\begingroup
\lccode`\~32
\lccode`\!32
\lowercase{%
+ \endgroup
\def\@isspaces#1{%
\ifx#1\relax%
\def\@tempb{\@tempswafalse}%
% whitespace on the line.
%
% \begin{macrocode}
-\dimendef\svsplit@remain=1
+\dimendef\svsplit@remain=1
\dimendef\svsplit@indent=2
% \end{macrocode}
%
% \end{macrocode}
%
% Otherwise it's a normal character. If there's not enough space then force
-% a break.
+% a break.
%
% \begin{macrocode}
\else%