home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / macros / latex2e / inputs / flafter.sty < prev    next >
Text File  |  1994-06-14  |  5KB  |  136 lines
  1. %% 
  2. %% This is file `flafter.sty', generated 
  3. %% on <1994/6/14> with the docstrip utility (2.2h).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% ltoutput.dtx  (with options: `flafter,trace')
  8. %% 
  9. %% Copyright 1994 the LaTeX3 project and the individual authors. 
  10. %% All rights reserved. For further copyright information see the file 
  11. %% legal.txt, and any other copyright indicated in this file. 
  12. %% 
  13. %% This file is part of the LaTeX2e system. 
  14. %% ---------------------------------------- 
  15. %% 
  16. %% This system is distributed in the hope that it will be useful, 
  17. %% but WITHOUT ANY WARRANTY; without even the implied warranty of 
  18. %% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
  19. %% 
  20. %% 
  21. %% IMPORTANT NOTICE: 
  22. %% 
  23. %% For error reports in case of UNCHANGED versions see readme files. 
  24. %% 
  25. %% Please do not request updates from us directly. Distribution is 
  26. %% done through Mail-Servers and TeX organizations. 
  27. %% 
  28. %% You are not allowed to change this file. 
  29. %% 
  30. %% You are allowed to distribute this file under the condition that 
  31. %% it is distributed together with all files mentioned in 00readme.txt. 
  32. %% 
  33. %% If you receive only some of these files from someone, complain! 
  34. %% 
  35. %% You are NOT ALLOWED to distribute this file alone. You are NOT 
  36. %% ALLOWED to take money for the distribution or use of either this 
  37. %% file or a changed version, except for a nominal charge for copying 
  38. %% etc. 
  39. %%% File: ltoutput
  40. \def \@addtocurcol {%
  41.   \tr@ce{***Start addtocurcol}%
  42.    \@insertfalse
  43.    \@setfloattypecounts
  44.    \ifnum \@fpstype=8
  45.      \tr@ce{fpstype !p only (addtocurcol): \the \@fpstype = 8?}%
  46.    \else
  47.      \ifnum \@fpstype=24
  48.        \tr@ce{fpstype p only (addtocurcol): \the \@fpstype = 24?}%
  49.      \else
  50.        \@flsettextmin
  51.        \tr@ce{textfloatsheight (before) = \the \@textfloatsheight}%
  52.        \advance \@textmin \@textfloatsheight
  53.        \@reqcolroom \@pageht
  54.        \tr@ce{textmin + textfloatsheight: \the \@textmin}%
  55.        \tr@ce{page-so-far: \the \@reqcolroom}%
  56.        \ifdim \@textmin>\@reqcolroom
  57.          \@reqcolroom \@textmin
  58.          \tr@ce{ORD? textmin being used}%
  59.        \fi
  60.        \advance \@reqcolroom \ht\@currbox
  61.        \tr@ce{float size = \the \ht \@currbox (addtocurcol)}%
  62.        \tr@ce{colroom = \the \@colroom (addtocurcol)}%
  63.        \tr@ce{reqcolroom = \the \@reqcolroom (addtocurcol)}%
  64.        \ifdim \@colroom>\@reqcolroom
  65.          \@flsetnum \@colnum
  66.          \ifnum \@colnum>\z@
  67.            \@bitor\@currtype\@deferlist
  68.            \tr@ce{deferlist: \@deferlist: (addtocurcol-before)}%
  69.            \if@test
  70.              \tr@ce{type already on list: defer (addtocurcol)}%
  71.            \else
  72.              \@bitor\@currtype\@botlist
  73.            \tr@ce{botlist: \@botlist: (addtocurcol-before)}%
  74.              \if@test
  75.                \tr@ce{type already on list: bot---sent to addtobot}%
  76.                \@addtobot
  77.              \else
  78.                \tr@ce{fpstype \ifodd \@tempcnta OK \else not \fi
  79.                       here: \the \@fpstype}%
  80.                \ifodd \count\@currbox
  81.                  \advance \@reqcolroom \intextsep
  82.                  \ifdim \@colroom>\@reqcolroom
  83.                    \global \advance \@colnum \m@ne
  84.                    \global \advance \@textfloatsheight \ht\@currbox
  85.                    \global \advance \@textfloatsheight 2\intextsep
  86.                    \@cons \@midlist \@currbox
  87.                    \tr@ce{***Success: here}%
  88.                    \tr@ce{textfloatsheight (after-here) =
  89.                         \the \@textfloatsheight}%
  90.                    \tr@ce{colnum (after-here) = \the \@colnum}%
  91.                    \addpenalty \interlinepenalty
  92.                    \vskip \intextsep
  93.                    \box\@currbox
  94.                    \penalty\interlinepenalty
  95.                    \vskip\intextsep
  96.                    \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi
  97.                    \outputpenalty \z@
  98.                    \@inserttrue
  99.                  \else
  100.                    \tr@ce{Fail---no room at 2nd test of colroom
  101.                                  (addtocorcol \string\intextsep)}%
  102.                  \fi
  103.                \fi
  104.                \if@insert
  105.                \else
  106.                  \tr@ce{not here: sent to addtobot}%
  107.                  \@addtobot
  108.                \fi
  109.              \fi
  110.            \fi
  111.          \else
  112.            \tr@ce{Fail: colnum = \the \@colnum:
  113.                         fpstype \the \@fpstype=ORD?}%
  114.            \ifnum \@fpstype<\sixt@@n
  115.              \tr@ce{ERROR: BANG float not successful (addtocurcol)}%
  116.            \fi
  117.          \fi
  118.        \else
  119.          \tr@ce{Fail---no room: fl box ht: \the \ht \@currbox
  120.                                                      (addtocurcol)}%
  121.        \fi
  122.      \fi
  123.    \fi
  124.    \if@insert
  125.    \else
  126.      \@resethfps
  127.      \tr@ce{put on deferlist (addtocurcol)}%
  128.      \@cons\@deferlist\@currbox
  129.      \tr@ce{deferlist: \@deferlist: (addtocurcol-after)}%
  130.    \fi
  131. }
  132. \providecommand\tr@ce[1]{}
  133. \endinput
  134. %% 
  135. %% End of file `flafter.sty'.
  136.