New version of bbdb-print from Boris Goldowsky

1 files changed, 34 insertions, 27 deletions

diff --git a/tex/bbdb-cols.tex b/tex/bbdb-cols.tex
index b9a3d2b..4102d0f 100644
--- a/tex/bbdb-cols.tex
+++ b/tex/bbdb-cols.tex
@@ -1,13 +1,13 @@
-%%% multicol.tex  -  multiple columns per page, multiple pages per sheet.
+%%% bbdb-cols.tex  -  multiple columns per page, multiple pages per sheet.
 
 %%% Authors: Luigi Semenzato <luigi@paris.cs.berkeley.edu>
 %%%          Boris Goldowsky <boris@cs.rochester.edu>
 %%% Copyright (C) 1993 Boris Goldowsky
-%%% Version: 3.0; 21Mar94
+%%% Version: 3.92; 5Jan95
 
 %%% Commentary:
 %%%
-%%% Put  \input multicol.tex 
+%%% Put  \input bbdb-cols.tex 
 %%% at the beginning of your TeX file.
 %%% Then \twocol, \threecol, or \fourcol for multi-column output
 %%% or \gridformat (4x3 grid of small credit-card-sized pages)
@@ -15,27 +15,31 @@
 %%% In any case you will need to put \endcol at the end of the
 %%% document, before \bye.
 
+%%% For instructions on using this format file with BBDB, see bbdb-print.el
+%%% which should have come bundled with this file.  The complete bbdb-print
+%%% package is also available via anonymous ftp at:
+%%% /cs.rochester.edu:/pub/u/boris/bbdb-print.tar.gz
+
 %%% This file is part of the bbdb-print extensions to the Insidious
 %%% Big Brother Database, which is for use with GNU Emacs.
 %%%
-%%% The Insidious Big Brother Database is free software; you can redistribute
-%%% it and/or modify it under the terms of the GNU General Public License as
-%%% published by the Free Software Foundation; either version 1, or (at your
-%%% option) any later version.
+%%% This program is free software; you can redistribute it and/or
+%%% modify it under the terms of the GNU General Public License as
+%%% published by the Free Software Foundation; either version 1, or
+%%% (at your option) any later version.
 %%%
-%%% BBDB is distributed in the hope that it will be useful, but WITHOUT ANY
-%%% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-%%% FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
-%%% details.
+%%% This program is distributed in the hope that it will be useful,
+%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+%%% General Public License for more details.
 %%%
 %%% You should have received a copy of the GNU General Public License
 %%% along with GNU Emacs; see the file COPYING.  If not, write to
 %%% the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 
-\newdimen\multicolhsize  \multicolhsize=\hsize
+\newdimen\colshsize      \colshsize=\hsize
 \newdimen\columngutter   \columngutter=.2in     % space between columns
-\newdimen\pagegutter     \pagegutter=1in        % space between minipages
 
 \newbox\columnA  \newbox\columnB  \newbox\columnC
 
@@ -48,16 +52,16 @@
 
 \def\columnbox{\leftline{\pagebody}}
 
-\def\multicolline{\hbox to \multicolhsize}
+\def\colsline{\hbox to \colshsize}
 
 \newcount\NROW \NROW=3          % for grid format. are these really variables
 \newcount\NCOL \NCOL=4          % that can be changed?  should they be set
-                                % from lisp?
+                                % from lisp?  I'm not sure.
 \newcount\rowindex \newcount\colindex
 
 \def\onecol  % for consistency---or maybe one could use it for switching back.
 {
-  \output={\shipout\vbox{\makeheadline\multicolline{\columnbox}\makefootline}
+  \output={\shipout\vbox{\makeheadline\colsline{\columnbox}\makefootline}
             \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
   \def\endcol{}
 }% end onecol
@@ -71,7 +75,7 @@
               \global\setbox\columnA=\columnbox \global\let\column=B
           \else
               \shipout\vbox{\makeheadline
-                            \multicolline{\box\columnA\hfil\columnbox}
+                            \colsline{\box\columnA\hfil\columnbox}
                             \makefootline}
               \advancepageno \global\let\column=A
           \fi
@@ -96,8 +100,8 @@
                   \global\setbox\columnB=\columnbox \global\let\column=C
           \else
                 \shipout\vbox{\makeheadline
-                              \multicolline{\box\columnA\hfil\box\columnB
-                                            \hfil\columnbox}
+                              \colsline{\box\columnA\hfil\box\columnB
+                                        \hfil\columnbox}
                               \makefootline}
                   \advancepageno \global\let\column=A
           \fi\fi
@@ -129,8 +133,8 @@
           \else
              \shipout\vbox 
              { \makeheadline 
-               \multicolline{\box\columnA\hfil\box\columnB\hfil
-                             \box\columnC\hfil\columnbox}
+               \colsline{\box\columnA\hfil\box\columnB\hfil
+                         \box\columnC\hfil\columnbox}
                \makefootline}
              \advancepageno\global\let\column=A
           \fi\fi\fi
@@ -149,17 +153,20 @@
 
 \def\quadformat#1#2
 {
-  \hsize=#1      \advance\hsize by -.15in \divide\hsize 2
+  \FULLHSIZE=\hsize
+  \FULLVSIZE=\vsize
+
+  \colshsize=#1
   \vsize=#2
-  \multicolhsize=#1
-  \FULLHSIZE=#1  \multiply\FULLHSIZE 2 \advance\FULLHSIZE by \pagegutter
-  \FULLVSIZE=#2  \multiply\FULLVSIZE 2 \advance\FULLVSIZE by \pagegutter
+
+  \hsize=\colshsize   \advance\hsize by -.15in   \divide\hsize 2
+
   \let\lr=L 
   \let\quadrant=A 
   \output={\if L\lr
                   \global\setbox\columnA=\columnbox \global\let\lr=R
           \else
-                  \global\setbox\quadrantbox=\vbox{\multicolline
+                  \global\setbox\quadrantbox=\vbox{\colsline
                   {\box\columnA\hfil\columnbox}} \global\let\lr=L
                   \quadrantformat
           \fi
@@ -223,5 +230,5 @@
               \ifnum\colindex=1\null\vfill\eject\fi}
 } % end of grid.
 
-%%% multicol.tex ends here.
+%%% bbdb-cols.tex ends here.