Current File : //proc/self/root/data/old/usr/share/texlive/texmf-dist/tex/generic/babel/switch.def
%%
%% This is file `switch.def',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% babel.dtx (with options: `kernel')
%% 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.
%%
%% File 'babel.dtx'
%%\ProvidesFile{babel.dtx}[2008/07/08 v3.8m The Babel package]
%% Babel package for LaTeX2e.
%% Copyright (C) 1989 -- 2008 by Johannes Braams,
%% TeXniek
%% all rights reserved.
%% Please report errors to: J.L. Braams
%% babel at braams.xs4all.nl
\ifx\ProvidesFile\@undefined
\def\ProvidesFile#1[#2 #3 #4]{%
\wlog{File: #1 #4 #3 <#2>}%
\let\ProvidesFile\@undefined
}
\def\ProvidesLanguage#1[#2 #3 #4]{%
\wlog{Language: #1 #4 #3 <#2>}%
}
\else
\def\ProvidesLanguage#1{%
\begingroup
\catcode`\ 10 %
\@makeother\/%
\@ifnextchar[%]
{\@provideslanguage{#1}}{\@provideslanguage{#1}[]}}
\def\@provideslanguage#1[#2]{%
\wlog{Language: #1 #2}%
\expandafter\xdef\csname ver@#1.ldf\endcsname{#2}%
\endgroup}
\fi
\ProvidesFile{switch.def}
[2008/07/08 v3.8m %
Babel language switching mechanism]
\ifx\AtBeginDocument\@undefined
\def\adddialect{}
\input plain.def\relax
\fi
\expandafter\ifx\csname iflanguage\endcsname\relax \else
\expandafter\endinput
\fi
\ifx\language\@undefined
\csname newcount\endcsname\language
\fi
\ifx\newlanguage\@undefined
\csname newcount\endcsname\last@language
\else
\countdef\last@language=19
\fi
\ifx\newlanguage\@undefined
\def\addlanguage#1{%
\global\advance\last@language \@ne
\ifnum\last@language<\@cclvi
\else
\errmessage{No room for a new \string\language!}%
\fi
\global\chardef#1\last@language
\wlog{\string#1 = \string\language\the\last@language}}
\else
\def\addlanguage{\alloc@9\language\chardef\@cclvi}
\fi
\def\adddialect#1#2{%
\global\chardef#1#2\relax
\wlog{\string#1 = a dialect from \string\language#2}}
\def\iflanguage#1{%
\expandafter\ifx\csname l@#1\endcsname\relax
\@nolanerr{#1}%
\else
\bbl@afterfi{\ifnum\csname l@#1\endcsname=\language
\expandafter\@firstoftwo
\else
\expandafter\@secondoftwo
\fi}%
\fi}
\edef\selectlanguage{%
\noexpand\protect
\expandafter\noexpand\csname selectlanguage \endcsname
}
\ifx\@undefined\protect\let\protect\relax\fi
\ifx\documentclass\@undefined
\def\xstring{\string\string\string}
\else
\let\xstring\string
\fi
\xdef\bbl@language@stack{}
\def\bbl@push@language{%
\xdef\bbl@language@stack{\languagename+\bbl@language@stack}%
}
\def\bbl@pop@lang#1+#2-#3{%
\def\languagename{#1}\xdef#3{#2}%
}
\def\bbl@pop@language{%
\expandafter\bbl@pop@lang\bbl@language@stack-\bbl@language@stack
\expandafter\bbl@set@language\expandafter{\languagename}%
}
\expandafter\def\csname selectlanguage \endcsname#1{%
\bbl@push@language
\aftergroup\bbl@pop@language
\bbl@set@language{#1}}
\def\bbl@set@language#1{%
\edef\languagename{%
\ifnum\escapechar=\expandafter`\string#1\@empty
\else \string#1\@empty\fi}%
\select@language{\languagename}%
\if@filesw
\protected@write\@auxout{}{\string\select@language{\languagename}}%
\addtocontents{toc}{\xstring\select@language{\languagename}}%
\addtocontents{lof}{\xstring\select@language{\languagename}}%
\addtocontents{lot}{\xstring\select@language{\languagename}}%
\fi}
\def\select@language#1{%
\expandafter\ifx\csname l@#1\endcsname\relax
\@nolanerr{#1}%
\else
\expandafter\ifx\csname date#1\endcsname\relax
\@noopterr{#1}%
\else
\bbl@patterns{\languagename}%
\originalTeX
\expandafter\def\expandafter\originalTeX
\expandafter{\csname noextras#1\endcsname
\let\originalTeX\@empty}%
\languageshorthands{none}%
\babel@beginsave
\csname captions#1\endcsname
\csname date#1\endcsname
\csname extras#1\endcsname\relax
\babel@savevariable\lefthyphenmin
\babel@savevariable\righthyphenmin
\expandafter\ifx\csname #1hyphenmins\endcsname\relax
\set@hyphenmins\tw@\thr@@\relax
\else
\expandafter\expandafter\expandafter\set@hyphenmins
\csname #1hyphenmins\endcsname\relax
\fi
\fi
\fi}
\long\def\otherlanguage#1{%
\csname selectlanguage \endcsname{#1}%
\ignorespaces
}
\long\def\endotherlanguage{%
\originalTeX
\global\@ignoretrue\ignorespaces
}
\expandafter\def\csname otherlanguage*\endcsname#1{%
\foreign@language{#1}%
}
\expandafter\def\csname endotherlanguage*\endcsname{%
\csname noextras\languagename\endcsname
}
\def\foreignlanguage{\protect\csname foreignlanguage \endcsname}
\expandafter\def\csname foreignlanguage \endcsname#1#2{%
\begingroup
\originalTeX
\foreign@language{#1}%
#2%
\csname noextras#1\endcsname
\endgroup
}
\def\foreign@language#1{%
\def\languagename{#1}%
\expandafter\ifx\csname l@#1\endcsname\relax
\@nolanerr{#1}%
\else
\bbl@patterns{\languagename}%
\languageshorthands{none}%
\csname extras#1\endcsname
\expandafter\ifx\csname #1hyphenmins\endcsname\relax
\set@hyphenmins\tw@\thr@@\relax
\else
\expandafter\expandafter\expandafter\set@hyphenmins
\csname #1hyphenmins\endcsname\relax
\fi
\fi
}
\def\bbl@patterns#1{%
\language=\expandafter\ifx\csname l@#1:\f@encoding\endcsname\relax
\csname l@#1\endcsname
\else
\csname l@#1:\f@encoding\endcsname
\fi\relax
}
\def\hyphenrules#1{%
\expandafter\ifx\csname l@#1\endcsname\@undefined
\@nolanerr{#1}%
\else
\bbl@patterns{#1}%
\languageshorthands{none}%
\expandafter\ifx\csname #1hyphenmins\endcsname\relax
\set@hyphenmins\tw@\thr@@\relax
\else
\expandafter\expandafter\expandafter\set@hyphenmins
\csname #1hyphenmins\endcsname\relax
\fi
\fi
}
\def\endhyphenrules{}
\def\providehyphenmins#1#2{%
\expandafter\ifx\csname #1hyphenmins\endcsname\relax
\@namedef{#1hyphenmins}{#2}%
\fi}
\def\set@hyphenmins#1#2{\lefthyphenmin#1\righthyphenmin#2}
\def\LdfInit{%
\chardef\atcatcode=\catcode`\@
\catcode`\@=11\relax
\input babel.def\relax
\catcode`\@=\atcatcode \let\atcatcode\relax
\LdfInit}
\ifx\originalTeX\@undefined\let\originalTeX\@empty\fi
\ifx\babel@beginsave\@undefined\let\babel@beginsave\relax\fi
\ifx\PackageError\@undefined
\def\@nolanerr#1{%
\errhelp{Your command will be ignored, type <return> to proceed}%
\errmessage{You haven't defined the language #1\space yet}}
\def\@nopatterns#1{%
\message{No hyphenation patterns were loaded for}%
\message{the language `#1'}%
\message{I will use the patterns loaded for \string\language=0
instead}}
\def\@noopterr#1{%
\errmessage{The option #1 was not specified in \string\usepackage}
\errhelp{You may continue, but expect unexpected results}}
\def\@activated#1{%
\wlog{Package babel Info: Making #1 an active character}}
\else
\newcommand*{\@nolanerr}[1]{%
\PackageError{babel}%
{You haven't defined the language #1\space yet}%
{Your command will be ignored, type <return> to proceed}}
\newcommand*{\@nopatterns}[1]{%
\PackageWarningNoLine{babel}%
{No hyphenation patterns were loaded for\MessageBreak
the language `#1'\MessageBreak
I will use the patterns loaded for \string\language=0
instead}}
\newcommand*{\@noopterr}[1]{%
\PackageError{babel}%
{You haven't loaded the option #1\space yet}%
{You may proceed, but expect unexpected results}}
\newcommand*{\@activated}[1]{%
\PackageInfo{babel}{%
Making #1 an active character}}
\fi
%%
%% \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
%%
%% End of file `switch.def'.
Mini Shell