From 6c6b53d30691c793467cbc8866bdd2409590e4c4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 6 May 2013 22:23:28 +0000 Subject: babel-$ll (for 3.9a) git-svn-id: svn://tug.org/texlive/trunk@30292 c570f23f-e606-0410-a88d-b1316a301751 --- .../source/generic/babel-slovak/slovak.dtx | 1310 ++++++++++++++++++++ .../source/generic/babel-slovak/slovak.ins | 148 +++ 2 files changed, 1458 insertions(+) create mode 100644 Master/texmf-dist/source/generic/babel-slovak/slovak.dtx create mode 100644 Master/texmf-dist/source/generic/babel-slovak/slovak.ins (limited to 'Master/texmf-dist/source/generic') diff --git a/Master/texmf-dist/source/generic/babel-slovak/slovak.dtx b/Master/texmf-dist/source/generic/babel-slovak/slovak.dtx new file mode 100644 index 00000000000..d2d0c00a79b --- /dev/null +++ b/Master/texmf-dist/source/generic/babel-slovak/slovak.dtx @@ -0,0 +1,1310 @@ +% \iffalse meta-comment +% +% Copyright 1989-2008 Johannes L. Braams and any individual authors +% listed elsewhere in this file. All rights reserved. +% +% This file is part of the Babel system. +% -------------------------------------- +% +% It may be distributed and/or modified under the +% conditions of the LaTeX Project Public License, either version 1.3 +% of this license or (at your option) any later version. +% The latest version of this license is in +% http://www.latex-project.org/lppl.txt +% and version 1.3 or later is part of all distributions of LaTeX +% version 2003/12/01 or later. +% +% This work has the LPPL maintenance status "maintained". +% +% The Current Maintainer of this work is Johannes Braams. +% +% The list of all files belonging to the Babel system is +% given in the file `manifest.bbl. See also `legal.bbl' for additional +% information. +% +% The list of derived (unpacked) files belonging to the distribution +% and covered by LPPL is defined by the unpacking scripts (with +% extension .ins) which are part of the distribution. +% \fi +% \CheckSum{1382} +% \iffalse +% Tell the \LaTeX\ system who we are and write an entry on the +% transcript. +%<*dtx> +\ProvidesFile{slovak.dtx} +% +%<+code>\ProvidesLanguage{slovak} +%\fi +%\ProvidesFile{slovak.dtx} + [2008/07/06 v3.1a Slovak support from the babel system] +%\iffalse +%% File `slovak.dtx' +%% Babel package for LaTeX version 2e +%% Copyright (C) 1989 - 2008 +%% by Johannes Braams, TeXniek +% +%% Slovak Language Definition File +%% Copyright (C) 1989 - 2001 +%% by Jana Chlebikova +% Department of Artificial Intelligence +% Faculty of Mathematics and Physics +% Mlynska dolina +% 84215 Bratislava +% Slovakia +% (42)(7) 720003 l. 835 +% (42)(7) 725882 +% chlebikj at mff.uniba.cs (Internet) +% and Johannes Braams, TeXniek +% +%% Copyright (C) 2002-2005 +%% by Tobias Schlemmer +% Braunsdorfer Stra\ss e 101 +% 01159 Dresden +% Deutschland +% Tobias.Schlemmer at web.de +% +%% Copyright (C) 2005-2008 +%% by Petr Tesa\v r\'ik (babel at tesarici.cz) +% +% This file is also based on CSLaTeX +% by Ji\v r\'i Zlatu\v ska, Zden\v ek Wagner, +% Jaroslav \v Snajdr and Petr Ol\v s\'ak. +% +%% Please report errors to: Petr Tesa\v r\'ik +%% babel at tesarici.cz +% +% This file is part of the babel system, it provides the source +% code for the Slovak language definition file. +%<*filedriver> +\documentclass{ltxdoc} +\newcommand*\TeXhax{\TeX hax} +\newcommand*\babel{\textsf{babel}} +\newcommand*\langvar{$\langle \it lang \rangle$} +\newcommand*\note[1]{} +\newcommand*\Lopt[1]{\textsf{#1}} +\newcommand*\file[1]{\texttt{#1}} +\begin{document} + \DocInput{slovak.dtx} +\end{document} +% +%\fi +% +% \def\CS{$\cal C\kern-.1667em +% \lower.5ex\hbox{$\cal S$}\kern-.075em$} +% +% \GetFileInfo{slovak.dtx} +% +% \changes{slovak-1.0}{1992/07/15}{First version} +% \changes{slovak-1.2}{1994/02/27}{Update for \LaTeXe} +% \changes{slovak-1.2d}{1994/06/26}{Removed the use of \cs{filedate} +% and moved identification after the loading of \file{babel.def}} +% \changes{slovak-1.2i}{1996/10/10}{Replaced \cs{undefined} with +% \cs{@undefined} and \cs{empty} with \cs{@empty} for consistency +% with \LaTeX, moved the definition of \cs{atcatcode} right to the +% beginning.} +% \changes{slovak-1.3a}{2004/02/20}{Added contributed shorthand +% definitions} +% \changes{slovak-3.0}{2005/09/10}{Implemented the functionality of +% \CS\LaTeX's slovak.sty. The version number was bumped to 3.0 +% to minimize confusion by being higher than the last version +% of \CS\LaTeX.} +% +% \section{The Slovak language} +% +% The file \file{\filename}\footnote{The file described in this +% section has version number \fileversion\ and was last revised on +% \filedate. It was originally written by Jana Chlebikova +% (\texttt{chlebik@euromath.dk}) and modified by Tobias Schlemmer +% (\texttt{Tobias.Schlemmer@web.de}). It was then rewritten by +% Petr Tesa\v r\'ik (\texttt{babel@tesarici.cz}).} defines all the +% language-specific macros for the Slovak language. +% +% For this language the macro |\q| is defined. It was used with the +% letters (\texttt{t}, \texttt{d}, \texttt{l}, and \texttt{L}) and +% adds a \texttt{'} to them to simulate a `hook' that should be +% there. The result looks like t\kern-2pt\char'47. Since the the T1 +% font encoding has the corresponding characters it is mapped to |\v|. +% Therefore we recommend using T1 font encoding. If you don't want to +% use this encoding, please, feel free to redefine |\q| in your file. +% I think babel will honour this |;-)|. +% +% For this language the characters |"|, |'| and |^| are made +% active. In table~\ref{tab:slovak-quote} an overview is given of +% its purpose. Also the vertical placement of the +% umlaut can be controlled this way. +% +% \begin{table}[htb] +% \begin{center} +% \begin{tabular}{lp{8cm}} +% |"a| & |\"a|, also implemented for the other +% lowercase and uppercase vowels. \\ +% |^d| & |\q d|, also implemented for l, t and L. \\ +% |^c| & |\v c|, also implemented for C, D, N, n, T, Z and z. \\ +% |^o| & |\^o|, also implemented for O. \\ +% |'a| & |\'a|, also implemented for the other lowercase and +% uppercase l, r, y and vowels. \\ +% \verb="|= & disable ligature at this position. \\ +% |"-| & an explicit hyphen sign, allowing hyphenation +% in the rest of the word. \\ +% |""| & like |"-|, but producing no hyphen sign +% (for compund words with hyphen, e.g.\ |x-""y|). \\ +% |"~| & for a compound word mark without a breakpoint. \\ +% |"=| & for a compound word mark with a breakpoint, allowing +% hyphenation in the composing words. \\ +% |"`| & for German left double quotes (looks like ,,). \\ +% |"'| & for German right double quotes. \\ +% |"<| & for French left double quotes (similar to $<<$). \\ +% |">| & for French right double quotes (similar to $>>$). \\ +% \end{tabular} +% \caption{The extra definitions made +% by \file{slovak.ldf}}\label{tab:slovak-quote} +% \end{center} +% \end{table} +% +% The quotes in table~\ref{tab:slovak-quote} can also be typeset by +% using the commands in table~\ref{tab:smore-quote}. +% \begin{table}[htb] +% \begin{center} +% \begin{tabular}{lp{8cm}} +% |\glqq| & for German left double quotes (looks like ,,). \\ +% |\grqq| & for German right double quotes (looks like ``). \\ +% |\glq| & for German left single quotes (looks like ,). \\ +% |\grq| & for German right single quotes (looks like `). \\ +% |\flqq| & for French left double quotes (similar to $<<$). \\ +% |\frqq| & for French right double quotes (similar to $>>$).\\ +% |\flq| & for (French) left single quotes (similar to $<$). \\ +% |\frq| & for (French) right single quotes (similar to $>$). \\ +% |\dq| & the original quotes character (|"|). \\ +% |\sq| & the original single quote (|'|). \\ +% \end{tabular} +% \caption{More commands which produce quotes, defined +% by \file{slovak.ldf}}\label{tab:smore-quote} +% \end{center} +% \end{table} +% +% \subsection{Compatibility} +% +% Great care has been taken to ensure backward compatibility with +% \CS\LaTeX. In particular, documents which load this file with +% |\usepackage{slovak}| should produce identical output with no +% modifications to the source. Additionally, all the \CS\LaTeX{} +% options are recognized: +% +% \label{tab:slovak-options} +% \begin{list}{} +% {\def\makelabel#1{\sbox0{\Lopt{#1}}% +% \ifdim\wd0>\labelwidth +% \setbox0\vbox{\box0\hbox{}} \wd0=0pt \fi +% \box0\hfil} +% \setlength{\labelwidth}{2\parindent} +% \setlength{\leftmargin}{2\parindent} +% \setlength{\rightmargin}{\parindent}} +% \item[IL2, T1, OT1] +% These options set the default font encoding. Please note +% that their use is deprecated. You should use the |fontenc| +% package to select font encoding. +% +% \item[split, nosplit] +% These options control whether hyphenated words are +% automatically split according to Slovak typesetting rules. +% With the \Lopt{split} option ``je-li'' is hyphenated as +% ``je-/-li''. The \Lopt{nosplit} option disables this behavior. +% +% The use of this option is strongly discouraged, as it breaks +% too many common things---hyphens cannot be used in labels, +% negative arguments to \TeX{} primitives will not work in +% horizontal mode (use \cs{minus} as a workaround), and there are +% a few other peculiarities with using this mode. +% +% \item[nocaptions] +% +% This option was used in \CS\LaTeX{} to set up Czech/Slovak +% typesetting rules, but leave the original captions and dates. +% The recommended way to achieve this is to use English as the main +% language of the document and use the environment |otherlanguage*| +% for Czech text. +% +% \item[olduv] +% There are two version of \cs{uv}. The older one allows the use +% of \cs{verb} inside the quotes but breaks any respective kerning +% with the quotes (like that in \CS{} fonts). The newer one honors +% the kerning in the font but does not allow \cs{verb} inside the +% quotes. +% +% The new version is used by default in \LaTeXe{} and the old version +% is used with plain \TeX. You may use \Lopt{olduv} to override the +% default in \LaTeXe. +% +% \item[cstex] +% This option was used to include the commands \cs{csprimeson} and +% \cs{csprimesoff}. Since these commands are always included now, +% it has been removed and the empty definition lasts for compatibility. +% \end{list} +% +% \StopEventually{} +% +% \subsection{Implementation} +% +% The macro |\LdfInit| takes care of preventing that this file is +% loaded more than once, checking the category code of the +% \texttt{@} sign, etc. +% \changes{slovak-1.2i}{1996/11/03}{Now use \cs{LdfInit} to perform +% initial checks} +% \begin{macrocode} +%<*code> +\LdfInit\CurrentOption{date\CurrentOption} +% \end{macrocode} +% +% When this file is read as an option, i.e. by the |\usepackage| +% command, \texttt{slovak} will be an `unknown' language in which +% case we have to make it known. So we check for the existence of +% |\l@slovak| to see whether we have to do something here. +% +% \changes{slovak-1.2d}{1994/06/26}{Now use \cs{@nopatterns} to +% produce the warning} +% \begin{macrocode} +\ifx\l@slovak\@undefined + \@nopatterns{Slovak} + \adddialect\l@slovak0\fi +% \end{macrocode} +% +% We need to define these macros early in the process. +% +% \begin{macrocode} +\def\cs@iltw@{IL2} +\newif\ifcs@splithyphens +\cs@splithyphensfalse +% \end{macrocode} +% +% If Babel is not loaded, we provide compatibility with \CS\LaTeX. +% However, if macro \cs{@ifpackageloaded} is not defined, we assume +% to be loaded from plain and provide compatibility with csplain. +% Of course, this does not work well with \LaTeX$\:$2.09, but I +% doubt anyone will ever want to use this file with \LaTeX$\:$2.09. +% +% \begin{macrocode} +\ifx\@ifpackageloaded\@undefined + \let\cs@compat@plain\relax + \message{csplain compatibility mode} +\else + \@ifpackageloaded{babel}{}{% + \let\cs@compat@latex\relax + \message{cslatex compatibility mode}} +\fi +\ifx\cs@compat@latex\relax + \ProvidesPackage{slovak}[2008/07/06 v3.1a CSTeX Slovak style] +% \end{macrocode} +% +% Declare \CS\LaTeX{} options (see also the descriptions on page +% \pageref{tab:slovak-options}). +% +% \begin{macrocode} + \DeclareOption{IL2}{\def\encodingdefault{IL2}} + \DeclareOption {T1}{\def\encodingdefault {T1}} + \DeclareOption{OT1}{\def\encodingdefault{OT1}} + \DeclareOption{nosplit}{\cs@splithyphensfalse} + \DeclareOption{split}{\cs@splithyphenstrue} + \DeclareOption{nocaptions}{\let\cs@nocaptions=\relax} + \DeclareOption{olduv}{\let\cs@olduv=\relax} + \DeclareOption{cstex}{\relax} +% \end{macrocode} +% +% Make |IL2| encoding the default. This can be overriden with +% the other font encoding options. +% \begin{macrocode} + \ExecuteOptions{\cs@iltw@} +% \end{macrocode} +% +% Now, process the user-supplied options. +% \begin{macrocode} + \ProcessOptions +% \end{macrocode} +% +% Standard \LaTeXe{} does not include the IL2 encoding in the format. +% The encoding can be loaded later using the fontenc package, but +% \CS\LaTeX{} included IL2 by default. This means existing documents +% for \CS\LaTeX{} do not load that package, so load the encoding +% ourselves in compatibility mode. +% +% \begin{macrocode} + \ifx\encodingdefault\cs@iltw@ + \input il2enc.def + \fi +% \end{macrocode} +% +% Restore the definition of \cs{CurrentOption}, clobbered by processing +% the options. +% +% \begin{macrocode} + \def\CurrentOption{slovak} +\fi +% \end{macrocode} +% +% The next step consists of defining commands to switch to (and +% from) the Slovak language. +% +% \begin{macro}{\captionsslovak} +% The macro \cs{captionsslovak} defines all strings used in the four +% standard documentclasses provided with \LaTeX. +% \changes{slovak-1.2g}{1995/07/04}{Added \cs{proofname} for +% AMS-\LaTeX} +% \changes{slovak-1.2k}{1999/02/28}{Repaired a few spelling mistakes} +% \changes{slovak-1.2l}{2000/09/20}{Added \cs{glossaryname}} +% \changes{slovak-3.0}{2005/12/22}{Updated some translations. Former +% translations were: `\'Uvod' for \cs{prefacename}, `Referencie' for +% \cs{refname}, `Index' for \cs{indexname}, `Obr\'azok' for +% \cs{figurename}, `Pr\'ilohy' for \cs{enclname}, `CC' for \cs{ccname}, +% `Komu' for \cs{headtoname}, `Strana' for \cs{pagename}} +% \begin{macrocode} +\@namedef{captions\CurrentOption}{% + \def\prefacename{Predhovor}% + \def\refname{Literat\'ura}% + \def\abstractname{Abstrakt}% + \def\bibname{Literat\'ura}% + \def\chaptername{Kapitola}% + \def\appendixname{Dodatok}% + \def\contentsname{Obsah}% + \def\listfigurename{Zoznam obr\'azkov}% + \def\listtablename{Zoznam tabuliek}% + \def\indexname{Register}% + \def\figurename{Obr.}% + \def\tablename{Tabu\v{l}ka}% + \def\partname{\v{C}as\v{t}}% + \def\enclname{Pr\'{\i}loha}% + \def\ccname{cc.}% + \def\headtoname{Pre}% + \def\pagename{Str.}% + \def\seename{vi\v{d}}% + \def\alsoname{vi\v{d} tie\v{z}}% + \def\proofname{D\^okaz}% + \def\glossaryname{Slovn\'{\i}k}% + }% +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\dateslovak} +% The macro \cs{dateslovak} redefines the command \cs{today} +% to produce Slovak dates. +% \changes{slovak-1.2j}{1997/10/01}{Use \cs{edef} to define +% \cs{today} to save memory} +% \changes{slovak-1.2j}{1998/03/28}{use \cs{def} instead of \cs{edef}} +% \changes{slovak-1.2k}{1999/02/28}{Repaired a spelling mistake} +% \begin{macrocode} +\@namedef{date\CurrentOption}{% + \def\today{\number\day.~\ifcase\month\or + janu\'ara\or febru\'ara\or marca\or apr\'{\i}la\or m\'aja\or + j\'una\or j\'ula\or augusta\or septembra\or okt\'obra\or + novembra\or decembra\fi + \space \number\year}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\extrasslovak} +% \begin{macro}{\noextrasslovak} +% The macro \cs{extrasslovak} will perform all the extra definitions +% needed for the Slovak language. The macro \cs{noextrasslovak} is +% used to cancel the actions of \cs{extrasslovak}. +% +% For Slovak texts \cs{frenchspacing} should be in effect. Language +% group for shorthands is also set here. +% \changes{slovak-3.0}{1995/04/21}{now use \cs{bbl@frenchspacing} and +% \cs{bbl@nonfrenchspacing}} +% \changes{slovak-3.1}{2006/10/07}{move \cs{languageshorthands} here, +% so that the language group is always initialized correctly} +% \begin{macrocode} +\expandafter\addto\csname extras\CurrentOption\endcsname{% + \bbl@frenchspacing + \languageshorthands{slovak}} +\expandafter\addto\csname noextras\CurrentOption\endcsname{% + \bbl@nonfrenchspacing} +% \end{macrocode} +% +% \changes{slovak-1.2e}{1995/05/28}{Use \LaTeX's \cs{v} accent +% command} +% \begin{macrocode} +\expandafter\addto\csname extras\CurrentOption\endcsname{% + \babel@save\q\let\q\v} +% \end{macrocode} +% +% For Slovak three characters are used to define shorthands, they +% need to be made active. +% \changes{slovak-1.3a}{2004/02/20}{Make three characters available +% for shorthands} +% \begin{macrocode} +\ifx\cs@compat@latex\relax\else + \initiate@active@char{^} + \addto\extrasslovak{\bbl@activate{^}} + \addto\noextrasslovak{\bbl@deactivate{^}} + \initiate@active@char{"} + \addto\extrasslovak{\bbl@activate{"}\umlautlow} + \addto\noextrasslovak{\bbl@deactivate{"}\umlauthigh} + \initiate@active@char{'} + \@ifpackagewith{babel}{activeacute}{% + \addto\extrasslovak{\bbl@activate{'}} + \addto\noextrasslovak{\bbl@deactivate{'}}% + }{} +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\sq} +% \begin{macro}{\dq} +% We save the original single and double quote characters in +% \cs{sq} and \cs{dq} to make them available later. The math +% accent |\"| can now be typed as |"|. +% \begin{macrocode} +\begingroup\catcode`\"=12\catcode`\'=12 +\def\x{\endgroup + \def\sq{'} + \def\dq{"}} +\x +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \changes{slovak-1.2b}{1994/06/04}{Added setting of left- and +% righthyphenmin} +% +% The slovak hyphenation patterns should be used with +% |\lefthyphenmin| set to~2 and |\righthyphenmin| set to~3. +% \changes{slovak-1.2e}{1995/05/28}{Now use \cs{slovakhyphenmins}} +% \changes{slovak-1.2l}{2000/09/22}{Now use \cs{providehyphenmins} to +% provide a default value} +% \changes{slovak-3.0}{2005/12/22}{Changed default \cs{righthyphenmin} +% to 3 characters.} +% \begin{macrocode} +\providehyphenmins{\CurrentOption}{\tw@\thr@@} +% \end{macrocode} +% +% In order to prevent problems with the active |^| we add a +% shorthand on system level which expands to a `normal |^|. +% \begin{macrocode} +\ifx\cs@compat@latex\relax\else + \declare@shorthand{system}{^}{\csname normal@char\string^\endcsname} +% \end{macrocode} +% +% Now we can define the doublequote macros: the umlauts, +% \begin{macrocode} + \declare@shorthand{slovak}{"a}{\textormath{\"{a}\allowhyphens}{\ddot a}} + \declare@shorthand{slovak}{"o}{\textormath{\"{o}\allowhyphens}{\ddot o}} + \declare@shorthand{slovak}{"u}{\textormath{\"{u}\allowhyphens}{\ddot u}} + \declare@shorthand{slovak}{"A}{\textormath{\"{A}\allowhyphens}{\ddot A}} + \declare@shorthand{slovak}{"O}{\textormath{\"{O}\allowhyphens}{\ddot O}} + \declare@shorthand{slovak}{"U}{\textormath{\"{U}\allowhyphens}{\ddot U}} +% \end{macrocode} +% tremas, +% \begin{macrocode} + \declare@shorthand{slovak}{"e}{\textormath{\"{e}\allowhyphens}{\ddot e}} + \declare@shorthand{slovak}{"E}{\textormath{\"{E}\allowhyphens}{\ddot E}} + \declare@shorthand{slovak}{"i}{\textormath{\"{\i}\allowhyphens}% + {\ddot\imath}} + \declare@shorthand{slovak}{"I}{\textormath{\"{I}\allowhyphens}{\ddot I}} +% \end{macrocode} +% other slovak characters +% \begin{macrocode} + \declare@shorthand{slovak}{^c}{\textormath{\v{c}\allowhyphens}{\check{c}}} + \declare@shorthand{slovak}{^d}{\textormath{\q{d}\allowhyphens}{\check{d}}} + \declare@shorthand{slovak}{^l}{\textormath{\q{l}\allowhyphens}{\check{l}}} + \declare@shorthand{slovak}{^n}{\textormath{\v{n}\allowhyphens}{\check{n}}} + \declare@shorthand{slovak}{^o}{\textormath{\^{o}\allowhyphens}{\hat{o}}} + \declare@shorthand{slovak}{^s}{\textormath{\v{s}\allowhyphens}{\check{s}}} + \declare@shorthand{slovak}{^t}{\textormath{\q{t}\allowhyphens}{\check{t}}} + \declare@shorthand{slovak}{^z}{\textormath{\v{z}\allowhyphens}{\check{z}}} + \declare@shorthand{slovak}{^C}{\textormath{\v{C}\allowhyphens}{\check{C}}} + \declare@shorthand{slovak}{^D}{\textormath{\v{D}\allowhyphens}{\check{D}}} + \declare@shorthand{slovak}{^L}{\textormath{\q{L}\allowhyphens}{\check{L}}} + \declare@shorthand{slovak}{^N}{\textormath{\v{N}\allowhyphens}{\check{N}}} + \declare@shorthand{slovak}{^O}{\textormath{\^{O}\allowhyphens}{\hat{O}}} + \declare@shorthand{slovak}{^S}{\textormath{\v{S}\allowhyphens}{\check{S}}} + \declare@shorthand{slovak}{^T}{\textormath{\v{T}\allowhyphens}{\check{T}}} + \declare@shorthand{slovak}{^Z}{\textormath{\v{Z}\allowhyphens}{\check{Z}}} +% \end{macrocode} +% acute accents, +% \begin{macrocode} + \@ifpackagewith{babel}{activeacute}{% + \declare@shorthand{slovak}{'a}{\textormath{\'a\allowhyphens}{^{\prime}a}} + \declare@shorthand{slovak}{'e}{\textormath{\'e\allowhyphens}{^{\prime}e}} + \declare@shorthand{slovak}{'i}{\textormath{\'\i{}\allowhyphens}{^{\prime}i}} + \declare@shorthand{slovak}{'l}{\textormath{\'l\allowhyphens}{^{\prime}l}} + \declare@shorthand{slovak}{'o}{\textormath{\'o\allowhyphens}{^{\prime}o}} + \declare@shorthand{slovak}{'r}{\textormath{\'r\allowhyphens}{^{\prime}r}} + \declare@shorthand{slovak}{'u}{\textormath{\'u\allowhyphens}{^{\prime}u}} + \declare@shorthand{slovak}{'y}{\textormath{\'y\allowhyphens}{^{\prime}y}} + \declare@shorthand{slovak}{'A}{\textormath{\'A\allowhyphens}{^{\prime}A}} + \declare@shorthand{slovak}{'E}{\textormath{\'E\allowhyphens}{^{\prime}E}} + \declare@shorthand{slovak}{'I}{\textormath{\'I\allowhyphens}{^{\prime}I}} + \declare@shorthand{slovak}{'L}{\textormath{\'L\allowhyphens}{^{\prime}l}} + \declare@shorthand{slovak}{'O}{\textormath{\'O\allowhyphens}{^{\prime}O}} + \declare@shorthand{slovak}{'R}{\textormath{\'R\allowhyphens}{^{\prime}R}} + \declare@shorthand{slovak}{'U}{\textormath{\'U\allowhyphens}{^{\prime}U}} + \declare@shorthand{slovak}{'Y}{\textormath{\'Y\allowhyphens}{^{\prime}Y}} + \declare@shorthand{slovak}{''}{% + \textormath{\textquotedblright}{\sp\bgroup\prim@s'}} + }{} + % \end{macrocode} +% and some additional commands: +% \begin{macrocode} + \declare@shorthand{slovak}{"-}{\nobreak\-\bbl@allowhyphens} + \declare@shorthand{slovak}{"|}{% + \textormath{\penalty\@M\discretionary{-}{}{\kern.03em}% + \bbl@allowhyphens}{}} + \declare@shorthand{slovak}{""}{\hskip\z@skip} + \declare@shorthand{slovak}{"~}{\textormath{\leavevmode\hbox{-}}{-}} + \declare@shorthand{slovak}{"=}{\cs@splithyphen} +\fi +% \end{macrocode} +% +% \begin{macro}{\v} +% \LaTeX's normal |\v| accent places a caron over the letter that +% follows it (\v{o}). This is not what we want for the letters d, +% t, l and L; for those the accent should change shape. This is +% acheived by the following. +% \begin{macrocode} +\AtBeginDocument{% + \DeclareTextCompositeCommand{\v}{OT1}{t}{% + t\kern-.23em\raise.24ex\hbox{'}} + \DeclareTextCompositeCommand{\v}{OT1}{d}{% + d\kern-.13em\raise.24ex\hbox{'}} + \DeclareTextCompositeCommand{\v}{OT1}{l}{\lcaron{}} + \DeclareTextCompositeCommand{\v}{OT1}{L}{\Lcaron{}}} +% \end{macrocode} +% +% \begin{macro}{\lcaron} +% \begin{macro}{\Lcaron} +% For the letters \texttt{l} and \texttt{L} we want to disinguish +% between normal fonts and monospaced fonts. +% \begin{macrocode} +\def\lcaron{% + \setbox0\hbox{M}\setbox\tw@\hbox{i}% + \ifdim\wd0>\wd\tw@\relax + l\kern-.13em\raise.24ex\hbox{'}\kern-.11em% + \else + l\raise.45ex\hbox to\z@{\kern-.35em '\hss}% + \fi} +\def\Lcaron{% + \setbox0\hbox{M}\setbox\tw@\hbox{i}% + \ifdim\wd0>\wd\tw@\relax + L\raise.24ex\hbox to\z@{\kern-.28em'\hss}% + \else + L\raise.45ex\hbox to\z@{\kern-.40em '\hss}% + \fi} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% Initialize active quotes. \CS\LaTeX{} provides a way of +% converting English-style quotes into Slovak-style ones. Both +% single and double quotes are affected, i.e. |``text''| is +% converted to something like |,,text``| and |`text'| is converted +% to |,text`|. This conversion can be switched on and off with +% \cs{csprimeson} and \cs{csprimesoff}.\footnote{By the way, the +% names of these macros are misleading, because the handling of +% primes in math mode is rather marginal, the most important thing +% being the handling of quotes\ldots} +% +% These quotes present various troubles, e.g. the kerning is broken, +% apostrophes are converted to closing single quote, some primitives +% are broken (most notably the |\catcode`\|\meta{char} syntax will +% not work any more), and writing them to \file{.aux} files cannot +% be handled correctly. For these reasons, these commands are only +% available in \CS\LaTeX{} compatibility mode. +% +% \begin{macrocode} +\ifx\cs@compat@latex\relax + \let\cs@ltxprim@s\prim@s + \def\csprimeson{% + \catcode``\active \catcode`'\active \let\prim@s\bbl@prim@s} + \def\csprimesoff{% + \catcode``12 \catcode`'12 \let\prim@s\cs@ltxprim@s} + \begingroup\catcode``\active + \def\x{\endgroup + \def`{\futurelet\cs@next\cs@openquote} + \def\cs@openquote{% + \ifx`\cs@next \expandafter\cs@opendq + \else \expandafter\clq + \fi}% + }\x + \begingroup\catcode`'\active + \def\x{\endgroup + \def'{\textormath{\futurelet\cs@next\cs@closequote} + {^\bgroup\prim@s}} + \def\cs@closequote{% + \ifx'\cs@next \expandafter\cs@closedq + \else \expandafter\crq + \fi}% + }\x + \def\cs@opendq{\clqq\let\cs@next= } + \def\cs@closedq{\crqq\let\cs@next= } +% \end{macrocode} +% +% The way I recommend for typesetting quotes in Slovak documents +% is to use shorthands similar to those used in German. +% +% \changes{3.0}{2006/04/21}{|"`| and |"'| changed from German quotes +% to Slovak quotes} +% \begin{macrocode} +\else + \declare@shorthand{slovak}{"`}{\clqq} + \declare@shorthand{slovak}{"'}{\crqq} + \declare@shorthand{slovak}{"<}{\flqq} + \declare@shorthand{slovak}{">}{\frqq} +\fi +% \end{macrocode} +% +% \begin{macro}{\clqq} +% This is the CS opening quote, which is similar to the German +% quote (\cs{glqq}) but the kerning is different. +% +% For the OT1 encoding, the quote is constructed from the right +% double quote (i.e. the ``Opening quotes'' character) by moving +% it down to the baseline and shifting it to the right, or to the +% left if italic correction is positive. +% +% For T1, the ``German Opening quotes'' is used. It is moved to +% the right and the total width is enlarged. This is done in an +% attempt to minimize the difference between the OT1 and T1 +% versions. +% +% \changes{3.0}{2006/04/20}{Added \cs{leavevmode} to allow an opening +% quote at the beginning of a paragraph} +% \begin{macrocode} +\ProvideTextCommand{\clqq}{OT1}{% + \set@low@box{\textquotedblright}% + \setbox\@ne=\hbox{l\/}\dimen\@ne=\wd\@ne + \setbox\@ne=\hbox{l}\advance\dimen\@ne-\wd\@ne + \leavevmode + \ifdim\dimen\@ne>\z@\kern-.1em\box\z@\kern.1em + \else\kern.1em\box\z@\kern-.1em\fi\allowhyphens} +\ProvideTextCommand{\clqq}{T1} + {\kern.1em\quotedblbase\kern-.0158em\relax} +\ProvideTextCommandDefault{\clqq}{\UseTextSymbol{OT1}\clqq} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\crqq} +% For OT1, the CS closing quote is basically the same as +% \cs{grqq}, only the \cs{textormath} macro is not used, because +% as far as I know, \cs{grqq} does not work in math mode anyway. +% +% For T1, the character is slightly wider and shifted to the +% right to match its OT1 counterpart. +% +% \begin{macrocode} +\ProvideTextCommand{\crqq}{OT1} + {\save@sf@q{\nobreak\kern-.07em\textquotedblleft\kern.07em}} +\ProvideTextCommand{\crqq}{T1} + {\save@sf@q{\nobreak\kern.06em\textquotedblleft\kern.024em}} +\ProvideTextCommandDefault{\crqq}{\UseTextSymbol{OT1}\crqq} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\clq} +% \begin{macro}{\crq} +% +% Single CS quotes are similar to double quotes (see the +% discussion above). +% +% \begin{macrocode} +\ProvideTextCommand{\clq}{OT1} + {\set@low@box{\textquoteright}\box\z@\kern.04em\allowhyphens} +\ProvideTextCommand{\clq}{T1} + {\quotesinglbase\kern-.0428em\relax} +\ProvideTextCommandDefault{\clq}{\UseTextSymbol{OT1}\clq} +\ProvideTextCommand{\crq}{OT1} + {\save@sf@q{\nobreak\textquoteleft\kern.17em}} +\ProvideTextCommand{\crq}{T1} + {\save@sf@q{\nobreak\textquoteleft\kern.17em}} +\ProvideTextCommandDefault{\crq}{\UseTextSymbol{OT1}\crq} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\uv} +% There are two versions of \cs{uv}. The older one opens a group +% and uses \cs{aftergroup} to typeset the closing quotes. This +% version allows using \cs{verb} inside the quotes, because the +% enclosed text is not passed as an argument, but unfortunately +% it breaks any kerning with the quotes. Although the kerning +% with the opening quote could be fixed, the kerning with the +% closing quote cannot. +% +% The newer version is defined as a command with one parameter. +% It preserves kerning but since the quoted text is passed as an +% argument, it cannot contain \cs{verb}. +% +% Decide which version of \cs{uv} should be used. For sake +% of compatibility, we use the older version with plain \TeX{} +% and the newer version with \LaTeXe. +% \begin{macrocode} +\ifx\cs@compat@plain\@undefined\else\let\cs@olduv=\relax\fi +\ifx\cs@olduv\@undefined + \DeclareRobustCommand\uv[1]{{\leavevmode\clqq#1\crqq}} +\else + \DeclareRobustCommand\uv{\bgroup\aftergroup\closequotes + \leavevmode\clqq\let\cs@next=} + \def\closequotes{\unskip\crqq\relax} +\fi +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@wordlen} +% Declare a counter to hold the length of the word after the +% hyphen. +% +% \begin{macrocode} +\newcount\cs@wordlen +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@hyphen} +% \begin{macro}{\cs@endash} +% \begin{macro}{\cs@emdash} +% Store the original hyphen in a macro. Ditto for the ligatures. +% +% \changes{slovak-3.1}{2006/10/07}{ensure correct catcode for the +% saved hyphen} +% \begin{macrocode} +\begingroup\catcode`\-12 +\def\x{\endgroup + \def\cs@hyphen{-} + \def\cs@endash{--} + \def\cs@emdash{---} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@boxhyphen} +% Provide a non-breakable hyphen to be used when a compound word +% is too short to be split, i.e. the second part is shorter than +% \cs{righthyphenmin}. +% +% \begin{macrocode} + \def\cs@boxhyphen{\hbox{-}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@splithyphen} +% The macro \cs{cs@splithyphen} inserts a split hyphen, while +% allowing both parts of the compound word to be hyphenated at +% other places too. +% +% \begin{macrocode} + \def\cs@splithyphen{\kern\z@ + \discretionary{-}{\char\hyphenchar\the\font}{-}\nobreak\hskip\z@} +}\x +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{-} +% To minimize the effects of activating the hyphen character, +% the active definition expands to the non-active character +% in all cases where hyphenation cannot occur, i.e. if not +% typesetting (check \cs{protect}), not in horizontal mode, +% or in inner horizontal mode. +% +% \begin{macrocode} +\initiate@active@char{-} +\declare@shorthand{slovak}{-}{% + \ifx\protect\@typeset@protect + \ifhmode + \ifinner + \bbl@afterelse\bbl@afterelse\bbl@afterelse\cs@hyphen + \else + \bbl@afterfi\bbl@afterelse\bbl@afterelse\cs@firsthyphen + \fi + \else + \bbl@afterfi\bbl@afterelse\cs@hyphen + \fi + \else + \bbl@afterfi\cs@hyphen + \fi} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@firsthyphen} +% \begin{macro}{\cs@firsthyph@n} +% \begin{macro}{\cs@secondhyphen} +% \begin{macro}{\cs@secondhyph@n} +% If we encounter a hyphen, check whether it is followed +% by a second or a third hyphen and if so, insert the +% corresponding ligature. +% +% If we don't find a hyphen, the token found will be placed +% in \cs{cs@token} for further analysis, and it will also stay +% in the input. +% +% \begin{macrocode} +\begingroup\catcode`\-\active +\def\x{\endgroup + \def\cs@firsthyphen{\futurelet\cs@token\cs@firsthyph@n} + \def\cs@firsthyph@n{% + \ifx -\cs@token + \bbl@afterelse\cs@secondhyphen + \else + \bbl@afterfi\cs@checkhyphen + \fi} + \def\cs@secondhyphen ##1{% + \futurelet\cs@token\cs@secondhyph@n} + \def\cs@secondhyph@n{% + \ifx -\cs@token + \bbl@afterelse\cs@emdash\@gobble + \else + \bbl@afterfi\cs@endash + \fi} +}\x +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@checkhyphen} +% Check that hyphenation is enabled, and if so, start analyzing +% the rest of the word, i.e. initialize \cs{cs@word} and \cs{cs@wordlen} +% and start processing input with \cs{cs@scanword}. +% +% \begin{macrocode} +\def\cs@checkhyphen{% + \ifnum\expandafter\hyphenchar\the\font=`\- + \def\cs@word{}\cs@wordlen\z@ + \bbl@afterelse\cs@scanword + \else + \cs@hyphen + \fi} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@scanword} +% \begin{macro}{\cs@continuescan} +% \begin{macro}{\cs@gettoken} +% \begin{macro}{\cs@gett@ken} +% Each token is first analyzed with \cs{cs@scanword}, which expands +% the token and passes the first token of the result to +% \cs{cs@gett@ken}. If the expanded token is not identical to the +% unexpanded one, presume that it might be expanded further and +% pass it back to \cs{cs@scanword} until you get an unexpandable +% token. Then analyze it in \cs{cs@examinetoken}. +% +% The \cs{cs@continuescan} macro does the same thing as +% \cs{cs@scanword}, but it does not require the first token to be +% in \cs{cs@token} already. +% +% \begin{macrocode} +\def\cs@scanword{\let\cs@lasttoken= \cs@token\expandafter\cs@gettoken} +\def\cs@continuescan{\let\cs@lasttoken\@undefined\expandafter\cs@gettoken} +\def\cs@gettoken{\futurelet\cs@token\cs@gett@ken} +\def\cs@gett@ken{% + \ifx\cs@token\cs@lasttoken \def\cs@next{\cs@examinetoken}% + \else \def\cs@next{\cs@scanword}% + \fi \cs@next} +% \end{macrocode} +% \end{macro} +% \end{macro} +% \end{macro} +% \end{macro} +% +% \begin{macro}{cs@examinetoken} +% Examine the token in \cs{cs@token}: +% +% \begin{itemize} +% \item +% If it is a letter (catcode 11) or other (catcode 12), add it +% to \cs{cs@word} with \cs{cs@addparam}. +% +% \item +% If it is the \cs{char} primitive, add it with \cs{cs@expandchar}. +% +% \item +% If the token starts or ends a group, ignore it with +% \cs{cs@ignoretoken}. +% +% \item +% Otherwise analyze the meaning of the token with +% \cs{cs@checkchardef} to detect primitives defined with +% \cs{chardef}. +% +% \end{itemize} +% +% \begin{macrocode} +\def\cs@examinetoken{% + \ifcat A\cs@token + \def\cs@next{\cs@addparam}% + \else\ifcat 0\cs@token + \def\cs@next{\cs@addparam}% + \else\ifx\char\cs@token + \def\cs@next{\afterassignment\cs@expandchar\let\cs@token= }% + \else\ifx\bgroup\cs@token + \def\cs@next{\cs@ignoretoken\bgroup}% + \else\ifx\egroup\cs@token + \def\cs@next{\cs@ignoretoken\egroup}% + \else\ifx\begingroup\cs@token + \def\cs@next{\cs@ignoretoken\begingroup}% + \else\ifx\endgroup\cs@token + \def\cs@next{\cs@ignoretoken\endgroup}% + \else + \def\cs@next{\expandafter\expandafter\expandafter\cs@checkchardef + \expandafter\meaning\expandafter\cs@token\string\char\end}% + \fi\fi\fi\fi\fi\fi\fi\cs@next} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@checkchardef} +% Check the meaning of a token and if it is a primitive defined +% with \cs{chardef}, pass it to \cs{\cs@examinechar} as if it were +% a \cs{char} sequence. Otherwise, there are no more word characters, +% so do the final actions in \cs{cs@nosplit}. +% +% \begin{macrocode} +\expandafter\def\expandafter\cs@checkchardef + \expandafter#\expandafter1\string\char#2\end{% + \def\cs@token{#1}% + \ifx\cs@token\@empty + \def\cs@next{\afterassignment\cs@examinechar\let\cs@token= }% + \else + \def\cs@next{\cs@nosplit}% + \fi \cs@next} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@ignoretoken} +% Add a token to \cs{cs@word} but do not update the \cs{cs@wordlen} +% counter. This is mainly useful for group starting and ending +% primitives, which need to be preserved, but do not affect the word +% boundary. +% +% \begin{macrocode} +\def\cs@ignoretoken#1{% + \edef\cs@word{\cs@word#1}% + \afterassignment\cs@continuescan\let\cs@token= } +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{cs@addparam} +% Add a token to \cs{cs@word} and check its lccode. Note that +% this macro can only be used for tokens which can be passed as +% a parameter. +% +% \begin{macrocode} +\def\cs@addparam#1{% + \edef\cs@word{\cs@word#1}% + \cs@checkcode{\lccode`#1}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@expandchar} +% \begin{macro}{\cs@examinechar} +% Add a \cs{char} sequence to \cs{cs@word} and check its lccode. +% The charcode is first parsed in \cs{cs@expandchar} and then the +% resulting \cs{chardef}-defined sequence is analyzed in +% \cs{cs@examinechar}. +% +% \begin{macrocode} +\def\cs@expandchar{\afterassignment\cs@examinechar\chardef\cs@token=} +\def\cs@examinechar{% + \edef\cs@word{\cs@word\char\the\cs@token\space}% + \cs@checkcode{\lccode\cs@token}} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@checkcode} +% Check the lccode of a character. If it is zero, it does not count +% to the current word, so finish it with \cs{cs@nosplit}. Otherwise +% update the \cs{cs@wordlen} counter and go on scanning the word +% with \cs{cs@continuescan}. When enough characters are gathered in +% \cs{cs@word} to allow word break, insert the split hyphen and +% finish. +% +% \begin{macrocode} +\def\cs@checkcode#1{% + \ifnum0=#1 + \def\cs@next{\cs@nosplit}% + \else + \advance\cs@wordlen\@ne + \ifnum\righthyphenmin>\the\cs@wordlen + \def\cs@next{\cs@continuescan}% + \else + \cs@splithyphen + \def\cs@next{\cs@word}% + \fi + \fi \cs@next} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@nosplit} +% Insert a non-breakable hyphen followed by the saved word. +% +% \begin{macrocode} +\def\cs@nosplit{\cs@boxhyphen\cs@word} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@hyphen} +% The \cs{minus} sequence can be used where the active hyphen +% does not work, e.g. in arguments to \TeX{} primitives in outer +% horizontal mode. +% +% \begin{macrocode} +\let\minus\cs@hyphen +% \end{macrocode} +% \end{macro} + +% \begin{macro}{\standardhyphens} +% \begin{macro}{\splithyphens} +% These macros control whether split hyphens are allowed in Czech +% and/or Slovak texts. You may use them in any language, but the +% split hyphen is only activated for Czech and Slovak. +% +% \changes{slovak-3.1}{2006/10/07}{activate with split hyphens and +% deactivate with standard hyphens, not vice versa} +% \begin{macrocode} +\def\standardhyphens{\cs@splithyphensfalse\cs@deactivatehyphens} +\def\splithyphens{\cs@splithyphenstrue\cs@activatehyphens} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@splitattr} +% Now we declare the |split| language attribute. This is +% similar to the |split| package option of cslatex, but it +% only affects Slovak, not Czech. +% +% \changes{slovak-3.1}{2006/10/07}{attribute added} +% \begin{macrocode} +\def\cs@splitattr{\babel@save\ifcs@splithyphens\splithyphens} +\bbl@declare@ttribute{slovak}{split}{% + \addto\extrasslovak{\cs@splitattr}} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\cs@activatehyphens} +% \begin{macro}{\cs@deactivatehyphens} +% These macros are defined as \cs{relax} by default to prevent +% activating/deactivating the hyphen character. They are redefined +% when the language is switched to Czech/Slovak. At that moment +% the hyphen is also activated if split hyphens were requested with +% \cs{splithyphens}. +% +% When the language is de-activated, de-activate the hyphen and +% restore the bogus definitions of these macros. +% +% \begin{macrocode} +\let\cs@activatehyphens\relax +\let\cs@deactivatehyphens\relax +\expandafter\addto\csname extras\CurrentOption\endcsname{% + \def\cs@activatehyphens{\bbl@activate{-}}% + \def\cs@deactivatehyphens{\bbl@deactivate{-}}% + \ifcs@splithyphens\cs@activatehyphens\fi} +\expandafter\addto\csname noextras\CurrentOption\endcsname{% + \cs@deactivatehyphens + \let\cs@activatehyphens\relax + \let\cs@deactivatehyphens\relax} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@looseness} +% \begin{macro}{\looseness} +% One of the most common situations where an active hyphen will not +% work properly is the \cs{looseness} primitive. Change its definition +% so that it deactivates the hyphen if needed. +% +% \begin{macrocode} +\let\cs@looseness\looseness +\def\looseness{% + \ifcs@splithyphens + \cs@deactivatehyphens\afterassignment\cs@activatehyphens \fi + \cs@looseness} +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% \begin{macro}{\cs@selectlanguage} +% \begin{macro}{\cs@main@language} +% Specifying the |nocaptions| option means that captions and dates +% are not redefined by default, but they can be switched on later +% with \cs{captionsslovak} and/or \cs{dateslovak}. +% +% We mimic this behavior by redefining \cs{selectlanguage}. This +% macro is called once at the beginning of the document to set the +% main language of the document. If this is \cs{cs@main@language}, +% it disables the macros for setting captions and date. In any +% case, it restores the original definition of \cs{selectlanguage} +% and expands it. +% +% The definition of \cs{selectlanguage} can be shared between Czech +% and Slovak; the actual language is stored in \cs{cs@main@language}. +% +% \begin{macrocode} +\ifx\cs@nocaptions\@undefined\else + \edef\cs@main@language{\CurrentOption} + \ifx\cs@origselect\@undefined + \let\cs@origselect=\selectlanguage + \def\selectlanguage{% + \let\selectlanguage\cs@origselect + \ifx\bbl@main@language\cs@main@language + \expandafter\cs@selectlanguage + \else + \expandafter\selectlanguage + \fi} + \def\cs@selectlanguage{% + \cs@tempdisable{captions}% + \cs@tempdisable{date}% + \selectlanguage} +% \end{macrocode} +% +% \begin{macro}{\cs@tempdisable} +% \cs{cs@tempdisable} disables a language setup macro temporarily, +% i.e. the macro with the name of \meta{\#1}|\bbl@main@language| +% just restores the original definition and purges the saved macro +% from memory. +% +% \begin{macrocode} + \def\cs@tempdisable#1{% + \def\@tempa{cs@#1}% + \def\@tempb{#1\bbl@main@language}% + \expandafter\expandafter\expandafter\let + \expandafter \csname\expandafter \@tempa \expandafter\endcsname + \csname \@tempb \endcsname + \expandafter\edef\csname \@tempb \endcsname{% + \let \expandafter\noexpand \csname \@tempb \endcsname + \expandafter\noexpand \csname \@tempa \endcsname + \let \expandafter\noexpand\csname \@tempa \endcsname + \noexpand\@undefined}} +% \end{macrocode} +% \end{macro} +% +% These macros are not needed, once the initialization is over. +% +% \begin{macrocode} + \@onlypreamble\cs@main@language + \@onlypreamble\cs@origselect + \@onlypreamble\cs@selectlanguage + \@onlypreamble\cs@tempdisable + \fi +\fi +% \end{macrocode} +% \end{macro} +% \end{macro} +% +% The encoding of mathematical fonts should be changed to IL2. This +% allows to use accented letter in some font families. Besides, +% documents do not use CM fonts if there are equivalents in CS-fonts, +% so there is no need to have both bitmaps of CM-font and CS-font. +% +% \cs{@font@warning} and \cs{@font@info} are temporarily redefined +% to avoid annoying font warnings. +% +% \begin{macrocode} +\ifx\cs@compat@plain\@undefined +\ifx\cs@check@enc\@undefined\else + \def\cs@check@enc{ + \ifx\encodingdefault\cs@iltw@ + \let\cs@warn\@font@warning \let\@font@warning\@gobble + \let\cs@info\@font@info \let\@font@info\@gobble + \SetSymbolFont{operators}{normal}{\cs@iltw@}{cmr}{m}{n} + \SetSymbolFont{operators}{bold}{\cs@iltw@}{cmr}{bx}{n} + \SetMathAlphabet\mathbf{normal}{\cs@iltw@}{cmr}{bx}{n} + \SetMathAlphabet\mathit{normal}{\cs@iltw@}{cmr}{m}{it} + \SetMathAlphabet\mathrm{normal}{\cs@iltw@}{cmr}{m}{n} + \SetMathAlphabet\mathsf{normal}{\cs@iltw@}{cmss}{m}{n} + \SetMathAlphabet\mathtt{normal}{\cs@iltw@}{cmtt}{m}{n} + \SetMathAlphabet\mathbf{bold}{\cs@iltw@}{cmr}{bx}{n} + \SetMathAlphabet\mathit{bold}{\cs@iltw@}{cmr}{bx}{it} + \SetMathAlphabet\mathrm{bold}{\cs@iltw@}{cmr}{bx}{n} + \SetMathAlphabet\mathsf{bold}{\cs@iltw@}{cmss}{bx}{n} + \SetMathAlphabet\mathtt{bold}{\cs@iltw@}{cmtt}{m}{n} + \let\@font@warning\cs@warn \let\cs@warn\@undefined + \let\@font@info\cs@info \let\cs@info\@undefined + \fi + \let\cs@check@enc\@undefined} + \AtBeginDocument{\cs@check@enc} +\fi +\fi +% \end{macrocode} +% +% \begin{macro}{cs@undoiltw@} +% +% The thing is that \LaTeXe{} core only supports the T1 encoding +% and does not bother changing the uc/lc/sfcodes when encoding +% is switched. :( However, the IL2 encoding \emph{does} change +% these codes, so if encoding is switched back from IL2, we must +% also undo the effect of this change to be compatible with +% \LaTeXe. OK, this is not the right\textsuperscript{TM} solution +% but it works. Cheers to Petr Ol\v s\'ak. +% +% \begin{macrocode} +\def\cs@undoiltw@{% + \uccode158=208 \lccode158=158 \sfcode158=1000 + \sfcode159=1000 + \uccode165=133 \lccode165=165 \sfcode165=1000 + \uccode169=137 \lccode169=169 \sfcode169=1000 + \uccode171=139 \lccode171=171 \sfcode171=1000 + \uccode174=142 \lccode174=174 \sfcode174=1000 + \uccode181=149 + \uccode185=153 + \uccode187=155 + \uccode190=0 \lccode190=0 + \uccode254=222 \lccode254=254 \sfcode254=1000 + \uccode255=223 \lccode255=255 \sfcode255=1000} +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{@@enc@update} +% +% Redefine the \LaTeXe{} internal function \cs{@@enc@update} to +% change the encodings correctly. +% +% \begin{macrocode} +\ifx\cs@enc@update\@undefined +\ifx\@@enc@update\@undefined\else + \let\cs@enc@update\@@enc@update + \def\@@enc@update{\ifx\cf@encoding\cs@iltw@\cs@undoiltw@\fi + \cs@enc@update + \expandafter\ifnum\csname l@\languagename\endcsname=\the\language + \expandafter\ifx + \csname l@\languagename:\f@encoding\endcsname\relax + \else + \expandafter\expandafter\expandafter\let + \expandafter\csname + \expandafter l\expandafter @\expandafter\languagename + \expandafter\endcsname\csname l@\languagename:\f@encoding\endcsname + \fi + \language=\csname l@\languagename\endcsname\relax + \fi} +\fi\fi +% \end{macrocode} +% \end{macro} +% +% The macro |\ldf@finish| takes care of looking for a +% configuration file, setting the main language to be switched on +% at |\begin{document}| and resetting the category code of +% \texttt{@} to its original value. +% \changes{slovak-1.2i}{1996/11/03}{Now use \cs{ldf@finish} to wrap up} +% \begin{macrocode} +\ldf@finish\CurrentOption +% +% \end{macrocode} +% +% \Finale +%% +%% \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 \~} +%% +\endinput diff --git a/Master/texmf-dist/source/generic/babel-slovak/slovak.ins b/Master/texmf-dist/source/generic/babel-slovak/slovak.ins new file mode 100644 index 00000000000..c8c7d88326d --- /dev/null +++ b/Master/texmf-dist/source/generic/babel-slovak/slovak.ins @@ -0,0 +1,148 @@ +%% +%% This file will generate fast loadable files and documentation +%% driver files from the doc files in this package when run through +%% LaTeX or TeX. +%% +%% Copyright 1989-2008 Johannes L. Braams and any individual authors +%% listed elsewhere in this file. All rights reserved. +%% +%% This file is part of the Babel system. +%% -------------------------------------- +%% +%% It may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX +%% version 2003/12/01 or later. +%% +%% This work has the LPPL maintenance status "maintained". +%% +%% The Current Maintainer of this work is Johannes Braams. +%% +%% The list of all files belonging to the LaTeX base distribution is +%% given in the file `manifest.bbl. See also `legal.bbl' for additional +%% information. +%% +%% The list of derived (unpacked) files belonging to the distribution +%% and covered by LPPL is defined by the unpacking scripts (with +%% extension .ins) which are part of the distribution. +%% +%% --------------- start of docstrip commands ------------------ +%% +\def\filedate{1999/04/11} +\def\batchfile{slovak.ins} +\input docstrip.tex + +{\ifx\generate\undefined +\Msg{**********************************************} +\Msg{*} +\Msg{* This installation requires docstrip} +\Msg{* version 2.3c or later.} +\Msg{*} +\Msg{* An older version of docstrip has been input} +\Msg{*} +\Msg{**********************************************} +\errhelp{Move or rename old docstrip.tex.} +\errmessage{Old docstrip in input path} +\batchmode +\csname @@end\endcsname +\fi} + +\declarepreamble\mainpreamble +This is a generated file. + +Copyright 1989-2008 Johannes L. Braams and any individual authors +listed elsewhere in this file. All rights reserved. + +This file was generated from file(s) of the Babel system. +--------------------------------------------------------- + +It may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.3 or later is part of all distributions of LaTeX +version 2003/12/01 or later. + +This work has the LPPL maintenance status "maintained". + +The Current Maintainer of this work is Johannes Braams. + +This file may only be distributed together with a copy of the Babel +system. You may however distribute the Babel system without +such generated files. + +The list of all files belonging to the Babel distribution is +given in the file `manifest.bbl'. See also `legal.bbl for additional +information. + +The list of derived (unpacked) files belonging to the distribution +and covered by LPPL is defined by the unpacking scripts (with +extension .ins) which are part of the distribution. +\endpreamble + +\declarepreamble\fdpreamble +This is a generated file. + +Copyright 1989-2008 Johannes L. Braams and any individual authors +listed elsewhere in this file. All rights reserved. + +This file was generated from file(s) of the Babel system. +--------------------------------------------------------- + +It may be distributed and/or modified under the +conditions of the LaTeX Project Public License, either version 1.3 +of this license or (at your option) any later version. +The latest version of this license is in + http://www.latex-project.org/lppl.txt +and version 1.3 or later is part of all distributions of LaTeX +version 2003/12/01 or later. + +This work has the LPPL maintenance status "maintained". + +The Current Maintainer of this work is Johannes Braams. + +This file may only be distributed together with a copy of the Babel +system. You may however distribute the Babel system without +such generated files. + +The list of all files belonging to the Babel distribution is +given in the file `manifest.bbl'. See also `legal.bbl for additional +information. + +In particular, permission is granted to customize the declarations in +this file to serve the needs of your installation. + +However, NO PERMISSION is granted to distribute a modified version +of this file under its original name. + +\endpreamble + +\keepsilent + +\usedir{tex/generic/babel} + +\usepreamble\mainpreamble +\generate{\file{slovak.ldf}{\from{slovak.dtx}{code}} + } +\usepreamble\fdpreamble + +\ifToplevel{ +\Msg{***********************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move the following} +\Msg{* files into a directory searched by TeX:} +\Msg{*} +\Msg{* \space\space All *.def, *.fd, *.ldf, *.sty} +\Msg{*} +\Msg{* To produce the documentation run the files ending with} +\Msg{* '.dtx' and `.fdd' through LaTeX.} +\Msg{*} +\Msg{* Happy TeXing} +\Msg{***********************************************************} +} + +\endinput -- cgit v1.2.3