path: root/web/tweb/rcs/tweb.tw%

head	1.2;
access;
symbols;
locks
	WB:1.2;
comment	@# @;


1.2
date	95.07.12.22.44.09;	author WB;	state Exp;
branches;
next	1.1;

1.1
date	95.07.12.22.05.55;	author WB;	state Exp;
branches;
next	;


desc
@@


1.2
log
@*** empty log message ***
@
text
@%%%-*-diff-switches:"-U 0"; compile-command:"notangle tweb.tw>tweb.sty"-*-
%%%=====================================================================
%%% @@Noweb-file{
%%%  author     = "W\l{}odzimierz Bzyl",
%%%  version    = "1.1",
%%%  date       = "11 July 1995",
%%%  filename   = "tweb.tw",
%%%  address    = "Instytut Matematyki,
%%%                Uniwersytet Gda\'nski,
%%%                Wita Stwosza 57,
%%%                80--952 Gda\'nsk, Poland",
%%%  email      = "matwb@@halina.univ.gda.pl (Internet)",
%%%  abstract   = "",
%%% }
%%%=====================================================================

\title{TWEB.TW}{W\l{}odek Bzyl\hfil matwb@@halina.univ.gda.pl}

%%%\printcontents

@@
<<*>>=
\newlinechar `^^J

\def \savecat #1%
    {\expandafter\xdef\csname\string#1savedcat\endcsname{\the\catcode`#1}}
