Return to users.tex CVS log

Up to [local] / OpenXM_contrib / pari / doc

Annotation of OpenXM_contrib/pari/doc/users.tex, Revision 1.1.1.1

1.1       maekawa     1: % This should be compiled with plain TeX
                      2: \input parimacro.tex
                      3: %
                      4: % START TYPESET
                      5: %
                      6: \begintitle
                      7: \vskip 2.5truecm
                      8: \centerline{\mine User's Guide}
                      9: \vskip 1.truecm
                     10: \centerline{\mine to}
                     11: \vskip 1.truecm
                     12: \centerline{\mine PARI-GP}
                     13: \vskip 1.truecm
                     14: \authors
                     15: \centerline{last updated 20 June 1999}
                     16: \centerline{for version \vers}
                     17: \endtitle
                     18:
                     19: \begintitle
                     20: \centerline{Table of Contents}\medskip
                     21: \ifsecondpass
                     22:   \parskip=0pt plus 1pt
                     23:   \parindent=0pt
                     24:   \obeylines\input\jobname.toc
                     25: \else
                     26: % toc is 2 pages long
                     27:   \newpage
                     28: \fi
                     29: \endtitle
                     30:
                     31: \chapno=0
                     32: { \input usersch1 }
                     33: { \input usersch2 }
                     34: { \input usersch3 }
                     35: { \input usersch4 }
                     36: { \input usersch5 }
                     37: { \input appa }
                     38: { \input appb }
                     39: { \input appc }
                     40: %
                     41: %  INDEX
                     42: %
                     43:
                     44: \ifsecondpass\else
                     45:   \condwrite\index{The End}
                     46:   \immediate\condwrite\toc{Index\string\dotfill\the\pageno}
                     47:   \expandafter\end
                     48: \fi
                     49: \newpage
                     50:
                     51: \newdimen\fullhsize
                     52: \fullhsize=\hsize
                     53: \advance\hsize by -20pt
                     54: \divide\hsize by 2
                     55:
                     56: \def\fullline{\hbox to\fullhsize}
                     57: \let\lr=L\newbox\leftcolumn
                     58:
                     59: \headline={\hfil Index\hfil\global\headline={\hfil}}
                     60:
                     61: \def\makeheadline{\vbox to 0pt{\vskip-22.5pt
                     62:     \fullline{\vbox to8.5pt{}\the\headline}\vss}
                     63:     \nointerlineskip}
                     64:
                     65: \def\makefootline{\baselineskip=24pt\fullline{\the\footline}}
                     66:
                     67: \output={\if L\lr   %pique dans le TeXbook, p257
                     68:     \global\setbox\leftcolumn=\columnbox\global\let\lr=R
                     69:     \else\doubleformat\global\let\lr=L\fi
                     70:     \ifnum\outputpenalty>-20000\else\dosupereject\fi}
                     71: \def\doubleformat{\shipout\vbox
                     72:     {\makeheadline
                     73:     \fullline{\box\leftcolumn\hfil\columnbox}
                     74:     \makefootline}
                     75:     \advancepageno}
                     76: \def\columnbox{\leftline{\pagebody}}
                     77: \def\parse !#1#2!#3! {%
                     78:      \uppercase{\def\theletter{#1}}\def\theword{#1#2}\def\thepage{#3}}
                     79: \def\theoldword{}
                     80: \def\theend{The End }
                     81: \newif\ifencore
                     82:
                     83: \parskip=0pt plus 1pt
                     84: \parindent=0pt
                     85: \parfillskip=0pt
                     86:
                     87: \newbox\dbox \setbox\dbox=\hbox to 3truemm{\hss.\hss}
                     88: \newskip\dfillskip \dfillskip=.5em plus .98\hsize
                     89: \def\dotfill{\leaders\copy\dbox\hskip\dfillskip\relax}
                     90:
                     91: %more efficient to parse the glue specs once and keep them in registers
                     92: %for later use.  These govern index lines with too many page numbers to
                     93: %fit in one line  (currently only `Hermite normal form'.)
                     94: % b: indentation for 2nd and further lines / a: compensation for same,
                     95: % and shrinkability for the normal word space
                     96: \newskip\interskipa \interskipa=-.4\hsize plus -1.5\hsize minus .11em
                     97: \newskip\interskipb \interskipb= .4\hsize plus  1.5\hsize
                     98:
                     99: %cf. The TeXBook, App. D, p393 [GN]:
                    100: \def\interpage{,\penalty100\kern0.33em%normal space
                    101:   \hskip\interskipa\vadjust{}\penalty10000 \hskip\interskipb\relax}
                    102:
                    103: \loop
                    104:   \read\std to\theline
                    105:   \ifx\theline\theend\encorefalse\else\encoretrue\fi
                    106: \ifencore
                    107:   \expandafter\parse\theline
                    108:   \ifx\theletter\theoldletter\else
                    109:     \endgraf\vskip 10pt plus 10pt\centerline
                    110:       {\theletter}\vskip 10pt plus 10pt\fi
                    111:   \let\theoldletter\theletter
                    112:   \ifx\theword\theoldword
                    113:     \ifx\thepage\theoldpage\else\interpage\thepage\fi
                    114:   \else
                    115:     \relax\endgraf\theword\dotfill\thepage\let\theoldword=\theword
                    116:   \fi
                    117:   \let\theoldpage=\thepage
                    118: \repeat
                    119: \end