%% -- translate-file=il2-pl -- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Contents: Special Commands (LShort2e Introduction) % File: lshort2e.sty (Polish translation) % By Tobias Oetiker %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Dopasowanie do potrzeb polskiego tłumaczenia: TP % Ostatnie modyfikacje: grudzień 2006, TP % Komentarze angielskie z reguły pochodzą od TO, polskie od TP %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %\errorcontextlines=10 % %save pageref an label % Przed dołączeniem amsmath robimy zaślepkę celem % zademostrowania `generycznego` LaTeXa \let\ORInfss@text \nfss@text \def\RestoreStandardLaTeX{\let\nfss@text \ORInfss@text} % \let\lsspageref=\pageref \ProvidesPackage{lshort2e} \RequirePackage{verbatim} \RequirePackage{fancyhdr} \RequirePackage{calc} \RequirePackage{amsmath,latexsym,amsthm} \RequirePackage[psamsfonts]{amssymb} %\RequirePackage{textcomp} %\RequirePackage{type1cm}% remove size restrictions %\RequirePackage{aeguill} % some packages which draw a euro \RequirePackage{textcomp} % need some magic here to keep the original definition of rightarrow \newcommand{\org@Rightarrow}{} \let\org@Rightarrow\Rightarrow \usepackage{marvosym} \let\MVRightarrow\Rightarrow \let\Rightarrow\org@Rightarrow % \RequirePackage[gen]{eurosym} % redefines \EUR \RequirePackage{textcomp} \RequirePackage{marvosym} % defines \EUR via \newcommand \RequirePackage{eurosym} % defines \EUR via \def % \RequirePackage{mflogo} \RequirePackage{cmmib57}% Use blueSky cmmib5 cmmib7 cmsy % UWAGA: Pakiet xy musi być dołączony do dokumentu po dołączeniu polski % bo polecenie \ar jest zdefiniowane w obu: %\RequirePackage[all,arrow]{xy} % do pliku głównego bo jest w konflikcie z xy % % Lets have some nice headings \pagestyle{fancyplain} \renewcommand{\chaptermark}[1]{\markboth{#1}{}} %% kwiecień 2000 :: dodajemy kropkę na końcu: %\renewcommand{\sectionmark}[1]{\markright{\thesection{} #1}} \renewcommand{\sectionmark}[1]{\markright{\thesection{.} #1}} \lhead[\fancyplain{}{\renewcommand\familydefault{\rmdefault}% \normalfont \small\bfseries\thepage}] {\fancyplain{}{\renewcommand\familydefault{\rmdefault}% \normalfont \small\bfseries\rightmark}} \rhead[\fancyplain{}{\renewcommand\familydefault{\rmdefault}% \normalfont \small\bfseries\leftmark}] {\fancyplain{}{\renewcommand\familydefault{\rmdefault}% \normalfont \small\bfseries\thepage}} \cfoot[]{} \addtolength{\headheight}{1.6pt} % % % Earlier paragraphs were separated by some space % %\setlength{\parindent}{0pt} %\setlength{\parskip}{1.5ex plus 0.7ex minus 0.6ex} \newcommand{\CTANref}{\begingroup \urlstyle{tt}\Url} % \newcommand{\Postscript}{\PostScript} %% --tp-- \newcommand{\PostScript}{Postscript} %% --tp-- \newcommand{\PSi}{\PostScript\index{PostScript}} \newcommand{\EPSi}{Encapsulated \acro{PostScript}% \index{Encapsulated PostScript@Encapsulated \textsc{PostScript}}% \index{PostScript@\textsc{PostScript}!Encapsulated}} % Niektóre pozycje literatury są wyróżnione w ten sposób, że oprócz numeru % drukwany jest także skrót tytułu, zmieniam tylko na numer: \newcommand{\manual}{\cite{manual}} \newcommand{\companion}{\cite{companion}} \newcommand{\guide}{\cite{local}} \newcommand{\graphicscompanion}{\cite{graphicscompanion}} \newcommand{\hobby}{\cite{metapost}} \newcommand{\hoenig}{\cite{unbound}} \newcommand{\graphicsinlatex}{\cite{ursoswald}} % \newcommand{\contrib}[3]{#1\quad$<$\texttt{#2}$>${\small \\\quad\textit{#3}}\par \vskip1ex} % % Some commands for helping with INDEX creation %\newcommand{\bs}{\symbol{'134}}%Print backslash \providecommand{\bs}{\symbol{'134}}%Print backslash % %\newcommand{\bs}{\ensuremath{\mathtt{\backslash}}}%Print backslash % % Index entry for a command (\cih for hidden command index) % \ci = do składu/indeksu ; \cih nie wstawia argumentu do składu \newcommand{\cih}[1]{% %\index{instrukcja!#1@\texttt{\bs#1}}% -- nie potrzeba -- \index{#1@\texttt{\hspace*{-1.2ex}\bs #1}}} \newcommand{\ci}[1]{\cih{#1}\texttt{\bs#1}} \newcommand{\cmd}[1]{\texttt{\bs#1}} % % Package % pai = do składu/indeksu ; pkg = do składu \newcommand{\pai}[1]{% %\index{pakiet!#1@\textsf{#1}}% -- nie potrzeba -- \index{#1@\textsf{#1}}% {\normalfont\textsf{#1}}} \def\pkg#1{{\normalfont\textsf{#1}}} % % Rozszerzenie plików? Nazwy plików (eei oraz eeih) % eei = do składu/indeksu ; ee = tylko do składu ; eeih = do indeksu \newcommand{\eei}[1]{\eeih{#1}\texttt{#1}} %\newcommand{\eeih}[1]{\index{rozszerzenie!\texttt{#1}}} % lepiej tak: \newcommand{\eeih}[1]{%% \if.\LSCAR#1\\% Pomiń wiodącą kropkę przy sortowaniu \index{\LSCDR#1\\@\texttt{\hspace*{-1.2ex}#1} (plik)}\else \index{#1@\texttt{#1} (plik)}\fi } \newcommand{\ee}[1]{\texttt{#1}} \def\LSCAR#1#2\\{#1}\def\LSCDR#1#2\\{#2}%makra pomocnicze % % Index entry for an environment % ei = do składu/indeksu ; envir = do składu \newcommand{\ei}[1]{% %\index{otoczenie!\texttt{#1}}% -- nie potrzeba -- \index{#1@\texttt{#1}}\texttt{#1}} \def\envr#1{\texttt{#1}} % % Package/class option % popti = do składu/indeksu ; poptih = do indeksu ; popt = do składu \newcommand{\popti}[1]{\poptih{#1}\texttt{#1}} \newcommand{\poptih}[1]{\index{#1@\texttt{\emph{#1}}}} \newcommand{\popt}[1]{\texttt{#1}} % % Input Encoding % iei/fei = do składu/indeksu ; ieih/feih = tylko do indeksu \newcommand{\ieih}[1]{\index{kodowanie!#1@\texttt{\emph{#1}}}% \index{#1@\texttt{\emph{#1}}}} \newcommand{\iei}[1]{\ieih{#1}\texttt{#1}} % %Font Encoding \newcommand{\feih}[1]{\index{kodowanie!#1@\texttt{\emph{#1}}}% \index{#1@\texttt{\emph{#1}}}} \newcommand{\fei}[1]{\feih{#1}\texttt{#1}} % % Nazwy programów \newcommand{\prgi}[1]{\prgih{#1}#1}% \newcommand{\prgih}[1]{\index{#1@\protect\underline{#1}}} \newcommand{\prg}[1]{#1}%% % % Indexentry for a word (Word inserted into the text) \newcommand{\wi}[1]{\index{#1}#1} \newcommand{\wwi}[2]{\index{#2}#1} % \def\MSWindows{\prg{MS~Windows}} \def\MSWord{\prg{MS~Word}} \newcommand{\WYSIWYG}{\acro{WYSIWYG}} % % Typesetting Commands % \newenvironment{command}% {\nopagebreak \par\small %\addvspace{3.2ex plus 0.8ex minus 0.2ex}% --tp-- \addvspace{2.0ex plus 0.5ex minus 0.25ex}% \vskip -\parskip \noindent% \begin{tabular}{|l|}\hline\rule{0pt}{1em}\ignorespaces}% {\\\hline\end{tabular}\par \nopagebreak %\addvspace{3.2ex plus 0.8ex minus 0.2ex}% \addvspace{2.0ex plus 0.5ex minus 0.25ex}% --tp-- \vskip -\parskip} % % Type setting Code Fragments % \newenvironment{code}{%\smallskip % bez zbędnego odstępu \begin{xquote}} % quote ma nie wiadomo po co wcięcie, dlatego {\end{xquote} % definiujemy xquote, które nie ma wcięcia %\smallskip %% ditto, jak początek } % \newenvironment{xquote} {\list{}{\leftmargin=0pt\rightmargin\leftmargin}% \item\relax}{\endlist} % % Intro Environment \newenvironment{intro}{\sffamily}{\vspace*{2ex minus 1.5ex}} % % % Symbol Entry for Math Symbol Tables % \newcommand{\X}[1]{$#1$&\texttt{\string#1}\hspace*{1ex}} \newcommand{\Xwospc}[1]{$#1$&\texttt{\string#1}}% na potrzeby tabeli 3.3 % normal text .... \newcommand{\SC}[1]{#1&\texttt{\string#1}\hspace*{1ex}} % for accents in text mode \newcommand{\A}[1]{#1&\texttt{\string#1}\hspace*{1ex}} \newcommand{\B}[2]{#1#2&\texttt{\string#1{} #2}\hspace*{1ex}} \newcommand{\W}[2]{$#1{#2}$& \texttt{\string#1}\texttt{\string{\string#2\string}}\hspace*{1ex}} \newcommand{\Y}[1]{$\big#1$ &\texttt{\string#1}} % % Mathsymbol Table % Na razie taka ręczna korekta na wypadek za szerokich tabel: % \def\AdjustStBox{-10pt} dla stron parzystych wielkości ujemne, dla niep. dodatnie % wielkość przesunięcia jest drukowana do pliku .log % można to zautomatyzować ale na razie mi się nie chce [tp], bo korekta % dotyczy tylko 3 tabel (patrz lssym.tex) \def\AdjustStBoxReset{\def\Adjust@St@Box{\relax}}% \def\AdjustStBox#1{\def\Adjust@St@Box{\hspace*{#1}}} \AdjustStBoxReset \newdimen\STableWd %% [/tp] \newsavebox{\symbbox} \newenvironment{symbols}[1]% {\par\vspace*{2ex} \renewcommand{\arraystretch}{1.1} \begin{lrbox}{\symbbox} \hspace*{4ex}%% po co to? nieważne [tp] \begin{tabular}{@{}#1@{}}}% {\end{tabular}\end{lrbox}% %% [tp] %% Niektóre tabele są szersze niż \textwidth %% tp %% ten sam trik co dla przykładu: \STableWd=\wd\symbbox \ifdim\STableWd >\textwidth \advance \STableWd by -\textwidth \typeout{Uwaga ** tabela: \thetable\space jest o \the\STableWd\space szersza od szer. kolumny **}% \fi %% -------------------> dodane \Adjust@St@Box oraz \AdjustStBoxReset %% to ostatnie zawsze resetuje \Adjust@St@Box aby zmiany dotyczyły %% tylko bierzącej tabeli %% [/tp] \makebox[\textwidth]{\Adjust@St@Box\usebox{\symbbox}% \AdjustStBoxReset}\par\medskip} % % Special Prep for AMS Symbols Printout % Should work if AMS is not available % % we have no PS versions of the rsfs fonts ... so this is a nogo for pdf %\ifpdf \else \IfFileExists{mathrsfs.sty} {\RequirePackage{mathrsfs}\let\MathRSFS\mathscr\let\mathscr\relax}{} %\fi %% **// koniec \ifpdf // \IfFileExists{amssymb.sty} {\let\noAMS\relax \RequirePackage{amssymb}} {\def\noAMS{\endinput}\RequirePackage{latexsym}} \IfFileExists{eucal.sty} {\RequirePackage[mathscr]{eucal}} {\IfFileExists{euscript.sty} {\RequirePackage{euscript}}{}} %\IfFileExists{eufrak.sty} % {\RequirePackage{eufrak}}{} \IfFileExists{amsbsy.sty} {\RequirePackage{amsbsy}}{} % % Print |--| to show a distance \newcommand{\demowidth}[1]{\rule{0.3pt}{1.3ex}\rule{#1}{0.3pt}\rule{0.3pt}{1.3ex}} % % This is an environment to set LaTeX examples. On the left side the % source text and on the right side the typeset text. % % \begin{example} % \Large This is Large % \end{example} % % This Part is stolen from the verbatim.sty by FMi % \newwrite\example@out \newcounter{exacnt} \setcounter{exacnt}{1} \newlength{\savefboxrule} \newlength{\savefboxsep} \newlength{\outdent} \setlength{\outdent}{2cm} \addtolength{\headwidth}{\outdent} %% \newenvironment{example}{\begingroup \FormatChapterHeadinsideExample % zmniejsza odstępy/stopień pisma \begingroup %% Lets Keep the Changes Local \hfuzz 9.0pt %% może wystawać aż tyle \@bsphack \immediate\openout \example@out \jobname.exa \let\do\@makeother\dospecials\catcode`\^^M\active \def\verbatim@processline{% \immediate\write\example@out{\the\verbatim@line}}% \verbatim@start}% {\immediate\closeout\example@out\@esphack\endgroup% \stepcounter{exacnt}% \setlength{\parindent}{0pt}% \par %%\nobreak \addvspace{1.0ex plus 0.5ex minus 0.5ex}\vskip -\parskip %%\nobreak \noindent \@ifundefined{r@exa:\theexacnt}{\hspace*{0pt}}{% \ifpdf % We're not running pdftex \ifx\realpageref\undefined % HyPsd@pageref jest wewnętrznym poleceniem pakietu hyperref v 6.69c; % natomiast we wcześniejszych wersjach pakietu działało polecenie `realpageref' % dokładnie nie wiem kiedy przestało -- stąd kulawe rozwiązanie poprzez % \undefined *** TP *** kwiecień ** 2000 % 12/2006 powyższe już chyba niepotrzebne, ale ww. działa więc nie ruszam (TP). \ifodd\HyPsd@pageref{exa:\theexacnt}\hspace*{0pt}\else\hspace*{-\outdent}\fi% \else \ifodd\realpageref{exa:\theexacnt}\hspace*{0pt}\else\hspace*{-\outdent}\fi% \fi \else \ifodd\pageref{exa:\theexacnt}% \hspace*{0pt}\else\hspace*{-\outdent}\fi% \fi }% %\fi \makebox[\textwidth][l]{% \raisebox{-\height}[0pt][\totalheight]{% \begin{minipage}[t]{0.5\outdent+0.46\textwidth-3mm}% \hfuzz\ExampleHFuzz%% *** TP *** \small\verbatiminput{\jobname.exa} \end{minipage}}% \hspace{5mm}% \setlength{\savefboxrule}{\fboxrule}% \setlength{\fboxrule}{0.1pt}% \setlength{\savefboxsep}{\fboxsep}% \setlength{\fboxsep}{3mm}% \raisebox{-\height}[0pt][\totalheight]{% \fbox{% \begin{minipage}[t]{% 0.5\outdent+0.54\textwidth-2mm-2\fboxrule-2\fboxsep-0.7ex}% \setlength{\fboxrule}{\savefboxrule}% \setlength{\fboxsep}{\savefboxsep}% \setlength{\fboxrule}{0.5pt}% \setlength{\parskip}{1ex plus 0.4ex minus 0.2ex}% \begin{trivlist}\item\small \abovedisplayskip=3pt plus 1pt minus 1pt %% *** TP *** \abovedisplayshortskip=3pt plus 1pt %% \belowdisplayskip=3pt plus 1pt minus 1pt %% 2006 \belowdisplayshortskip=3pt plus 1pt %% 2006 \parskip0pt plus 0.5pt %% 2006 \input{\jobname.exa} \end{trivlist} \end{minipage} }% }% }\label{exa:\theexacnt}% \par \endgroup %% *** TP *** \addvspace{2.0ex plus 1.0ex minus 1.0ex}\vskip -\parskip } \newenvironment{lined}[1]% {\begin{center}\begin{minipage}{#1}\hrule\medskip} %{\vspace{-1ex}\hrule \end{minipage}\end{center}} %%% *** TP ** {\smallskip \hrule \end{minipage}\end{center}} % % =========================================================================! %\newcommand{\TextVert}{\texttt{\char124}} % *** ? TP **** % % I want no headers on pages created by clearpage \renewcommand{\cleardoublepage} {\clearpage\if@twoside \ifodd\c@page\else \hbox{}\thispagestyle{empty}\newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi} % % **************************** TP ************************************* % % Redefinujemy wyliczenia usuwając odstępy między punktami % oraz przed i po wyliczeniach (bo takie są w Polsce zwyczaje) % \def\@listi{\leftmargin\leftmargini \parsep 0\p@ \@plus1\p@ \@minus\p@ \topsep 3\p@ \@plus1\p@ \@minus\p@ \itemsep0\p@ \@plus1\p@ \@minus\p@} \let\@listI\@listi \renewcommand\small{% \@setfontsize\small\@xpt\@xiipt \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@ \abovedisplayshortskip \z@ \@plus3\p@ \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@ \def\@listi{\leftmargin\leftmargini \topsep 3\p@ \@plus1\p@ \@minus\p@ \parsep 0\p@ \@plus1\p@ \@minus\p@ \itemsep \parsep}% \belowdisplayskip \abovedisplayskip } \renewcommand\footnotesize{% \@setfontsize\footnotesize\@ixpt{11}% \abovedisplayskip 8\p@ \@plus2\p@ \@minus4\p@ \abovedisplayshortskip \z@ \@plus\p@ \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ \def\@listi{\leftmargin\leftmargini \topsep 3\p@ \@plus1\p@ \@minus0\p@ \parsep 0\p@ \@plus\p@ \@minus\p@ \itemsep \parsep}% \belowdisplayskip \abovedisplayskip } % Definiujemy oryginalne angielskie funkcje trygonometryczne % (pakiet polski z opcją plmath i MeX przedefiniowuje je) % \def\EnglishTrygFunctions{% \def\arcsin{\mathop{\operator@font arcsin}\nolimits}% \def\arccos{\mathop{\operator@font arccos}\nolimits}% \def\tan{\mathop{\operator@font tan}\nolimits}% \def\tanh{\mathop{\operator@font tanh}\nolimits}% \def\coth{\mathop{\operator@font coth}\nolimits}% } % % zmiana oryginalnego środowiska *** TP *** \renewenvironment{command}% {\unskip %% *** TP *** \nopagebreak %% \par \small \addvspace{3.2ex plus 0.8ex minus 1.2ex}% \vskip -\parskip \noindent% \begin{tabular}{|l|}\hline\rule{0pt}{1em}\ignorespaces}% {\\\hline\end{tabular}\par %\nopagebreak %% *** TP *** \addvspace{3.2ex plus 0.8ex minus 1.2ex}% \vskip -\parskip} %% Zmieniamy formatowanie śródtytułów jeżeli są użyte %% jako przykłady (mniejsze odstępny, mniejszy stopień pisma) %% jest to potrzebne w przykładzie nt. spisów bibliograficznych \def\FormatChapterHeadinsideExample{% \def\@makeschapterhead##1{% \vspace*{18\p@}% {\parindent \z@ \raggedright \normalfont \interlinepenalty\@M \large \bfseries ##1\par\nobreak \vskip 12\p@ }} } % *** TP ** \newenvironment{NoVSpace}{\def\addvspace##1{\par}}{} % Definicje dotyczące składania adresów internetowych % szczególnie w kontekście formatu PDF \newcommand{\MyCTANSite}{ftp://ftp.dante.de/tex-archive} \newcommand{\CTAN}[1]{%\url{ftp://ftp.dante.de/tex-archive/} \begingroup % % BELOW we redefine low level hyperref command (which is risky)! % In hyperref package % \hyper@linkurl macro defined inside \url command has two arguments % -- #1 is the printed text % -- #2 is the url % the idea is to print CTAN://xxxxxx % but put an address of someting real, i.e. ftp.dante.de % \def\url@##1{\hyper@linkurl{\Hurl{CTAN://#1}}{\MyCTANSite/#1}}% \url{CTAN://#1}% \endgroup } \newcommand{\GUST}[1]{\url{ftp://ftp.gust.org.pl/TeX/#1}} \newcommand{\GUSThp}[1]{\url{http://www.gust.org.pl/#1}} \newcommand{\przypang}[1]{(ang.~\emph{{\language0 #1\/}})} \newcommand{\secby}[2]{\nopagebreak\par\addvspace{-1.5ex}% %\vskip -\parskip\noindent{\tiny By #1 \mailto|#2|}\par\nopagebreak% \vskip -\parskip\noindent{\tiny #1 \mailto|#2|}\par\nopagebreak% \addvspace{1ex plus 0.8ex minus 0.2ex}% \vskip -\parskip\noindent\ignorespaces} \renewcommand{\Email}{\begingroup \def\UrlLeft{<}\def\UrlRight{>} \urlstyle{tt}\Url} % email address \def\mailto|#1|{\href{mailto:#1}{\Email|#1|}} % url to mail somewhere % % To co poniżej dotyczy wersji w formacie PDF % \ifpdf \def\TPFrontMatter{% % Zmieniamy definicję rozdziału (zmienioną przez pakiet hyperref) % ale tak, żeby to dotyczyło tylko wstępu, tj. wszystkiego przed % deklaracją mainmatter. \def\hyper@warn##1{\relax}% *** % \def\@chapter[##1]##2{% % \H@old@chapter[{##1}]{##2}% % \if@mainmatter %% % \@writetorep{##1}{chapter.\theHchapter}{0}% % \else \fi % }% } %% Extra information to PDF general info *** TP *** \def\@pdftitle{Nie za krotkie wprowadzenie do systemu LaTeXe}% \def\@pdfauthor{T. Oetiker, H. Partl, E. Schlegl, I. Hyna, % J. Goldasz, R. Kubiak, T. Przechlewski}% %\def\@pdfproducer{pdftex}% \def\@pdfcreator{LaTeX with hyperref package}% \def\@pdfsubject{LaTeX}% \def\@pdfkeywords{Zobacz takze: http://www.GUST.org.pl}% \else \def\TPFrontMatter{\relax}% \def\pdfbookmark#1#2{\relax}% %%\def\NoHyper{} %%\def\endNoHyper{} \fi %% Uzupełnienia (kwiecień 2000): %% Dodanie kropki po numerach punktów i podpunktów \renewcommand*\@seccntformat[1]{\csname the#1\endcsname.\enspace} %% dodanie kropki w spisach treści, tabel i rysunków \def\numberline#1{\hb@xt@\@tempdima{#1.\hfil}} % !!! %% \renewenvironment{theindex}{% \clearpage %%% <<--- \addtolength{\textwidth}{11mm}% zwiększ szerokość szpalty o 11m \addtolength{\hsize}{11mm}%% ditto dla \hsize %\addtolength{\headwidth}{-10mm} %% to jest niepotrzebne \advance\linewidth11mm %% ten wymiar jest dla środowiska multicol %% kolumna tekstu ma 10,5cm a kreska pod paginą 12,0 %% %\input{multicol.sty} \parskip\z@ \@plus .3\p@\relax \columnsep 9.9pt %\advance \evensidemargin-15mm % oryginalne nastawienia na 2-kolumny: %\def\indexemdashes{% %\def\@idxitem{\par\hangindent 0pt} %\def\subitem{\par\hangindent 0pt --- } %\def\subsubitem{\par\hangindent 0pt --- --- } %\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}} %\indexemdashes % \renewcommand\@idxitem{\par\hangindent 12\p@\noindent}%% \renewcommand\subitem{\@idxitem \hspace*{0\p@}$\triangleright$ }%% %\renewcommand\subitem{\@idxitem \hspace*{0\p@}$\hookrightarrow$ }%% \let\item\@idxitem \chapter*{Skorowidz}\@mkboth{\indexname}{\indexname}% \addcontentsline{toc}{chapter}{\indexname}% \UwagaDoSkorowidza \endgraf \rightskip0pt plus4em \pretolerance10001 \begin{multicols}{3}}{% % etykieta verylast ustala liczbę stron w dokumencie % oryginalnie była doczepiona do ostatniego hasła w skorowidzu (por. plik spec.tex) \label{verylast}\end{multicols}} %% Wpisanie minut/minuty w zależności od liczby minut: %% Polecenie to wykorzystuje wewnętrzne polecenie pakietu hyperref `\HyPsd@pageref', %% które jest używane zamiast \pageref, bo to ostatnie bruździ \def\IleMinut#1{% % http://groups.google.pl/group/comp.text.tex/browse_frm/thread/2d172e2c641e681a/ %\def\@tmp@arga{#1}\def\@tmp@arg@empty{??}% \expandafter\ifx\csname r@#1\endcsname\relax ?? minut\else % sprawdza czy etykieta \ifpdf \def\IleJestMinut{\HyPsd@pageref{#1}}\else % verylast jest zdefiniowana \def\IleJestMinut{\pageref{#1}}\fi% % % Teraz wyznaczamy resztę z dzielenia modulo, całkowitej liczby stron przez 10 \@tempcnta=\IleJestMinut \@tempcntb=\@tempcnta \divide\@tempcntb by 10 \multiply\@tempcntb by -10 \advance\@tempcnta by \@tempcntb % licznik \@tempcnta zawiera ( mod n) \ifnum\@tempcnta=2 \def\MinTxt{minuty}\else % Minuty/Minut \ifnum\@tempcnta=3 \def\MinTxt{minuty}\else \ifnum\@tempcnta=4 \def\MinTxt{minuty}\else \def\MinTxt{minut}\fi\fi\fi \IleJestMinut~\MinTxt \fi } \endinput