diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/arabi/fmultico.sty')
| -rw-r--r-- | Master/texmf-dist/tex/latex/arabi/fmultico.sty | 567 |
1 files changed, 567 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/arabi/fmultico.sty b/Master/texmf-dist/tex/latex/arabi/fmultico.sty new file mode 100644 index 00000000000..a37c4174491 --- /dev/null +++ b/Master/texmf-dist/tex/latex/arabi/fmultico.sty @@ -0,0 +1,567 @@ +%% +%% This is file `fmulticol.sty', generated +%% on <1993/12/2> with the docstrip utility (2.0r). +%% +%% The original source files were: +%% +%% multicol.doc (with options: `style,check,marktrace') +%% +%% Copyright (C) 1989-1992 by Frank Mittelbach. All rights reserved. +%% Copyright (C) 1996 by The FarsiTeX Project Group. +%% +%% This file is part of the multicol package. +%% +%% IMPORTANT NOTICE: +%% +%% You are not allowed to change this file. You may however copy +%% this file to a file with a different name and then change the copy +%% if you obey the restrictions on file changes described in +%% readme.mz. +%% +%% You are NOT ALLOWED to distribute this file alone. You are NOT +%% ALLOWED to take money for the distribution or use of this file (or +%% a changed version) except for a nominal charge for copying etc. +%% +%% You are allowed to distribute this file under the condition that +%% it is distributed together with all files mentioned in readme.mz1. +%% +%% If you receive only some of these files from someone, complain! +%% +%% However, if these files are distributed by established suppliers +%% as part of a complete TeX distribution, and the structure of the +%% distribution would make it difficult to distribute the whole set +%% of files, *those parties* are allowed to distribute only some of +%% the files provided that it is made clear that the user will get a +%% complete distribution-set upon request to that supplier (not me). +%% Notice that this permission is not granted to the end user. +%% +%% +%% For error reports in case of UNCHANGED versions see readme.mz +%% +%% + +%%% Save file as: multicol.doc Source: FILESERV@SHSU.BITNET +%%% Note: This is a file from the MULTICOL (version 1.4m, 7 September 1992) +%%% set written by Frank Mittelbach <MITTELBACH@MZDMZA.ZDM.Uni-Mainz.de>. +%%% NOTE: This is part 1 of a 3 part distribution. +%%% The following checksum includes all SHSU-generated topmatter. +%%% checksum = "34058 854 5506 38012" = +%%% +\def\fileversion{v1.4m} +\def\filedate{92/09/04} +\def\docdate {92/09/04} + +%% \CheckSum{1101} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +%% Style-option `multicol' to use with LaTeX v2.09 +%% Copyright (C) 1989-1992 Frank Mittelbach, all rights reserved. +\@ifundefined{mult@cols}{}{\endinput} +\typeout{Style option: `multicol' + \fileversion\space <\filedate> (FMi)} +\typeout{English documentation + \@spaces\@spaces\space<\docdate> (FMi)} +\def\multicols#1{\col@number#1\relax + \ifnum\col@number<\tw@ + \@warning{Using `\number\col@number' + columns doesn't seem a good idea.^^J + I therefore use two columns instead}% + \col@number\tw@ \fi + \ifnum\col@number>5 + \@warning{Current implementation doesn't + support more than five columns.^^J + I therefore use five columns instead}% + \col@number5 \fi + \@ifnextchar[\mult@cols{\mult@cols[]}} +\def\mult@cols[#1]{\@ifnextchar[% + {\mult@@cols{#1}}% + {\mult@@cols{#1}[\premulticols]}} +\def\mult@@cols#1[#2]{% + \par + \ifinner \@boxedmulticolstrue + \else + \ifnum \doublecol@number>\z@ + \@boxedmulticolstrue + \fi + \fi + \ifnum\c@tracingmulticols>\z@ + \typeout{^^J^^JStarting multicolumn + output with \the\col@number + \space columns% + \if@boxedmulticols\space + (boxed mode)\fi + \on@line:^^J}\fi + \enough@room{#2}% + {#1\par}\addvspace\multicolsep + \begingroup + \prepare@multicols + \if@boxedmulticols + \setbox\mult@box\vbox\bgroup + \penalty-\@M + \fi + \ignorespaces} +\newif\if@boxedmulticols \@boxedmulticolsfalse +\newbox\mult@box +\def\enough@room#1{% + \if@boxedmulticols\else + \par + \bgroup\@nobreakfalse\addpenalty\z@\egroup + \page@free \pagegoal + \advance \page@free -\pagetotal + \ifnum \c@tracingmulticols>\z@ + \typeout{Current page:}% + \message{\@spaces goal height=% + \the\pagegoal: used \the\pagetotal + \space -> free=\the\page@free}% + \typeout{\@spaces needed \the#1 + (for \string#1)}\fi + \ifdim \page@free <#1\newpage \fi + \fi} +\def\prepare@multicols{% + \multicol@leftmargin\@totalleftmargin + \@totalleftmargin\z@ + \parshape\z@ + \doublecol@number\col@number + \multiply\doublecol@number\tw@ + \if@boxedmulticols + \let\l@kept@firstmark\kept@firstmark + \let\l@kept@botmark\kept@botmark + \global\let\kept@firstmark\@empty + \global\let\kept@botmark\@empty + \else + \nointerlineskip \null + \output{% + \global\setbox\partial@page\vbox + {% +%%%---END---Part 1 of 3---multicol.doc + +%%% Save file as: multicol.doc Source: FILESERV@SHSU.BITNET +%%% Note: This is a file from the MULTICOL (version 1.4m, 7 September 1992) +%%% set written by Frank Mittelbach <MITTELBACH@MZDMZA.ZDM.Uni-Mainz.de>. +%%% NOTE: This is part 2 of a 3 part distribution. +%%% The following checksum includes all SHSU-generated topmatter. +%%% checksum = "02434 960 4927 38435" = +%%% + \ifvoid\partial@page\else + \@latexerr{Error saving partial + page\on@line}% + {The part of the page before + the multicols environment was + nearly full with the result + that starting the environment + will produce an overfull + page. Some text may be lost! + Please increase \premulticols + either generally or for this + environment by specifying a + suitable value in the second + optional argument to the + multicols environment.} + \unvbox\partial@page + \box\last@line + \fi + \unvbox\@cclv + \global\setbox\last@line\lastbox + }% + \prep@keptmarks + \global\let\kept@topmark\firstmark + }\eject + \advance\@colroom-\ht\partial@page + \vsize\col@number\@colroom + \advance\vsize\c@collectmore\baselineskip + \output{\multi@column@out}% + \multiply\count\footins\col@number + \multiply\skip \footins\col@number + \reinsert@footnotes + \fi + \vbadness10001 \hbadness5000 + \tolerance\multicoltolerance + \pretolerance\multicolpretolerance + \setemergencystretch\col@number\hsize + \set@floatcmds + \advance\baselineskip\multicolbaselineskip + \hsize\linewidth \advance\hsize\columnsep + \advance\hsize-\col@number\columnsep + \divide\hsize\col@number + \full@width\linewidth + \linewidth\hsize +} +\newdimen\multicol@leftmargin +\def\endmulticols{\par + \if@boxedmulticols + \egroup + \setbox\@tempboxa\vsplit\mult@box to\z@ + \balance@columns + \return@nonemptymark{first}\kept@firstmark + \return@nonemptymark{bot}\kept@botmark + \page@sofar + \global\let\kept@firstmark\l@kept@firstmark + \global\let\kept@botmark\l@kept@botmark + \ifnum\c@tracingmulticols>\tw@ + \typeout{Restore kept marks to% + ^^J first: \meaning\kept@firstmark% + ^^J bot\space\space: + \meaning\kept@botmark }% + \fi + \else + \bgroup\@nobreakfalse\addpenalty\z@\egroup + \output{\balance@columns@out}\eject + \ifvbox\partial@page\unvbox\partial@page\fi + \global\let\kept@firstmark\@empty + \global\let\kept@botmark\@empty + \ifnum\c@tracingmulticols>\tw@ + \typeout{Make kept marks empty}% + \fi + \fi + \@checkend{multicols}% + \endgroup + \if@boxedmulticols\else + \reinsert@footnotes + \fi + \global\c@unbalance\z@ + \enough@room\postmulticols + \addvspace\multicolsep + \ifnum\c@tracingmulticols>\z@ + \typeout{^^JEnding multicolumn + output% + \if@boxedmulticols + \space(boxed mode)\fi + .^^J^^J}\fi} +\newcount\c@unbalance +\newcount\c@collectmore +\newcount\c@tracingmulticols +\newcount\col@number +\newcount\doublecol@number +\newcount\multicoltolerance +\newcount\multicolpretolerance +\newdimen\full@width +\newdimen\page@free +\newdimen\premulticols +\newdimen\postmulticols +\newskip\multicolsep +\newskip\multicolbaselineskip +\newbox\partial@page +\newbox\last@line +\c@unbalance = 0 +\c@collectmore = 0 +\c@tracingmulticols = 0 +\col@number = 1 +\multicoltolerance = 9999 +\multicolpretolerance = -1 +\premulticols = 50pt +\postmulticols= 20pt +\multicolsep = 12pt plus 4pt minus 3pt +\multicolbaselineskip=0pt +\def\process@cols#1#2{\count@#1\relax + \loop #2% + \advance\count@\tw@ + \ifnum\count@<\doublecol@number + \repeat} +\def\revprocess@cols#1#2{\count@\doublecol@number\relax +\advance\count@ by -2 +% \ifodd\count@ \advance\count@ by -1 \fi + \loop #2% + \ifnum\count@>#1\relax + \advance\count@-\tw@ + \repeat} +\def\page@sofar{% + \process@cols\z@{\wd\count@\hsize}% + \ifnum\c@tracingmulticols>\z@ + \typeout{Column spec: + (\the\multicol@leftmargin\space --> + \the\full@width\space = \the\hsize + \space x \the\col@number)^^J}% + \fi +\ifvmode\else\errmessage{Multicol Error}\fi + \moveright\multicol@leftmargin + \hbox to\full@width{% + \box\z@ + \llap{\phantom p}% + \revprocess@cols\tw@{% + \hss\vrule\@width\columnseprule\hss\box\count@}% +}% +%%%%%\ifvmode\else\errmessage{Multicol Error}\fi +%%%%% \moveright\multicol@leftmargin +%%%%% \hbox to\full@width{% +%%%%% \process@cols\tw@{\box\count@ +%%%%% \hss\vrule\@width\columnseprule\hss}% +%%%%% \box\z@ +%%%%% \rlap{\phantom p}% +%%%%%}% +} +\def\reinsert@footnotes{\ifvoid\footins\else + \insert\footins{}\fi} +\def\multi@column@out{% + \ifnum\outputpenalty <-\@Mi + \speci@ls \else + \splittopskip\topskip + \splitmaxdepth\maxdepth + \dimen@\@colroom + \divide\skip\footins\col@number + \ifvoid\footins \else + \advance\dimen@-\skip\footins + \advance\dimen@-\ht\footins \fi + \process@cols\tw@{\setbox\count@ + \vsplit\@cclv to\dimen@ + \set@keptmarks + \ifshr@nking + \setbox\count@\vbox to\dimen@ + {\unvbox\count@\vfill}% + \fi + }% + \setbox\z@\vsplit\@cclv to\dimen@ + \set@keptmarks + \ifshr@nking + \setbox\z@\vbox to\dimen@ + {\unvbox\z@\vfill}% + \fi + \ifvoid\@cclv \else + \unvbox\@cclv + \penalty\outputpenalty + \ifvoid\footins\else + \@warning{I moved some lines to + the next page.^^J + \@spaces Footnotes on page + \thepage\space might be wrong}% + \fi + \ifnum \c@tracingmulticols>\thr@@ + \hrule\allowbreak \fi + \fi + \ifx\@empty\kept@firstmark + \let\firstmark\kept@topmark + \let\botmark\kept@topmark + \else + \let\firstmark\kept@firstmark + \let\botmark\kept@botmark + \fi + \ifnum\c@tracingmulticols>\tw@ + \typeout{Use kept top + \space\space mark: + `\meaning\kept@topmark'% + ^^JUse kept first mark: + `\meaning\kept@firstmark'% + ^^JUse kept bot + \space\space mark: + `\meaning\kept@botmark'% + ^^JProduce first mark: + `\meaning\firstmark'% + ^^JProduce bot + \space\space mark: + `\meaning\botmark'}% + \fi + \setbox\@cclv\vbox{\unvbox\partial@page + \page@sofar}% + \@makecol\@outputpage + \global\let\kept@topmark\botmark + \global\let\kept@firstmark\@empty + \global\let\kept@botmark\@empty + \ifnum\c@tracingmulticols>\tw@ + \typeout{(Re)Init top + \space\space mark: + `\meaning\kept@topmark'}% + \fi + \global\@colroom\@colht + \process@deferreds + \@whilesw\if@fcolmade\fi{\@outputpage + \global\@colroom\@colht + \process@deferreds}% + \ifnum\c@tracingmulticols>\@ne + \typeout{Colroom: \the\@colht\space + after float space removed + = \the\@colroom }\fi + \global\vsize\col@number\@colroom + \global\advance\vsize + \c@collectmore\baselineskip + \fi} +\def\speci@ls{% + \typeout{Floats and marginpars not + allowed inside `multicols' + environment!}% + \unvbox\@cclv\reinsert@footnotes + \xdef\@freelist{\@freelist\@currlist}% + \gdef\@currlist{}} +\def\process@deferreds{% + \@floatplacement + \@tryfcolumn\@deferlist + \if@fcolmade\else + \begingroup + \let\@tempb\@deferlist + \gdef\@deferlist{}% + \let\@elt\@scolelt + \@tempb \endgroup + \fi} +\newif\ifshr@nking +\def\raggedcolumns{% + \@bsphack\shr@nkingtrue\@esphack} +\def\flushcolumns{% + \@bsphack\shr@nkingfalse\@esphack} +\def\balance@columns@out{% + \setbox\mult@box\vbox{\unvbox\@cclv}% + \balance@columns + \global\vsize\@colroom + \global\advance\vsize\ht\partial@page + \unvbox\partial@page + \return@nonemptymark{first}\kept@firstmark + \return@nonemptymark{bot}\kept@botmark + \page@sofar} +\def\balance@columns{% + \setbox\mult@box\vbox to\ht\mult@box{% + \unvbox\mult@box + \remove@discardable@items + }% + \get@keptmarks\mult@box + \splittopskip\topskip + \splitmaxdepth\maxdepth + \@tempdima\ht\mult@box + \advance\@tempdima\dp\mult@box + \divide\@tempdima\col@number +%%%---END---Part 2 of 3---multicol.doc + +%%% Save file as: multicol.doc Source: FILESERV@SHSU.BITNET +%%% Note: This is a file from the MULTICOL (version 1.4m, 7 September 1992) +%%% set written by Frank Mittelbach <MITTELBACH@MZDMZA.ZDM.Uni-Mainz.de>. +%%% NOTE: This is part 3 of a 3 part distribution. +%%% The following checksum includes all SHSU-generated topmatter. +%%% checksum = "15022 557 2546 20727" = +%%% + \count@\@tempdima + \divide\count@\baselineskip + \dimen@\count@\baselineskip + \advance\dimen@\topskip + \ifdim \dimen@ >\@tempdima + \advance\dimen@-\baselineskip + \fi + \advance\dimen@\c@unbalance\baselineskip + \ifnum\c@tracingmulticols>\@ne + \typeout{Balance columns\on@line: + \ifnum\c@unbalance=\z@\else + (off balance=\number\c@unbalance)\fi}% + \fi + \ifnum\dimen@<\topskip + \ifnum\c@tracingmulticols>\@ne + \typeout{Start value + \the\dimen@ \space -> + \the\topskip \space (corrected)}% + \fi + \dimen@\topskip + \fi + \vbadness\@M \loop + {\process@cols\@ne{\global\setbox\count@ + \box\voidb@x}}% + \global\setbox\@ne\copy\mult@box + {\process@cols\thr@@{% + \global\setbox\count@ + \vsplit\@ne to\dimen@ + }}% + \boxmaxdepth\maxdepth + \global\setbox\@ne\vbox{\unvbox\@ne}% + \ifnum\c@tracingmulticols>\@ne + \message{\@spaces First column + = \the\ht\thr@@}\fi + \ifshr@nking \global\setbox\thr@@ + \vbox{\unvbox\thr@@}% + \ifnum\c@tracingmulticols>\@ne + \message{ after shrinking + \the\ht\thr@@}\fi\fi + \ifnum\c@tracingmulticols>\@ne + \message{<> last column = + \the\ht\@ne^^J}% + \fi + \ifdim\ht\@ne >\ht\thr@@ + \advance\dimen@\p@ + \repeat + \dimen@\ht\thr@@ + \ifdim\dimen@>\@colroom + \dimen@\@colroom + \fi + \process@cols\z@{\@tempcnta\count@ + \advance\@tempcnta\@ne + \setbox\count@\vbox to\dimen@ + {\unvbox\@tempcnta + \ifshr@nking\vfill\fi}}% +} +\@ifundefined{emergencystretch} + {\newdimen\emergencystretch}{} +\def\setemergencystretch#1#2{% + \emergencystretch 4pt + \multiply\emergencystretch#1} + +\def\set@floatcmds{% + \let\@dblfloat\@dbflt + \def\end@dblfloat{\par + \vskip\z@\egroup + \ifnum\@floatpenalty<\z@ + \@cons\@deferlist\@currbox + \fi + \ifnum\@floatpenalty=-\@Mii + \@esphack + \fi}} +\def\kept@topmark{{}{}} +\let\kept@firstmark\@empty +\let\kept@botmark\@empty +\def\return@nonemptymark#1#2{% + \ifx#2\@empty + \else + \ifnum\c@tracingmulticols>\tw@ + \typeout{Returned #1 mark: \meaning#2}% + \nobreak + \fi + \mark{#2}% + \nobreak + \fi} +\def\get@keptmarks#1{% + \begingroup + \vbadness\@M + \setbox#1\copy#1% + \setbox#1\vsplit#1to\maxdimen + \set@keptmarks + \endgroup +} +\def\set@keptmarks{% + \ifx\kept@firstmark\@empty + \expandafter\gdef\expandafter + \kept@firstmark + \expandafter{\splitfirstmark}% + \ifnum\c@tracingmulticols>\tw@ + \ifx\kept@firstmark\@empty\else + \typeout{Set kept first mark: + `\meaning\kept@firstmark'}% + \fi + \fi + \fi + \expandafter\def\expandafter\@tempa + \expandafter{\splitbotmark}% + \ifx\@tempa\@empty\else + \global\let\kept@botmark\@tempa + \ifnum\c@tracingmulticols>\tw@ + \typeout{Set kept bot mark: + `\meaning\kept@botmark'}% + \fi + \fi}% +\def\prep@keptmarks{% + \if@boxedmulticols \else + \get@keptmarks\partial@page + \fi} +\def\remove@discardable@items{% + \unskip\unpenalty\unkern + \unskip\unpenalty\unkern + \unskip\unpenalty\unkern + \unskip\unpenalty\unkern +} +\endinput +%% +%% End of file `multicol.sty'. |