%-*-tex-*-
% some macros for english/french side by side

\def\coltol{\pretolerance=5000 \tolerance=5000 \hbadness=5000 }

\newbox\leftbox
\newbox\leftrembox
\newbox\rightbox 
\newbox\rightrembox
\newbox\tempbox
\newif\ifboxsplit % if either box is split
\newif\ifcolsplit % if this col is being split 
\newdimen\remsplit
\newdimen\rempage
\newdimen\colsize \colsize=2.8in
\let\dbmess=\message
\def\dbmess#1{}
\raggedbottom
\def\splitparms #1{\remsplit=\pagegoal \advance\remsplit by -\pagetotal \relax
                   \rempage=\remsplit
                   \ifdim\pageshrink<10pt \advance\remsplit by -10pt\fi
                   \advance\rempage by -\ht#1
                   \advance\rempage by -\dp#1 \colsplitfalse
                   \ifdim\rempage<0pt \ifdim\remsplit>0pt \colsplittrue \fi\fi
         \dbmess{<<rs \the\remsplit* rp \the\rempage *ps \the\pageshrink>>}}
               
% general column form #1 \right(left)box #2 \right(\left)rembox #3 type
% #4 input 

\def\colform #1#2#3#4{\setbox#1=\vtop{\hsize \colsize \coltol #3#4}
                  \splitparms{#1}\ifcolsplit\dbmess{<<col split \the\ppnum>>}
                      \boxsplittrue\setbox\tempbox=\vsplit
                          #1 to \remsplit \fi 
                  \ifvoid\tempbox \else 
                       \setbox#2=\vtop{\unvbox#1}\relax
                       \setbox#1=\vtop{\unvbox\tempbox}\fi
                        \dbmess{** tbx r ** rrh \the\ht#1
                                            * rh \the\ht#2
                                            * drh \the\dp#1
                                            * dh \the\dp#2 }}

% right and left forms

\long\def\rightform #1{\colform{\rightbox}{\rightrembox}{\fhyph}{#1\endgraf}}
\long\def\leftform #1{\colform{\leftbox}{\leftrembox}{\ehyph}{#1\endgraf}}


\newcount\ppnum 

\long\def\pp #1@@#2!!{\advance\ppnum by 1 \dbmess{<< pp num \the\ppnum>>}
             {\def\pp{\dbmess{<<Possible @@ or !! error>>}}\vskip \parskip 
                \boxsplitfalse\leftform{#1}\rightform{#2}\relax
                \line{\box\leftbox\hss\box\rightbox}\relax
                  \ifboxsplit 
                  \line{\box\leftrembox\hss\box\rightrembox}
                  \dbmess{<<End Splitbox \the\ppnum>>}\fi
                  }} 

\def\seh#1#2#3{\pp\innershead{#1}{#2}@@\autonumberingoff
                   \innershead{\qref{#1}.}{#3}!!\nobreak\mark{#2/#3}\nobreak}
\def\sseh#1#2#3{\pp\innersshead{#1}{#2}@@\autonumberingoff
                   \innersshead{\qref{#1}}{#3}!!\nobreak\mark{#2/#3}\nobreak}
\def\ssseh#1#2#3{\pp\innerssshead{#1}{#2}@@\autonumberingoff
                   \innerssshead{\qref{#1}}{#3}!!\nobreak\mark{#2/#3}\nobreak}
\def\dssseh#1#2{\pp\innerdssshead{#1}@@
                   \innerdssshead{#2}!!\nobreak\mark{#1/#2}\nobreak}
\let\dsh=\dssseh


%\tracingpages=1

% --- header stuff ----
                  \headertext{\ifodd\pageno\rightheadertext
                                         \else\leftheadertext\fi}
                  \def\rightheadertext{\line{\hss
                     \firstmark\rlap{\ssheadfont\qquad\folio}}}
                  \def\leftheadertext{\line{\llap{\ssheadfont\folio
                                 \qquad}\firstmark{ }\hss}}
\documentstyle{\normalheaderstyle 
               \vheadersize=.35in 
               \normalfooterstyle
               \vfootersize=.35in}



% Autonumbering ... referencing sections paragraphs 
\newautonum{art}

\def\pn{{\bf \autoartnum{}} }
\def\pntag#1{\autoartnum{#1}}
\def\rpn{{\bf \the\artnum } }

% Toc forms change 
\let\idssshtoc=\shtoc
\let\ishtoc=\shtoc 
\def\shtoc #1#2#3 \shtoc #4#5#6{\pp \ishtoc{#1}{#2}{#3}@@\ishtoc{#4}{#5}{#6}!!}
\let\isshtoc=\sshtoc 
\def\sshtoc #1#2#3 \sshtoc #4#5#6{\pp \isshtoc{#1}{#2}{#3}@@\isshtoc{#4}{#5}{#6}!!}
\let\issshtoc=\ssshtoc 
\def\ssshtoc #1#2#3 \ssshtoc #4#5#6{\pp \issshtoc{#1}{#2}{#3}@@\issshtoc{#4}{#5}{#6}!!}
  % like section heads .. minor indent
\def\dssshtoc #1#2#3 \dssshtoc #4#5#6{\pp \idssshtoc{#1}{#2}{#3}@@\idssshtoc{#4}{#5}{#6}!!}



\parindent=0pt \parskip=2.8ex % block mode