From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 fonts/apl/aplverb.tex | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 fonts/apl/aplverb.tex

(limited to 'fonts/apl/aplverb.tex')

diff --git a/fonts/apl/aplverb.tex b/fonts/apl/aplverb.tex
new file mode 100644
index 0000000000..cac8e3acdb
--- /dev/null
+++ b/fonts/apl/aplverb.tex
@@ -0,0 +1,45 @@
+%		aplverb.tex = verbatim.tex
+%
+%
+%	F|ljande macron anv{nds d} man vill f} ut \TeX-kommandon
+%	i klartext.  @text@ ger text i fonten \tt med alla kontroll-
+%	tecken och dylika bevarade (\TeX\ f|rst}r sig endast p} kommandot
+%	@ i denna mode). Man kan ocks} utnyttja \begintt ... \endtt f|r
+%	att beskriva kommandon, d} {r ocks} \obeylines och \obeyspaces
+%	aktiva. Om man vill anv{nda vissa \TeX-kommandon men vill
+%	ocks} displaya n}got i en-kolumn-tabell-form kan man anv{nda
+%	\begindisplay ...\cr ...\cr \enddisplay
+%           Om du vill anv{nda \begintt...\endtt f|r text som inte
+%       ryms p} en sida, kan du ocks} anv{nda \beginlines...\endlines.
+%       Varje rad m}ste d} b|rjas och avslutas med kommandot @.
+\newskip\verbatimindent \verbatimindent=0cm
+\newskip\ttglue{\tt \global\ttglue=.5em plus.25em minus.15em}
+\def\@{\char'100 }
+%
+\outer\def\begindisplay{\obeylines\startdisplay}
+{\obeylines\gdef\startdisplay#1
+    {\catcode`\^^M=5$$#1\halign\bgroup&\hskip\verbatimindent##\hfil\cr}}
+\outer\def\enddisplay{\crcr\egroup$$}
+%
+\chardef\other=12
+\def\ttverbatim{\begingroup \catcode`\\=\other \catcode`\{=\other
+    \catcode`\}=\other \catcode`\$=\other \catcode`\&=\other
+    \catcode`\#=\other \catcode`\%=\other \catcode`\~=\other
+    \catcode`\_=\other \catcode`\^=\other\catcode`\*=\other\catcode`\==\other
+    \obeyspaces \obeylines \tt}
+{\obeyspaces\gdef {\ }}
+%
+\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt
+    \catcode`\@=0 \parindent=\verbatimindent \rightskip=-5pc \ttfinish}
+{\catcode`\@=0 @catcode`@\=\other % @ is temporary escape character
+    @obeylines % end of line is active
+    @gdef@ttfinish#1^^M#2\endtt{#1@vbox{#2}@endgroup$$}}
+%
+\catcode`\@=\active
+{\obeylines\gdef@{\ttverbatim\spaceskip=\ttglue\let^^M=\ \let@=\endgroup}}
+
+\def\beginlines{\par\begingroup\nobreak\medskip\parindent=0pt
+   \kern1pt\nobreak \obeylines \everypar{\strut}}
+\def\endlines{\kern1pt\endgroup\medbreak\noindent}
+
+\endinput
-- 
cgit v1.2.3

