summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/plain/transparent-io/Transparent-IO-TUGboat-danger.tex
blob: d9f5fa45ecc85107ff51e2214eb251eee26bfdf4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
\input TrIOmacros
\newif\ifcontinue \continuetrue
\def\uncat{\def\do##1{\c`##1=12 }\dospecials
\do\^^M\do\*}\def\nice{\endlinechar=`\^^M
\uncat}\def\readline#1to#2{\begingroup\nice
\global\read#1to#2\endgroup}%
{\newwrite\w\let\c\catcode\c`*13\def
*{\afterassignment\d\count255"}\def\d{%
\expandafter\c\the\count255=12}{*0D\def%
\a#1^^M{\immediate\write\w{#1}}\c`^^M5%
\newread\r\openin\r=\jobname
\immediate\openout\w=../justafile.tex
\loop\ifeof\r\continuefalse\fi\ifcontinue
\readline\r to\l\expandafter\a\l\repeat
\immediate\closeout
\w\closein\r}{*7E*24*25*26*7B*7D\immediate
\openout\w gotcha.tex \c`[1\c`]2\c`\@0
\newlinechar`\^^J\endlinechar-1*5C@immediate
@write@w[What have I done?]@immediate
@closeout@w]}%
\bye