EVOLUTION-MANAGER

Edit File: iflang.sty

%%
%% This is file `iflang.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% iflang.dtx  (with options: `package')
%% 
%% This is a generated file.
%% 
%% Project: iflang
%% Version: 2007/11/11 v1.5
%% 
%% Copyright (C) 2007 by
%%    Heiko Oberdiek <heiko.oberdiek at googlemail.com>
%% 
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3c of this license or (at your option) any later
%% version. This version of this license is in
%%    http://www.latex-project.org/lppl/lppl-1-3c.txt
%% and 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 2005/12/01 or later.
%% 
%% This work has the LPPL maintenance status "maintained".
%% 
%% This Current Maintainer of this work is Heiko Oberdiek.
%% 
%% The Base Interpreter refers to any `TeX-Format',
%% because some files are installed in TDS:tex/generic//.
%% 
%% This work consists of the main source file iflang.dtx
%% and the derived files
%%    iflang.sty, iflang.pdf, iflang.ins, iflang.drv, iflang-test1.tex,
%%    iflang-test2.tex, iflang-test3.tex, iflang-test4.tex,
%%    iflang-test5.tex.
%% 
\begingroup\catcode61\catcode48\catcode32=10\relax%
  \catcode13=5 % ^^M
  \endlinechar=13 %
  \catcode35=6 % #
  \catcode39=12 % '
  \catcode44=12 % ,
  \catcode45=12 % -
  \catcode46=12 % .
  \catcode58=12 % :
  \catcode64=11 % @
  \catcode123=1 % {
  \catcode125=2 % }
  \expandafter\let\expandafter\x\csname ver@iflang.sty\endcsname
  \ifx\x\relax % plain-TeX, first loading
  \else
    \def\empty{}%
    \ifx\x\empty % LaTeX, first loading,
      % variable is initialized, but \ProvidesPackage not yet seen
    \else
      \expandafter\ifx\csname PackageInfo\endcsname\relax
        \def\x#1#2{%
          \immediate\write-1{Package #1 Info: #2.}%
        }%
      \else
        \def\x#1#2{\PackageInfo{#1}{#2, stopped}}%
      \fi
      \x{iflang}{The package is already loaded}%
      \aftergroup\endinput
    \fi
  \fi
\endgroup%
\begingroup\catcode61\catcode48\catcode32=10\relax%
  \catcode13=5 % ^^M
  \endlinechar=13 %
  \catcode35=6 % #
  \catcode39=12 % '
  \catcode40=12 % (
  \catcode41=12 % )
  \catcode44=12 % ,
  \catcode45=12 % -
  \catcode46=12 % .
  \catcode47=12 % /
  \catcode58=12 % :
  \catcode64=11 % @
  \catcode91=12 % [
  \catcode93=12 % ]
  \catcode123=1 % {
  \catcode125=2 % }
  \expandafter\ifx\csname ProvidesPackage\endcsname\relax
    \def\x#1#2#3[#4]{\endgroup
      \immediate\write-1{Package: #3 #4}%
      \xdef#1{#4}%
    }%
  \else
    \def\x#1#2[#3]{\endgroup
      #2[{#3}]%
      \ifx#1\@undefined
        \xdef#1{#3}%
      \fi
      \ifx#1\relax
        \xdef#1{#3}%
      \fi
    }%
  \fi
\expandafter\x\csname ver@iflang.sty\endcsname
\ProvidesPackage{iflang}%
  [2007/11/11 v1.5 Checks for the current language (HO)]%
\begingroup\catcode61\catcode48\catcode32=10\relax%
  \catcode13=5 % ^^M
  \endlinechar=13 %
  \catcode123=1 % {
  \catcode125=2 % }
  \catcode64=11 % @
  \def\x{\endgroup
    \expandafter\edef\csname IfLang@AtEnd\endcsname{%
      \endlinechar=\the\endlinechar\relax
      \catcode13=\the\catcode13\relax
      \catcode32=\the\catcode32\relax
      \catcode35=\the\catcode35\relax
      \catcode61=\the\catcode61\relax
      \catcode64=\the\catcode64\relax
      \catcode123=\the\catcode123\relax
      \catcode125=\the\catcode125\relax
    }%
  }%
\x\catcode61\catcode48\catcode32=10\relax%
\catcode13=5 % ^^M
\endlinechar=13 %
\catcode35=6 % #
\catcode64=11 % @
\catcode123=1 % {
\catcode125=2 % }
\def\TMP@EnsureCode#1#2{%
  \edef\IfLang@AtEnd{%
    \IfLang@AtEnd
    \catcode#1=\the\catcode#1\relax
  }%
  \catcode#1=#2\relax
}
\TMP@EnsureCode{39}{12}% '
\TMP@EnsureCode{40}{12}% (
\TMP@EnsureCode{41}{12}% )
\TMP@EnsureCode{44}{12}% ,
\TMP@EnsureCode{46}{12}% .
\TMP@EnsureCode{47}{12}% /
\TMP@EnsureCode{58}{12}% :
\TMP@EnsureCode{91}{12}% [
\TMP@EnsureCode{93}{12}% ]
\edef\IfLang@AtEnd{\IfLang@AtEnd\noexpand\endinput}
\expandafter\ifx\csname @firstoftwo\endcsname\relax
  \long\def\@firstoftwo#1#2{#1}%
\fi
\expandafter\ifx\csname @secondoftwo\endcsname\relax
  \long\def\@secondoftwo#1#2{#2}%
\fi
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname ifcsname\endcsname\relax
  \expandafter\@firstoftwo
\else
  \expandafter\@secondoftwo
\fi
{%
  \def\IfLang@IfDefined#1{%
    \expandafter\ifx\csname#1\endcsname\relax
      \expandafter\@secondoftwo
    \else
      \expandafter\@firstoftwo
    \fi
  }%
}{%
  \def\IfLang@IfDefined#1{%
    \ifnum\ifcsname#1\endcsname
            \expandafter\ifx\csname#1\endcsname\relax
              1%
            \else
              0%
            \fi
          \else
            1%
          \fi
          =0 %
      \expandafter\@firstoftwo
    \else
      \expandafter\@secondoftwo
    \fi
  }%
}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname RequirePackage\endcsname\relax
  \input infwarerr.sty\relax
  \input pdftexcmds.sty\relax
\else
  \RequirePackage{infwarerr}[2007/09/09]%
  \RequirePackage{pdftexcmds}[2007/11/11]%
\fi
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname uselanguage\endcsname\relax
  \@PackageInfoNoLine{iflang}{%
    Naming convention for patterns: babel%
  }%
  \def\IfLang@prefix{l@}%
\else
  \@PackageInfoNoLine{iflang}{%
    Naming convention for patterns: etex.src%
  }%
  \def\IfLang@prefix{lang@}%
  \let\IfLang@OrgUseLanguage\uselanguage
  \def\uselanguage#1{%
    \edef\languagename{#1}%
    \IfLang@OrgUseLanguage{#1}%
  }%
  \begingroup\expandafter\expandafter\expandafter\endgroup
  \expandafter\ifx\csname languagename\endcsname\relax
    \begingroup\expandafter\expandafter\expandafter\endgroup
    \expandafter\ifx\csname lang@USenglish\endcsname\relax
      \@PackageWarningNoLine{iflang}{%
        \string\lang@USenglish\space is missing%
      }%
    \else
      \ifnum\lang@USenglish=\language
        \def\languagename{USenglish}%
      \else
        \@PackageWarningNoLine{iflang}{%
          \string\languagename\space is not set,\MessageBreak
          current language is unknown%
        }%
      \fi
    \fi
  \fi
\fi
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname languagename\endcsname\relax
  \@PackageInfoNoLine{iflang}{%
    \string\languagename\space is not set%
  }%
\fi
\def\IfLanguagePatterns#1{%
  \ifnum\IfLang@IfDefined{\IfLang@prefix#1}{%
          \ifnum\csname\IfLang@prefix#1\endcsname=\language
            0%
          \else
            1%
          \fi
        }{1}=0 %
    \expandafter\@firstoftwo
  \else
    \expandafter\@secondoftwo
  \fi
}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname pdf@strcmp\endcsname\relax
  \expandafter\@firstoftwo
\else
  \expandafter\@secondoftwo
\fi
{%
  \def\IfLang@StrNil{\relax}%
  \def\IfLang@StrEqual#1{%
    \number\IfLang@StrEqualStart{}{}#1\IfLang@StrNil
  }%
  \def\IfLang@StrEqualStart#1#2#3{%
    \ifx#3\IfLang@StrNil
      \IfLang@StrEqualStop
    \fi
    \ifcat\noexpand#3\relax
      \IfLang@StrExpand{#1}{#2}#3%
    \fi
    \IfLang@StrEqualStart{\if#3#1}{#2\fi}%
  }%
  \def\IfLang@StrEqualStop\fi#1\IfLang@StrEqualStart#2#3#4{%
    \fi
    #2#4\relax'#313 %
  }%
  \def\IfLang@StrExpand#1#2#3\fi\IfLang@StrEqualStart#4#5{%
    \fi
    \IfLang@@StrExpand{#1}{#2}#3%
  }%
  \def\IfLang@@StrExpand#1#2#3\IfLang@StrNil{%
    \expandafter\IfLang@@@StrExpand#3\IfLang@StrNil{#1}{#2}%
  }%
  \def\IfLang@@@StrExpand#1\IfLang@StrNil#2#3{%
    \IfLang@StrEqualStart{#2}{#3}#1\IfLang@StrNil
  }%
  \def\IfLanguageName#1{%
    \ifnum\IfLang@IfDefined{languagename}{%
            \if\expandafter\IfLang@StrEqual\expandafter%
                           {\languagename}{#1}%
              0%
            \else
              1%
            \fi
          }{1}=0 %
      \expandafter\@firstoftwo
    \else
      \expandafter\@secondoftwo
    \fi
  }%
}{%
  \def\IfLanguageName#1{%
    \ifnum\IfLang@IfDefined{languagename}{%
            \pdf@strcmp{#1}{\languagename}%
          }{1}=0 %
      \expandafter\@firstoftwo
    \else
      \expandafter\@secondoftwo
    \fi
  }%
}
\begingroup\expandafter\expandafter\expandafter\endgroup
\expandafter\ifx\csname languagename\endcsname\relax
\else
  \IfLanguagePatterns{\languagename}{}{%
    \@PackageWarningNoLine{iflang}{%
      Mismatch between \string\language\space
      (patterns)\MessageBreak
      and setting of \string\languagename
    }%
  }%
\fi
\IfLang@AtEnd%
\endinput
%%
%% End of file `iflang.sty'.