\def \restorecat #1%
    {\catcode`#1=\csname\string#1savedcat\endcsname}
\savecat\@@

\catcode`\@@ = 11

<<Web source formatting macros>>
<<Setting layout of web source>>
<<Macros written by [[web2tex]] script>>
<<Multicolumn environment for indexes>>
<<Index macros>>
<<Cross-reference macros>>
<<Initialize the layout>>

\restorecat\@@
@@
\section{Layout of a web source}

<<Setting layout of web source>>=
<<Fonts for typeseting headings, chapter names, etc.>>
<<Page dimensions>>
<<Headlines>>
<<Table of contents>>
<<Title, chapter, section... macros>>
@@
<<Fonts for typeseting headings, chapter names, etc.>>=
\font \chapterfont = cmbx10 at 20pt
\font \titlefont   = cmssbx10 at 17pt
\font \authorfont  = cmssbx10 at 12pt
\font \sectionfont = cmbx10 at 12pt
\font \tocfont     = cmssbx10 at 12pt

\font \tenbxit     = cmbxti10 \def \bfit {\tenbxit}
\font \tenss       = cmss10
\font \tenssbf     = cmssbx10
\font \ninerm      = cmr9
\font \sevenrm     = cmr7
\font \ninebf      = cmbx9
\font \nineit      = cmti9
\font \ninebxit    = cmbxti10 at 8.5pt
\font \ninett      = cmtt9
\font \ninei       = cmmi9
\font \seveni      = cmmi7
\font \ninesy      = cmsy9
\font \nineex      = cmex9
@@
<<Page dimensions>>=
\hoffset = 0.5in % extra space used to print code line numbers
\hsize   = 6.0in % less 0.5 than plain.tex value
\vsize   = 8.9in % default value
<<Round [[\vsize]] to the nearest multiple of [[\baselineskip]]>>
@@
<<Headlines>>=
\def \RCS {\relax}  \def \RCSversion {Experimental}

\newdimen\textsize \textsize=\hsize

\def \pagenumber
    {\folio}

\headline =
    {\hbox to \textsize{\strut%
          \ifnum\pageno>1
              \tenss\filename\hfil Version \RCSversion%
              \hbox to 4em{\hfil\pagenumber}%
          \else
              \hfil\tenss\RCS%
          \fi}\hss}

\footline = {\hfil}
@@
<<Table of contents>>=
\def \tocline #1#2%
    {\line{{\ignorespaces#1}\leaders\hbox to 3pt{.\hfil}\hfil
     \hbox to 15pt{\hss#2}}}

\def \settocparms #1%
       {\count@@=#1
        \ifnum\count@@<1
            \def\tocskip
               {\vskip 3pt plus 1in
                \penalty-100
                \vskip 0pt plus -1in^^J}
            \def\tocstyle{\tenssbf}
            \def\tocindent{\z@@}
        \else
            \def\tocskip{}
            \def\tocstyle{\tenss}
            \dimen@@=20pt \advance\count@@ by \m@@ne \dimen@@=\count@@\dimen@@
            \edef\tocindent{\the\dimen@@}
        \fi}

\def \topofcontents
    {\vskip2\baselineskip
     \leftline{\tocfont Contents}
     \vskip2ex
     \begingroup\rm}

\def \botofcontents
    {\endgroup
     \semifilbreak{0.9}
     \vskip3\baselineskip}

\def \printcontents
    {\topofcontents
     \Input{\jobname.toc}
     \botofcontents}
@@
[[\startsection{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{HEADING}]]\par
\leavevmode%
[[               #1     #2      #3           #4         #5      #6]]\par
\medskip
[[#1  LEVEL:         ]] depth; e.g. chapter=0 sectino=1...\par
[[#2  INDENT:        ]] indentation of heading from left margin\par
[[#3  BEFORESKIP:    ]] skip before header\par
[[#4  AFTERSKIP:     ]] skip after header\par
[[#5  STYLE:         ]] style of heading; e.g. [[\bf]]\par
[[#6  HEADING        ]]
@@
<<Title, chapter, section... macros>>=
\def \title #1#2%
    {\vglue4\baselineskip
     \noindent{\rightskip = 0in plus 4em
               \hyphenpenalty = 10000 \exhyphenpenalty = 10000
               \baselineskip = 20pt
               \titlefont#1\par}
     \vskip 0.5\baselineskip
     \hrule height 2pt width \hsize
     \vskip 0.5\baselineskip
     \noindent
     \line{\authorfont #2}
     \vskip2\baselineskip}

\def \startsection#1#2#3#4#5#6%
    {\ifnum#1<2
        \semifilbreak{0.8}
     \fi
     \vskip #3
     \def\titl@@{#6}
     \edef\themodtitle{\sanitize\titl@@}
     \message{[\themodtitle]}
     \settocparms{#1}
     {\edef\next
          {\noexpand\write\cont{\tocskip\string\tocline%
             {\hskip\tocindent\tocstyle\space\sanitize\themodtitle}%
             {\noexpand\the\pageno}}}%
           \next}% write to toc
     \vbox{\leftskip=#2
           \rightskip=0.5true in plus 4em minus 0.5 true in
           \hyphenpenalty=9999 \exhyphenpenalty=9999
           \noindent#5#6}%
     \nobreak
     \vskip#4}

\def \gobblemeaning#1:->{}
\def \sanitize {\expandafter\gobblemeaning\meaning}

\def \chapter#1%
    {\vfil\eject\startsection{0}{\z@@}{\z@@}{6ex}{\chapterfont}{#1}}
\def \section#1%
    {\startsection{1}{\z@@}{4ex}{2ex}{\sectionfont}{#1}}
\def \subsection#1%
    {\startsection{2}{\z@@}{2ex}{1ex}{\tenbf}{#1}}
\def \subsubsection#1%
    {\startsection{3}{\z@@}{1ex}{0ex}{\tenit}{#1}}
\def \paragraph#1%
    {\startsection{4}{\z@@}{1.5ex}{0ex}{\tenit}{#1}}
@@
\section{Indexes}

The user sets the pagenumber style with the [[\pagenumbering{FOO}]]
command, which sets the page counter to 1 and defines [[\thepage]]
to be [[\FOO]]. For example, [[\pagenumbering{roman}]] causes pages
to be numbered i, ii, etc.

<<Index macros>>=
\def \newwrite
    {\alloc@@7\write\chardef\sixt@@@@n} % remove \outer

\def \@@nameuse#1%
    {\csname #1\endcsname}

\def \arabic#1{\@@arabic{\@@nameuse{c@@#1}}}
\def \roman#1{\@@roman{\@@nameuse{c@@#1}}}
\def \Roman#1{\@@Roman{\@@nameuse{c@@#1}}}
\def \alph#1{\@@alph{\@@nameuse{c@@#1}}}
\def \Alph#1{\@@Alph{\@@nameuse{c@@#1}}}

\def \@@arabic#1{\ifnum #1>0 \number #1\fi}
\def \@@roman#1{\romannumeral #1}
\def \@@Roman#1{\expandafter\uppercase\expandafter{\romannumeral #1}}
\def \@@alph#1{\ifcase#1\or a\or b\or c\or d\else\@@ialph{#1}\fi}
\def \@@ialph#1%
    {\ifcase#1\or \or \or \or \or e\or f\or g\or h\or i\or j\or k\or l\or
         m\or n\or o\or p\or q\or r\or s\or t\or u\or v\or w\or x\or y\or
         z\else\@@ctrerr\fi}
\def \@@Alph#1{\ifcase#1\or A\or B\or C\or D\else\@@Ialph{#1}\fi}
\def \@@Ialph#1%
    {\ifcase#1\or \or \or \or \or E\or F\or G\or H\or I\or J\or K\or L\or
         M\or N\or O\or P\or Q\or R\or S\or T\or U\or V\or W\or X\or Y\or
         Z\else\@@ctrerr\fi}

\def \pagenumbering#1%
    {\global\pageno \@@ne \gdef\thepage{\csname @@#1\endcsname\pageno}}

\pagenumbering {arabic}
@@
Environment [[\@@bsphack ... \@@esphack]] is
used by macros such as [[\index]] that want to be invisible i.e.,
not leave any extra space when used in the middle of text. Such
a macro should begin with [[\@@bsphack]] and end with [[\@@esphack]].
The macro in question should not create any text, nor change the mode.

<<Index macros>>=
\newdimen \@@savsk
\newcount \@@savsf

\def \@@bsphack
    {\@@savsk\lastskip\ifhmode\@@savsf\spacefactor\fi}

\def \@@esphack
    {\relax%
     \ifhmode\spacefactor\@@savsf
        {}\ifdim \@@savsk >\z@@ \ignorespaces\fi
     \fi}

@@
The command [[\@@sanitize]] changes the catcode of all special characters
except for braces to `other'.  It can be used for commands like
[[\index]] that want to write their arguments verbatim.

<<Index macros>>=
\def \makeother #1{\catcode`#1=12\relax}

\def \@@sanitize
    {\makeother\ \makeother\\\makeother\$%
     \makeother\&\makeother\#\makeother\^%
     \makeother\_\makeother\%\makeother\~\relax}
@@
Default command name [[\indexentry]] is shortened to [[\E]].
This change will make input files for [[makeindex]] shorter.
This would allow to process some indexes on MSDOS
(there is no `big' version of [[makeindx.exe]]).
Above change must be told to [[makeindex]] via style files,
where the following line should be added:
\begindisplay
[[keyword "\\E"]]&\cr
\enddisplay
<<Index macros>>=
\def \makeindex
    {\newwrite\@@indexfile
     \immediate\openout \@@indexfile = \jobname.idx
     \def\index {\@@bsphack\begingroup\@@sanitize\@@wrindex\@@indexfile}
     \message{^^J--> Writing index file \jobname.idx }}
\def \@@wrindex#1#2%
    {\let \thepage = \relax%
     \xdef\gtempa
         {\write#1{\string\E{#2}{\thepage}}}%
          \endgroup\gtempa\@@esphack}
\def \index
    {\@@bsphack\begingroup\@@sanitize\@@index}
\def \@@index#1%
    {\endgroup\@@esphack}

\def \makeglossary
    {\newwrite\@@glossaryfile
     \immediate\openout\@@glossaryfile=\jobname.glo
     \def\glossary{\@@bsphack\begingroup\@@sanitize\@@wrindex\@@glossaryfile}
     \message{Writing glossary file \jobname.glo }\fi}
\def \glossary {\@@bsphack\begingroup\@@sanitize\index}

\def \@@idxitem {\par\hangindent 20pt }
\def \subitem {\par\hangindent 20pt \hskip 20pt }
\def \subsubitem {\par\hangindent 20pt \hskip 30pt }

\def \seeterm{see}
\def \see#1#2%
    {{\it \seeterm\/} #1}

<<Macros for printing web indexes>>
@@
<<Macros for printing web indexes>>=
\def \Input#1%
    {\openin1 #1
     \ifeof1
       \message{^^J--- I cannot find file #1 }
     \else
       \closein1
       \input #1
       \message{^^J<-- Reading file #1 }
     \fi}

\def \indexspace
    {\relax}

\def \printuserleveldefs
    {\singlecolumn
     \vfill\eject
     \Input{\jobname.und}}
\def \printdefs
    {\singlecolumn
     \vfill\eject
     \Input{\jobname.dnd}}
\def \printchunks
    {\singlecolumn
     \vfill\eject
     \let \pagenumber = \relax
     \Input{\jobname.chn}}

\def \beginuserleveldefs
    {\begingroup
     <<Ninepoint environment for printing indexes>>
     \section{User-level definitions}
     \let\item\@@idxitem
     \triplecolumns \tt}
\def \begindefs
    {\begingroup
     <<Ninepoint environment for printing indexes>>
     \section{Definitions}
     \let\item\@@idxitem
     \triplecolumns \tt}
\def \beginchunks
    {\begingroup
     <<Ninepoint environment for printing indexes>>
     \parskip = 2\p@@ plus 2\p@@
     \let\item\@@idxitem
     \section{Chunks}
     \bf}

\def \endindex
    {\endgroup}

\def \makeindexes
    {\par
     \newwrite\@@userleveldefsfile
     \immediate\openout\@@userleveldefsfile=\jobname.udx
     \def\udx{\@@bsphack\begingroup\@@sanitize\@@wrindex\@@userleveldefsfile}
     \message{^^J--> Writing index file \jobname.udx }
     \newwrite\@@defsfile
     \immediate\openout\@@defsfile=\jobname.ddx
     \def\ddx{\@@bsphack\begingroup\@@sanitize\@@wrindex\@@defsfile}
     \message{^^J--> Writing index file \jobname.ddx }
     \newwrite\@@chunkfile
     \immediate\openout\@@chunkfile=\jobname.chk
     \def\chk{\@@bsphack\begingroup\@@sanitize\@@wrindex\@@chunkfile}
     \message{^^J--> Writing index file \jobname.chk }}
@@
<<Ninepoint environment for printing indexes>>=
\textfont0 = \ninerm \scriptfont0 = \sevenrm%
\textfont1 = \ninei \scriptfont1 = \seveni%
\textfont2 = \sevensy%
\textfont3 = \nineex%
\def \rm {\fam0\ninerm} \rm%
\def \it {\nineit}%
\def \bfit {\ninebxit}%
\def \bf {\ninebf}%
\def \tt {\ninett}%
\def \oldstyle {\fam\@@ne\ninei}%
\chardef\\  = "5C%
\parindent = \z@@ \parskip = \z@@%
\hfuzz = \hsize % index pages are wider
\baselineskip = 11pt \topskip = \baselineskip%
<<Round [[\vsize]] to the nearest multiple of [[\baselineskip]]>>
@@
<<Round [[\vsize]] to the nearest multiple of [[\baselineskip]]>>=
\advance \vsize by 0.5\baselineskip
\divide \vsize by \baselineskip
\multiply \vsize by \baselineskip
@@
\section{Multicolumn environment for index formatting}

<<Multicolumn environment for indexes>>=
\def \gobble#1{}
\let \wlog = \gobble

\newskip\abovecolumnskip \abovecolumnskip = \bigskipamount
\newskip\belowcolumnskip \belowcolumnskip = \bigskipamount
\newdimen \gutter \gutter = 2pc
\newdimen \c@@lumnhsize
\newdimen \pagegoal@@limit
\newdimen \htp@@rtialpage
\newtoks \previousoutput
\newcount \number@@fcolumns
\newbox \@@partialpage
\newdimen \singlec@@lumnhsize
\newdimen \singlec@@lumnvsize
\newtoks \previousoutput
\let \@@ndcolumns = \relax
@@
We have a few synonymous ways to refer to multiple column modes.

<<Multicolumn environment for indexes>>=
\def \doublecolumns {\@@columns2}
\def \triplecolumns {\@@columns3}
\def \quadcolumns   {\@@columns4}

\def \singlecolumn
    {\@@ndcolumns\vskip\belowcolumnskip\nointerlineskip}

\let \endcolumns = \singlecolumn

\def \@@columns #1%
    {\@@ndcolumns%
     \begingroup
     \global\let\@@ndcolumns=\@@@@endcolumns
     \par % Shouldn't start in horizontal mode.
     \global\previousoutput = \expandafter{\the\output}
     \pagegoal@@limit = \pagegoal
     \advance \pagegoal@@limit by -5\baselineskip
     \ifdim\pagetotal > \pagegoal@@limit
        \vfill\eject
     \else
        \global\output =
              {\global\setbox\@@partialpage =
                      \vbox{\unvbox255\vskip\abovecolumnskip}}
     \pagegoal = \pagetotal
     \eject % now expand the \output just above.
     \fi
     \global\number@@fcolumns=#1
     \global\c@@lumnhsize = \hsize % if \hsize changed, get the new value.
     \global\advance\c@@lumnhsize by -#1\gutter
     \global\divide\c@@lumnhsize by #1
     \global\output = {\c@@lumnoutput}
     \global\singlec@@lumnhsize = \hsize
     \global\singlec@@lumnvsize = \vsize
     \hsize = \c@@lumnhsize
     \htp@@rtialpage = \ht\@@partialpage
     \advance \htp@@rtialpage by 0.5\baselineskip
     \divide \htp@@rtialpage by \baselineskip
     \multiply \htp@@rtialpage by \baselineskip
     \ht\@@partialpage = \htp@@rtialpage
     \global\advance\vsize by -\htp@@rtialpage
     \global\vsize = #1\vsize }
@@
When this is invoked [[\box 255]] should contain just the right amount of
material, whether triggered by an output routine or a change in the
number of columns. Because columns have to contain a whole number of
lines of type, we take a bit of care with balancing the heights of the
columns to prevent either losing material or having a very short last
column.

{\it Note:} when a page ends due to [[\bye]] or [[\eject]],
[[\box255]] will contain lots of white space, so the columns will not look
balanced. To fix this use [[\singlecolumn]] before ending the page.

<<Multicolumn environment for indexes>>=
\def \@@columnsplit
    {<<Balance columns>>
     \global\setbox255 = \vbox{% see the last line on p.417 (wb)
        \unvbox\@@partialpage
        \ifnum\number@@fcolumns>0%
          \setbox1 = \vbox to \dimen0{\dimen2=\dp1 \unvbox1\kern-\dimen2\vfil}
          \ifnum\number@@fcolumns=1%
             \hbox to \singlec@@lumnhsize{\box1}
          \fi
        \fi
        \ifnum\number@@fcolumns>1%
          \setbox3 = \vbox to \dimen0{\dimen2=\dp3 \unvbox3\kern-\dimen2\vfil}
          \ifnum\number@@fcolumns=1%
            \hbox to \singlec@@lumnhsize{\box1\hfil\box3}
          \fi
        \fi
        \ifnum\number@@fcolumns>2%
          \setbox5 = \vbox to \dimen0{\dimen2=\dp5 \unvbox5\kern-\dimen2\vfil}
          \ifnum\number@@fcolumns=3%
            \hbox to\singlec@@lumnhsize{\box1\hfil\box3\hfil\box5}
          \fi
        \fi
        \ifnum\number@@fcolumns>3%
          \setbox7 = \vbox to \dimen0{\dimen2=\dp7 \unvbox7\kern-\dimen2\vfil}
          \ifnum\number@@fcolumns=4%
            \hbox to\singlec@@lumnhsize{\box1\hfil\box3\hfil\box5\hfil\box7}
          \fi
        \fi}}

\def \c@@lumnoutput
    {\@@columnsplit
     \hsize = \singlec@@lumnhsize % local to the \output group
     \vsize = \singlec@@lumnvsize
     \the\previousoutput
     \global\vsize=\number@@fcolumns\singlec@@lumnvsize}

\def \@@@@endcolumns
    {\global\let\@@ndcolumns=\relax%
     \par % Shouldn't start in horizontal mode.
     \global\output = {\global\setbox1 = \box255}%
     \pagegoal = \pagetotal
     \eject
     \global\setbox255 = \box1
     \@@columnsplit
     \global\vsize = \singlec@@lumnvsize
     \global\output = \expandafter{\the\previousoutput}%
     \endgroup
     \unvbox255}
@@
<<Balance columns>>=
\dimen0 = \ht255
\advance \dimen0 by \topskip
\advance \dimen0 by -\baselineskip
\divide\dimen0 by \number@@fcolumns
\splittopskip = \topskip
\begingroup
   \vbadness = 10000
   \loop
     \setbox8=\copy255
     \global\setbox1 = \vsplit8 to \dimen0
     \global\setbox3 = \vsplit8 to \dimen0
     \ifnum\number@@fcolumns>2%
       \global\setbox5 = \vsplit8 to \dimen0
     \fi
     \ifnum\number@@fcolumns>3%
       \global\setbox7 = \vsplit8 to \dimen0
     \fi
     \ifdim\ht8>\z@@ \global\advance\dimen0 by 1pt
   \repeat
\endgroup
@@
\section{Cross references}

[[\ref{value}{name}]] gives value to [[name]]\par
[[\pageref{name}]] writes [[\ref{]]\stress{page number}[[}{name}]] to [[.ref]] file \par
[[\refpage{name}]] prints page number referenced by [[name]] \par
[[\showmissestrue]] if you want to see missing references

<<Cross-reference macros>>=
\newcount\miscount      % number of unknown references
\newif\ifshowmisses

\def \ref #1#2%
    {\xdef\temp{#1}
     \expandafter\dordef\csname#2\endcsname}
\def \dordef #1%
    {\global\let#1\temp}

\Input{\jobname.ref}
\newwrite\refo \immediate\openout\refo=\jobname.ref

\def \pageref #1%
    {\write\refo{\string\ref{\number\pageno}{#1}}}
\def \refpage #1%
    {\expandafter\usedef\csname#1\endcsname}

\def \usedef #1%
    {\ifx#1\relax%
       \ifshowmisses\showmiss #1 \fi%
       \global\advance\miscount by 1 ???%
     \else%
       #1%
     \fi}

\def \showmiss #1%
    {{\escapechar=-1%
     \message{^^J*** WARNING: Undefined reference > #1<}}}

\outer \def \bye
      {\write \cont {\string\restorecat\string\@@}
       \closeout\cont
       \ifnum\miscount>0
           \message{^^J!!! \the\miscount\space %
                    undefined reference(s) were present }%
       \fi
       \par\vfill\supereject
       \end}
@@
\section{Web2tex macros}

<<Macros written by [[web2tex]] script>>=
{\obeyspaces\global\let = \ } % from texbook, p.381

{\catcode`\`=\active \gdef`{\relax\lq}}
{\catcode`\^^I=\active \gdef^^I{\ \ \ }}

{\obeyspaces\global\def\gobblespace#1{\ifx#1 \else#1\fi}}

\def \setupmodname
    {\catcode`\$=3 \catcode`\&=4%
     \catcode`\#=6 \catcode`\%=14%
     \catcode`\~=13 \catcode`\_=8%
     \catcode`\^=7 \catcode`\ =10%
     \catcode`\^^M=5\relax}

\def \LA {\begingroup\setupmodname$\langle\,$\bfit}
\def \RA {\/$\,\rangle$\endgroup}

\gdef \ttverbatim
     {\begingroup%
      \makeother\\\makeother\{\makeother\}\makeother\$%
      \makeother\&\makeother\#\makeother\%\makeother\~%
      \makeother\_\makeother\^\makeother\"%
      \obeyspaces\obeylines\tt}

\newskip\ttglue
\ttglue=.5em plus.25em minus.15em

{\catcode`\|=\active
 \obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\  \let|=\endgroup}}

\def \CODE%
    {\ttverbatim%
     \let\par=\endgraf%
     \parskip=\z@@%
     \leavevmode%
     \ttfinish}% written by web2tex script itself

%%% {\catcode`\| = 0 |catcode`|\ = 12 %
%%% |obeylines |gdef|ttfinish#1<EDOC>{|gobblespace#1|endgroup}}

\def \NO #1% line numbers which appear in the margin
    {\noindent\llap{\ninei #1\qquad}\kern\parindent}

\def \N #1#2% page number -- line number (indexes)
    {$#2_{\oldstyle#1}$}

\def \BEGINCODE
    {\semifilbreak{0.9}
     \bigskip
     \begingroup
     \obeylines}
\def \ENDCODE
    {\endgroup
     \semifilbreak{0.9}}

\def \BEGINDOC
    {\bigskip
     \begingroup
     \catcode`\|=\active}
\def \ENDDOC
    {\endgroup}

\newif \iffullpages

\newdimen \upperbound

\def \semifilbreak #1%
    {\par
     \upperbound = #1\vsize       %% 0.1\vsize \approx 5\baselineskip
     \ifdim\pagetotal > \pagegoal %% page already overfull;
                                  %% left to page builder
     \else
       \ifdim\pagetotal > \upperbound
          \vfill\eject
       \fi
     \fi}
@@
\section{Macros used for web source formatting}

<<Web source formatting macros>>=
<<Changing font>>
<<Typeseting font tables>>
<<Non-centered displays>>
<<Typeseting units of measure and syntactic quantities>>
@@
<<Typeseting font tables>>=
\def \oct#1{\hbox{\rm\'{}\kern-.2em\it#1\/\kern.05em}} % octal constant
\def \hex#1{\hbox{\rm\H{}\tt#1}} % hexadecimal constant

\def \oddline#1%
    {\cr
     \noalign{\nointerlineskip}
     \multispan{19}\hrulefill&
     \setbox0=\hbox{\lower 2.3pt\hbox{\hex{#1x}}}\smash{\box0}\cr
     \noalign{\nointerlineskip}}

\def \evenline {\cr\noalign{\hrule}}

\def \chartstrut {\lower4.5pt\vbox to14pt{}}

\def \beginchart#1%
    {$$\postdisplaypenalty=-10000 \global\count@@=0 #1
     \halign to\hsize\bgroup
     \chartstrut##\tabskip0pt plus10pt&
     &\hfil##\hfil&\vrule##\cr
     \lower6.5pt\null
     &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&&\oct5&&\oct6&&\oct7&\evenline}

\def \endchart
    {\raise11.5pt\null&&&\hex 8&&\hex 9&&\hex A&&\hex B&
     &\hex C&&\hex D&&\hex E&&\hex F&\cr\egroup$$}

\def \:{\setbox0=\hbox{\char\count@@}%
        \ifdim\ht0>7.5pt\reposition
        \else\ifdim\dp0>2.5pt\reposition\fi\fi
       \box0\global\advance\count@@ by1 }

\def \reposition {\setbox0=\hbox{$\vcenter{\kern2pt\box0\kern2pt}$}}

\def \normalchart
    {&\oct{00x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline0
     &\oct{01x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{02x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline1
     &\oct{03x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{04x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline2
     &\oct{05x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{06x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline3
     &\oct{07x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{10x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline4
     &\oct{11x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{12x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline5
     &\oct{13x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{14x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline6
     &\oct{15x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline
     &\oct{16x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\oddline7
     &\oct{17x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&&\:&\evenline}

@@
<<Non-centered displays>>=
\outer\def \begindisplay
          {\obeylines\startdisplay}

{\obeylines\gdef\startdisplay#1
  {\catcode`\^^M=5$$#1\halign\bgroup\indent##\hfil&&\qquad##\hfil\cr}}

\outer\def\enddisplay{\crcr\egroup$$}
@@
<<Changing font>>=
\def \bold#{\bgroup\bf\let\next = }

\def \ttt#{\bgroup\tt\let\next = }% typewriter

\def \stress #1%
    {\begingroup
     \def \next
         {\def \next
              {\setbox 0 = \hbox {\nexttoken}%
               \ifdim \ht 0< \fontdimen 5 \font
                      \it #1%
               \else
                      \it #1\/%
               \fi}%
          \ifcat A\noexpand \nexttoken
                \next
          \else
                \ifcat 0\noexpand \nexttoken
                        \next
                \else
                        \ifcat \space \noexpand \nexttoken
                        \else
                               %%% \message {?: \meaning \nexttoken}%
                        \fi
                        \it #1\/%
                \fi
          \fi
          \endgroup}%
     \futurelet \nexttoken \next }
@@
<<Typeseting units of measure and syntactic quantities>>=
\def \<#1>{\leavevmode\hbox{$\langle$#1\/$\rangle$}}

\def \pt {\,{\rm pt}} % units of points, in math formulas
\def \in {\,{\rm in}} % units of inches, in math formulas
\def \em {\,{\rm em}} % units of em, in math formulas
@@
<<Initialize the layout>>=
\raggedbottom
\frenchspacing
\fullpagesfalse
\newwrite \cont
\openout \cont = \jobname.toc
\write \cont {\string\savecat\string\@@}
\write \cont {\string\catcode`\string\@@=11}
@


1.1
log
@Initial revision
@
text
@d5 2
a6 3
%%%  version    = "$Id: tweb.tw,v 2.74 1995/07/05 10:38:39 web Exp $",
%%%  date       = "13 June 1995",
%%%  time       = "17:34:59 MET",
a7 1
%%%  checksum   = "11515 801 2110 24084",
a11 1
%%%  checksum   = "61084 897 2387 27063",
d80 1
a80 1
\def \RCS {\jobname.tw}  \def \RCSversion {Experimental}
@