Untabify.

This commit is contained in:
Karl Berry 1996-09-30 17:47:57 +00:00
parent a8de4b93e3
commit 82e6316607

View file

@ -104,10 +104,9 @@
\hyphenation{eshell} \hyphenation{eshell}
% Margin to add to right of even pages, to left of odd pages. % Margin to add to right of even pages, to left of odd pages.
\newdimen \bindingoffset \bindingoffset=0pt \newdimen \bindingoffset
\newdimen \normaloffset \normaloffset=\hoffset \newdimen \normaloffset
\newdimen\pagewidth \newdimen\pageheight \newdimen\pagewidth \newdimen\pageheight
\pagewidth=\hsize \pageheight=\vsize
% Sometimes it is convenient to have everything in the transcript file % Sometimes it is convenient to have everything in the transcript file
% and nothing on the terminal. We don't just call \tracingall here, % and nothing on the terminal. We don't just call \tracingall here,
@ -128,7 +127,7 @@
\newdimen\cornerlong \newdimen\cornerthick \newdimen\cornerlong \newdimen\cornerthick
\newdimen \topandbottommargin \newdimen \topandbottommargin
\newdimen \outerhsize \newdimen \outervsize \newdimen \outerhsize \newdimen \outervsize
\cornerlong=1pc\cornerthick=.3pt % These set size of cropmarks \cornerlong=1pc\cornerthick=.3pt % These set size of cropmarks
\outerhsize=7in \outerhsize=7in
%\outervsize=9.5in %\outervsize=9.5in
% Alternative @smallbook page size is 9.25in % Alternative @smallbook page size is 9.25in
@ -167,8 +166,8 @@
% %
\def\croppageout#1{\hoffset=0pt % make sure this doesn't mess things up \def\croppageout#1{\hoffset=0pt % make sure this doesn't mess things up
{\escapechar=`\\\relax % makes sure backslash is used in output files. {\escapechar=`\\\relax % makes sure backslash is used in output files.
\shipout \shipout
\vbox to \outervsize{\hsize=\outerhsize \vbox to \outervsize{\hsize=\outerhsize
\vbox{\line{\ewtop\hfill\ewtop}} \vbox{\line{\ewtop\hfill\ewtop}}
\nointerlineskip \nointerlineskip
\line{\vbox{\moveleft\cornerthick\nstop} \line{\vbox{\moveleft\cornerthick\nstop}
@ -176,19 +175,19 @@
\vbox{\moveright\cornerthick\nstop}} \vbox{\moveright\cornerthick\nstop}}
\vskip \topandbottommargin \vskip \topandbottommargin
\centerline{\ifodd\pageno\hskip\bindingoffset\fi \centerline{\ifodd\pageno\hskip\bindingoffset\fi
\vbox{ \vbox{
{\let\hsize=\pagewidth \makeheadline} {\let\hsize=\pagewidth \makeheadline}
\pagebody{#1} \pagebody{#1}
{\let\hsize=\pagewidth \makefootline}} {\let\hsize=\pagewidth \makefootline}}
\ifodd\pageno\else\hskip\bindingoffset\fi} \ifodd\pageno\else\hskip\bindingoffset\fi}
\vskip \topandbottommargin plus1fill minus1fill \vskip \topandbottommargin plus1fill minus1fill
\boxmaxdepth\cornerthick \boxmaxdepth\cornerthick
\line{\vbox{\moveleft\cornerthick\nsbot} \line{\vbox{\moveleft\cornerthick\nsbot}
\hfill \hfill
\vbox{\moveright\cornerthick\nsbot}} \vbox{\moveright\cornerthick\nsbot}}
\nointerlineskip \nointerlineskip
\vbox{\line{\ewbot\hfill\ewbot}} \vbox{\line{\ewbot\hfill\ewbot}}
}} }}
\advancepageno \advancepageno
\ifnum\outputpenalty>-20000 \else\dosupereject\fi} \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
% %
@ -873,9 +872,9 @@ where each line of input produces a line of output.}
% @value{foo} gets the text saved in variable foo. % @value{foo} gets the text saved in variable foo.
% %
\def\value#1{\expandafter \def\value#1{\expandafter
\ifx\csname SET#1\endcsname\relax \ifx\csname SET#1\endcsname\relax
{\{No value for ``#1''\}} {\{No value for ``#1''\}}
\else \csname SET#1\endcsname \fi} \else \csname SET#1\endcsname \fi}
% @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
% with @set. % with @set.
@ -1038,7 +1037,7 @@ where each line of input produces a line of output.}
\fi \fi
% Support font families that don't use the same naming scheme as CM. % Support font families that don't use the same naming scheme as CM.
\def\rmshape{r} \def\rmshape{r}
\def\rmbshape{bx} %where the normal face is bold \def\rmbshape{bx} %where the normal face is bold
\def\bfshape{b} \def\bfshape{b}
\def\bxshape{bx} \def\bxshape{bx}
\def\ttshape{tt} \def\ttshape{tt}
@ -1125,9 +1124,9 @@ where each line of input produces a line of output.}
% \setfont\ssectt\ttshape{10}{\magstep1} % \setfont\ssectt\ttshape{10}{\magstep1}
% \setfont\ssecsf\sfshape{10}{\magstep1} % \setfont\ssecsf\sfshape{10}{\magstep1}
%\setfont\ssecrm\bfshape{10}{1315} % Note the use of cmb rather than cmbx. %\setfont\ssecrm\bfshape{10}{1315} % Note the use of cmb rather than cmbx.
%\setfont\ssecit\itshape{10}{1315} % Also, the size is a little larger than %\setfont\ssecit\itshape{10}{1315} % Also, the size is a little larger than
%\setfont\ssecsl\slshape{10}{1315} % being scaled magstep1. %\setfont\ssecsl\slshape{10}{1315} % being scaled magstep1.
%\setfont\ssectt\ttshape{10}{1315} %\setfont\ssectt\ttshape{10}{1315}
%\setfont\ssecsf\sfshape{10}{1315} %\setfont\ssecsf\sfshape{10}{1315}
@ -1335,10 +1334,10 @@ where each line of input produces a line of output.}
% Polish suppressed-l. --karl, 22sep96. % Polish suppressed-l. --karl, 22sep96.
%\def\l#1{{\li #1}\null} %\def\l#1{{\li #1}\null}
\def\r#1{{\rm #1}} % roman font \def\r#1{{\rm #1}} % roman font
% Use of \lowercase was suggested. % Use of \lowercase was suggested.
\def\sc#1{{\smallcaps#1}} % smallcaps font \def\sc#1{{\smallcaps#1}} % smallcaps font
\def\ii#1{{\it #1}} % italic font \def\ii#1{{\it #1}} % italic font
% @pounds{} is a sterling sign. % @pounds{} is a sterling sign.
\def\pounds{{\it\$}} \def\pounds{{\it\$}}
@ -1357,7 +1356,7 @@ where each line of input produces a line of output.}
\def\shorttitlepage{\parsearg\shorttitlepagezzz} \def\shorttitlepage{\parsearg\shorttitlepagezzz}
\def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}% \def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}%
\endgroup\page\hbox{}\page} \endgroup\page\hbox{}\page}
\def\titlepage{\begingroup \parindent=0pt \textfonts \def\titlepage{\begingroup \parindent=0pt \textfonts
\let\subtitlerm=\tenrm \let\subtitlerm=\tenrm
@ -1374,9 +1373,9 @@ where each line of input produces a line of output.}
% Now you can print the title using @title. % Now you can print the title using @title.
\def\title{\parsearg\titlezzz}% \def\title{\parsearg\titlezzz}%
\def\titlezzz##1{\leftline{\titlefont{##1}} \def\titlezzz##1{\leftline{\titlefont{##1}}
% print a rule at the page bottom also. % print a rule at the page bottom also.
\finishedtitlepagefalse \finishedtitlepagefalse
\vskip4pt \hrule height 4pt width \hsize \vskip4pt}% \vskip4pt \hrule height 4pt width \hsize \vskip4pt}%
% No rule at page bottom unless we print one at the top with @title. % No rule at page bottom unless we print one at the top with @title.
\finishedtitlepagetrue \finishedtitlepagetrue
% %
@ -1394,7 +1393,7 @@ where each line of input produces a line of output.}
\let\oldpage = \page \let\oldpage = \page
\def\page{% \def\page{%
\iffinishedtitlepage\else \iffinishedtitlepage\else
\finishtitlepage \finishtitlepage
\fi \fi
\oldpage \oldpage
\let\page = \oldpage \let\page = \oldpage
@ -1482,12 +1481,12 @@ where each line of input produces a line of output.}
% %
}% unbind the catcode of @. }% unbind the catcode of @.
% @headings double turns headings on for double-sided printing. % @headings double turns headings on for double-sided printing.
% @headings single turns headings on for single-sided printing. % @headings single turns headings on for single-sided printing.
% @headings off turns them off. % @headings off turns them off.
% @headings on same as @headings double, retained for compatibility. % @headings on same as @headings double, retained for compatibility.
% @headings after turns on double-sided headings after this page. % @headings after turns on double-sided headings after this page.
% @headings doubleafter turns on double-sided headings after this page. % @headings doubleafter turns on double-sided headings after this page.
% @headings singleafter turns on single-sided headings after this page. % @headings singleafter turns on single-sided headings after this page.
% By default, they are off at the start of a document, % By default, they are off at the start of a document,
% and turned `on' after @end titlepage. % and turned `on' after @end titlepage.
@ -2084,14 +2083,14 @@ width0pt\relax} \fi
% It automatically defines \fooindex such that % It automatically defines \fooindex such that
% \fooindex ...rest of line... puts an entry in the index foo. % \fooindex ...rest of line... puts an entry in the index foo.
% It also defines \fooindfile to be the number of the output channel for % It also defines \fooindfile to be the number of the output channel for
% the file that accumulates this index. The file's extension is foo. % the file that accumulates this index. The file's extension is foo.
% The name of an index should be no more than 2 characters long % The name of an index should be no more than 2 characters long
% for the sake of vms. % for the sake of vms.
\def\newindex #1{ \def\newindex #1{
\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file \expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
\openout \csname#1indfile\endcsname \jobname.#1 % Open the file \openout \csname#1indfile\endcsname \jobname.#1 % Open the file
\expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex
\noexpand\doindex {#1}} \noexpand\doindex {#1}}
} }
@ -2103,8 +2102,8 @@ width0pt\relax} \fi
\def\newcodeindex #1{ \def\newcodeindex #1{
\expandafter\newwrite \csname#1indfile\endcsname% Define number for output file \expandafter\newwrite \csname#1indfile\endcsname% Define number for output file
\openout \csname#1indfile\endcsname \jobname.#1 % Open the file \openout \csname#1indfile\endcsname \jobname.#1 % Open the file
\expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex
\noexpand\docodeindex {#1}} \noexpand\docodeindex {#1}}
} }
@ -2115,7 +2114,7 @@ width0pt\relax} \fi
\def\synindex #1 #2 {% \def\synindex #1 #2 {%
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
\expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex
\noexpand\doindex {#2}}% \noexpand\doindex {#2}}%
} }
@ -2124,7 +2123,7 @@ width0pt\relax} \fi
\def\syncodeindex #1 #2 {% \def\syncodeindex #1 #2 {%
\expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname
\expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\let\csname#1indfile\endcsname=\synindexfoo
\expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex \expandafter\xdef\csname#1index\endcsname{% % Define \xxxindex
\noexpand\docodeindex {#2}}% \noexpand\docodeindex {#2}}%
} }
@ -2952,10 +2951,10 @@ width0pt\relax} \fi
% NOTE on use of \vbox for chapter headings, section headings, and % NOTE on use of \vbox for chapter headings, section headings, and
% such: % such:
% 1) We use \vbox rather than the earlier \line to permit % 1) We use \vbox rather than the earlier \line to permit
% overlong headings to fold. % overlong headings to fold.
% 2) \hyphenpenalty is set to 10000 because hyphenation in a % 2) \hyphenpenalty is set to 10000 because hyphenation in a
% heading is obnoxious; this forbids it. % heading is obnoxious; this forbids it.
% 3) Likewise, headings look best if no \parindent is used, and % 3) Likewise, headings look best if no \parindent is used, and
% if justification is not attempted. Hence \raggedright. % if justification is not attempted. Hence \raggedright.
@ -3134,12 +3133,12 @@ width0pt\relax} \fi
\contentsalignmacro \contentsalignmacro
\immediate\closeout \contentsfile \immediate\closeout \contentsfile
\ifnum \pageno>0 \ifnum \pageno>0
\pageno = -1 % Request roman numbered pages. \pageno = -1 % Request roman numbered pages.
\fi \fi
% Don't need to put `Contents' or `Short Contents' in the headline. % Don't need to put `Contents' or `Short Contents' in the headline.
% It is abundantly clear what they are. % It is abundantly clear what they are.
\unnumbchapmacro{#1}\def\thischapter{}% \unnumbchapmacro{#1}\def\thischapter{}%
\begingroup % Set up to handle contents files properly. \begingroup % Set up to handle contents files properly.
\catcode`\\=0 \catcode`\{=1 \catcode`\}=2 \catcode`\@=11 \catcode`\\=0 \catcode`\{=1 \catcode`\}=2 \catcode`\@=11
\catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi \catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi
\raggedbottom % Worry more about breakpoints than the bottom. \raggedbottom % Worry more about breakpoints than the bottom.
@ -3418,50 +3417,50 @@ width0pt\relax} \fi
\def\cbl{{\circle\char'012\hskip -6pt}} \def\cbl{{\circle\char'012\hskip -6pt}}
\def\cbr{{\hskip 6pt\circle\char'011}} \def\cbr{{\hskip 6pt\circle\char'011}}
\def\carttop{\hbox to \cartouter{\hskip\lskip \def\carttop{\hbox to \cartouter{\hskip\lskip
\ctl\leaders\hrule height\circthick\hfil\ctr \ctl\leaders\hrule height\circthick\hfil\ctr
\hskip\rskip}} \hskip\rskip}}
\def\cartbot{\hbox to \cartouter{\hskip\lskip \def\cartbot{\hbox to \cartouter{\hskip\lskip
\cbl\leaders\hrule height\circthick\hfil\cbr \cbl\leaders\hrule height\circthick\hfil\cbr
\hskip\rskip}} \hskip\rskip}}
% %
\newskip\lskip\newskip\rskip \newskip\lskip\newskip\rskip
\long\def\cartouche{% \long\def\cartouche{%
\begingroup \begingroup
\lskip=\leftskip \rskip=\rightskip \lskip=\leftskip \rskip=\rightskip
\leftskip=0pt\rightskip=0pt %we want these *outside*. \leftskip=0pt\rightskip=0pt %we want these *outside*.
\cartinner=\hsize \advance\cartinner by-\lskip \cartinner=\hsize \advance\cartinner by-\lskip
\advance\cartinner by-\rskip \advance\cartinner by-\rskip
\cartouter=\hsize \cartouter=\hsize
\advance\cartouter by 18pt % allow for 3pt kerns on either \advance\cartouter by 18pt % allow for 3pt kerns on either
% side, and for 6pt waste from % side, and for 6pt waste from
% each corner char % each corner char
\normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip
% Flag to tell @lisp, etc., not to narrow margin. % Flag to tell @lisp, etc., not to narrow margin.
\let\nonarrowing=\comment \let\nonarrowing=\comment
\vbox\bgroup \vbox\bgroup
\baselineskip=0pt\parskip=0pt\lineskip=0pt \baselineskip=0pt\parskip=0pt\lineskip=0pt
\carttop \carttop
\hbox\bgroup \hbox\bgroup
\hskip\lskip \hskip\lskip
\vrule\kern3pt \vrule\kern3pt
\vbox\bgroup \vbox\bgroup
\hsize=\cartinner \hsize=\cartinner
\kern3pt \kern3pt
\begingroup \begingroup
\baselineskip=\normbskip \baselineskip=\normbskip
\lineskip=\normlskip \lineskip=\normlskip
\parskip=\normpskip \parskip=\normpskip
\vskip -\parskip \vskip -\parskip
\def\Ecartouche{% \def\Ecartouche{%
\endgroup \endgroup
\kern3pt \kern3pt
\egroup \egroup
\kern3pt\vrule \kern3pt\vrule
\hskip\rskip \hskip\rskip
\egroup \egroup
\cartbot \cartbot
\egroup \egroup
\endgroup \endgroup
}} }}
@ -4504,6 +4503,11 @@ width0pt\relax} \fi
\global\pageheight=\vsize \global\pageheight=\vsize
} }
\bindingoffset=0pt
\normaloffset=\hoffset
\pagewidth=\hsize
\pageheight=\vsize
% Allow control of the text dimensions. Parameters in order: textheight; % Allow control of the text dimensions. Parameters in order: textheight;
% textwidth; voffset; hoffset; binding offset; topskip. % textwidth; voffset; hoffset; binding offset; topskip.
% All require a dimension; % All require a dimension;