summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-01-28 23:58:52 +0000
committerKarl Berry <karl@freefriends.org>2017-01-28 23:58:52 +0000
commit4720ed76d9898f014624c64c15ac73a35a757495 (patch)
treeb79cfd36d00dcea5878ac9614e130cb8e5eb4a72 /Master/texmf-dist/tex/plain
parent8db02857a7a71eb67ca99293eb2bc658fa4447a2 (diff)
add new list-latin.tex from dek
git-svn-id: svn://tug.org/texlive/trunk@43076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain')
-rw-r--r--Master/texmf-dist/tex/plain/base/list-latin.tex94
1 files changed, 94 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/base/list-latin.tex b/Master/texmf-dist/tex/plain/base/list-latin.tex
new file mode 100644
index 00000000000..71d5bb6d9a1
--- /dev/null
+++ b/Master/texmf-dist/tex/plain/base/list-latin.tex
@@ -0,0 +1,94 @@
+% This program by D. E. Knuth is not copyrighted and can be used freely.
+% Makes a listing of one or more files
+% Extended to allow the Latin-1 accented characters in UTF-8 encoding
+% Typical usage:
+% tex list-latin *.txt \\end
+
+\def\grabfile#1 {\setbox0=\lastbox\endgraf\doit{#1}}
+\everypar{\grabfile}
+
+\font\filenamefont= cmtt8 scaled\magstep3
+\font\headlinefont= cmr8
+\font\listingfont= cmtex10
+\font\ttfont= cmtt10
+\font\syttfont= cmsytt10
+\font\eoffont= cmti8
+
+\def\today{\ifcase\month\or
+ January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi
+ \space\number\day, \number\year}
+\newcount\m \newcount\n
+\n=\time \divide\n 60 \m=-\n \multiply\m 60 \advance\m \time
+\def\hours{\twodigits\n\twodigits\m}
+\def\twodigits#1{\ifnum #1<10 0\fi \number#1}
+
+\newlinechar=`@
+\message{@\today\space at \hours}
+
+\raggedbottom
+\nopagenumbers
+
+\newcount\n
+\catcode`\^^c3=\active
+\def\missing{{\syttfont\char15}}
+\def^^c3#1{\n=`#1\advance\n by-128
+ {\ttfont\ifcase\n
+ \`A\or\'A\or\^A\or\~A\or\"A\or\AA\or\AE\or\c C\or
+ \`E\or\'E\or\^E\or\"E\or\`I\or\'I\or\^I\or\"I\or
+ \missing\or\~N\or\`O\or\'O\or\^O\or\~O\or\"O\or{\syttfont\char2}\or
+ \O\or\`U\or\'U\or\^U\or\"U\or\'Y\or\missing\or\ss\or
+ \`a\or\'a\or\^a\or\~a\or\"a\or\aa\or\ae\or\c c\or
+ \`e\or\'e\or\^e\or\"e\or\`\i\or\'\i\or\^\i\or\"\i\or
+ \missing\or\~n\or\`o\or\'o\or\^o\or\~o\or\"o\or{\syttfont\char4}\or
+ \o\or\`u\or\'u\or\^u\or\"u\or\'y\or\missing\or\"y\fi}}
+
+\chardef\other=12
+\def\doit#1{\message{@Listing #1@}
+ \begingroup \everypar{} \frenchspacing
+ \headline{\filenamefont#1\quad\headlinefont \today\ at \hours
+ \hfill Page \folio}
+ \def\do##1{\catcode`##1=\other}\dospecials
+ \catcode127=\other \catcode9=\other \catcode12=\other
+ \parindent 0pt \parfillskip=0pt plus 1fil minus 1in
+ \everypar{\hangindent 1in} \rightskip=0pt plus 2in
+ \def\par{\ifvmode\penalty-500\medskip\else\endgraf\fi}
+ \listingfont \obeylines \obeyspaces \global\pageno=1
+ \input #1 {\eoffont(end of\/ file)}\endgraf\vfill\eject\endgroup}
+{\obeyspaces\global\let =\ }
+\catcode`\_=\other % allow _ in file names
+
+% A tab (^^I) prints as lowercase gamma.
+% Character ^^M could be made visible, with a bit of work;
+% at present, it's indistinguishable from newline (^^J).
+
+% You can get up to 103 characters on a line without an overfull box.
+
+% Further notes from Don, January 2017:
+%
+% Maybe I'm the only person left who still uses plain TeX in a UTF-8 world.
+%
+% But for what it's worth, I'm appending a little file that I prepared today,
+% since it turned out to be useful in a project of interest to me.
+%
+% Namely, I've got a program that takes an XML encoding of organ-pipe
+% settings, used by performers when they change the stops during a
+% performance, and translates it into a human-readable form.
+% I mean, the output says "when you reach combination nunber 0013,
+% the following ranks of pipes are set to play".
+%
+% The names of those ranks of pipes often contain accented characters,
+% as well as things like the German \ss. In order to use such texts on the Web,
+% I have them in UTF-8 code. But to make a verbatim hardcopy listing using
+% nice typewriter-style fonts, I wanted a program like "list.tex", which
+% I've been using to print text files for more than 25 years.
+%
+% Fortunately, the accented characters all turn out to be two-character
+% sequences in UTF-8, where the first character is always '303. So I
+% can simply make that character active, and it can then change the
+% following character appropriately.
+%
+% Therefore I added a few lines to "list.tex", resulting in "list-latin.tex".
+% And it works! Hence it might be a useful addition to the CTAN archives.
+%
+% Yours truly, Don