summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/oberdiek/iflang.dtx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-04-11 23:02:14 +0000
committerKarl Berry <karl@freefriends.org>2007-04-11 23:02:14 +0000
commit6858df01ea6ebb32f4be0f68e4b2e03d8713f38f (patch)
treed0466192a4c6ae7f99e95d2e6e9b613ebcb73d3d /Master/texmf-dist/source/latex/oberdiek/iflang.dtx
parent59314283a9039be6cceb0bbee8600837477c9058 (diff)
oberdiek: accsupp, atenddvi, hycolor, iflang (11apr07)
git-svn-id: svn://tug.org/texlive/trunk@4149 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/oberdiek/iflang.dtx')
-rw-r--r--Master/texmf-dist/source/latex/oberdiek/iflang.dtx953
1 files changed, 953 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/oberdiek/iflang.dtx b/Master/texmf-dist/source/latex/oberdiek/iflang.dtx
new file mode 100644
index 00000000000..d946a52587c
--- /dev/null
+++ b/Master/texmf-dist/source/latex/oberdiek/iflang.dtx
@@ -0,0 +1,953 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2007 by Heiko Oberdiek <oberdiek@uni-freiburg.de>
+%
+% This work 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 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status "maintained".
+%
+% This Current Maintainer of this work is Heiko Oberdiek.
+%
+% 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.
+%
+% Distribution:
+% CTAN:macros/latex/contrib/oberdiek/iflang.dtx
+% CTAN:macros/latex/contrib/oberdiek/iflang.pdf
+%
+% Unpacking:
+% (a) If iflang.ins is present:
+% tex iflang.ins
+% (b) Without iflang.ins:
+% tex iflang.dtx
+% (c) If you insist on using LaTeX
+% latex \let\install=y\input{iflang.dtx}
+% (quote the arguments according to the demands of your shell)
+%
+% Documentation:
+% (a) If iflang.drv is present:
+% latex iflang.drv
+% (b) Without iflang.drv:
+% latex iflang.dtx; ...
+% The class ltxdoc loads the configuration file ltxdoc.cfg
+% if available. Here you can specify further options, e.g.
+% use A4 as paper format:
+% \PassOptionsToClass{a4paper}{article}
+%
+% Programm calls to get the documentation (example):
+% pdflatex iflang.dtx
+% makeindex -s gind.ist iflang.idx
+% pdflatex iflang.dtx
+% makeindex -s gind.ist iflang.idx
+% pdflatex iflang.dtx
+%
+% Installation:
+% TDS:tex/generic/oberdiek/iflang.sty
+% TDS:doc/latex/oberdiek/iflang.pdf
+% TDS:doc/latex/oberdiek/iflang-test1.tex
+% TDS:doc/latex/oberdiek/iflang-test2.tex
+% TDS:doc/latex/oberdiek/iflang-test3.tex
+% TDS:source/latex/oberdiek/iflang.dtx
+%
+%<*ignore>
+\begingroup
+ \def\x{LaTeX2e}%
+\expandafter\endgroup
+\ifcase 0\ifx\install y1\fi\expandafter
+ \ifx\csname processbatchFile\endcsname\relax\else1\fi
+ \ifx\fmtname\x\else 1\fi\relax
+\else\csname fi\endcsname
+%</ignore>
+%<*install>
+\input docstrip.tex
+\Msg{************************************************************************}
+\Msg{* Installation}
+\Msg{* Package: iflang 2007/04/12 v1.2 Language checks (HO)}
+\Msg{************************************************************************}
+
+\keepsilent
+\askforoverwritefalse
+
+\preamble
+
+This is a generated file.
+
+Copyright (C) 2007 by Heiko Oberdiek <oberdiek@uni-freiburg.de>
+
+This work 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 2005/12/01 or later.
+
+This work has the LPPL maintenance status "maintained".
+
+This Current Maintainer of this work is Heiko Oberdiek.
+
+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.
+
+\endpreamble
+
+\generate{%
+ \file{iflang.ins}{\from{iflang.dtx}{install}}%
+ \file{iflang.drv}{\from{iflang.dtx}{driver}}%
+ \usedir{tex/generic/oberdiek}%
+ \file{iflang.sty}{\from{iflang.dtx}{package}}%
+ \usedir{doc/latex/oberdiek}%
+ \file{iflang-test1.tex}{\from{iflang.dtx}{test1}}%
+ \file{iflang-test2.tex}{\from{iflang.dtx}{test2}}%
+ \file{iflang-test3.tex}{\from{iflang.dtx}{test3}}%
+}
+
+\obeyspaces
+\Msg{************************************************************************}
+\Msg{*}
+\Msg{* To finish the installation you have to move the following}
+\Msg{* file into a directory searched by TeX:}
+\Msg{*}
+\Msg{* iflang.sty}
+\Msg{*}
+\Msg{* To produce the documentation run the file `iflang.drv'}
+\Msg{* through LaTeX.}
+\Msg{*}
+\Msg{* Happy TeXing!}
+\Msg{*}
+\Msg{************************************************************************}
+
+\endbatchfile
+%</install>
+%<*ignore>
+\fi
+%</ignore>
+%<*driver>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesFile{iflang.drv}%
+ [2007/04/12 v1.2 Language checks (HO)]%
+\documentclass{ltxdoc}
+\usepackage{holtxdoc}
+\begin{document}
+ \DocInput{iflang.dtx}%
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{676}
+%
+% \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 \~}
+%
+% \GetFileInfo{iflang.drv}
+%
+% \title{The \xpackage{iflang} package}
+% \date{2007/04/12 v1.2}
+% \author{Heiko Oberdiek\\\xemail{oberdiek@uni-freiburg.de}}
+%
+% \maketitle
+%
+% \begin{abstract}
+% This package provides expandible checks for the current language
+% based on macro \cs{languagename} or hyphenation patterns.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section{Documentation}
+%
+% Package \xpackage{babel} defines \cs{iflanguagename}. As first
+% argument it takes a language name and executes the second or
+% third argument depending on the current language. This
+% language test is based on hypenation patterns. However, it
+% is possible that different languages or dialects share the
+% same patterns. In such cases \cs{iflanguagename} fails.
+%
+% However, package \xpackage{babel} and some other packages
+% such as \xpackage{german} or \xpackage{ngerman} store
+% the language name in the macro \cs{languagename} if
+% \cs{selectlanguage} is called.
+%
+% \begin{declcs}{IfLanguageName} \M{lang} \M{then} \M{else}
+% \end{declcs}
+% Makro \cs{IfLanguageName} compares language \meta{lang} with
+% the current setting of macro \cs{languagename}. If both
+% contains the same name then the \meta{then} part is called,
+% otherwise the \meta{else} part.
+%
+% The macro is expandable. Thus it can be safely used inside \cs{edef}
+% or \cs{csname}. If case of errors like an undefined \cs{languagename}
+% the \meta{else} part is executed.
+%
+% Note: Macro \cs{IfLanguageName} relies on the fact, that
+% \cs{languagename} is set correctly:
+% \begin{description}
+% \item[Package \xpackage{babel}:]
+% \mbox{}\\
+% Full support of \cs{languagename} in its language switching commands.
+% \item[Format based on \xpackage{babel} (\xfile{language.dat}):]
+% \mbox{}\\
+% If package \xpackage{babel} is not used (or not yet loaded),
+% then \xpackage{babel}'s
+% \xfile{hyphen.cfg} has set \cs{languagename} to the last
+% language in \xfile{language.dat}, but \cs{language} (current
+% patterns) is zero and points to the first language.
+% Thus the value of \cs{languagename} is basically garbage.
+% Package \xpackage{iflang} warns if \cs{languagename} and
+% \cs{language} do not fit.
+% This can be fixed by loading package \xpackage{babel} previously.
+% \item[Format based on \eTeX's \xfile{etex.src} (\xfile{language.def}):]
+% \mbox{}\\
+% Unhappily it does not support
+% \cs{languagename}. Thus this package hooks into \cs{uselanguage}
+% to get \cs{languagename} defined and updated there.
+% At package loading time the changed \cs{uselanguage} has not
+% been called yet. Thus package \xpackage{iflang} tries
+% |USenglish|. This is the definite default language of \xfile{etex.src}.
+% If the current patterns suit this default language, an
+% undefined \cs{languagename} is set to this language. Otherwise
+% a \cs{languagename} remains undefined and a warning is given.
+% \end{description}
+%
+% \begin{declcs}{IfLanguagePatterns} \M{lang} \M{then} \M{else}
+% \end{declcs}
+% This macro behaves similar to \cs{IfLanguageName}. But the
+% language test is based on the current pattern in force (\cs{language}).
+% Also this macro is expandable, in case of errors the \meta{else} part
+% is called.
+%
+% The following naming convention for the pattern are supported:
+% \begin{description}
+% \item[\xpackage{babel}/\xfile{language.dat}]:
+% \cs{l@}\meta{language}
+% \item[\xpackage{etex.src}/\xfile{language.def}]:
+% \cs{lang@}\meta{language}
+% \end{description}
+% Package \xpackage{iflang} looks for \cs{uselanguage} (defined in
+% \xfile{etex.src}) to find out the naming convention in use.
+%
+% \StopEventually{
+% }
+%
+% \section{Implementation}
+%
+% \begin{macrocode}
+%<*package>
+% \end{macrocode}
+%
+% \subsection{Reload check and package identification}
+% Reload check, especially if the package is not used with \LaTeX.
+% \begin{macrocode}
+\begingroup
+ \expandafter\let\expandafter\x\csname ver@iflang.sty\endcsname
+ \ifcase 0%
+ \ifx\x\relax % plain
+ \else
+ \ifx\x\empty % LaTeX
+ \else
+ 1%
+ \fi
+ \fi
+ \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}%
+ \endgroup
+ \expandafter\endinput
+ \fi
+\endgroup
+% \end{macrocode}
+% Package identification:
+% \begin{macrocode}
+\begingroup
+ \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\relax
+ \xdef#1{#3}%
+ \fi
+ }%
+ \fi
+\expandafter\x\csname ver@iflang.sty\endcsname
+\ProvidesPackage{iflang}%
+ [2007/04/12 v1.2 Language checks (HO)]
+% \end{macrocode}
+%
+% \begin{macrocode}
+\expandafter\edef\csname IfLang@endinput\endcsname{%
+ \catcode39 \the\catcode39\relax % '
+ \catcode40 \the\catcode40\relax % (
+ \catcode41 \the\catcode41\relax % )
+ \catcode61 \the\catcode61\relax % =
+ \catcode64 \the\catcode64\relax % @
+ \noexpand\endinput
+}
+\catcode39 12\relax % '
+\catcode40 12\relax % (
+\catcode41 12\relax % )
+\catcode61 12\relax % =
+\catcode64 11\relax % @
+% \end{macrocode}
+%
+% \subsection{Tools}
+%
+% \subsubsection{Provide some basic macros of \LaTeX}
+%
+% \begin{macro}{\@firstoftwo}
+% \begin{macrocode}
+\expandafter\ifx\csname @firstoftwo\endcsname\relax
+ \long\def\@firstoftwo#1#2{#1}%
+\fi
+% \end{macrocode}
+% \end{macro}
+% \begin{macro}{\@secondoftwo}
+% \begin{macrocode}
+\expandafter\ifx\csname @secondoftwo\endcsname\relax
+ \long\def\@secondoftwo#1#2{#2}%
+\fi
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Expandible existence check for macros}
+%
+% \begin{macro}{\IfLang@IfDefined}
+% \begin{macrocode}
+\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
+ }%
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Macros for messages}
+%
+% \begin{macrocode}
+\begingroup
+\ifnum\expandafter\ifx\csname PackageInfo\endcsname\relax
+ 1%
+ \fi
+ \expandafter\ifx\csname PackageWarningNoLine\endcsname\relax
+ 1%
+ \fi
+ 0=0 %
+ \endgroup
+ \expandafter\@secondoftwo
+\else
+ \endgroup
+ \expandafter\@firstoftwo
+\fi
+{%
+ \def\IfLang@GenericMessage#1#2#3{%
+ \begingroup
+ \newlinechar=10 %
+ \def\@spaces{\space\space\space\space}%
+ \ifcase#1 %
+ \def\MessageBreak{%
+ ^^J(iflang) \@spaces\@spaces\@spaces\@spaces
+ }%
+ \or
+ \def\MessageBreak{%
+ ^^J(iflang)\@spaces\@spaces\@spaces\@spaces
+ }%
+ \or
+ \def\MessageBreak{%
+ ^^J(iflang) \space\@spaces\@spaces\@spaces
+ }%
+ \fi
+ \expandafter\ifx\csname if#3\expandafter\endcsname
+ \csname iftrue\endcsname
+ \def\on@line{ on input line \the\inputlineno}%
+ \else
+ \def\on@line{}%
+ \fi
+ \immediate\write\ifcase#1 -1\or 16\fi{%
+ ^^JPackage iflang %
+ \ifcase#1 Info\or Warning\or Error\fi
+ : #2\on@line.^^J%
+ }%
+ \endgroup
+ }%
+ \def\IfLang@Info#1{%
+ \IfLang@GenericMessage{0}{#1}{false}%
+ }%
+ \def\IfLang@Warning#1{%
+ \IfLang@GenericMessage{1}{#1}{false}%
+ }%
+}{%
+ \def\IfLang@Info#1{%
+ \begingroup
+ \def\on@line{}%
+ \PackageInfo{iflang}{#1}%
+ \endgroup
+ }%
+ \def\IfLang@Warning#1{%
+ \PackageWarningNoLine{iflang}{#1}%
+ }%
+}
+% \end{macrocode}
+%
+% \subsubsection{Support for \xfile{etex.src}}
+%
+% \begin{macro}{\IfLang@prefix}
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname uselanguage\endcsname\relax
+ \IfLang@Info{Naming convention for patterns: babel}%
+ \def\IfLang@prefix{l@}%
+\else
+ \IfLang@Info{Naming convention for patterns: etex.src}%
+ \def\IfLang@prefix{lang@}%
+ \let\IfLang@OrgUseLanguage\uselanguage
+ \def\uselanguage#1{%
+ \edef\languagename{#1}%
+ \IfLang@OrgUseLanguage{#1}%
+ }%
+% \end{macrocode}
+% \end{macro}
+% The first \cs{uselanguage} that is executed as last
+% line in \xfile{language.def} cannot patched this way.
+% However, \xfile{language.def} is very strict. It forces
+% the first added and used language to be |USenglish|.
+% Thus, if \cs{languagename} is not defined, we can
+% quite safely assume |USenglish|. As additional
+% safety precaution the actual used patterns are checked.
+% \begin{macrocode}
+ \begingroup\expandafter\expandafter\expandafter\endgroup
+ \expandafter\ifx\csname languagename\endcsname\relax
+ \begingroup\expandafter\expandafter\expandafter\endgroup
+ \expandafter\ifx\csname lang@USenglish\endcsname\relax
+ \IfLang@Warning{\string\lang@USenglish\space is missing}%
+ \else
+ \ifnum\lang@USenglish=\language
+ \def\languagename{USenglish}%
+ \else
+ \IfLang@Warning{%
+ \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
+ \IfLang@Info{\string\languagename\space is not set}%
+\fi
+% \end{macrocode}
+%
+% \subsection{\cs{IfLanguagePatterns}}
+%
+% \begin{macro}{\IfLanguagePatterns}
+% \begin{macrocode}
+\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
+}
+% \end{macrocode}
+% \end{macro}
+%
+% \subsection{\cs{IfLanguageName}}
+%
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname pdfstrcmp\endcsname\relax
+ \expandafter\@firstoftwo
+\else
+ \expandafter\@secondoftwo
+\fi
+{%
+% \end{macrocode}
+% We do not have \cs{pdfstrcmp}. Thus we must define
+% our own expandable string comparison. The following
+% implementation is based on a \TeX\ pearl from David Kastrup, presented
+% at the conference Bacho\TeX~2005:
+% \url{http://www-stary.gust.org.pl/pearls/2005/david-kastrup/bachotex2005-david-kastrup-pearl1.pdf}
+%
+% The orignal code allows macros inside the second string.
+% Because also \cs{languagename} might consists of further
+% macros, we need a variant that allows macros in the first
+% string, too.
+% \begin{macrocode}
+ \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
+ }%
+% \end{macrocode}
+% \begin{macro}{\IfLanguageName}
+% \begin{macrocode}
+ \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
+ }%
+% \end{macrocode}
+% \end{macro}
+% \begin{macrocode}
+}{%
+% \end{macrocode}
+% \begin{macro}{\IfLanguageName}
+% \begin{macrocode}
+ \def\IfLanguageName#1{%
+ \ifnum\IfLang@IfDefined{languagename}{%
+ \pdfstrcmp{#1}{\languagename}%
+ }{1}=0 %
+ \expandafter\@firstoftwo
+ \else
+ \expandafter\@secondoftwo
+ \fi
+ }%
+% \end{macrocode}
+% \end{macro}
+% \begin{macrocode}
+}
+% \end{macrocode}
+%
+% \subsection{Check plausibility of \cs{languagename}}
+%
+% \begin{macrocode}
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname languagename\endcsname\relax
+\else
+ \IfLanguagePatterns{\languagename}{}{%
+ \IfLang@Warning{%
+ Mismatch between \string\language\space
+ (patterns)\MessageBreak
+ and setting of \string\languagename
+ }%
+ }%
+\fi
+% \end{macrocode}
+%
+% \begin{macrocode}
+\IfLang@endinput
+%</package>
+% \end{macrocode}
+%
+% \section{Test}
+%
+% \subsection{Test with \LaTeX}
+%
+% \begin{macrocode}
+%<*test1>
+% \end{macrocode}
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\nofiles
+\documentclass{minimal}
+\usepackage{qstest}
+\IncludeTests{*}
+\LogTests{lgout}{*}{*}
+\usepackage[english,naustrian,ngerman]{babel}
+\usepackage{iflang}
+\begin{document}
+\begin{qstest}{IfLanguagePatterns}{language, pattern}
+ \def\test#1#2{%
+ \Expect*{\IfLanguagePatterns{#1}{true}{false}}{#2}%
+ }%
+ \test{ngerman}{true}%
+ \test{naustrian}{true}%
+ \test{english}{false}%
+ \test{foobar}{false}%
+\end{qstest}
+\begin{qstest}{IfLanguageName}{language, name}
+ \def\test#1#2{%
+ \Expect*{\IfLanguageName{#1}{true}{false}}{#2}%
+ }%
+ \test{ngerman}{true}%
+ \test{naustrian}{false}%
+ \selectlanguage{naustrian}%
+ \test{ngerman}{false}%
+ \test{naustrian}{true}%
+ \test{foobar}{false}%
+\end{qstest}
+\begin{qstest}{IfDefined}{defined}
+ \makeatletter
+ \let\foobar\relax
+ \Expect*{\IfLang@IfDefined{foobar}{true}{false}}{false}%
+ \Expect*{\ifx\foobar\relax true\else false\fi}{true}%
+ \let\foobar\UNDEFINED
+ \Expect*{\IfLang@IfDefined{foobar}{true}{false}}{false}%
+ \Expect*{\ifx\foobar\relax true\else false\fi}{false}%
+ \Expect*{\ifx\foobar\UNDEFINED true\else false\fi}{true}%
+\end{qstest}
+\end{document}
+% \end{macrocode}
+% \begin{macrocode}
+%</test1>
+% \end{macrocode}
+%
+% \subsection{Test with \plainTeX\ and \eTeX}
+%
+% \begin{macrocode}
+%<*test2>
+% \end{macrocode}
+% \begin{macrocode}
+%% Format `etex' based on `language.def'
+\input iflang.sty
+\catcode64=12
+
+\def\TestGeneric#1#2#3{%
+ \begingroup
+ \edef\x{#1{#2}{true}{false}}%
+ \edef\y{#3}%
+ \ifx\x\y
+ \else
+ \errmessage{Failed test: \string#1{#2} <> #3}%
+ \fi
+ \endgroup
+}
+\def\TestPatterns{\TestGeneric\IfLanguagePatterns}
+\def\TestName{\TestGeneric\IfLanguageName}
+
+\TestPatterns{USenglish}{true}
+\TestPatterns{ngerman}{false}
+
+\TestName{USenglish}{true}
+\TestName{ngerman}{false}
+
+\uselanguage{ngerman}
+
+\TestPatterns{USenglish}{false}
+\TestPatterns{ngerman}{true}
+
+\TestName{USenglish}{false}
+\TestName{ngerman}{true}
+
+\csname @@end\endcsname
+\end
+% \end{macrocode}
+% \begin{macrocode}
+%</test2>
+% \end{macrocode}
+%
+% \subsection{Test with \plainTeX\ and without \eTeX/\pdfTeX}
+%
+% \begin{macrocode}
+%<*test3>
+% \end{macrocode}
+% \begin{macrocode}
+%% Format `tex' (vanilla plain-TeX)
+\let\ifcsname\UNDEFINED
+\let\pdfstrcmp\UNDEFINED
+\input iflang.sty
+\catcode64=11
+
+\def\TestDefined#1{%
+ \IfLang@IfDefined{foobar}{}{}%
+ \ifx\foobar#1%
+ \else
+ \errmessage{Failed test: \string\foobar <> \string#1}%
+ \fi
+}
+\let\foobar\relax
+\TestDefined\relax
+\let\foobar\UNDEFINED
+\TestDefined\relax
+
+\def\strip@prefix#1>{}
+\def\@onelevel@sanitize#1{%
+ \edef#1{\expandafter\strip@prefix\meaning#1}%
+}
+\def\TestCompare#1#2#3{%
+ \begingroup
+ \edef\x{%
+ \if\IfLang@StrEqual{#1}{#2}%
+ true%
+ \else
+ false%
+ \fi
+ }%
+ \def\expect{#3}%
+ \ifx\x\expect
+ \else
+ \def\a{#1}%
+ \@onelevel@sanitize\a
+ \def\b{#2}%
+ \@onelevel@sanitize\b
+ \errmessage{Failed test: `\a'='\b' <> \expect}%
+ \fi
+ \endgroup
+}
+\TestCompare{junk}{junk}{true}
+\TestCompare{}{}{true}
+\TestCompare{a}{b}{false}
+\TestCompare{aa}{bb}{false}
+\def\a{ax}
+\def\b{bx}
+\def\c{\a\b}
+\def\d{\c\b}
+\def\exch#1#2{#2#1}
+\def\gobble#1{}
+\TestCompare{\gobble a}{}{true}
+\TestCompare{}{\gobble a}{true}
+\TestCompare{a\exch xyb}{ayxb}{true}
+\TestCompare{\c}{\c}{true}
+\TestCompare{\d}{\c\b}{true}
+
+\csname @@end\endcsname
+\end
+% \end{macrocode}
+% \begin{macrocode}
+%</test3>
+% \end{macrocode}
+% \section{Installation}
+%
+% \subsection{Download}
+%
+% \paragraph{Package.} This package is available on
+% CTAN\footnote{\url{ftp://ftp.ctan.org/tex-archive/}}:
+% \begin{description}
+% \item[\CTAN{macros/latex/contrib/oberdiek/iflang.dtx}] The source file.
+% \item[\CTAN{macros/latex/contrib/oberdiek/iflang.pdf}] Documentation.
+% \end{description}
+%
+%
+% \paragraph{Bundle.} All the packages of the bundle `oberdiek'
+% are also available in a TDS compliant ZIP archive. There
+% the packages are already unpacked and the documentation files
+% are generated. The files and directories obey the TDS standard.
+% \begin{description}
+% \item[\CTAN{macros/latex/contrib/oberdiek/oberdiek-tds.zip}]
+% \end{description}
+%
+% \subsection{Bundle installation}
+%
+% \paragraph{Unpacking.} Unpack the \xfile{oberdiek-tds.zip} in the
+% TDS tree (also known as \xfile{texmf} tree) of your choice.
+% Example (linux):
+% \begin{quote}
+% |unzip oberdiek-tds.zip -d ~/texmf|
+% \end{quote}
+%
+% \paragraph{Script installation.}
+% Check the directory \xfile{TDS:scripts/oberdiek/} for
+% scripts that need further installation steps.
+% Package \xpackage{attachfile2} comes with the Perl script
+% \xfile{pdfatfi.pl} that should be installed in such a way
+% that it can be called as \texttt{pdfatfi}.
+% Example (linux):
+% \begin{quote}
+% |chmod +x scripts/oberdiek/pdfatfi.pl|\\
+% |cp scripts/oberdiek/pdfatfi.pl /usr/local/bin/|
+% \end{quote}
+%
+% \subsection{Package installation}
+%
+% \paragraph{Unpacking.} The \xfile{.dtx} file is a self-extracting
+% \docstrip\ archive. The files are extracted by running the
+% \xfile{.dtx} through \plainTeX:
+% \begin{quote}
+% \verb|tex iflang.dtx|
+% \end{quote}
+%
+% \paragraph{TDS.} Now the different files must be moved into
+% the different directories in your installation TDS tree
+% (also known as \xfile{texmf} tree):
+% \begin{quote}
+% \sbox0{^^A
+% \begin{tabular}{@{}>{\ttfamily}l@{$\quad\rightarrow\quad$}>{\ttfamily}l@{}}
+% iflang.sty & tex/generic/oberdiek/iflang.sty\\
+% iflang.pdf & doc/latex/oberdiek/iflang.pdf\\
+% iflang-test1.tex & doc/latex/oberdiek/iflang-test1.tex\\
+% iflang-test2.tex & doc/latex/oberdiek/iflang-test2.tex\\
+% iflang-test3.tex & doc/latex/oberdiek/iflang-test3.tex\\
+% iflang.dtx & source/latex/oberdiek/iflang.dtx\\
+% \end{tabular}^^A
+% }%
+% \ifdim\wd0>\linewidth
+% \mbox{}\nobreak\hskip0pt minus\leftmargin
+% \usebox0
+% \nobreak\hskip0pt minus\rightmargin
+% \else
+% \usebox0
+% \fi
+% \end{quote}
+% If you have a \xfile{docstrip.cfg} that configures and enables \docstrip's
+% TDS installing feature, then some files can already be in the right
+% place, see the documentation of \docstrip.
+%
+% \subsection{Refresh file name databases}
+%
+% If your \TeX~distribution
+% (\teTeX, \mikTeX, \dots) relies on file name databases, you must refresh
+% these. For example, \teTeX\ users run \verb|texhash| or
+% \verb|mktexlsr|.
+%
+% \subsection{Some details for the interested}
+%
+% \paragraph{Attached source.}
+%
+% The PDF documentation on CTAN also includes the
+% \xfile{.dtx} source file. It can be extracted by
+% AcrobatReader 6 or higher. Another option is \textsf{pdftk},
+% e.g. unpack the file into the current directory:
+% \begin{quote}
+% \verb|pdftk iflang.pdf unpack_files output .|
+% \end{quote}
+%
+% \paragraph{Unpacking with \LaTeX.}
+% The \xfile{.dtx} chooses its action depending on the format:
+% \begin{description}
+% \item[\plainTeX:] Run \docstrip\ and extract the files.
+% \item[\LaTeX:] Generate the documentation.
+% \end{description}
+% If you insist on using \LaTeX\ for \docstrip\ (really,
+% \docstrip\ does not need \LaTeX), then inform the autodetect routine
+% about your intention:
+% \begin{quote}
+% \verb|latex \let\install=y\input{iflang.dtx}|
+% \end{quote}
+% Do not forget to quote the argument according to the demands
+% of your shell.
+%
+% \paragraph{Generating the documentation.}
+% You can use both the \xfile{.dtx} or the \xfile{.drv} to generate
+% the documentation. The process can be configured by the
+% configuration file \xfile{ltxdoc.cfg}. For instance, put this
+% line into this file, if you want to have A4 as paper format:
+% \begin{quote}
+% \verb|\PassOptionsToClass{a4paper}{article}|
+% \end{quote}
+% An example follows how to generate the
+% documentation with pdf\LaTeX:
+% \begin{quote}
+%\begin{verbatim}
+%pdflatex iflang.dtx
+%makeindex -s gind.ist iflang.idx
+%pdflatex iflang.dtx
+%makeindex -s gind.ist iflang.idx
+%pdflatex iflang.dtx
+%\end{verbatim}
+% \end{quote}
+%
+% \section{Acknowledgement}
+% I wish to thank:
+% \begin{description}
+% \item[Markus Kohm] Useful hints for version 1.2.
+% \end{description}
+%
+% \begin{History}
+% \begin{Version}{2007/04/10 v1.0}
+% \item
+% First public version.
+% \end{Version}
+% \begin{Version}{2007/04/11 v1.1}
+% \item
+% Line ends sanitized.
+% \end{Version}
+% \begin{Version}{2007/04/12 v1.2}
+% \item
+% Initialization of \cs{languagename} in case of \xfile{etex.src}.
+% \item
+% Some sanity tests added.
+% \item
+% Documentation improved.
+% \end{Version}
+% \end{History}
+%
+% \PrintIndex
+%
+% \Finale
+\endinput