Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.1 6/24/83; site umcp-cs.UUCP Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!teddy!panda!talcott!harvard!seismo!umcp-cs!chris From: chris@umcp-cs.UUCP (Chris Torek) Newsgroups: net.text Subject: Re: TeX macro for a ``verbatim'' listing Message-ID: <2452@umcp-cs.UUCP> Date: Sat, 12-Jan-85 19:05:58 EST Article-I.D.: umcp-cs.2452 Posted: Sat Jan 12 19:05:58 1985 Date-Received: Mon, 14-Jan-85 03:16:18 EST References: <120@IITCS.UUCP> Distribution: net Organization: U of Maryland, Computer Science Dept., College Park, MD Lines: 54 We have one which I almost don't want to post. (It's that ugly...) It verbatims all text from "\begincf" until the string "`@" (without the double quotes). Here it is; don't forget to delete the .signature: % fonts \font\bigtt=amtt10 scaled 1200 \font\bigrm=amr10 scaled 1200 \font\bigbf=ambx10 scaled 1200 \font\bigtitle=amssbx10 scaled 1200 \footline={} % no page numbers \chardef\backquote=`\` % a backquote (`) {\obeyspaces \gdef {\ }} % spaces are REALLY spaces {\catcode`\`=13\gdef`{\testendcf}} % make active ` invoke \testendcf % make RETURN break lines, when it's active \def\creturn{\futurelet\next\checkline} {\catcode13=\active% these lines must end with % \gdef\checkline{\ifx\next^^M\let\next=\blankstuff\else\let\next=\endgraf\fi% \next}% \gdef^^M{\creturn}} \def\blankstuff{\endgraf\vskip0.0pt\leavevmode} % stuff for magic cf text \def\midcf{\begingroup \catcode`\\=12 \catcode`\{=12 \catcode`\}=12 \catcode`\$=12 \catcode`\&=12 \catcode`\#=12 \catcode`\%=12 \catcode`\~=12 \catcode`\_=12 \catcode`\^=12 \obeyspaces \bigtt} \def\mypar{\endgraf\message{How did I get here?}} % \def\mypar{\message{HI}\endgraf\vskip\baselineskip\leavevmode} \outer\def\begincf{\midcf\let\par=\mypar \parskip=0.0pt\parindent=0.0pt \catcode`\`=\active\catcode13=\active} \def\testendcf{\futurelet\next\testendtu} \def\testendtu{\ifx\next@\let\next=\endcf\else\let\next=\relax\backquote\fi \next} \def\endcf@{\endgroup} % that's all... -- (This line accidently left nonblank.) In-Real-Life: Chris Torek, Univ of MD Comp Sci Dept (+1 301 454 7690) UUCP: {seismo,allegra,brl-bmd}!umcp-cs!chris CSNet: chris@umcp-cs ARPA: chris@maryland