summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex')
-rw-r--r--Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex67
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex b/Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex
new file mode 100644
index 00000000000..9e99e4377a1
--- /dev/null
+++ b/Master/texmf-dist/source/latex/kuvio/doc-src/macros/misc/listing.tex
@@ -0,0 +1,67 @@
+% listing.tex
+% Anders G S Svensson
+% $Date: 1995/08/11 10:15:30 $
+% $Revision: 1.4 $
+
+\chardef\ListingcodE=\catcode`\_
+\catcode`\_=11
+
+\def\__bailout__{\message{again}\catcode`\_=\ListingcodE \endinput}
+
+\ifx\__agss_listing__\relax
+\else
+ \let\__agss_listing__\relax
+ \let\__bailout__\relax
+\fi
+
+\__bailout__
+
+%%%%%%%%%%
+
+\newcount\listinglineno \listinglineno=0
+\newdimen\listingindent \listingindent=30pt
+\newdimen\listingskip \listingskip=12pt
+\newread\_listingfile
+
+\font\ninett=cmtt9
+
+\def\_listing#1{%
+ \ifeof\_listingfile
+ \immediate\closein\_listingfile
+ \def\_next{\egroup\csname end#1\endcsname}%
+ \else
+ \def\_next{%
+ \def\_action{\expandafter\expandafter
+ \csname #1line\endcsname\_tmp}%
+ \expandafter\_action\csname #1endline\endcsname
+ \immediate\read\_listingfile to \_tmp
+ \_listing{#1}}%
+ \fi
+ \_next}
+
+\def\newlisting#1{%
+ \expandafter\def\csname #1\endcsname##1{\bgroup
+ \def\do####1{\catcode`####1=12}\dospecials
+ \frenchspacing
+ \immediate\openin\_listingfile=##1
+ \vbadness10000\csname #1tt\endcsname\csname every#1\endcsname
+ \ifeof\_listingfile \else \immediate\read\_listingfile to \_tmp \fi
+ \_listing{#1}}%
+ \expandafter\def\csname every#1\endcsname{\par
+ \parindent=\listingindent\leavevmode\parskip=0pt
+ \baselineskip=\listingskip\listingspaces}
+ \expandafter\let\csname #1line\endcsname\leavevmode
+ \expandafter\let\csname #1endline\endcsname\par
+ \expandafter\let\csname end#1\endcsname\par
+ \expandafter\let\csname #1tt\endcsname\ninett}
+
+\let\listingspaces\obeyspaces
+
+\newlisting{listing}
+\def\listingline{\leavevmode\linemarker}
+
+\def\linemarker{\advance\listinglineno by 1
+ \llap{\hbox to 15pt{\hbox to 0pt{\hss\sevenrm\the\listinglineno}\hfil}}}
+\def\nolinenumbers{\let\linemarker\relax}
+
+\catcode`\_=\ListingcodE