diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/docbytex/docby.tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/docbytex/docby.tex | 1065 |
1 files changed, 1065 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/docbytex/docby.tex b/Master/texmf-dist/tex/generic/docbytex/docby.tex new file mode 100644 index 00000000000..85a603156c5 --- /dev/null +++ b/Master/texmf-dist/tex/generic/docbytex/docby.tex @@ -0,0 +1,1065 @@ +%% docby.tex, Petr Olsak, (C) 2008 +%% dokumentaci k docby.tex vytvorite prikazem csplain docby.d + +\def\dbtversion {Mar. 2011} % version of DocBy.TeX + +% Mar. 2011: - fnote: tiskne krátká slova místo dlouhých +% - index: netiskne závorky +% - \module umožní načíst název\_modulu s podtržítkem +% Jan. 2009: - ^^I vytiskne osm mezer, ne tri +% - pridano makro \part +% Nov. 2008: - fith nahrazeno xyz +% - přepínání stejných ns:, úprava makra \refns +% - vykostěmí mezer z \namespace, \endnamespace +% - run me twice -> run me again +% Oct. 2008: - první veřejná verze + +%%%%%%%%%%%%%%%%%%% Interní názvy + +\ifx\chyph\undefined % format: plain, anglicke nazvy + \def\titmodule{Module} + \def\tittoc{Table Of Contents} + \def\titindex{Index} + \def\titversion{version } + \def\opartname{>> PART} +\else % format: csplain, ceske nazvy + \def\titmodule{Modul} + \def\tittoc{Obsah} + \def\titindex{Rejstřík} + \def\titversion{verze } + \def\opartname{>> CAST} +\fi + +%%%%%%%%%%%%%%%%%% Vložené skupiny příkazů (hooks) + +\def\begtthook{} +\def\quotehook{} +\def\indexhook{} +\def\tochook{} +\def\bookmarkshook{} +\def\outputhook{} + +%%%%%%%%%%%%%%%%%% Příkaz \module a \ins + +\def\docsuffix {.d} % implicit filename extension (for \module command) +\def\module #1 {\endnamespace\namespace{##1./#1}\sec [m:#1] \titmodule\space #1 \par + \def\modulename{#1} \input #1\docsuffix\relax +} +\def\ins #1 #2 {\ifirst {\modulename.#1}{//: #2}{//:}{--}} + +%%%%%%%%%%%%%%%%%% Zelenající komentáře + +\ifx\mubyte\undefined + \def\setlinecomment#1{} + \def\setlrcomment#1#2{} +\else + \def\setlinecomment#1{\mubyte \linecomment ##0 #1\endmubyte} + \def\setlrcomment#1#2{\mubyte \leftcomment ##0 #1\endmubyte + \mubyte \rightcomment #2\endmubyte \gdef\rightcomment{#2\returntoBlack}} +\fi + +\def\linecomment {\let\Black=\Green \Green} +\def\leftcomment {\global\let\Black=\Green \Green} + +\def\returntoBlack {\global\let\Black=\oriBlack \Black} + +\setlinecomment{//} \setlrcomment{/*}{*/} + +%%%%%%%%%%%%%%%%%% Parametry a pomocná makra pro nastavení vzhledu + +\parindent=30pt + +\newdimen\nwidth \nwidth=\hsize \advance\nwidth by-2\parindent + +\raggedbottom +\exhyphenpenalty=10000 + +\font\bbf=csb10 at12pt +\font\bbbf=csb10 at14.4pt +\font\btt=cstt12 +\font\ttsmall=cstt8 +\font\rmsmall=csr8 +\font\itsmall=csti8 +\font\partfont=csb10 at80pt + +\def\setsmallprinting{\ttsmall \let\it=\itsmall \let\rm=\rmsmall + \def\ttstrut{\vrule height8pt depth3pt width0pt}% + \offinterlineskip \parskip=-1pt\relax +} +\def\setnormalprinting{\tt \baselineskip=0pt \hfuzz=4em + \def\ttstrut{\vrule height10pt depth3pt width0pt}% + \offinterlineskip \parskip=-1pt\relax +} + +\ifx\pdfoutput\undefined + \def\setcmykcolor#1{} +\else + \def\setcmykcolor#1{\special{PDF:#1 k}} +\fi +\def\Blue{\setcmykcolor{0.9 0.9 0.1 0}} +\def\Red{\setcmykcolor{0.1 0.9 0.9 0}} +\def\Brown{\setcmykcolor{0 0.85 0.87 0.5}} +\def\Green{\setcmykcolor{0.9 0.1 0.9 0.2}} +\def\Yellow{\setcmykcolor{0.0 0.0 0.3 0.03}} +\def\Black{\setcmykcolor{0 0 0 1}} +\let\oriBlack=\Black + +\ifx\pdfoutput\undefined + \def\rectangle#1#2#3#4{\vbox to0pt{\vss\hrule\kern-.3pt + \hbox to#3{\vrule height#1 depth#2\hss#4\hss\vrule}% + \kern-.3pt\hrule\kern-#2\kern-.1pt}} +\else + \def\rectangle#1#2#3#4{\vbox to0pt{\vss\hbox to#3{% + \rlap{\Yellow \vrule height#1 depth#2 width#3}% + \hss#4\Black\hss}\kern-#2}} +\fi + +\def\docbytex {\leavevmode\hbox{DocBy}.\TeX} + +%%%%%%%%%%%%%%%%%% Vzhled kapitol a podkapitol + +\def\printsec #1{\par + \removelastskip\bigskip\medskip + \noindent \makelinks + \rectangle{16pt}{9pt}{25pt}{\Brown\bbbf\ifsavetoc\the\secnum\else\emptynumber\fi}% + \kern5pt{\bbbf\let\_=\subori #1}\par +} +\def\printsecbelow {\nobreak\medskip} + +\def\printsubsec #1{\par + \removelastskip\bigskip + \noindent \makelinks + \vbox to0pt{\vss + \rectangle{16pt}{9pt}{25pt}{\Brown\bf + \ifsavetoc\the\secnum.\the\subsecnum\else\emptynumber\fi}\kern-5pt}% + \kern5pt{\bbf\let\_=\subori \let\tt=\btt #1}\par +} +\def\printsubsecbelow {\nobreak\smallskip} + +\def\printpart #1{\par + \removelastskip\bigskip\medskip + \noindent {\linkskip=60pt\makelinks}% + \rectangle{16pt}{9pt}{25pt}{}% + \kern-20pt{\Brown\partfont\thepart\Black}\kern10pt{\bbbf #1}\par +} +\def\printpartbelow {\nobreak\bigskip} + +\def\emptynumber{} + +%%%%%%%%%%%%%%%%%%%% Titul, autor + +\def\title{\def\tmpA{title}\futurelet\nextchar\secparam} +\ifx\pdfoutput\undefined + \def\iititle {\par + \ifx\headtitle\empty\edef\headtitle{\the\sectitle}\fi + \noheadline + \ifx\projectversion\empty \else + \line{\hss\rmsmall\titversion\projectversion}\nobreak\medskip\fi + \centerline{\bbbf \let\_=\subori\the\sectitle}\nobreak\medskip} +\else + \def\iititle {\par + \ifx\headtitle\empty\edef\headtitle{\the\sectitle}\fi + \noheadline + \indent\rlap{\rectangle{25pt}{15pt}{\nwidth}{\Black\let\_=\subori\bbbf\the\sectitle}}% + \ifx\projectversion\empty \else + \hbox to\nwidth{\hss + \raise26pt\hbox{\Brown\rmsmall\titversion\projectversion\Black}}\fi + \par\nobreak\vskip15pt} +\fi + +\ifx\projectversion\undefined \def\projectversion{}\fi + +\def\author #1\par{\centerline{\bf #1\unskip}\smallskip} + +%%%%%%%%%%%%%%%%%%%% Hlavičky, patičky + +\footline={\hss\rectangle{8pt}{2pt}{25pt}{\tenrm\Black\folio}\hss} + +\headline={\normalhead} +\def\normalhead {\savepglink \let\_=\subori + \vbox to0pt{\vss \baselineskip=7pt \lineskiplimit=0pt + \line{\indent\Black\tenit \firstmark \hss \headtitle\indent} + \line{\indent\Yellow\xleaders\headlinebox\hfil\indent\Black}}} + +\def\noheadline {\global\headline={\savepglink\hfil\global\headline={\normalhead}}} + +\ifx\headtitle\undefined \def\headtitle {}\fi + +\ifx\pdfoutput\undefined + \def\headlinebox{\hbox{\kern2pt\rectangle{4pt}{0pt}{4pt}{}\kern2pt}} +\else + \def\headlinebox{\hbox{\kern2pt\vrule height4pt depth0pt width4pt\kern2pt}} +\fi + +%%%%%%%%%%%%%%%%%%%% Tisk cíle odkazu a odkazů pod čarou + +\ifx\pdfoutput\undefined + \def\printdg#1#2#3{\leavevmode\hbox{\kern-.6pt + \vbox{\hrule\hbox{\vrule height8.5pt depth2.5pt \kern.2pt + \tt#2\kern.2pt\vrule}\hrule\kern-2.9pt}\kern-.6pt}} +\else + \def\printdg#1#2#3{\leavevmode \setbox0=\hbox{\tt#2}% + \Yellow\rlap{\vrule height8.7pt depth2.7pt width\wd0}% + \printdginside{#2}{\box0}} +\fi + +\def\printdginside#1#2{\ifnum\pgref[+#1]>-1 {\let\Blue=\Red \ilink[+#1]{#2}}% + \else \Red#2\relax\Black\fi} + +\def\printfnote #1#2#3#4{% + \specfootnote{{\let\Black=\oriBlack \ttsmall #1\Red #4\Black#3\rmsmall + \apinum=\pgref[+#2]\relax + \ifnum\apinum>-1 :~\lower1.4pt\vbox{\hbox{\pglink\apinum}\kern1pt\hrule}\fi + \undef{w:#2}\iftrue \setbox0=\hbox{}\else \dgnum=-1 \setbox0=\hbox{\listofpages{#2}}\fi + \ifdim\wd0=0pt \else + \ifnum\apinum>-1 , \else :~\fi + \unhbox0 + \fi}}% +} + +%%%%%%%%%%%%%%%%%%%% Tisk údaje v obsahu a rejstříku + +\def\ptocline #1#2#3{% + \if^^X#1^^X\advance\partnum by1 \medskip \fi + \line{\rectangle{8pt}{1pt}{25pt}{% + \if^^X#1^^X\ilink[sec:\thepart]{\bbbf \thepart}\else\ilink[sec:#1]{#1}\fi}\kern5pt + {\bf\let\_=\subori #2}\mydotfill\pglink#3}} +\def\ptocsubline #1#2#3{% + \line{\indent\rectangle{8pt}{1pt}{25pt}{\ilink[sec:#1]{#1}}\kern5pt + \let\_=\subori #2\mydotfill\pglink#3}} +\def\mydotfill{\leaders\hbox to5pt{\hss.\hss}\hfil} + +\def\ptocentry#1#2#3{\ifhmode,\hskip 7pt plus 20pt minus 3pt \fi + \noindent \hbox{\ttsmall \if+#1\apitext\fi \ilink[#1#2]{\ifx^^X#3^^X#2\else#3\fi}}% + \nobreak\myldots\pglink\pgref[#1#2]\relax +} +\def\myldots{\leaders\hbox to5pt{\hss.\hss}\hskip20pt\relax} + +\def\printindexentry #1{% + \expandafter \expandafter\expandafter \separeright \csname-#1\endcsname\end + \apinum=\pgref[+#1]\relax + \leavevmode\llap{\ttsmall \ifnum\apinum>-1 \apitext\fi\tmpa}% + {\tt \ilink[@#1]{#1}\tmpb}: {\bf\pglink\pgref[@#1]}% + \ifnum\apinum>-1 , $\underline{\pglink\apinum}$\fi + \dgnum=\pgref[@#1]\relax + \undef{w:#1}\iftrue \setbox0=\hbox{}\else \setbox0=\hbox{\it\listofpages{#1}}\fi + \ifdim\wd0=0pt \else, \unhbox0 \fi + \hangindent=2\parindent \hangafter=1 \par +} +\def\separeright #1\right#2\end{\def\tmpa{#1}\def\tmpb{#2}} + + +%%%%%%%%%%%%%%%%%%%% Tisk zdrojového textu + +\ifx\pdfoutput\undefined + \def\printiabove{\line{\leaders\specrule\hfill \kern2pt + {\ttsmall \Brown\inputfilename}\kern2pt \specrule width\parindent}\nobreak + \setsmallprinting} + \def\printibelow{\vskip2pt\hrule\medskip} + \def\specrule{\vrule height 2pt depth-1.6pt } + \def\printiline#1#2{\noindent\ttstrut + \hbox to\parindent{\hss#1:\kern.5em}{#2\par}\penalty11 } +\else + \def\printiabove{\smallskip \setsmallprinting} + \def\printibelow{\medskip} + \def\printiline #1#2{\noindent + \rlap{\Yellow \ttstrut width\hsize}% + \ifx\isnameprinted\undefined + \rlap{\line{\hss \raise8.5pt + \hbox{\ttsmall \Brown \vrule height5pt width0pt \inputfilename}}}% + \let\isnameprinted=\relax + \fi + \hbox to\parindent{\hss\Brown#1:\Black\kern.5em}{#2\par}\penalty11 } +\fi + +%%%%%%%%%%%%%%%%%%%% Tisk z prostředí \begtt, \endtt + +\ifx\pdfoutput\undefined + \def\printvabove{\smallskip\hrule\nobreak\smallskip\setnormalprinting} + \def\printvbelow{\nobreak\smallskip\hrule\smallskip} + \def\printvline#1#2{\hbox{\ttstrut\indent#2}\penalty12 } +\else + \def\printvabove{\medskip\Yellow\hrule height2pt \setnormalprinting\nobreak} + \def\printvbelow{\Yellow\hrule height2pt \Black\medskip} + \def\printvline#1#2{\noindent + \rlap{\hbox to\hsize{\Yellow\ttstrut width25pt\hfil + \vrule width25pt\Black}}\hbox{\indent#2}\par\penalty12 } +\fi + +%%%%%%%%%%%%%%%%%% Vložení obrázku + +\newdimen\figwidth \figwidth=\hsize \advance\figwidth by-\parindent + +\ifx\pdfoutput\undefined + \input epsf + \def\ifig #1 #2 {\bigskip\indent + \hbox{\epsfxsize=#1\figwidth\epsfbox{\figdir#2.eps}}\bigskip} +\else + \def\ifig #1 #2 {\bigskip\indent + \hbox{\pdfximage width#1\figwidth {\figdir#2.pdf}% + \pdfrefximage\pdflastximage}\bigskip} +\fi +\def\figdir{fig/} + +%%%%%%%%%%%%%%%%%%%%%%% Vycty + +\newcount\itemno +\def\begitems{\medskip\begingroup\advance\leftskip by\parindent \let\item=\dbtitem} +\def\dbtitem #1 {\par\advance\itemno by1 \noindent\llap{\ifx*#1$\bullet$\else#1\fi\kern3pt}} +\def\enditems{\medskip\endgroup} + + +%%%%%%%%%%%%%%%%%%%%%%% Pomocna makra + +\def\dbtwarning#1{\immediate\write16{DocBy.TeX WARNING: #1.}} + +\def\defsec#1{\expandafter\def\csname#1\endcsname} +\def\edefsec#1{\expandafter\edef\csname#1\endcsname} +\def\undef#1\iftrue{\expandafter\ifx\csname#1\endcsname\relax} + +{\catcode`\^^I=\active \gdef^^I{\space\space\space\space\space\space\space\space} + \catcode`\|=0 \catcode`\\=12 |gdef|nb{\}} +\bgroup + \catcode`\[=1 \catcode`]=2 \catcode`\{=12 \catcode`\}=12 \catcode`\%=12 + \gdef\obrace[{] \gdef\cbrace[}] \gdef\percent[%] +\egroup +\def\inchquote{"} + +\def\softinput #1 {\let\next=\relax \openin\infile=#1 + \ifeof\infile \dbtwarning{The file #1 does not exist, run me again} + \else \closein\infile \def\next{\input #1 }\fi + \next} + +\def\setverb{\def\do##1{\catcode`##1=12}\dospecials} + +%%%%%%%%%%%%%%%%%%%% Inicializace + +\immediate\write16{This is DocBy.TeX, version \dbtversion, modes: + \ifx\mubyte\undefined NO\fi enc+% + \ifx\pdfoutput\undefined DVI\else PDF\fi+% + \ifx\chyph\undefined \else cs\fi plain} + +\ifx\chyph\undefined \else \chyph \fi + +\ifx\mubyte\undefined + \dbtwarning{encTeX is not detected} + \message{ \space The documented words will be not recognized in source code.} + \message{ \space Use pdfetex -ini -enc format.ini to make + your format with encTeX support.} + \csname newcount\endcsname \mubytein + \def\enctextable#1#2{} + \def\noactive#1{} +\else + \def\enctextable#1#2{% + \def\tmp ##1,#1,##2\end{\ifx^^X##2^^X}% + \expandafter \tmp \owordbuffer ,#1,\end + \expandafter \mubyte \csname.#1\endcsname #1\endmubyte \fi + \expandafter \gdef \csname.#1\endcsname {#2}% + } + \def\noactive#1{\mubyte \emptysec ##0 #1\endmubyte} + \def\emptysec{} +\fi + +\def\sword#1{\ilink[@#1]{#1}\write\reffile{\string\refuseword{#1}{\the\pageno}}} + +\def\onlyactive #1#2#3{\enctextable{#1#2#3}{\oword{#1}{#2}{#3}}% + \def\tmp ##1,#2,##2\end{\ifx^^X##2^^X}% + \expandafter \tmp \owordbuffer ,#2,\end + \addtext #2,\to\owordbuffer \noactive{#2}\fi} +\def\owordbuffer{,} +\def\oword#1#2#3{#1\undef{.#2}\iftrue #2\else\csname.#2\endcsname\fi #3} + +\ifx\pdfoutput\undefined + \dbtwarning{pdfTeX is not detected} + \message{ \space The document will be without colors and hyperlinks.} + \message{ \space Use pdfTeX engine, it means: pdfetex command, for example. } +\else + \pdfoutput=1 +\fi + +%%%%%%%%%%%%%%%%%% Makra \ifirst, \inext, \ilabel + +\newcount\lineno +\newcount\ttlineno +\newif\ifcontinue +\newif\ifskipping \skippingtrue +\newread\infile + +\def\ifirst #1#2#3#4{\par\readiparamwhy#4..\end + \openin\infile=#1 \global\lineno=0 + \ifeof\infile + \dbtwarning {I am not able to open the file "#1" to reading} + \else + \xdef\inputfilename{#1} + \scaniparam #2^^X\tmpa\tmpA \scaniparam #3^^X\tmpb\tmpB + {\let~=\space \def\empty{^^B^^E}\let\end=\relax \uccode`\~=`\"\uppercase{\let~}"% + \noswords \xdef\act{\noexpand\insinternal {\tmpa}{\tmpb}}}\act + \fi +} +\def\inext #1#2#3{\par\readiparamwhy#3..\end + \ifx\inputfilename\undefined + \dbtwarning {use \string\ifirst\space before using of \string\inext} + \else + \ifeof\infile + \dbtwarning {the file "\inputfilename" is completely read} + \else + \scaniparam #1^^X\tmpa\tmpA \scaniparam #2^^X\tmpb\tmpB + {\let~=\space \def\empty{^^B^^E}\let\end=\relax \uccode`\~=`\"\uppercase{\let~}"% + \noswords \xdef\act{\noexpand\insinternal{\tmpa}{\tmpb}}}\act + \fi\fi +} +\def\noswords{\def\sword##1{##1}\def\lword##1{##1}\def\fword##1##2##3{##2}% + \let\flword=\fword \def\leftcomment{}\def\returntoBlack{}\def\linecomment{}} + +\def\readiparamwhy#1#2#3\end{\let\startline=#1\relax\let\stopline=#2\relax} + +\def\scaniparam{\futurelet\nextchar\scaniparamA} +\def\scaniparamA{\ifx\nextchar\count \expandafter\scaniparamB + \else \def\tmp{\scaniparamB \count=1 }\expandafter\tmp + \fi} +\def\scaniparamB \count{\afterassignment\scaniparamC\tempnum} +\def\scaniparamC #1^^X#2#3{\def#2{#1}\edef#3{\the\tempnum}} + +\def\insinternal #1#2{% + \bgroup + \printiabove % graficke zpracovani zacatku + \setverb \catcode`\"=12 \catcode`\^^M=9 \catcode`\^^I=\active + \mubytein=1 \obeyspaces \continuetrue \tempnum=\tmpA\relax + \def\testline##1#1##2\end{\ifx^^Y##2^^Y\else \nocontinue \fi}% + \ifx^^X#1^^X\def\testline##1\end{\nocontinue}\fi + \loop % preskakovani radku + \ifeof\infile \returninsinternal{Text "#1" not found (\string\count=\the\tempnum)}{}\fi + \readnewline + \expandafter \testline \expandafter^^B\etext ^^E#1\end + \ifcontinue \repeat + \let\lastline=\empty + \continuetrue \tempnum=\tmpB\relax + \def\testline##1#2##2\end{\ifx^^Y##2^^Y\else \nocontinue \fi}% + \ifx^^X#2^^X\def\testline##1\end{\nocontinue}\fi + \ifx+\startline \printilineA + \expandafter \testline \expandafter ^^B\etext ^^E#2\end + \ifcontinue\else\returninsinternal{}\fi + \readnewline + \else + \readnewline + \ifskipping\ifx\text\empty \readnewline \fi\fi + \fi + \loop % pretisk radku + \expandafter \testline \expandafter ^^B\etext ^^E#2\end + \ifcontinue + \printilineA + \ifeof\infile \returninsinternal{}\fi + \readnewline \repeat + \ifx+\stopline \printilineA + \ifx\lastline\relax \else \printiline{\lastline}{}\relax\fi + \fi + \global\let\Black=\oriBlack % pokud jsme skoncili vypis uvnitr komentare + \printibelow % graficke zpracovani konce + \egroup\gdef\ilabellist{}\Black +} +\def\nocontinue{\advance\tempnum by-1 \ifnum\tempnum<1 \continuefalse \fi} + +\def\returninsinternal #1#2#3\printibelow{% + \ifx^^X#1^^X\else + \dbtwarning{#1 in file \inputfilename}\fi + #2\fi\printibelow +} +\def\readnewline {\read\infile to\text \global\advance\lineno by1\relax + {\noswords \xdef\etext{\text}}} + +\def\printilineA {% + \ifskipping\else \ifx\text\empty \def\text{ }\fi\fi % trik pro pripad \skippingfalse + \ifx\text\empty + \ifx\lastline\empty % nacten prvni prazdny radek + \let\lastline=\relax + \else % nacten pozdejsi prazdny radek + \ifx\lastline\relax \else \printiline{\lastline}{}\relax\fi + \edef\lastline{\the\lineno}% + \fi + \else % nacten plny radek + \ifx\lastline\empty \let\lastline=\relax \fi + \ifx\lastline\relax \else \printiline{\lastline}{}\relax\fi + \printiline{\the\lineno}{\text}\relax + \let\lastline=\relax + \fi \ilabellist +} +\def\ilabellist {} +\def\ilabel [#1]#2{{\noswords\edef\act{\noexpand\ilabelee{#1}{#2}}\expandafter}\act} +\def\ilabelee #1#2{\expandafter\def\expandafter\ilabellist\expandafter{% + \ilabellist \expandafter\testilabel\etext\end{#1}{#2}} +} +\def\testilabel#1\end#2#3{% + \def\tmp ##1#3##2\end{\ifx^^Y##2^^Y\else + \undef{d:#2}\iftrue \defsec{d:#2}{}\labeltext[#2]{\the\lineno}\fi\fi} + \tmp^^B#1^^E#3\end +} + +%%%%%%%%%%%%%%%%%% Příkazy \begtt, \endtt + +\def\begtt {\bgroup\printvabove + \setverb \catcode`\"=12 \catcode`\^^M=12 \obeyspaces + \begtthook\relax \startverb} +{\catcode`\|=0 \catcode`\^^M=12 \catcode`\\=12 % + |gdef|startverb^^M#1\endtt{|runttloop#1|end^^M}% + |gdef|runttloop#1^^M{|ifx|end#1 |expandafter|endttloop% + |else|global|advance|ttlineno by1 % + |printvline{|the|ttlineno}{#1}|relax|expandafter|runttloop|fi}} % +\def\endttloop#1{\printvbelow\egroup\futurelet\nextchar\scannexttoken} +\long\def\scannexttoken{\ifx\nextchar\par\else\noindent\fi} + +%%%%%%%%%%%%%%%%%%%% Jmenne prostory + +\def\namespacemacro#1{} + +\def\namespace #1{% + \let\tmp=\namespacemacro + \gdef\namespacemacro##1{#1}% + \global\expandafter\let\csname no:\namespacemacro{@!}\endcsname\tmp + \ewrite{\string\refns{\namespacemacro{@!}}}% + \def\locword##1{% + \global\expandafter\let + \csname\namespacemacro{@!},##1\expandafter\endcsname\csname.##1\endcsname + \enctextable{##1}{\lword{##1}}}% + \csname ns:\namespacemacro{@!}\endcsname +} +\def\endnamespace{\if^^X\namespacemacro{@!}^^X\else + \def\locword##1{% + \global\expandafter\let + \csname.##1\expandafter\endcsname\csname\namespacemacro{@!},##1\endcsname + \undef{.##1}\iftrue \noactive{##1}\fi}% + \csname ns:\namespacemacro{@!}\endcsname + \ewrite{\string\refnsend{\namespacemacro{@!}}}% + \global\expandafter\let\expandafter\namespacemacro\csname no:\namespacemacro{@!}\endcsname + \fi +} +\def\ewrite#1{{\let\nb=\relax \edef\act{\write\reffile{#1}}\act}} + +\def\lword#1{\genlongword\tmp{#1}\ilink[@\tmp]{#1}% + \ewrite{\string\refuseword{\tmp}{\noexpand\the\pageno}}} +\def\genlongword#1#2{\expandafter\def\expandafter#1\expandafter{\namespacemacro{#2}}} + +\def\refns#1{\edefsec{o:#1}{\currns} + \edef\currns{#1}\undef{ns:\currns}\iftrue \defsec{ns:\currns}{}\fi} +\def\refnsend#1{\edef\currns{\csname o:#1\endcsname}} +\def\currns{} + +%%%%%%%%%%%%%%%%%%%% \dg a pratele + +\def\dg{\def\tmpA{dg}\dgpar} \def\dgn{\def\tmpA{dgn}\dgpar} \def\dgh{\def\tmpA{dgh}\dgpar} +\def\dl{\def\tmpA{dl}\dgpar} \def\dln{\def\tmpA{dln}\dgpar} \def\dlh{\def\tmpA{dlh}\dgpar} + +\def\dgpar {\futurelet\nextchar\dgparA} +\def\dgparA {\ifx\nextchar[\def\tmp{\dparam}\else\def\tmp{\dparam[]}\fi\tmp} + +\def\dparam [#1]#2 {% + \def\printbrackets{}% + \ifx^^X#2^^X\nextdparam{#1}\fi + \def\tmpa{#2}\def\tmpb{}% + \varparam,\tmpa, \varparam.\tmpa. \varparam;\tmpa; \varparam:\tmpa: + \expandafter\managebrackets\tmpa()\end + {\let\nb=\relax + \edef\act{\expandafter\noexpand \csname ii\tmpA\endcsname{#1}{\tmpa}{\printbrackets}}% + \expandafter}\act + \tmpb \if|\expandafter\ignoretwo\tmpA|\expandafter\maybespace\fi +} +\def\nextdparam#1#2\maybespace\fi{\fi\dparam[#1 ]} + +\def\varparam#1{\def\tmp ##1#1##2 {\def\tmpa{##1}\if^^X##2^^X\else + \expandafter\gobblelast\tmpb\end#1##2\fi}% + \expandafter\tmp} +\def\gobblelast#1\end#2{\def\tmp##1#2{\def\tmpb{#2##1#1}}\tmp} + +\def\managebrackets #1()#2\end{\def\tmpa{#1}% + \if|#2|\else\def\printbrackets{()}\fi} + +\def\maybespace{\futurelet\tmp\domaybespace} +\def\domaybespace{\let\next=\space + \ifx\tmp`\def\next##1{}\fi + \next} + +\def\iidg #1#2#3{% + \enctextable{#2}{\sword{#2}}% + \label [@#2]% + \write\reffile{\string\refdg{#1}{#2}{#3}{}}% + \printdg{#1}{#2}{#3}% + \printfnote{#1}{#2}{#3}{#2}% +} +\def\iidl #1#2#3{% + \genlongword\tmpB{#2}% + \ifx\tmpB\empty \dbtwarning{\string\dl\space#2 outside namespace, ignored}% + \else + \expandafter\label\expandafter [\expandafter @\tmpB]% + \ewrite{\string\refdg{#1}{\tmpB}{#3}{#2}}% + \printdg{#1}{#2}{#3}% + \printfnote{#1}{\tmpB}{#3}{#2}% + \fi +} +\def\iidgh#1#2#3{{\def\printdg##1##2##3{}\iidg{#1}{#2}{#3}}} +\def\iidlh#1#2#3{{\def\printdg##1##2##3{}\iidl{#1}{#2}{#3}}} + +\def\iidgn#1#2#3{\enctextable{#2}{\fword{#1}{#2}{#3}}} + +\def\fword#1#2#3{\iidgh{#1}{#2}{#3}\printdginside{#2}{#2}} + +\def\iidln#1#2#3{% + \global\expandafter\let\csname;#2\expandafter\endcsname\csname.#2\endcsname + \enctextable{#2}{\flword{#1}{#2}{#3}}} + +\def\flword#1#2#3{\iidlh{#1}{#2}{#3}\printdginside{#2}{#2}% + \global\expandafter\let\csname.#2\expandafter\endcsname\csname;#2\endcsname + \undef{.#2}\iftrue \noactive{#2}\fi} + +%%%%%%%%%%%%%%%%%% Specialni poznamky pod carou + +\let\footnote=\undefined + +\skip\footins=18pt +\dimen\footins=\vsize +\count\footins=200 + +\newcount\totalfoocount +\newdimen\totalfoodim + +\def\specfootnote#1{\insert\footins\bgroup + \let\tt=\ttsmall \rmsmall + \floatingpenalty=20000 \setbox0=\hbox{#1}% + \ht0=10pt \dp0=0pt \box0 \egroup + \global\advance\totalfoocount by1 +} + +\def\footnoterule \unvbox\footins { + \vskip-12pt \vfil + \moveright\parindent\vbox{\hsize=\nwidth \hrule + \setbox2=\vbox{\unvbox\footins \unskip + \setbox2=\lastbox + \global\setbox4=\hbox{\unhbox2} + \loop \unskip\unskip\unpenalty + \setbox2=\lastbox + \ifhbox2 \global\setbox4= + \hbox{\unhbox2 \penalty-300\hskip15pt plus5pt \unhbox4} + \repeat} + \setbox2=\vbox{\hbox{} \parskip=0pt + \lineskiplimit=0pt \baselineskip=10pt \raggedright \rightskip=0pt plus7em + \leftskip=0pt \hyphenpenalty=10000 \noindent \Black \unhbox4 } + \global\advance\totalfoodim by\ht2 \unvbox2} +} + +\def\refcoef#1#2#3{% + \ifnum#1=200 % jsme na zacatku tretiho pruchodu + \dimen0=#3 \divide\dimen0 by #2 + \multiply \dimen0 by100 + \afterassignment\gobblerest \count\footins=\the\dimen0 \end + \else \count\footins=#1 + \fi + \message{foot-coef: \the\count\footins} +} +\def\gobblerest #1\end{} + +\output={\setbox0=\makeheadline \def\makeheadline{\box0\nointerlineskip} + \let~=\relax \let\nb=\relax \let\TeX=\relax \let\docbytex=\relax \let\_=\relax \let\tt=\relax + \outputhook \plainoutput } + + +%%%%%%%%%%%%%%%%%% Kapitoly, podkapitoly + +\newcount\secnum +\newcount\subsecnum +\newtoks\sectitle +\newif\ifsavetoc \savetoctrue + +\def\sec{\def\tmpA{sec}\futurelet\nextchar\secparam} +\def\subsec{\def\tmpA{subsec}\futurelet\nextchar\secparam} + +\def\secparam{\ifx\nextchar[% + \def\tmp[##1]{\def\seclabel{##1}\futurelet\nextchar\secparamA}% + \expandafter\tmp + \else \def\seclabel{}\expandafter\secparamB\fi +} +\def\secparamA{\expandafter\ifx\space\nextchar + \def\tmp{\afterassignment\secparamB\let\next= }\expandafter\tmp + \else \expandafter\secparamB \fi +} +\def\secparamB #1\par{\nolastspace #1^^X ^^X\end} +\def\nolastspace #1 ^^X#2\end{\ifx^^X#2^^X\secparamC #1\else \secparamC #1^^X\fi} +\def\secparamC #1^^X{\sectitle={#1}\csname ii\tmpA\endcsname} + +\def\iisec{% + \ifsavetoc \global\advance\secnum by1 \global\subsecnum=0 \fi + \edef\makelinks{% + \ifsavetoc \noexpand\savelink[sec:\the\secnum]\fi + \if^^X\seclabel^^X\else \noexpand\labeltext[\seclabel]{\the\secnum}\fi} + \expandafter \printsec \expandafter{\the\sectitle}% vlozi horni mezeru, text, nakonec \par + \ifsavetoc + \ewrite {\string\reftocline{\the\secnum}{\the\sectitle}{\noexpand\the\pageno}}\fi + \mark{\ifsavetoc \the\secnum\space \else + \ifx\emptynumber\empty\else\emptynumber\space\fi\fi \the\sectitle} + \savetoctrue \printsecbelow +} +\def\iisubsec {% + \ifsavetoc \global\advance\subsecnum by1 \fi + \edef\makelinks{% + \ifsavetoc \noexpand\savelink[sec:\the\secnum.\the\subsecnum]\fi + \if^^X\seclabel^^X\else \noexpand\labeltext[\seclabel]{\the\secnum.\the\subsecnum}\fi} + \expandafter \printsubsec \expandafter{\the\sectitle}% vlozi horni mezeru, text, nakonec \par + \ifsavetoc \ewrite + {\string\reftocline{\the\secnum.\the\subsecnum}{\the\sectitle}{\noexpand\the\pageno}}\fi + \savetoctrue \printsubsecbelow +} + +%%%%%%%%%%%%%%%%%%%%%%% Part (doplneno leden 2009) + +\newcount\partnum +\def\thepart{\ifcase\partnum --\or A\or B\or C\or D\or E\or F\or G\or + H\or I\or J\or K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\or + U\or V\or W\or X\or Y\or Z\else +\the\partnum\fi} + +\def\part{\def\tmpA{part}\futurelet\nextchar\secparam} +\def\iipart{% + \ifsavetoc \global\advance\partnum by1 \fi + \edef\makelinks{% + \ifsavetoc \noexpand\savelink[sec:\thepart]\fi + \if^^X\seclabel^^X\else \noexpand\labeltext[\seclabel]{\thepart}\fi} + \expandafter \printpart \expandafter{\the\sectitle}% vlozi horni mezeru, text, nakonec \par + \ifsavetoc + \ewrite {\string\reftocline{}{\the\sectitle}{\noexpand\the\pageno}}\fi + \savetoctrue \printpartbelow +} + +%%%%%%%%%%%%%%%%%%%%%%% Odkazy, reference + +\ifx\pdfoutput\undefined + \def\savelink[#1]{} + \def\ilink [#1]#2{#2} + \def\savepglink{} + \def\pglink{\afterassignment\dopglink\tempnum=} + \def\dopglink{\the\tempnum} + \def\ulink[#1]#2{#2} +\else + \def\savelink[#1]{\ifvmode\nointerlineskip\fi + \vbox to0pt{\def\nb{/_}\vss\pdfdest name{#1} xyz\vskip\linkskip}} + \def\ilink [#1]#2{{\def\nb{/_}\pdfstartlink height 9pt depth 3pt + attr{/Border[0 0 0]} goto name{#1}}\Blue#2\Black\pdfendlink} + \def\savepglink{\ifnum\pageno=1 \pdfdest name{sec::start} xyz\relax\fi % viz \bookmarks + \pdfdest num\pageno fitv\relax} + \def\pglink{\afterassignment\dopglink\tempnum=} + \def\dopglink{\pdfstartlink height 9pt depth 3pt + attr{/Border[0 0 0]} goto num\tempnum\relax\Blue\the\tempnum\Black\pdfendlink} + \def\ulink[#1]#2{\pdfstartlink height 9pt depth 3pt + user{/Border[0 0 0]/Subtype/Link/A << /Type/Action/S/URI/URI(#1)>>}\relax + \Green{\tt #2}\Black\pdfendlink} +\fi +\newdimen\linkskip \linkskip=12pt + +\def\reflabel #1#2#3{% + \undef{^^Y#1}\iftrue + \ifx^^X#2^^X\else\defsec{^^X#1}{#2}\fi + \defsec{^^Y#1}{#3}% + \else + \dbtwarning{The label [#1] is declared twice}% + \fi +} +\def\numref [#1]{\undef{^^X#1}\iftrue \else \csname^^X#1\endcsname\fi} +\def\pgref [#1]{\undef{^^Y#1}\iftrue-1000\else \csname^^Y#1\endcsname\fi} + +\def\labeltext[#1]#2{\savelink[#1]\writelabel[#1]{#2}} +\def\writelabel[#1]#2{\edef\tmp{\noexpand\writelabelinternal{#2}}\tmp{#1}} +\def\writelabelinternal#1#2{\write\reffile{\string\reflabel{#2}{#1}{\the\pageno}}} + +\def\label[#1]{\labeltext[#1]{}} + +\def\cite[#1]{\ifnum \pgref[#1]=-1000 + \dbtwarning{label [#1] is undeclared}\Red??\Black + \else \edef\tmp{\numref[#1]}% + \ifx\tmp\empty \edef\tmp{\pgref[#1]}\fi + \ilink[#1]{\tmp}% + \fi +} + +\def\api #1{\label[+#1]\write\reffile{\string\refapiword{#1}}} +\def\apitext{$\succ$} + +\def\bye{\par\vfill\supereject + \ifx\indexbuffer\empty \else % jsme ve druhem a dalsim pruchodu + \immediate\write\reffile{\string\refcoef + {\the\count\footins}{\the\totalfoocount}{\the\totalfoodim}} + \immediate\closeout\reffile + \setrefchecking \continuetrue \input \jobname.ref + \ifcontinue \indexbuffer \relax \fi + \ifcontinue \ifx\text\tocbuffer \else + \continuefalse \dbtwarning{toc-references are inconsistent, run me again}\fi + \fi + \ifcontinue \immediate\write16{DocBy.TeX: OK, all references are consistent.}\fi + \fi + \end +} +\def\setrefchecking{\catcode`\"=12 + \def\refcoef##1##2##3{} + \def\reflabel##1##2##3{\def\tmp{##3}\let\next=\relax + \expandafter\ifx\csname^^Y##1\endcsname \tmp + \ifx^^X##2^^X\else + \def\tmp{##2} \expandafter \ifx \csname^^X##1\endcsname \tmp \else + \continuefalse + \dbtwarning{text references are inconsistent, run me again} + \let\next=\endinput + \fi\fi + \else + \continuefalse + \dbtwarning{page references are inconsistent, run me again} + \let\next=\endinput + \fi\next} + \def\refuseword##1##2{\expandafter \ifx\csname -##1\endcsname \relax + \defsec{-##1}{##2}\else \edefsec{-##1}{\csname -##1\endcsname,##2}\fi} + \def\refdg##1##2##3##4{\addtext\ptocentry @{##2}{##4}\to\tocbuffer} + \let\text=\tocbuffer \def\tocbuffer{} + \def\,##1{\let##1=\relax}\indexbuffer + \def\,##1{\edef\tmp{\expandafter\ignoretwo \string ##1}% + \expandafter\ifx \csname w:\tmp\endcsname ##1\else + \continuefalse + \dbtwarning{auto-references are inconsistent, run me again} + \expandafter\ignoretorelax \fi} +} +\def\ignoretorelax #1\relax{} + +%%%%%%%%%%%%%%%%%% Tvorba obsahu a rejstriku + +\def\tocbuffer{} +\def\indexbuffer{} +\def\addtext #1\to#2{\expandafter\gdef\expandafter#2\expandafter{#2#1}} + +\def\reftocline#1#2#3{\def\currb{#1}% + \istocsec#1.\iftrue \def\currsecb{#1}\else \addbookmark\currsecb \fi + \addtext\dotocline{#1}{#2}{#3}\to\tocbuffer} + +\def\dotocline#1#2#3{\par + \istocsec#1.\iftrue \ptocline{#1}{#2}{#3}\else \ptocsubline{#1}{#2}{#3}\fi} +\def\istocsec#1.#2\iftrue{\if^^X#2^^X} + +\def\refdg#1#2#3#4{% + \edefsec{-#2}{#1\noexpand\right\if!#4!#3\fi} + \expandafter\addtext\csname-#2\endcsname,\to\indexbuffer + \addbookmark\currb + \addtext\ptocentry @{#2}{#4}\to\tocbuffer + \ifx^^X#4^^X\enctextable{#2}{\sword{#2}} % slovo je z \dg + \else \expandafter\def\csname ns:\currns % slovo je z \dl + \expandafter\expandafter\expandafter\endcsname + \expandafter\expandafter\expandafter + {\csname ns:\currns\endcsname \locword{#4}} + \fi +} +\def\refapiword#1{\addbookmark\currb \addtext\ptocentry +{#1}{}\to\tocbuffer} + +\def\dotoc{\bgroup \savetocfalse \sec \tittoc \par \smallskip + \leftskip=\parindent \rightskip=\parindent plus .5\hsize + \tochook \tocbuffer \par\egroup} + +\def\doindex {\par\penalty0 + \calculatedimone + \ifdim\dimen1<7\baselineskip \vfil\break \fi + \sec \titindex \par + \ifx\indexbuffer\empty + \dbtwarning {index is empty, run me again} + \else + \message{DocBy.TeX: sorting index...} + \sortindex + \indexhook + \vskip-\baselineskip + \begmulti 2 \rightskip=0pt plus5em \parfillskip=0pt plus2em + \widowpenalty=0 \clubpenalty=0 + \let\,=\doindexentry \indexbuffer \endmulti + \fi +} +\def\doindexentry #1{% + \edef\tmp{\expandafter\ignoretwo \string #1}% + \expandafter \remakebackslash \tmp\end + \expandafter \printindexentry \expandafter {\tmp}% +} +\def\remakebackslash#1#2\end{\if#1\nb \def\tmp{\nb#2}\fi} +\def\ignoretwo #1#2{} + +\def\addbookmark#1{\undef{bk:#1}\iftrue\defsec{bk:#1}{1}% + \else \tempnum=\csname bk:#1\endcsname\relax + \advance\tempnum by1 + \edefsec{bk:#1}{\the\tempnum} + \fi} +\def\currb{} % vychozi hodnota <uzel> pro jistotu + +\def\bookmarks{\ifx\pdfoutput\undefined \else + \bgroup + \def\dotocline##1##2##3{% + \undef{bk:##1}\iftrue \tempnum=0 \else \tempnum=\csname bk:##1\endcsname\relax\fi + \if^^X##1^^X\advance\partnum by1 + \setoutline[sec:\thepart]{##2}{\opartname\space\thepart: }% + \else \setoutline[sec:##1]{##2}{}\fi} + \def\ptocentry##1##2##3{\edef\tmpb{\ifx^^X##3^^X##2\else##3\fi}% + \tempnum=0 \setoutline[##1##2]{\tmpb}{}}% + \def\nb{\string\\}\def\TeX{TeX}\def\docbytex{DocBy.TeX}\def\_{_}\def\tt{}\def~{ }% + \def\unskip{}\bookmarkshook + \ifx\headtile\empty \else + \tempnum=0 \setoutline[sec::start]{...\headtitle\empty...}{}\fi % viz \savepglink + \tocbuffer + \egroup \fi +} +\def\setoutline[#1]#2#3{{\def\nb{/_}\xdef\tmp{#1}}% + \def\tmpa{\pdfoutline goto name{\tmp} count -\tempnum}% + \cnvbookmark{\tmpa{#3\nobraces#2{\end}}}% +} +\def\cnvbookmark#1{#1} % zadna konverze +\def\nobraces#1#{#1\nobrA} +\def\nobrA#1{\ifx\end#1\empty\else\nobraces#1\fi} + +%%%%%%%%%%%%%%%%%%%%%%%% Razeni podle abecedy + +\newif\ifAleB +\def\nullbuf{\def\indexbuffer{}} +\def\return#1#2\fi\relax{#1} \def\fif{\fi} + +\def\sortindex{\expandafter\nullbuf + \expandafter\mergesort\indexbuffer\end,\end +} +\def\mergesort #1#2,#3{% + \ifx,#1 % prazdna-skupina,neco, (#2=neco #3=pokracovani) + \addtext#2,\to\indexbuffer % dvojice skupin vyresena + \return{\fif\mergesort#3}% % \mergesort pokracovani + \fi + \ifx,#3 % neco,prazna-skupina, (#1#2=neco #3=,) + \addtext#1#2,\to\indexbuffer % dvojice skupin vyresena + \return{\fif\mergesort}% % \mergesort dalsi + \fi + \ifx\end#3 % neco,konec (#1#2=neco) + \ifx\empty\indexbuffer % neco=kompletni setrideny seznam + \edef\indexbuffer{\napercarky#1#2\end}% % vlozim \, mezi polozky + \return{\fif\fif\gobblerest}% % koncim + \else % neco=posledni skupina nebo \end + \return{\fif\fif \expandafter\nullbuf % spojim \indexbuffer+neco a cele znova + \expandafter\mergesort\indexbuffer#1#2,#3}% + \fi\fi % zatriduji: p1+neco1,p2+neco2, (#1#2=p1+neco1 #3=p2) + \isAleB #1#3\ifAleB % p1<p2 + \addtext#1\to\indexbuffer % p1 do bufferu + \return{\fif\mergesort#2,#3}% % \mergesort neco1,p2+neco2, + \else % p1>p2 + \addtext#3\to\indexbuffer % p2 do bufferu + \return{\fif\mergesort#1#2,}% % \mergesort p1+neco1,neco2, + \fi + \relax % zarazka, na ktere se zastavi \return +} +\def\isAleB #1#2{% + \edef\tmp{\expandafter\ignoretwo\string#1&0\relax\expandafter\ignoretwo\string#2&1\relax}% + \lowercase \expandafter {\expandafter \testAleB \tmp}% +} +\def\testAleB #1#2\relax #3#4\relax {% + \ifx #1#3\testAleB #2\relax #4\relax \else + \ifnum `#1<`#3 \AleBtrue \else \AleBfalse \fi + \fi +} +\def\napercarky#1{\ifx#1\end \else + \noexpand\,\noexpand#1\expandafter\napercarky + \fi +} + + +%%%%%%%%%% pageno transformations + +\def\refuseword#1#2{% + \expandafter \ifx\csname w:#1\endcsname \relax + \defsec{w:#1}{#2} + \else + \edefsec{w:#1}{\csname w:#1\endcsname,#2} + \fi +} +\def\listofpages#1{% + \expandafter\expandafter\expandafter \transf\csname w:#1\endcsname,0,% +} + +\newcount\apinum +\newcount\dgnum +\newcount\tempnum +\newif\ifdash +\newif\iffirst + +\def\transf{\dashfalse \firsttrue \tempnum=-100 \bgroup \cykltransf} + +\def\cykltransf #1,{\ifnum #1=\apinum \else \ifnum #1=\dgnum \else + \ifnum #1=0 \let\cykltransf=\egroup + \ifdash \pglink\the\tempnum\relax \fi + \else + \ifnum #1=\tempnum % cislo se opakuje, nedelam nic + \else + \advance\tempnum by 1 + \ifnum #1=\tempnum % cislo navazuje + \ifdash \else + --\dashtrue + \fi + \else % cislo nenavazuje + \ifdash + \advance\tempnum by-1 + \pglink\the\tempnum \relax\dashfalse, \pglink#1\relax + \else + \carka \pglink#1\relax + \fi\fi\fi\fi + \tempnum=#1 \fi\fi \cykltransf +} +\def\carka{\iffirst \firstfalse \else, \fi} + +%% Vice sloupcu + +\newdimen\colsep \colsep=\parindent % horiz. mezera mezi sloupci +\def\roundtolines #1{%% zaokrouhlí na celé násobky vel. rádku + \divide #1 by\baselineskip \multiply #1 by\baselineskip} +\def\corrsize #1{%% #1 := #1 + \splittopskip - \topskip + \advance #1 by \splittopskip \advance #1 by-\topskip} + +\def\begmulti #1 {\par\bigskip\penalty0 \def\Ncols{#1} + \splittopskip=\baselineskip + \setbox0=\vbox\bgroup\penalty0 + \advance\hsize by\colsep + \divide\hsize by\Ncols \advance\hsize by-\colsep} +\def\endmulti{\vfil\egroup \setbox1=\vsplit0 to0pt + \calculatedimone + \ifdim \dimen1<2\baselineskip + \vfil\break \dimen1=\vsize \corrsize{\dimen1} \fi + \dimen0=\Ncols\baselineskip \advance\dimen0 by-\baselineskip + \advance\dimen0 by \ht0 \divide\dimen0 by\Ncols + \roundtolines{\dimen0}% + \ifdim \dimen0>\dimen1 \splitpart + \else \makecolumns{\dimen0} \fi + \ifvoid0 \else \errmessage{ztracený text ve sloupcích?} \fi + \bigskip} +\def\makecolumns#1{\setbox1=\hbox{}\tempnum=0 + \loop \ifnum\Ncols>\tempnum + \setbox1=\hbox{\unhbox1 \vsplit0 to#1 \hss} + \advance\tempnum by1 + \repeat + \hbox{}\nobreak\vskip-\splittopskip \nointerlineskip + \line{\unhbox1\unskip}} +\def\splitpart{\roundtolines{\dimen1} + \makecolumns{\dimen1} \advance\dimen0 by-\dimen1 + \vskip 0pt plus 1fil minus\baselineskip \break + \dimen1=\vsize \corrsize{\dimen1} + \ifvoid0 \else + \ifdim \dimen0>\dimen1 \splitpart + \else \makecolumns{\dimen0} \fi \fi}% TBN +\def\calculatedimone{% + \ifdim\pagegoal=\maxdimen \dimen1=\vsize \corrsize{\dimen1} + \else \dimen1=\pagegoal \advance\dimen1 by-\pagetotal \fi} + + +%% final settings + +\catcode`\_=12 +\let\subori=\_ \def\_{_} +\everymath={\catcode`\_=8 } \everydisplay={\catcode`\_=8 } + +\newwrite\reffile +\softinput \jobname.ref +\immediate\openout\reffile=\jobname.ref + +\catcode`\"=\active +\let\activeqq=" +\def"{\leavevmode\hbox\bgroup\mubytein=1\let\leftcomment=\empty + \let\returntoBlack=\empty \let\linecomment=\empty \let"=\egroup + \def\par{\errmessage{\string\par\space inside \string"...\string"}}% + \setverb\tt\quotehook +} + +\def\langleactive{\uccode`\~=`\<\catcode`\<=13 + \uppercase{\def~}##1>{{$\langle$\it##1\/$\rangle$}}} |