Ported from LaTeX 2.09 to modern LaTeX 2e.

This commit is contained in:
shivers 1997-10-06 21:16:27 +00:00
parent 1eecb9c9c5
commit 2df502cd0a
3 changed files with 9 additions and 43 deletions

View File

@ -1,5 +1,6 @@
%&lplain -*- latex -*- %&lplain -*- latex -*-
\documentstyle[code,11pt,boxedminipage,draftfooters,palatino,ct]{article} \documentclass[11pt]{article}
\usepackage{ct,boxedminipage,draftfooters,code}
\input{headings} \input{headings}
\begin{document} \begin{document}

View File

@ -110,7 +110,8 @@
{\catcode`\^^M=\active % these lines must end with % {\catcode`\^^M=\active % these lines must end with %
\gdef\codeallowbreaks{\catcode`\^^M\active\let^^M\cd@crbr}} \gdef\codeallowbreaks{\catcode`\^^M\active\let^^M\cd@crbr}}
\def\cd@crbr{\leavevmode\endgraf} % What ^M turns into. %\def\cd@crbr{\leavevmode\endgraf} % What ^M turns into.
\def\cd@crbr{\par\leavevmode} % What ^M turns into.
% \cd@obeycrsp % \cd@obeycrsp
@ -149,7 +150,7 @@
% FOO-\=BAR. % FOO-\=BAR.
\def\setupcode{\parsep=0pt\parindent=0pt% \def\setupcode{\parsep=0pt\parindent=0pt%
\tt\frenchspacing\catcode``=13\@noligs% \normalfont\ttfamily\frenchspacing\catcode``=13\@noligs%
\def\\{\char`\\}% \def\\{\char`\\}%
\let\dcd=\cd@dcd\let\cddollar=\cd@dollarspecial\let\cdmath=\cd@mathspecial% \let\dcd=\cd@dcd\let\cddollar=\cd@dollarspecial\let\cdmath=\cd@mathspecial%
\@makeother\$\@makeother\&\@makeother\#% \@makeother\$\@makeother\&\@makeother\#%
@ -291,3 +292,5 @@
% are starting a paragraph. % are starting a paragraph.
% - Added the codebox env. Tricky bit involving the first line hacked % - Added the codebox env. Tricky bit involving the first line hacked
% with help from David Long. % with help from David Long.
% Olin 8/94
% Changed the font commands for LaTeX2e.

View File

@ -1,44 +1,6 @@
% Loads cmtt fonts in on \tt. -*- latex -*- % Loads cmtt fonts in on \tt. -*- latex -*-
% I prefer these to the Courier fonts that latex gives you w/postscript styles. % I prefer these to the Courier fonts that latex gives you w/postscript styles.
% Courier is too spidery and too wide -- it's hard to get 80 chars on a line. % Courier is too spidery and too wide -- it's hard to get 80 chars on a line.
% This works with the font machinery as defined at CMU; your mileage may vary. % -Olin
% \tt defined here for 5-12,14,17 pt sizes; extend in the obvious way
% for bigger sizes. -Olin 3/91
% Interlock: only load this file once. \renewcommand{\ttdefault}{cmtt}
\ifx\ct@loaded\relax\endinput\else\let\ct@loaded=\relax\fi
% Define the fonts:
\newfont{\ctxvii}{cmtt10 scaled \magstep3}
\newfont{\ctxiv}{cmtt10 scaled \magstep2}
\newfont{\ctxii}{cmtt12}
\newfont{\ctxi}{cmtt10 scaled \magstephalf}
\newfont{\ctx}{cmtt10}
\newfont{\ctix}{cmtt9}
\newfont{\ctviii}{cmtt8}
\newfont{\ctvii}{cmtt10 at 7pt}
\newfont{\ctvi}{cmtt10 at 6pt}
\newfont{\ctv}{cmtt10 at 5pt}
% Install 3 fonts as the current \tt font family.
% #1 is textfont; #2 scriptfont; #3 scriptscriptfont.
\def\ct@setfonts#1#2#3{\def\ptt{\fam\ttfam#1}\textfont\ttfam#1%
\scriptfont\ttfam#2\scriptscriptfont\ttfam#3}
\@addfontinfo\@vipt{\ct@setfonts\ctvi\ctvi\ctvi}
\@addfontinfo\@viipt{\ct@setfonts\ctvii\ctvi\ctv}
\@addfontinfo\@viiipt{\ct@setfonts\ctviii\ctvi\ctv}
\@addfontinfo\@ixpt{\ct@setfonts\ctix\ctvi\ctv}
\@addfontinfo\@xpt{\ct@setfonts\ctx\ctvii\ctv}
\@addfontinfo\@xipt{\ct@setfonts\ctxi\ctviii\ctvi}
\@addfontinfo\@xiipt{\ct@setfonts\ctxii\ctviii\ctvi}
\@addfontinfo\@xivpt{\ct@setfonts\ctxiv\ctx\ctvii}
\@addfontinfo\@xviipt{\ct@setfonts\ctxvii\ctxii\ctx}
%\@addfontinfo\@xxpt{\ct@setfonts\ctxx\ctxiv\ctxii}
%\@addfontinfo\@xxvpt{\ct@setfonts\ctxxv\ctxx\ctxvii}
%% Note that \@xiipt, for example, is called from 2 places:
%% at the end of the \@setsize sets up 12pt (from, say, \normalsize),
%% and at the end of the \@getfont that \ptt does when loading in
%% a font. However, since the @\setsize whomps the default defn of
%% \ptt, this second call never happens. And a good thing, too.