summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/datatool
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-08-24 18:43:05 +0000
committerKarl Berry <karl@freefriends.org>2007-08-24 18:43:05 +0000
commitfe752bd7396fcc8c6fb65128bcd481a5e326e7cd (patch)
tree216701b87bcd27c641a8a57b4cbd7e2c9dd815ae /Master/texmf-dist/source/latex/datatool
parentfabf181c6946e1e5ea931f003df726c9c1c553b8 (diff)
datatool 1.01 (20aug07)
git-svn-id: svn://tug.org/texlive/trunk@4804 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/datatool')
-rw-r--r--Master/texmf-dist/source/latex/datatool/datatool.dtx19616
-rw-r--r--Master/texmf-dist/source/latex/datatool/datatool.ins40
2 files changed, 19656 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/latex/datatool/datatool.dtx b/Master/texmf-dist/source/latex/datatool/datatool.dtx
new file mode 100644
index 00000000000..f2afe8ec4b3
--- /dev/null
+++ b/Master/texmf-dist/source/latex/datatool/datatool.dtx
@@ -0,0 +1,19616 @@
+%\iffalse
+% datatool.dtx generated using makedtx version 0.94b (c) Nicola Talbot
+% Command line args:
+% -macrocode "databib.bst"
+% -src "datatool.sty=>datatool.sty"
+% -src "datapie.sty=>datapie.sty"
+% -src "dataplot.sty=>dataplot.sty"
+% -src "databar.sty=>databar.sty"
+% -src "databib.sty=>databib.sty"
+% -src "databib.bst=>databib.bst"
+% -author "Nicola Talbot"
+% -dir "source"
+% -setambles ".*\.bst=>\nopreamble\usepreamble\defaultpreamble\nopostamble"
+% -comment "databib.bst"
+% -doc "manual.tex"
+% -codetitle "datatool.sty"
+% datatool
+% Created on 2007/8/19 14:27
+%\fi
+%\iffalse
+%<*package>
+%% \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 \~}
+%</package>
+%\fi
+% \iffalse
+% Doc-Source file to use with LaTeX2e
+% Copyright (C) 2007 Nicola Talbot, all rights reserved.
+% \fi
+% \iffalse
+%<*driver>
+\documentclass[a4paper]{ltxdoc}
+\usepackage{ifthen}
+\usepackage[verbose=false]{datatool}
+\usepackage{datapie,databar,databib}
+\usepackage{textcomp}
+\usepackage{graphicx}
+\usepackage{colortbl}
+\usepackage[colorlinks,
+ bookmarks,
+ hyperindex=false,
+ pdfauthor={Nicola L.C. Talbot},
+ pdftitle={datatool: Databases and data manipulation},
+ pdfkeywords={LaTeX,package,database,data,chart,plot}]{hyperref}
+\usetikzlibrary{snakes}
+
+ %hyperindex conflicts with doc
+ %(end up with |usage|hyperpage in indexentry)
+ %This unfortunately means that the changes section doesn't
+ %have active links, but at least it will keep makeindex happy.
+
+\renewcommand{\usage}[1]{\textit{\hyperpage{#1}}}
+\renewcommand{\main}[1]{\hyperpage{#1}}
+\newcommand{\see}[2]{\emph{see} #1}
+\makeatletter
+\def\index@prologue{\section*{Index}}
+
+ % commands are too wide for a 3 column index
+ \def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
+ \columnseprule \z@ \columnsep 35\p@
+ \twocolumn[\index@prologue]%
+ \IndexParms \let\item\@idxitem \ignorespaces}
+ \def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
+\makeatother
+\RecordChanges
+\PageIndex
+\CheckSum{13202}
+
+\newcommand*{\sty}[1]{\textsf{#1}}
+\newcommand*{\env}[1]{\textsf{#1}}
+\newcommand*{\ext}[1]{\texttt{#1}}
+\definecolor{defbackground}{rgb}{0.8,1,1}
+
+\makeatletter
+\newcommand*{\setting}[2]{\textsf{#2}\relax
+\@for\thiscmd:=#1\do{%
+\edef\doindex{\noexpand\index
+{\thiscmd\space settings=\noexpand\cs{\thiscmd} settings>#2=\noexpand
+\textsf{#2}|hyperpage}}\doindex
+}}
+\makeatother
+
+\newcommand*{\counterfmt}[1]{\texttt{#1}\index
+{#1 counter=\texttt{#1} counter|hyperpage}}
+
+\newcommand*{\ics}[1]{\cs{#1}\SpecialMainIndex{#1}}
+
+\newsavebox\defsbox
+\newlength\defwidth
+\newenvironment{definition}{%
+\setlength{\fboxsep}{4pt}\setlength{\fboxrule}{1.25pt}%
+\begin{lrbox}{\defsbox}%
+\setlength\defwidth\linewidth
+\addtolength\defwidth{-2\fboxrule}%
+\addtolength\defwidth{-2\fboxsep}%
+\begin{minipage}{\defwidth}\flushleft
+}{%
+\end{minipage}
+\end{lrbox}%
+\vskip10pt
+\noindent
+\fcolorbox{black}{defbackground}{\usebox\defsbox}%
+\vskip10pt
+}
+
+\newlength\tmplength
+\newcommand{\importantpar}{\relax
+\settowidth{\hangindent}{\bfseries\Huge$\bigtriangleup$\space}\relax
+\settoheight{\tmplength}{\bfseries\Huge$\bigtriangleup$}\relax
+\addtolength{\tmplength}{-0.5\baselineskip}\relax
+\hskip-\hangindent
+\smash{\raisebox{-\tmplength}{\bfseries
+\raisebox{3pt}{\large!}$\!$\makebox[0pt]{\Huge$\bigtriangleup$}\relax
+}}\relax
+\hskip0.5\hangindent
+\hangafter=-2\relax
+}
+
+\newcommand*{\pkgopt}[2][datatool]{\textsf{#2}\index
+{#1 package options=\textsf{#1} package options>#2=\textsf{#2}|hyperpage}}
+
+\newcounter{example}
+\newcommand*{\examplename}{example}
+\makeatletter
+\newenvironment{example}[2]{\refstepcounter{example}\label{#2}%
+\par\vskip10pt\noindent
+\textbf{\large Example \theexample\ (#1)}%
+\addcontentsline{loe}{section}{\protect\numberline{\theexample}#1}%
+\nopagebreak\par\vskip10pt\nopagebreak
+}%
+{\begin{center}\rule{2in}{1pt}\end{center}}
+
+\newcommand*{\listofexamples}{\section*{List of Examples}%
+\@starttoc{loe}}
+\makeatother
+
+ %bibliography database
+\DTLnewdb{docbib}
+\DTLnewrow{docbib}
+\DTLnewdbentry{docbib}{CiteKey}{Goossens}
+\DTLnewdbentry{docbib}{EntryType}{book}
+\DTLnewdbentry{docbib}{Author}{{}{Goossens}{}{Michel},{}{Mittelbach}{}{Frank},{}{Samarin}{}{Alexander}}
+\DTLnewdbentry{docbib}{Title}{The \LaTeX\ Companion}
+\DTLnewdbentry{docbib}{Publisher}{Addison-Wesley}
+\DTLnewdbentry{docbib}{Year}{1994}
+
+
+\begin{document}
+\DocInput{datatool.dtx}
+\end{document}
+%</driver>
+%\fi
+%\MakeShortVerb{"}
+%\DeleteShortVerb{\|}
+%
+% \title{datatool v 1.01: Databases and data manipulation}
+% \author{Nicola L.C. Talbot\\[10pt]
+%School of Computing Sciences\\
+%University of East Anglia\\
+%Norwich. Norfolk\\
+%NR4 7TJ. United Kingdom.\\
+%\url{http://theoval.cmp.uea.ac.uk/~nlct/}}
+%
+% \date{17th August 2007}
+% \maketitle
+%\tableofcontents
+%\listofexamples
+%\listoffigures
+%\listoftables
+%
+% \section{Introduction}
+%
+% \changes{1.0}{2007 July 22}{Initial version}
+%The \sty{datatool} bundle consists of the following
+%packages: \sty{datatool}, \sty{datapie}, \sty{dataplot},
+%\sty{databar} and \sty{databib}.
+%
+%The \sty{datatool} package can be used to:
+%\begin{itemize}
+%\item Create or load databases.
+%\item Sort rows of a database (either numerically or alphabetically,
+%ascending or descending.)
+%\item Perform repetitive operations on each row of a database
+%(e.g.\ mail merging.) Conditions may be imposed to exclude rows.
+%\item Determine whether an argument is an integer, a real number,
+%currency or a string. (Scientific notation is currently not
+%supported.) Locale dependent number settings are supported (such
+%as a comma as a decimal character and a full stop as a number
+%group character.)
+%\item Convert locale dependent numbers/currency to the decimal
+%format required by the \sty{fp} package, enabling fixed point
+%arithmetic to be performed on elements of the database.
+%\item Names can be converted to initials.
+%\item Strings can be tested to determine if they are all
+%upper or lower case.
+%\item String comparisons (both case sensitive and case insensitive)
+%can be performed.
+%\end{itemize}
+%
+%The \sty{datapie} package can be used to convert a database into
+%a pie chart:
+%\begin{itemize}
+%\item Segments can be separated from the rest of the chart to make
+%them stand out.
+%\item Colour/grey scale options.
+%\item Predefined segment colours can be changed.
+%\item Hooks provided to add extra information to the chart
+%\end{itemize}
+%
+%The \sty{databar} package can be used to convert a database into
+%a bar chart:
+%\begin{itemize}
+%\item Colour/grey scale options.
+%\item Predefined bar colours can be changed.
+%\item Hooks provided to add extra information to the chart
+%\end{itemize}
+%
+%(The \sty{datapie} and \sty{databar} packages do not support the
+%creation of 3D charts, and I have no plans to implement them at any
+%later date. The use of 3D charts should be discouraged. They may look
+%pretty, but the purpose of a chart is to be informative. Three
+%dimensional graphics cause distortion, which can result in misleading
+%impressions.)
+%
+%The \sty{dataplot} package can be used to convert a database into
+%a two dimensional plot using markers and/or lines. Three dimensional
+%plots are currently not supported.
+%
+%The \sty{databib} package can be used to convert a \BibTeX\ database
+%into a \sty{datatool} database.
+%
+%\section{Data Types}
+%\label{sec:datatypes}
+%
+%The \sty{datatool} package recognises four data types: integers,
+%real numbers, currency and strings.
+%
+%\begin{description}
+%\item[Integers] An integer is a sequence of digits, optionally
+%groups of three digits may be separated by the number group character.
+%The default number group character is a comma (,) but may be
+%changed using \cs{DTLsetnumberchars} (see below.)
+%
+%\item[Real Numbers] A real number is an integer followed by the
+%decimal character followed by one or more digits. The decimal
+%character is a full stop (.) by default. The number group
+%and decimal characters may be changed using
+%\DescribeMacro{\DTLsetnumberchars}
+%\begin{definition}
+%\cs{DTLsetnumberchars}\marg{number group character}\marg{decimal character}
+%\end{definition}
+%Note that scientific notation is not supported, and the number group
+%character may not be used after the decimal character.
+%
+%\item[Currency] A currency symbol followed by an integer or
+%real number is considered to be the currency data type.
+%There are two predefined currency symbols, "\$" and \cs{pounds}.
+%In addition, if any of the following commands are defined at the
+%start of the document, they are also considered to be a currency
+%symbol: \cs{texteuro}, \cs{textdollar}, \cs{textstirling},
+%\cs{textyen}, \cs{textwon}, \cs{textcurrency}, \cs{euro}
+%and \cs{yen}. Additional currency symbols can be defined using
+%\DescribeMacro{\DTLnewcurrencysymbol}
+%\begin{definition}
+%\cs{DTLnewcurrencysymbol}\marg{symbol}
+%\end{definition}
+%
+%\item[Strings] Anything that doesn't belong to the above three
+%types is considered to be a string.
+%
+%\end{description}
+%
+%\subsection{Conditionals}
+%\label{sec:ifconditions}
+%
+%The following conditionals are provided by the \sty{datatool}
+%package:
+%
+%\DescribeMacro{\DTLifint}
+%\begin{definition}
+%\cs{DTLifint}\marg{text}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{text} is an integer then do \meta{true part}, otherwise
+%do \meta{false part}. For example
+%\begin{verbatim}
+%\DTLifint{2536}{integer}{not an integer}
+%\end{verbatim}
+%produces:
+%\DTLifint{2536}{integer}{not an integer}.
+%
+%The number group character may appear in the number, for example:
+%\begin{verbatim}
+%\DTLifint{2,536}{integer}{not an integer}
+%\end{verbatim}
+%produces:
+%\DTLifint{2,536}{integer}{not an integer}.
+%However, the number group character may only be followed by a group
+%of three digits. For example:
+%\begin{verbatim}
+%\DTLifint{2,5,3,6}{integer}{not an integer}
+%\end{verbatim}
+%produces:
+%\DTLifint{2,5,3,6}{integer}{not an integer}.
+%The number group character may be changed. For example:
+%\begin{verbatim}
+%\DTLsetnumberchars{.}{,}%
+%\DTLifint{2,536}{integer}{not an integer}
+%\end{verbatim}
+%this now produces:
+%\DTLsetnumberchars{.}{,}\relax
+%\DTLifint{2,536}{integer}{not an integer}, since 2,536 is now
+%a real number.
+%
+%Note that nothing else can be appended or prepended to the
+%number. For example:
+%\begin{verbatim}
+%\DTLsetnumberchars{,}{.}%
+%\DTLifint{2,536m}{integer}{not an integer}
+%\end{verbatim}
+%produces:
+%\DTLsetnumberchars{,}{.}\relax
+%\DTLifint{2,536m}{integer}{not an integer}.
+%
+%\DescribeMacro{\DTLifreal}
+%\begin{definition}
+%\cs{DTLifreal}\marg{text}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{text} is a real number then do \meta{true part}, otherwise
+%do \meta{false part}. For example
+%\begin{verbatim}
+%\DTLifreal{1000.0}{real}{not real}
+%\end{verbatim}
+%produces:
+%\DTLifreal{1000.0}{real}{not real}.
+%
+%Note that an integer is not a real number:
+%\begin{verbatim}
+%\DTLifreal{1,000}{real}{not real}
+%\end{verbatim}
+%produces:
+%\DTLifreal{1,000}{real}{not real}.
+%
+%Whereas
+%\begin{verbatim}
+%\DTLifreal{1,000.0}{real}{not real}
+%\end{verbatim}
+%produces:
+%\DTLifreal{1,000.0}{real}{not real}.
+%
+%However
+%\begin{verbatim}
+%\DTLsetnumberchars{.}{,}%
+%\DTLifreal{1,000}{real}{not real}
+%\end{verbatim}
+%produces:
+%\DTLsetnumberchars{.}{,}\relax
+%\DTLifreal{1,000}{real}{not real} since the comma is now
+%the decimal character.
+%
+%Currency is not considered to be real:
+%\begin{verbatim}
+%\DTLsetnumberchars{,}{.}%
+%\DTLifreal{\$1.00}{real}{not real}
+%\end{verbatim}
+%produces:
+%\DTLsetnumberchars{,}{.}\relax
+%\DTLifreal{\$1.00}{real}{not real}.
+%
+%\DescribeMacro{\DTLifcurrency}
+%\begin{definition}
+%\cs{DTLifcurrency}\marg{text}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{text} is currency, then do \meta{true part}, otherwise
+%do false part. For example:
+%\begin{verbatim}
+%\DTLifcurrency{\$5.99}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\DTLifcurrency{\$5.99}{currency}{not currency}. Similarly:
+%\begin{verbatim}
+%\DTLifcurrency{\pounds5.99}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\DTLifcurrency{\pounds5.99}{currency}{not currency}.
+%Note, however, that
+%\begin{verbatim}
+%\DTLifcurrency{US\$5.99}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\DTLifcurrency{US\$5.99}{currency}{not currency}. If you want
+%this to be considered currency, you will have to add the
+%sequence "US\$" to the set of currency symbols:
+%\begin{verbatim}
+%\DTLnewcurrencysymbol{US\$}%
+%\DTLifcurrency{US\$5.99}{currency}{not currency}
+%\end{verbatim}
+%this now produces:
+%\DTLnewcurrencysymbol{US\$}\relax
+%\DTLifcurrency{US\$5.99}{currency}{not currency}.
+%
+%This document has used the \sty{textcomp} package which defines
+%\cs{texteuro}, so this is also considered to be currency. For
+%example:
+%\begin{verbatim}
+%\DTLifcurrency{\texteuro5.99}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\DTLifcurrency{\texteuro5.99}{currency}{not currency}.
+%
+%The preferred method is to display the euro symbol in a sans-serif
+%font, but
+%\begin{verbatim}
+%\DTLifcurrency{\textsf{\texteuro}5.99}{currency}{not currency}
+%\end{verbatim}
+%will produce:
+%\DTLifcurrency{\textsf{\texteuro}5.99}{currency}{not currency}.
+%
+%It is better to define a new command, for example:
+%\begin{verbatim}
+%\DeclareRobustCommand*{\euro}{\textsf{\texteuro}}
+%\end{verbatim}
+%and add that command to the list of currency symbols. In fact,
+%in this case, if you define the command \cs{euro} in the
+%preamble, it will automatically be added to the list of known
+%currency symbols. If however you define \cs{euro} in the document,
+%you will have to add it using \ics{DTLnewcurrencysymbol}. For
+%example:
+%\begin{verbatim}
+%\newcommand*{\euro}{\textsf{\texteuro}}%
+%\DTLnewcurrencysymbol{\euro}%
+%\DTLifcurrency{\euro5.99}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\DeclareRobustCommand*{\euro}{\textsf{\texteuro}}\relax
+%\DTLnewcurrencysymbol{\euro}\relax
+%\DTLifcurrency{\euro5.99}{currency}{not currency}.
+%
+%\DescribeMacro{\DTLifcurrencyunit}
+%\begin{definition}
+%\cs{DTLifcurrencyunit}\marg{text}\marg{symbol}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{text} is currency, and uses \meta{symbol} as the unit of
+%currency, then do \meta{true part} otherwise do \meta{false part}.
+%For example:
+%\begin{verbatim}
+%\DTLifcurrencyunit{\$6.99}{\$}{dollars}{not dollars}
+%\end{verbatim}
+%produces:
+%\DTLifcurrencyunit{\$6.99}{\$}{dollars}{not dollars}.
+%Another example:
+%\begin{verbatim}
+%\def\cost{\euro10.50}%
+%\DTLifcurrencyunit{\cost}{\euro}{euros}{not euros}
+%\end{verbatim}
+%produces:
+%\def\cost{\euro10.50}\relax
+%\DTLifcurrencyunit{\cost}{\euro}{euros}{not euros}.
+%
+%\DescribeMacro{\DTLifnumerical}
+%\begin{definition}
+%\cs{DTLifnumerical}\marg{text}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{text} is numerical (either an integer, real number or
+%currency) then do \meta{true part} otherwise do
+%\meta{false part}.
+%For example:
+%\begin{verbatim}
+%\DTLifnumerical{1,000.0}{number}{string}.
+%\end{verbatim}
+%produces: \DTLifnumerical{1,000.0}{number}{string}.
+%Whereas
+%\begin{verbatim}
+%\DTLsetnumberchars{.}{,}%
+%\DTLifnumerical{1,000.0}{number}{string}.
+%\end{verbatim}
+%produces:
+%\DTLsetnumberchars{.}{,}\relax
+%\DTLifnumerical{1,000.0}{number}{string}.
+%Since the number group character is now a full stop, and the
+%decimal character is now a comma. (The number group character
+%may only appear before the decimal character, not after it.)
+%
+%Currency is also considered to be numerical:
+%\begin{verbatim}
+%\DTLsetnumberchars{,}{.}%
+%\DTLifnumerical{\$1,000.0}{number}{string}.
+%\end{verbatim}
+%produces:
+%\DTLsetnumberchars{,}{.}\relax
+%\DTLifnumerical{\$1,000.0}{number}{string}.
+%
+%\DescribeMacro{\DTLifstring}
+%\begin{definition}
+%\cs{DTLifstring}\marg{text}\marg{true part}\marg{false part}
+%\end{definition}
+%This is the opposite of \cs{DTLifnumerical}. If \meta{text} is
+%not numerical, do \meta{true part}, otherwise do \meta{false part}.
+%
+%\DescribeMacro{\DTLifcasedatatype}
+%\begin{definition}
+%\cs{DTLifcasedatatype}\marg{text}\marg{string case}\marg{int case}\marg{real case}\marg{currency case}
+%\end{definition}
+%If \meta{text} is a string do \meta{string case}, if \meta{text}
+%is an integer do \meta{int case}, if \meta{text} is a real number
+%do \meta{real case}, if \meta{text} is currency do
+%\meta{currency case}. For example:
+%\begin{verbatim}
+%\DTLifcasedatatype{1,000}{string}{integer}{real}{currency}
+%\end{verbatim}
+%produces:
+%\DTLifcasedatatype{1,000}{string}{integer}{real}{currency}.
+%
+%\DescribeMacro{\DTLifnumeq}
+%\begin{definition}
+%\cs{DTLifnumeq}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{num1} is equal to \meta{num2}, then do \meta{true part},
+%otherwise do \meta{false part}. Note that both \meta{num1} and
+%\meta{num2} must be numerical (either integers, real numbers or
+%currency.) The currency symbol is ignored when determining
+%equality. For example
+%\begin{verbatim}
+%\DTLifnumeq{\pounds10.50}{10.5}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifnumeq{\pounds10.50}{10.5}{true}{false}, since they are
+%considered to be numerically equivalent. Likewise:
+%\begin{verbatim}
+%\DTLifnumeq{\pounds10.50}{\$10.50}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifnumeq{\pounds10.50}{\$10.50}{true}{false}.
+%
+%\DescribeMacro{\DTLifstringeq}
+%\begin{definition}
+%\cs{DTLifstringeq}\marg{string1}\marg{string2}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifstringeq*}
+%\begin{definition}
+%\cs{DTLifstringeq*}\marg{string1}\marg{string2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{string1} and \meta{string2} are the same, then do
+%\meta{true part}, otherwise do \meta{false part}. The starred
+%version ignores the case, the unstarred version is case
+%sensitive. Both
+%\meta{string1} and \meta{string2} are considered to be strings,
+%so for example:
+%\begin{verbatim}
+%\DTLifstringeq{10.50}{10.5}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq{10.50}{10.5}{true}{false}.
+%
+%Note that
+%\begin{verbatim}
+%\DTLifstringeq{Text}{text}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq{Text}{text}{true}{false}, whereas
+%\begin{verbatim}
+%\DTLifstringeq*{Text}{text}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq*{Text}{text}{true}{false}, however it should also be
+%noted that many commands will be ignored, so:
+%\begin{verbatim}
+%\DTLifstringeq{\uppercase{t}ext}{text}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq{\uppercase{t}ext}{text}{true}{false}.
+%
+%Spaces are considered to be equivalent to \cs{space} and "~". For
+%example:
+%\begin{verbatim}
+%\DTLifstringeq{an apple}{an~apple}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq{an apple}{an~apple}{true}{false}. Consecutive spaces
+%are treated as the same, for example:
+%\begin{verbatim}
+%\DTLifstringeq{an apple}{an apple}{true}{false}
+%\end{verbatim}
+%produces:
+%\DTLifstringeq{an apple}{an apple}{true}{false}.
+%
+%\DescribeMacro{\DTLifeq}
+%\begin{definition}
+%\cs{DTLifeq}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifeq*}
+%\begin{definition}
+%\cs{DTLifeq*}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%If both \meta{arg1} and \meta{arg2} are numerical, then this is
+%equivalent to \cs{DTLifnumeq}, otherwise it is equivalent to
+%\cs{DTLifstringeq} (when using \cs{DTLifeq}) or \cs{DTLifstringeq*}
+%(when using \cs{DTLifeq*}).
+%
+%\DescribeMacro{\DTLifnumlt}
+%\begin{definition}
+%\cs{DTLifnumlt}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{num1} is less than \meta{num2}, then do \meta{true part},
+%otherwise do \meta{false part}. Note that both \meta{num1} and
+%\meta{num2} must be numerical (either integers, real numbers or
+%currency.)
+%
+%\DescribeMacro{\DTLifstringlt}
+%\begin{definition}
+%\cs{DTLifstringlt}\marg{string1}\marg{string2}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifstringlt*}
+%\begin{definition}
+%\cs{DTLifstringlt*}\marg{string1}\marg{string2}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%If \meta{string1} is alphabetically less than \meta{string2}, then do
+%\meta{true part}, otherwise do \meta{false part}. The starred
+%version ignores the case, the unstarred version is case
+%sensitive.
+%For example:
+%\begin{verbatim}
+%\DTLifstringlt{aardvark}{zebra}{less}{not less}
+%\end{verbatim}
+%produces:
+%\DTLifstringlt{aardvark}{zebra}{less}{not less}.
+%
+%Note that both \meta{string1} and \meta{string2} are considered to be
+%strings, so for example:
+%\begin{verbatim}
+%\DTLifstringlt{2}{10}{less}{not less}
+%\end{verbatim}
+%produces:
+%\DTLifstringlt{2}{10}{less}{not less}, since the string "2"
+%comes after the string "10" when arranged alphabetically.
+%
+%The case sensitive (unstarred) version considers uppercase characters
+%to be less than lowercase characters, so
+%\begin{verbatim}
+%\DTLifstringlt{B}{a}{less}{not less}
+%\end{verbatim}
+%produces:
+%\DTLifstringlt{B}{a}{less}{not less}, whereas
+%\begin{verbatim}
+%\DTLifstringlt*{B}{a}{less}{not less}
+%\end{verbatim}
+%produces:
+%\DTLifstringlt*{B}{a}{less}{not less}.
+%
+%\DescribeMacro{\DTLiflt}
+%\begin{definition}
+%\cs{DTLiflt}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLiflt*}
+%\begin{definition}
+%\cs{DTLiflt*}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{arg1} and \meta{arg2} are both numerical, then this
+%is equivalent to \cs{DTLifnumlt}, otherwise it is equivalent
+%to \cs{DTLstringlt} (when using \cs{DTLiflt}) or
+%\cs{DTLstringlt*} (when using \cs{DTLiflt*}).
+%
+%\DescribeMacro{\DTLifnumgt}
+%\begin{definition}
+%\cs{DTLifnumgt}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{num1} is greater than \meta{num2}, then do \meta{true part},
+%otherwise do \meta{false part}. Note that both \meta{num1} and
+%\meta{num2} must be numerical (either integers, real numbers or
+%currency.)
+%
+%\DescribeMacro{\DTLifstringgt}
+%\begin{definition}
+%\cs{DTLifstringgt}\marg{string1}\marg{string2}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifstringgt*}
+%\begin{definition}
+%\cs{DTLifstringgt*}\marg{string1}\marg{string2}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%If \meta{string1} is alphabetically greater than \meta{string2}, then
+%do \meta{true part}, otherwise do \meta{false part}. The
+%starred version ignores the case, the unstarred version is
+%case sensitive. For example:
+%\begin{verbatim}
+%\DTLifstringgt{aardvark}{zebra}{greater}{not greater}
+%\end{verbatim}
+%produces:
+%\DTLifstringgt{aardvark}{zebra}{greater}{not greater}.
+%
+%Note that both \meta{string1} and \meta{string2} are considered to be
+%strings, so for example:
+%\begin{verbatim}
+%\DTLifstringgt{2}{10}{greater}{not greater}
+%\end{verbatim}
+%produces:
+%\DTLifstringgt{2}{10}{greater}{not greater}, since the string "2"
+%comes after the string "10" when arranged alphabetically.
+%
+%As with \cs{DTLifstringlt}, uppercase characters are considered
+%to be less than lower case characters when performing a
+%case sensitive comparison so:
+%\begin{verbatim}
+%\DTLifstringgt{B}{a}{greater}{not greater}
+%\end{verbatim}
+%produces:
+%\DTLifstringgt{B}{a}{greater}{not greater}, whereas
+%\begin{verbatim}
+%\DTLifstringgt*{B}{a}{greater}{not greater}
+%\end{verbatim}
+%produces:
+%\DTLifstringgt*{B}{a}{greater}{not greater}.
+%
+%\DescribeMacro{\DTLifgt}
+%\begin{definition}
+%\cs{DTLifgt}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifgt*}
+%\begin{definition}
+%\cs{DTLifgt*}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{arg1} and \meta{arg2} are both numerical, then this
+%is equivalent to \cs{DTLifnumgt}, otherwise it is equivalent
+%to \cs{DTLstringgt} (when using \cs{DTLifgt}) or
+%\cs{DTLstringgt*} (when using \cs{DTLifgt*}).
+%
+%\DescribeMacro{\DTLifnumclosedbetween}
+%\begin{definition}
+%\cs{DTLifnumclosedbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{min} $\leq$ \meta{num} $\leq$ \meta{max} then do \meta{true part},
+%otherwise do \meta{false part}. Note that \meta{num}, \meta{min} and
+%\meta{max} must be numerical (either integers, real numbers or
+%currency.) The currency symbol is ignored when determining
+%equality. For example:
+%\begin{verbatim}
+%\DTLifnumclosedbetween{5.4}{5}{7}{inside}{outside}
+%\end{verbatim}
+%produces:
+%\DTLifnumclosedbetween{5.4}{5}{7}{inside}{outside}.
+%Note that the closed range includes end points:
+%\begin{verbatim}
+%\DTLifnumclosedbetween{5}{5}{7}{inside}{outside}
+%\end{verbatim}
+%produces:
+%\DTLifnumclosedbetween{5}{5}{7}{inside}{outside}.
+%
+%\DescribeMacro{\DTLifstringclosedbetween}
+%\begin{definition}
+%\cs{DTLifstringclosedbetween}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifstringclosedbetween*}
+%\begin{definition}
+%\cs{DTLifstringclosedbetween*}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%This determines if \meta{string} is between \meta{min} and
+%\meta{max} in the alphabetical sense, or is equal to either
+%\meta{min} or \meta{max}. The starred version ignores the case,
+%the unstarred version is case sensitive.
+%
+%\DescribeMacro{\DTLifclosedbetween}
+%\begin{definition}
+%\cs{DTLifclosedbetween}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifclosedbetween*}
+%\begin{definition}
+%\cs{DTLifclosedbetween*}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{arg}, \meta{min} and \meta{max} are numerical, then this is
+%equivalent to \cs{DTLifnumclosedbetween}, otherwise it is equivalent to
+%\cs{DTLifstringclosedbetween} (when using \cs{DTLifclosedbetween})
+%or
+%\cs{DTLifstringclosedbetween*} (when using \cs{DTLifclosedbetween*}).
+%
+%\DescribeMacro{\DTLifnumopenbetween}
+%\begin{definition}
+%\cs{DTLifnumopenbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{min} $<$ \meta{num} $<$ \meta{max} then do \meta{true part},
+%otherwise do \meta{false part}. Note that \meta{num}, \meta{min} and
+%\meta{max} must be numerical (either integers, real numbers or
+%currency.) Again, the currency symbol is ignored when determining
+%equality. For example:
+%\begin{verbatim}
+%\DTLifnumopenbetween{5.4}{5}{7}{inside}{outside}
+%\end{verbatim}
+%produces:
+%\DTLifnumopenbetween{5.4}{5}{7}{inside}{outside}.
+%Note that end points are not included. For example:
+%\begin{verbatim}
+%\DTLifnumopenbetween{5}{5}{7}{inside}{outside}
+%\end{verbatim}
+%produces:
+%\DTLifnumopenbetween{5}{5}{7}{inside}{outside}.
+%
+%\DescribeMacro{\DTLifstringopenbetween}
+%\begin{definition}
+%\cs{DTLifstringopenbetween}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifstringopenbetween*}
+%\begin{definition}
+%\cs{DTLifstringopenbetween*}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%This determines if \meta{string} is between \meta{min} and
+%\meta{max} in the alphabetical sense.
+%The starred version ignores the case,
+%the unstarred version is case sensitive.
+%
+%\DescribeMacro{\DTLifopenbetween}
+%\begin{definition}
+%\cs{DTLifopenbetween}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%\DescribeMacro{\DTLifopenbetween*}
+%\begin{definition}
+%\cs{DTLifopenbetween*}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{arg}, \meta{min} and \meta{max} are numerical, then this is
+%equivalent to \cs{DTLifnumopenbetween}, otherwise it is equivalent to
+%\cs{DTLifstringopenbetween} (when using \cs{DTLifopenbetween})
+%\cs{DTLifstringopenbetween*} (when using \cs{DTLifopenbetween*}).
+%
+%\DescribeMacro{\DTLifFPclosedbetween}
+%\begin{definition}
+%\cs{DTLifFPclosedbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{min} $\leq$ \meta{num} $\leq$ \meta{max} then do \meta{true part},
+%otherwise do \meta{false part} where \meta{num}, \meta{min}
+%and \meta{max} are all in standard fixed point notation (i.e.\
+%no number group separator, no currency symbols and a full stop as
+%a decimal point.)
+%
+%\DescribeMacro{\DTLifFPopenbetween}
+%\begin{definition}
+%\cs{DTLifFPopenbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+%If \meta{min} $<$ \meta{num} $<$ \meta{max} then do \meta{true part},
+%otherwise do \meta{false part} where \meta{num}, \meta{min}
+%and \meta{max} are all in standard fixed point notation (i.e.\
+%no number group separator, no currency symbols and a full stop as
+%a decimal point.)
+%
+%\DescribeMacro{\DTLifAllUpperCase}
+%\begin{definition}
+%\cs{DTLifAllUpperCase}\marg{string}\marg{true part}\marg{false part}
+%\end{definition}
+%Tests if \meta{string} is all upper case. For example:
+%\begin{verbatim}
+%\DTLifAllUpperCase{WORD}{all upper}{not all upper}
+%\end{verbatim}
+%produces:
+%\DTLifAllUpperCase{WORD}{all upper}{not all upper},
+%whereas
+%\begin{verbatim}
+%\DTLifAllUpperCase{Word}{all upper}{not all upper}
+%\end{verbatim}
+%produces:
+%\DTLifAllUpperCase{Word}{all upper}{not all upper}.
+%Note also that:
+%\begin{verbatim}
+%\DTLifAllUpperCase{\MakeUppercase{word}}{all upper}{not all upper}
+%\end{verbatim}
+%also produces:
+%\DTLifAllUpperCase{\MakeUppercase{word}}{all upper}{not all upper}.
+%\cs{MakeTextUppercase} (defined in David Carlisle's \sty{textcase}
+%package) and \cs{uppercase} are also detected, otherwise, if
+%a command is encountered, the case of the command is considered.
+%For example:
+%\begin{verbatim}
+%\DTLifAllUpperCase{MAN{\OE}UVRE}{all upper}{not all upper}
+%\end{verbatim}
+%produces:
+%\DTLifAllUpperCase{MAN{\OE}UVRE}{all upper}{not all upper}.
+%
+%\DescribeMacro{\DTLifAllLowerCase}
+%\begin{definition}
+%\cs{DTLifAllLowerCase}\marg{string}\marg{true part}\marg{false part}
+%\end{definition}
+%Tests if \meta{string} is all lower case. For example:
+%\begin{verbatim}
+%\DTLifAllLowerCase{word}{all lower}{not all lower}
+%\end{verbatim}
+%produces:
+%\DTLifAllLowerCase{word}{all lower}{not all lower},
+%whereas
+%\begin{verbatim}
+%\DTLifAllLowerCase{Word}{all lower}{not all lower}
+%\end{verbatim}
+%produces:
+%\DTLifAllLowerCase{Word}{all lower}{not all lower}.
+%Note also that:
+%\begin{verbatim}
+%\DTLifAllLowerCase{\MakeLowercase{WORD}}{all lower}{not all lower}
+%\end{verbatim}
+%also produces:
+%\DTLifAllLowerCase{\MakeLowercase{WORD}}{all lower}{not all lower}.
+%\cs{MakeTextLowercase} (defined in David Carlisle's \sty{textcase}
+%package) and \cs{lowercase} are also detected, otherwise, if
+%a command is encountered, the case of the command is considered.
+%For example:
+%\begin{verbatim}
+%\DTLifAllLowerCase{man{\oe}uvre}{all lower}{not all lower}
+%\end{verbatim}
+%produces:
+%\DTLifAllLowerCase{man{\oe}uvre}{all lower}{not all lower}.
+%
+%\DescribeMacro{\DTLifSubString}
+%\begin{definition}
+%\cs{DTLifSubString}\marg{string}\marg{substring}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%This tests if \meta{substring} is a sub-string of \meta{string}.
+%This command performs a case sensitive match. For example:
+%\begin{verbatim}
+%\DTLifSubString{An apple}{app}{is substring}{isn't substring}
+%\end{verbatim}
+%produces:
+%\DTLifSubString{An apple}{app}{is substring}{isn't substring}.
+%Note that spaces are considered to be equivalent to \cs{space}
+%or "~", so
+%\begin{verbatim}
+%\DTLifSubString{An apple}{n~a}{is substring}{isn't substring}
+%\end{verbatim}
+%produces:
+%\DTLifSubString{An apple}{n~a}{is substring}{isn't substring},
+%but other commands are skipped, so
+%\begin{verbatim}
+%\DTLifSubString{An \uppercase{a}pple}{app}{is substring}{isn't
+%substring}
+%\end{verbatim}
+%produces:
+%\DTLifSubString{An \uppercase{a}pple}{app}{is substring}{isn't
+%substring}, since the \cs{uppercase} command is ignored. Note also
+%that grouping is ignored, so:
+%\begin{verbatim}
+%\DTLifSubString{An {ap}ple}{app}{is substring}{isn't substring}
+%\end{verbatim}
+%produces:
+%\DTLifSubString{An {ap}ple}{app}{is substring}{isn't substring}.
+%
+%\cs{DTLifSubString} is case sensitive, so:
+%\begin{verbatim}
+%\DTLifSubString{An Apple}{app}{is substring}{isn't substring}
+%\end{verbatim}
+%produces:
+%\DTLifSubString{An Apple}{app}{is substring}{isn't substring}.
+%
+%\DescribeMacro{\DTLifStartsWith}
+%\begin{definition}
+%\cs{DTLifStartsWith}\marg{string}\marg{substring}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%This is like \cs{DTLifSubString}, except that \meta{substring} must
+%occur at the start of \meta{string}. This command performs a case
+%sensitive match. For example,
+%\begin{verbatim}
+%\DTLifStartsWith{An apple}{app}{prefix}{not a prefix}
+%\end{verbatim}
+%produces:
+%\DTLifStartsWith{An apple}{app}{prefix}{not a prefix}. All the
+%above remarks for \cs{DTLifSubString} also applies to
+%\cs{DTLifStartsWith}. For example:
+%\begin{verbatim}
+%\DTLifStartsWith{\uppercase{a}n apple}{an~}{prefix}{not a prefix}
+%\end{verbatim}
+%produces:
+%\DTLifStartsWith{\uppercase{a}n apple}{an~}{prefix}{not a prefix},
+%since \cs{uppercase} is ignored, and "~" is considered to be the
+%same as a space, whereas
+%\begin{verbatim}
+%\DTLifStartsWith{An apple}{an~}{prefix}{not a prefix}
+%\end{verbatim}
+%produces:
+%\DTLifStartsWith{An apple}{an~}{prefix}{not a prefix}.
+%
+%\subsection{\texorpdfstring{\sty{ifthen}}{ifthen} conditionals}
+%\label{sec:ifthen}
+%
+%The commands described in the previous section can not be
+%used as the conditional part of the \cs{ifthenelse} or
+%\cs{whiledo} commands provided by the \sty{ifthen} package.
+%This section describes analogous commands which may only be
+%used in the conditional argument of \cs{ifthenelse} and
+%\cs{whiledo}.
+%
+%\DescribeMacro{\DTLisstring}
+%\begin{definition}
+%\cs{DTLisstring}\marg{text}
+%\end{definition}
+%Tests if \meta{text} is a string. For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLisstring{some text}}{string}{not a string}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLisstring{some text}}{string}{not a string}.
+%
+%\DescribeMacro{\DTLisnumerical}
+%\begin{definition}
+%\cs{DTLisnumerical}\marg{text}
+%\end{definition}
+%Tests if \meta{text} is numerical (i.e.\ not a string.) For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLisnumerical{\$10.95}}{numerical}{not numerical}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLisnumerical{\$10.95}}{numerical}{not numerical}.
+%
+%Note however that \cs{DTLisnumerical} requires more care than
+%\cs{DTLifnumerical} when used with some of the other currency
+%symbols. Consider:
+%\begin{verbatim}
+%\DTLifnumerical{\pounds10.95}{numerical}{not numerical}
+%\end{verbatim}
+%This produces:
+%\DTLifnumerical{\pounds10.95}{numerical}{not numerical}.
+%However
+%\begin{verbatim}
+%\ifthenelse{\DTLisnumerical{\pounds10.95}}{numerical}{not numerical}
+%\end{verbatim}
+%produces
+%\ifthenelse{\DTLisnumerical{\pounds10.95}}{numerical}{not numerical}.
+%This is due to the expansion that occurs within \cs{ifthenelse}.
+%This can be prevented using \cs{noexpand}, for example:
+%\begin{verbatim}
+%\ifthenelse{\DTLisnumerical{\noexpand\pounds10.95}}{numerical}{not numerical}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLisnumerical{\noexpand\pounds10.95}}{numerical}{not numerical}.
+%
+%Likewise:
+%\begin{verbatim}
+%\def\cost{\pounds10.95}%
+%\ifthenelse{\DTLisnumerical{\noexpand\cost}}{numerical}{not numerical}
+%\end{verbatim}
+%produces
+%\def\cost{\pounds10.95}\relax
+%\ifthenelse{\DTLisnumerical{\noexpand\cost}}{numerical}{not numerical}.
+%
+%\DescribeMacro{\DTLiscurrency}
+%\begin{definition}
+%\cs{DTLiscurrency}\marg{text}
+%\end{definition}
+%Tests if \meta{text} is currency. For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLiscurrency{\$10.95}}{currency}{not currency}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLiscurrency{\$10.95}}{currency}{not currency}.
+%
+%The same warning given above for \cs{DTLisnumerical} also applies
+%here.
+%
+%\DescribeMacro{\DTLiscurrencyunit}
+%\begin{definition}
+%\cs{DTLiscurrencyunit}\marg{text}\marg{symbol}
+%\end{definition}
+%Tests if \meta{text} is currency, and uses \meta{symbol} as the unit
+%of currency.
+%For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLiscurrencyunit{\$6.99}{\$}}{dollars}{not dollars}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLiscurrencyunit{\$6.99}{\$}}{dollars}{not dollars}
+%Another example:
+%\begin{verbatim}
+%\def\cost{\euro10.50}%
+%\ifthenelse{\DTLiscurrencyunit{\noexpand\cost}{\noexpand\euro}}%
+%{euros}{not euros}
+%\end{verbatim}
+%produces:
+%\def\cost{\euro10.50}\relax
+%\ifthenelse{\DTLiscurrencyunit{\noexpand\cost}{\noexpand\euro}}%
+%{euros}{not euros}. Again note the use of \cs{noexpand}.
+%
+%\DescribeMacro{\DTLisreal}
+%\begin{definition}
+%\cs{DTLisreal}\marg{text}
+%\end{definition}
+%Tests if \meta{text} is a fixed point number (again, an integer is
+%not considered to be a fixed point number.) For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLisreal{1.5}}{real}{not real}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLisreal{1.5}}{real}{not real}.
+%
+%\DescribeMacro{\DTLisint}
+%\begin{definition}
+%\cs{DTLisint}\marg{text}
+%\end{definition}
+%Tests if \meta{text} is an integer. For example:
+%\begin{verbatim}
+%\ifthenelse{\DTLisint{153}}{integer}{not an integer}
+%\end{verbatim}
+%produces:
+%\ifthenelse{\DTLisint{153}}{integer}{not an integer}.
+%
+%\DescribeMacro{\DTLislt}
+%\begin{definition}
+%\cs{DTLislt}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is less than \meta{arg2}. As with
+%\cs{DTLiflt}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case sensitive
+%alphabetical comparison is used. (Note that there is no starred
+%version of this command, but you can instead use \cs{DTLisilt}
+%to ignore the case.)
+%
+%\DescribeMacro{\DTLisilt}
+%\begin{definition}
+%\cs{DTLisilt}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is less than \meta{arg2}. As with
+%\cs{DTLiflt*}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case insensitive
+%alphabetical comparison is used.
+%
+%\DescribeMacro{\DTLisgt}
+%\begin{definition}
+%\cs{DTLisgt}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is greater than \meta{arg2}. As with
+%\cs{DTLifgt}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case sensitive
+%alphabetical comparison is used. (Note that there is no starred
+%version of this command, instead use \cs{DTLisigt} to
+%ignore the case.)
+%
+%\DescribeMacro{\DTLisigt}
+%\begin{definition}
+%\cs{DTLisigt}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is greater than \meta{arg2}. As with
+%\cs{DTLifgt*}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case insensitive
+%alphabetical comparison is used.
+%
+%\DescribeMacro{\DTLiseq}
+%\begin{definition}
+%\cs{DTLiseq}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is equal to \meta{arg2}. As with
+%\cs{DTLifeq}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case sensitive
+%alphabetical comparison is used. (Note that there is no starred
+%version of this command, instead use \cs{DTLisieq}.)
+%
+%\DescribeMacro{\DTLisieq}
+%\begin{definition}
+%\cs{DTLisieq}\marg{arg1}\marg{arg2}
+%\end{definition}
+%This checks if \meta{arg1} is equal to \meta{arg2}. As with
+%\cs{DTLifeq*}, if \meta{arg1} and \meta{arg2} are numerical,
+%a numerical comparison is used, otherwise a case insensitive
+%alphabetical comparison is used.
+%
+%\DescribeMacro{\DTLisclosedbetween}
+%\begin{definition}
+%\cs{DTLisclosedbetween}\marg{arg}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{arg} lies between \meta{min} and
+%\meta{max} (end points included.) As with
+%\cs{DTLifclosedbetween}, if the arguments are numerical,
+%a numerical comparison is used, otherwise a case sensitive
+%alphabetical comparison is used. (Note that there is no starred
+%version of this command, instead use \cs{DTLisiclosedbetween}.)
+%
+%\DescribeMacro{\DTLisiclosedbetween}
+%\begin{definition}
+%\cs{DTLisiclosedbetween}\marg{arg}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{arg} lies between \meta{min} and
+%\meta{max} (end points included.) As with
+%\cs{DTLifclosedbetween*}, if the arguments are numerical,
+%a numerical comparison is used, otherwise a case insensitive
+%alphabetical comparison is used.
+%
+%\DescribeMacro{\DTLisopenbetween}
+%\begin{definition}
+%\cs{DTLisopenbetween}\marg{arg}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{arg} lies between \meta{min} and
+%\meta{max} (end points excluded.) As with
+%\cs{DTLifopenbetween}, if the arguments are numerical,
+%a numerical comparison is used, otherwise a case sensitive
+%alphabetical comparison is used. (Note that there is no starred
+%version of this command, instead use \cs{DTLisiopenbetween}.)
+%
+%\DescribeMacro{\DTLisiopenbetween}
+%\begin{definition}
+%\cs{DTLisiopenbetween}\marg{arg}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{arg} lies between \meta{min} and
+%\meta{max} (end points excluded.) As with
+%\cs{DTLifopenbetween*}, if the arguments are numerical,
+%a numerical comparison is used, otherwise a case insensitive
+%alphabetical comparison is used.
+%
+%\DescribeMacro{\DTLisFPlt}
+%\begin{definition}
+%\cs{DTLisFPlt}\marg{num1}\marg{num2}
+%\end{definition}
+%This checks if \meta{num1} is less than \meta{num2}, where both
+%numbers are in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPlteq}
+%\begin{definition}
+%\cs{DTLisFPlteq}\marg{num1}\marg{num2}
+%\end{definition}
+%This checks if \meta{num1} is less than or equal to \meta{num2}, where both
+%numbers are in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPgt}
+%\begin{definition}
+%\cs{DTLisFPgt}\marg{num1}\marg{num2}
+%\end{definition}
+%This checks if \meta{num1} is greater than \meta{num2}, where both
+%numbers are in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPgteq}
+%\begin{definition}
+%\cs{DTLisFPgteq}\marg{num1}\marg{num2}
+%\end{definition}
+%This checks if \meta{num1} is greater than or equal to \meta{num2}, where both
+%numbers are in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPeq}
+%\begin{definition}
+%\cs{DTLisFPeq}\marg{num1}\marg{num2}
+%\end{definition}
+%This checks if \meta{num1} is equal to \meta{num2}, where both
+%numbers are in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPclosedbetween}
+%\begin{definition}
+%\cs{DTLisFPclosedbetween}\marg{num}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{num} lies between \meta{min} and
+%\meta{max} (end points included.) All arguments must be
+%numbers in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisFPopenbetween}
+%\begin{definition}
+%\cs{DTLisFPopenbetween}\marg{num}\marg{min}\marg{max}
+%\end{definition}
+%This checks if \meta{num} lies between \meta{min} and
+%\meta{max} (end points excluded.) All arguments must be
+%numbers in standard fixed point format (i.e.\ no number group
+%separators, no currency and a full stop as a decimal point.)
+%
+%\DescribeMacro{\DTLisSubString}
+%\begin{definition}
+%\cs{DTLisSubString}\marg{string}\marg{substring}
+%\end{definition}
+%This checks if \meta{substring} is contained in \meta{string}.
+%The remarks about \cs{DTLifSubString} also apply to
+%\cs{DTLisSubString}. This command performs a case sensitive
+%match.
+%
+%\DescribeMacro{\DTLisPrefix}
+%\begin{definition}
+%\cs{DTLisPrefix}\marg{string}\marg{prefix}
+%\end{definition}
+%This checks if \meta{string} starts with \meta{prefix}.
+%The remarks about \cs{DTLifStartsWith} also apply to
+%\cs{DTLisPrefix}. This command performs a case sensitive
+%match.
+%
+%\section{Fixed Point Arithmetic}
+%\label{sec:fp}
+%
+%The \sty{datatool} package uses the \sty{fp} package to perform
+%fixed point arithmetic, however all numbers must be converted
+%from the locale dependent format into the format required by the
+%\sty{fp} package. A numerical value (i.e.\ an integer, a real
+%or currency) can be converted into a plain decimal number using
+%\DescribeMacro{\DTLconverttodecimal}
+%\begin{definition}
+%\cs{DTLconverttodecimal}\marg{num}\marg{cmd}
+%\end{definition}
+%The decimal number will be stored in \meta{cmd} which must be
+%a control sequence. For example:
+%\begin{verbatim}
+%\DTLconverttodecimal{1,563.54}{\mynum}
+%\end{verbatim}
+%\DTLconverttodecimal{1,563.54}{\mynum}\relax
+%will define \cs{mynum} to be \texttt{\mynum}. The command
+%can then be used in any of the arithmetic macros provided by the
+%\sty{fp} package. There are two commands provided to perform
+%the reverse:
+%\DescribeMacro{\DTLdecimaltolocale}
+%\begin{definition}
+%\cs{DTLdecimaltolocale}\marg{number}\marg{cmd}
+%\end{definition}
+%This converts a plain decimal number \meta{number} (that uses a full
+%stop as the decimal character and has no number group characters)
+%into a locale dependent format. The resulting number is stored
+%in \meta{cmd}, which must be a control sequence. For example:
+%\begin{verbatim}
+%\DTLdecimaltolocale{6795.3}{\mynum}
+%\end{verbatim}
+%\DTLdecimaltolocale{6795.3}{\mynum}
+%will define \cs{mynum} to be \texttt{\mynum}.
+%
+%\DescribeMacro{\DTLdecimaltocurrency}
+%\begin{definition}
+%\cs{DTLdecimaltocurrency}\marg{number}\marg{cmd}
+%\end{definition}
+%This will convert a plain decimal number \meta{number} into a
+%locale dependent currency format. For example:
+%\begin{verbatim}
+%\DTLdecimaltocurrency{267.5}{\price}\price
+%\end{verbatim}
+%will produce:
+%\DTLdecimaltocurrency{267.5}{\price}\price.
+%
+%The currency symbol used by \cs{DTLdecimaltocurrency} is
+%initially "\$", but will use the currency last encountered.
+%So, for example
+%\begin{verbatim}
+%\DTLifcurrency{\texteuro45.00}{}{}%
+%\DTLdecimaltocurrency{267.5}{\price}\price
+%\end{verbatim}
+%will produce:
+%\DTLifcurrency{\texteuro45.00}{}{}\relax
+%\DTLdecimaltocurrency{267.5}{\price}\price. This is because
+%the last currency symbol to be encountered was \cs{texteuro}.
+%You can reset the currency symbol using the command:
+%\DescribeMacro{\DTLsetdefaultcurrency}
+%\begin{definition}
+%\cs{DTLsetdefaultcurrency}\marg{symbol}
+%\end{definition}
+%For example:
+%\begin{verbatim}
+%\DTLsetdefaultcurrency{\textyen}%
+%\DTLdecimaltocurrency{267.5}{\price}\price
+%\end{verbatim}
+%will produce:
+%\DTLsetdefaultcurrency{\textyen}\relax
+%\DTLdecimaltocurrency{267.5}{\price}\price
+%
+%The \sty{datatool} package provides convenience commands which
+%use \cs{DTLconverttodecimal}, and then use the basic macros provided
+%by the \sty{fp} package. The resulting value is then converted
+%back into the locale format using
+%\cs{DTLdecimaltolocale} or \cs{DTLdecimaltocurrency}.
+%
+%\DescribeMacro{\DTLadd}
+%\begin{definition}
+%\cs{DTLadd}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgadd}
+%\begin{definition}
+%\cs{DTLgadd}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to \meta{num1}+\meta{num2}.
+%\cs{DLTadd} sets \meta{cmd} locally, while \cs{DTLgadd} sets
+%\meta{cmd} globally.
+%
+%For example:
+%\begin{verbatim}
+%\DTLadd{\result}{3,562.65}{412.2}\result
+%\end{verbatim}
+%will produce:
+%\DTLadd{\result}{3,562.65}{412.2}\result. Since
+%\cs{DTLconverttodecimal} can also convert currency, you can
+%also add prices. For example:
+%\begin{verbatim}
+%\DTLadd{\result}{\pounds3,562.65}{\pounds452.2}\result
+%\end{verbatim}
+%produces:
+%\DTLadd{\result}{\pounds3,562.65}{\pounds452.2}\result.
+%
+%Note that \sty{datatool} isn't aware of exchange rates! If you
+%use different currency symbols, the last symbol will be used.
+%For example
+%\begin{verbatim}
+%\DTLadd{\result}{\pounds3,562.65}{\euro452.2}\result
+%\end{verbatim}
+%produces:
+%\DTLadd{\result}{\pounds3,562.65}{\euro452.2}\result.
+%
+%Likewise, if one value is a number and the other is a currency,
+%the type of the last value, \meta{num2}, will be used for the
+%result. For example:
+%\begin{verbatim}
+%\DTLadd{\result}{3,562.65}{\$452.2}\result
+%\end{verbatim}
+%produces:
+%\DTLadd{\result}{3,562.65}{\$452.2}\result.
+%
+%\DescribeMacro{\DTLaddall}
+%\begin{definition}
+%\cs{DTLaddall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgaddall}
+%\begin{definition}
+%\cs{DTLgaddall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the sum of all
+%the numbers in \meta{number list}.
+%\cs{DLTaddall} sets \meta{cmd} locally, while \cs{DTLgaddall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLaddall{\total}{25.1,45.2,35.6}\total
+%\end{verbatim}
+%produces:
+%\DTLaddall{\total}{25.1,45.2,35.6}\total.
+%Note that if any of the numbers in \meta{number list} contain
+%a comma, you must group the number. Example:
+%\begin{verbatim}
+%\DTLaddall{\total}{{1,525},{2,340},500}\total
+%\end{verbatim}
+%produces:
+%\DTLaddall{\total}{{1,525},{2,340},500}\total.
+%
+%\DescribeMacro{\DTLsub}
+%\begin{definition}
+%\cs{DTLsub}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgsub}
+%\begin{definition}
+%\cs{DTLgsub}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to
+%\meta{num1}$-$\meta{num2}.
+%\cs{DLTsub} sets \meta{cmd} locally, while \cs{DTLgsub} sets
+%\meta{cmd} globally.
+%
+%For example:
+%\begin{verbatim}
+%\DTLsub{\result}{3,562.65}{412.2}\result
+%\end{verbatim}
+%will produce:
+%\DTLsub{\result}{3,562.65}{412.2}\result. As with \cs{DTLadd},
+%\meta{num1} and \meta{num2} may be currency.
+%
+%\DescribeMacro{\DTLmul}
+%\begin{definition}
+%\cs{DTLmul}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgmul}
+%\begin{definition}
+%\cs{DTLgmul}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to
+%\meta{num1}$\times$\meta{num2}.
+%\cs{DLTmul} sets \meta{cmd} locally, while \cs{DTLgmul} sets
+%\meta{cmd} globally.
+%
+%For example:
+%\begin{verbatim}
+%\DTLmul{\result}{568.95}{2}\result
+%\end{verbatim}
+%will produce:
+%\DTLmul{\result}{568.95}{2}\result. Again, \meta{num1} or
+%\meta{num2} may be currency, but unlike \cs{DTLadd} and \cs{DTLsub},
+%currency overrides integer/real. For example:
+%\begin{verbatim}
+%\DTLmul{\result}{\pounds568.95}{2}\result
+%\end{verbatim}
+%will produce:
+%\DTLmul{\result}{\pounds568.95}{2}\result. Likewise,
+%\begin{verbatim}
+%\DTLmul{\result}{2}{\pounds568.95}\result
+%\end{verbatim}
+%will produce:
+%\DTLmul{\result}{2}{\pounds568.95}\result. Although it doesn't make
+%sense to multiply two currencies, \sty{datatool} will allow
+%\begin{verbatim}
+%\DTLmul{\result}{\$2}{\pounds568.95}\result
+%\end{verbatim}
+%which will produce:
+%\DTLmul{\result}{\$2}{\pounds568.95}\result.
+%
+%\DescribeMacro{\DTLdiv}
+%\begin{definition}
+%\cs{DTLdiv}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgdiv}
+%\begin{definition}
+%\cs{DTLgdiv}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to
+%\meta{num1}$\div$\meta{num2}.
+%\cs{DLTdiv} sets \meta{cmd} locally, while \cs{DTLgdiv} sets
+%\meta{cmd} globally.
+%
+%For example:
+%\begin{verbatim}
+%\DTLdiv{\result}{501}{2}\result
+%\end{verbatim}
+%will produce:
+%\DTLdiv{\result}{501}{2}\result. Again, \meta{num1} or \meta{num2}
+%may be currency, but the resulting type will be not be a currency
+%if both \meta{num1} and \meta{num2} use the same currency symbol.
+%For example:
+%\begin{verbatim}
+%\DTLdiv{\result}{\$501}{\$2}\result
+%\end{verbatim}
+%will produce:
+%\DTLdiv{\result}{\$501}{\$2}\result. Whereas
+%\begin{verbatim}
+%\DTLdiv{\result}{\$501}{2}\result
+%\end{verbatim}
+%will produce:
+%\DTLdiv{\result}{\$501}{2}\result.
+%
+%\DescribeMacro{\DTLabs}
+%\begin{definition}
+%\cs{DTLabs}\marg{cmd}\marg{num}
+%\end{definition}
+%\DescribeMacro{\DTLgabs}
+%\begin{definition}
+%\cs{DTLgabs}\marg{cmd}\marg{num}
+%\end{definition}
+%This sets \meta{cmd} to the absolute value of \meta{num}.
+%\cs{DLTabs} sets \meta{cmd} locally, while \cs{DTLgabs} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLabs{\result}{-\pounds2.50}\result
+%\end{verbatim}
+%produces:
+%\DTLabs{\result}{-\pounds2.50}\result.
+%
+%\DescribeMacro{\DTLneg}
+%\begin{definition}
+%\cs{DTLneg}\marg{cmd}\marg{num}
+%\end{definition}
+%\DescribeMacro{\DTLgneg}
+%\begin{definition}
+%\cs{DTLgneg}\marg{cmd}\marg{num}
+%\end{definition}
+%This sets \meta{cmd} to the negative of \meta{num}.
+%\cs{DLTneg} sets \meta{cmd} locally, while \cs{DTLgneg} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLneg{\result}{\pounds2.50}\result
+%\end{verbatim}
+%produces:
+%\DTLneg{\result}{\pounds2.50}\result.
+%
+%\DescribeMacro{\DTLsqrt}
+%\begin{definition}
+%\cs{DTLsqrt}\marg{cmd}\marg{num}
+%\end{definition}
+%\DescribeMacro{\DTLgsqrt}
+%\begin{definition}
+%\cs{DTLgsqrt}\marg{cmd}\marg{num}
+%\end{definition}
+%This sets \meta{cmd} to the sqrt root of \meta{num}.
+%\cs{DLTsqrt} sets \meta{cmd} locally, while \cs{DTLgsqrt} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLsqrt{\result}{2}\result
+%\end{verbatim}
+%produces:
+%\DTLsqrt{\result}{2}\result.
+%
+%\DescribeMacro{\DTLmin}
+%\begin{definition}
+%\cs{DTLmin}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgmin}
+%\begin{definition}
+%\cs{DTLgmin}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the minimum of
+%\meta{num1} and \meta{num2}.
+%\cs{DLTmin} sets \meta{cmd} locally, while \cs{DTLgmin} sets
+%\meta{cmd} globally. For example:
+%\begin{verbatim}
+%\DTLmin{\result}{256}{32}\result
+%\end{verbatim}
+%produces:
+%\DTLmin{\result}{256}{32}\result.
+%Again, \meta{num1} and \meta{num2} may
+%be currency. For example:
+%\begin{verbatim}
+%\DTLmin{\result}{256}{\pounds32}\result
+%\end{verbatim}
+%produces:
+%\DTLmin{\result}{256}{\pounds32}\result, whereas
+%\begin{verbatim}
+%\DTLmin{\result}{\pounds256}{32}\result
+%\end{verbatim}
+%produces:
+%\DTLmin{\result}{\pounds256}{32}\result. As mentioned above,
+%\sty{datatool} doesn't know about exchange rates, so be careful
+%about mixing currencies. For example:
+%\begin{verbatim}
+%\DTLmin{\result}{\pounds5}{\$6}\result
+%\end{verbatim}
+%produces:
+%\DTLmin{\result}{\pounds5}{\$6}\result, which may not necessarily
+%be true!
+%
+%\DescribeMacro{\DTLminall}
+%\begin{definition}
+%\cs{DTLminall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgminall}
+%\begin{definition}
+%\cs{DTLgminall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the minimum of all
+%the numbers in \meta{number list}.
+%\cs{DLTminall} sets \meta{cmd} locally, while \cs{DTLgminall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLminall{\theMin}{25.1,45.2,35.6}\theMin
+%\end{verbatim}
+%produces:
+%\DTLminall{\theMin}{25.1,45.2,35.6}\theMin.
+%Note that if any of the numbers in \meta{number list} contain
+%a comma, you must group the number. Example:
+%\begin{verbatim}
+%\DTLminall{\theMin}{{1,525},{2,340},500}\theMin
+%\end{verbatim}
+%produces:
+%\DTLminall{\theMin}{{1,525},{2,340},500}\theMin.
+%
+%\DescribeMacro{\DTLmax}
+%\begin{definition}
+%\cs{DTLmax}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%\DescribeMacro{\DTLgmax}
+%\begin{definition}
+%\cs{DTLgmax}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the maximum of
+%\meta{num1} and \meta{num2}.
+%\cs{DLTmax} sets \meta{cmd} locally, while \cs{DTLgmax} sets
+%\meta{cmd} globally. For example:
+%\begin{verbatim}
+%\DTLmax{\result}{256}{32}\result
+%\end{verbatim}
+%produces:
+%\DTLmax{\result}{256}{32}\result.
+%Again, \meta{num1} and \meta{num2} may
+%be currency, but the same warnings for \cs{DTLmin} apply.
+%
+%\DescribeMacro{\DTLmaxall}
+%\begin{definition}
+%\cs{DTLmaxall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgmaxall}
+%\begin{definition}
+%\cs{DTLgmaxall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the maximum of all
+%the numbers in \meta{number list}.
+%\cs{DLTmaxall} sets \meta{cmd} locally, while \cs{DTLgmaxall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLmaxall{\theMax}{25.1,45.2,35.6}\theMax
+%\end{verbatim}
+%produces:
+%\DTLmaxall{\theMax}{25.1,45.2,35.6}\theMax.
+%Note that if any of the numbers in \meta{number list} contain
+%a comma, you must group the number. Example:
+%\begin{verbatim}
+%\DTLmaxall{\theMax}{{1,525},{2,340},500}\theMax
+%\end{verbatim}
+%produces:
+%\DTLmaxall{\theMax}{{1,525},{2,340},500}\theMax.
+%
+%\DescribeMacro{\DTLmeanforall}
+%\begin{definition}
+%\cs{DTLmeanforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgmeanall}
+%\begin{definition}
+%\cs{DTLgmeanforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the arithmetic mean of all
+%the numbers in \meta{number list}.
+%\cs{DLTmeanforall} sets \meta{cmd} locally, while \cs{DTLgmeanforall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLmeanforall{\theMean}{25.1,45.2,35.6}\theMean
+%\end{verbatim}
+%produces:
+%\DTLmeanforall{\theMean}{25.1,45.2,35.6}\theMean.
+%Note that if any of the numbers in \meta{number list} contain
+%a comma, you must group the number. Example:
+%\begin{verbatim}
+%\DTLmeanforall{\theMean}{{1,525},{2,340},500}\theMean
+%\end{verbatim}
+%produces:
+%\DTLmeanforall{\theMean}{{1,525},{2,340},500}\theMean.
+%
+%\DescribeMacro{\DTLvarianceforall}
+%\begin{definition}
+%\cs{DTLvarianceforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgvarianceforall}
+%\begin{definition}
+%\cs{DTLgvarianceforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the variance of all
+%the numbers in \meta{number list}.
+%\cs{DLTvarianceforall} sets \meta{cmd} locally, while \cs{DTLgvarianceforall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLvarianceforall{\theVar}{25.1,45.2,35.6}\theVar
+%\end{verbatim}
+%produces:
+%\DTLvarianceforall{\theVar}{25.1,45.2,35.6}\theVar.
+%Again note that if any of the numbers in \meta{number list}
+%contain a comma, you must group the number.
+%
+%\DescribeMacro{\DTLsdforall}
+%\begin{definition}
+%\cs{DTLsdforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%\DescribeMacro{\DTLgsdforall}
+%\begin{definition}
+%\cs{DTLgsdforall}\marg{cmd}\marg{number list}
+%\end{definition}
+%This sets the control sequence \meta{cmd} to the standard deviation of all
+%the numbers in \meta{number list}.
+%\cs{DLTsdforall} sets \meta{cmd} locally, while \cs{DTLgsdforall} sets
+%\meta{cmd} globally. Example:
+%\begin{verbatim}
+%\DTLsdforall{\theSD}{25.1,45.2,35.6}\theSD
+%\end{verbatim}
+%produces:
+%\DTLsdforall{\theSD}{25.1,45.2,35.6}\theSD.
+%Note that if any of the numbers in \meta{number list} contain
+%a comma, you must group the number. Example:
+%\begin{verbatim}
+%\DTLsdforall{\theSD}{{1,525},{2,340},500}\theSD
+%\end{verbatim}
+%produces:
+%\DTLsdforall{\theSD}{{1,525},{2,340},500}\theSD.
+%
+%\DescribeMacro{\DTLround}
+%\begin{definition}
+%\cs{DTLround}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+%\DescribeMacro{\DTLground}
+%\begin{definition}
+%\cs{DTLground}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+%This sets \meta{cmd} to \meta{num} rounded to \meta{num digits}
+%after the decimal character.
+%\cs{DLTround} sets \meta{cmd} locally, while \cs{DTLground} sets
+%\meta{cmd} globally.
+%
+%\DescribeMacro{\DTLtrunc}
+%\begin{definition}
+%\cs{DTLtrunc}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+%\DescribeMacro{\DTLgtrunc}
+%\begin{definition}
+%\cs{DTLgtrunc}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+%This sets \meta{cmd} to \meta{num} truncated to \meta{num digits}
+%after the decimal character.
+%\cs{DLTtrunc} sets \meta{cmd} locally, while \cs{DTLgtrunc} sets
+%\meta{cmd} globally.
+%
+%\DescribeMacro{\DTLclip}
+%\begin{definition}
+%\cs{DTLclip}\marg{cmd}\marg{num}
+%\end{definition}
+%\DescribeMacro{\DTLgclip}
+%\begin{definition}
+%\cs{DTLgclip}\marg{cmd}\marg{num}
+%\end{definition}
+%This sets \meta{cmd} to \meta{num} with all unnecessary 0's
+%removed.
+%\cs{DLTclip} sets \meta{cmd} locally, while \cs{DTLgclip} sets
+%\meta{cmd} globally.
+%
+%\section{Strings}
+%\label{sec:strings}
+%
+%Strings are considered to be anything non-numerical. The
+%\sty{datatool} package loads the \sty{substr} package, so
+%you can use the commands defined in that package to determine
+%if one string is contained in another string. In addition,
+%the \sty{datatool} provides the following macros:
+%
+%\DescribeMacro{\DTLsubstitute}
+%\begin{definition}
+%\cs{DTLsubstitute}\marg{cmd}\marg{original}\marg{replacement}
+%\end{definition}
+%This replaces the first occurrence of \meta{original} in
+%\meta{cmd} with \meta{replacement}. Note that \meta{cmd} must
+%be the name of a command. For example:
+%\begin{verbatim}
+%\def\mystr{abcdce}\DTLsubstitute{\mystr}{c}{z}\mystr
+%\end{verbatim}
+%produces:
+%\def\mystr{abcdce}\DTLsubstitute{\mystr}{c}{z}\mystr.
+%
+%\DescribeMacro{\DTLsubstituteall}
+%\begin{definition}
+%\cs{DTLsubstituteall}\marg{cmd}\marg{original}\marg{replacement}
+%\end{definition}
+%This replaces all occurrences of \meta{original} in
+%\meta{cmd} with \meta{replacement}, where again, \meta{cmd} must
+%be the name of a command. For example:
+%\begin{verbatim}
+%\def\mystr{abcdce}\DTLsubstituteall{\mystr}{c}{z}\mystr
+%\end{verbatim}
+%produces:
+%\def\mystr{abcdce}\DTLsubstituteall{\mystr}{c}{z}\mystr.
+%
+%\DescribeMacro{\DTLsplitstring}
+%\begin{definition}
+%\cs{DTLsplitstring}\marg{string}\marg{split text}\marg{before
+%cmd}\marg{after cmd}
+%\end{definition}
+%This splits \meta{string} at the first occurrence of \meta{split text}
+%and stores the before part in the command \meta{before cmd} and
+%the after part in the command \meta{after cmd}. For example:
+%\begin{verbatim}
+%\DTLsplitstring{abcdce}{c}{\beforepart}{\afterpart}%
+%Before part: ``\beforepart''. After part: ``\afterpart''
+%\end{verbatim}
+%produces:
+%\DTLsplitstring{abcdce}{c}{\beforepart}{\afterpart}\relax
+%Before part: ``\beforepart''. After part: ``\afterpart''.
+%Note that for \cs{DTLsplitstring}, \meta{string} is not
+%expanded, so
+%\begin{verbatim}
+%\def\mystr{abcdce}%
+%\DTLsplitstring{\mystr}{c}{\beforepart}{\afterpart}%
+%Before part: ``\beforepart''. After part: ``\afterpart''
+%\end{verbatim}
+%produces:
+%\def\mystr{abcdce}\relax
+%\DTLsplitstring{\mystr}{c}{\beforepart}{\afterpart}%
+%Before part: ``\beforepart''. After part: ``\afterpart''. If you
+%want the string expanded, you will need to use \cs{expandafter}:
+%\begin{verbatim}
+%\def\mystr{abcdce}%
+%\expandafter\DTLsplitstring\expandafter
+%{\mystr}{c}{\beforepart}{\afterpart}%
+%Before part: ``\beforepart''. After part: ``\afterpart''
+%\end{verbatim}
+%which produces:
+%\def\mystr{abcdce}\relax
+%\expandafter\DTLsplitstring\expandafter
+%{\mystr}{c}{\beforepart}{\afterpart}\relax
+%Before part: ``\beforepart''. After part: ``\afterpart''.
+%
+%\DescribeMacro{\DTLinitials}
+%\begin{definition}
+%\cs{DTLinitials}\marg{string}
+%\end{definition}
+%This converts \meta{string} (typically a name) into initials.
+%For example:
+%\begin{verbatim}
+%\DTLinitials{Mary Ann}
+%\end{verbatim}
+%produces:
+%\DTLinitials{Mary Ann} (including the final full stop.) Note that
+%\begin{verbatim}
+%\DTLinitials{Mary-Ann}
+%\end{verbatim}
+%produces:
+%\DTLinitials{Mary-Ann} (including the final full stop.)
+%Be careful if the initial letter has an
+%accent. The accented letter needs to be placed in a group, if
+%you want the initial to also have an accent, otherwise the
+%accent command will be ignored. For example:
+%\begin{verbatim}
+%\DTLinitials{{\'E}lise Adams}
+%\end{verbatim}
+%produces:
+%\DTLinitials{{\'E}lise Adams}, whereas
+%\begin{verbatim}
+%\DTLinitials{\'Elise Adams}
+%\end{verbatim}
+%produces:
+%\DTLinitials{\'Elise Adams} In fact, any command which appears
+%at the start of the name that is not enclosed in a group will
+%be ignored. For example:
+%\begin{verbatim}
+%\DTLinitials{\MakeUppercase{m}ary ann}
+%\end{verbatim}
+%produces:
+%\DTLinitials{\MakeUppercase{m}ary ann}, whereas
+%\begin{verbatim}
+%\DTLinitials{{\MakeUppercase{m}}ary ann}
+%\end{verbatim}
+%produces:
+%\DTLinitials{{\MakeUppercase{m}}ary ann}, but note that
+%\begin{verbatim}
+%\DTLinitials{\MakeUppercase{mary ann}}
+%\end{verbatim}
+%produces:
+%\DTLinitials{\MakeUppercase{mary ann}}
+%
+%\DescribeMacro{\DTLstoreinitials}
+%\begin{definition}
+%\cs{DTLstoreinitials}\marg{string}\marg{cmd}
+%\end{definition}
+%This converts \meta{string} into initials and stores the
+%result in \meta{cmd} which must be a command name. The remarks
+%about \cs{DTLinitials} also relate to \cs{DTLstoreinitials}.
+%For example
+%\begin{verbatim}
+%\DTLstoreinitials{Marie-{\'E}lise del~Rosario}{\theInitials}\theInitials
+%\end{verbatim}
+%produces:
+%\DTLstoreinitials{Marie-{\'E}lise del~Rosario}{\theInitials}\theInitials
+%
+%Both the above commands rely on the following to format the
+%initials:
+%\DescribeMacro{\DTLafterinitials}
+%\begin{definition}
+%\cs{DTLafterinitials}
+%\end{definition}
+%This indicates what to do at the end of the initials. This
+%simply does a full stop by default.
+%
+%\DescribeMacro{\DTLbetweeninitials}
+%\begin{definition}
+%\cs{DTLbetweeninitials}
+%\end{definition}
+%This indicates what to do between initials. This does a
+%full stop by default.
+%
+%\DescribeMacro{\DTLinitialhyphen}
+%\begin{definition}
+%\cs{DTLinitialhyphen}
+%\end{definition}
+%This indicates what to do at a hyphen. This simply does a hyphen
+%by default, but can be redefined to do nothing to prevent the
+%hyphen appearing in the initials.
+%
+%\DescribeMacro{\DTLafterinitialbeforehyphen}
+%\begin{definition}
+%\cs{DTLafterinitialbeforehyphen}
+%\end{definition}
+%This indicates what to do between an initial and a hyphen.
+%This simply does a full stop by default.
+%
+%For example
+%\begin{verbatim}
+%\renewcommand*{\DTLafterinitialbeforehyphen}{}%
+%\DTLinitials{Marie-{\'E}lise del~Rosario}
+%\end{verbatim}
+%produces:
+%{\renewcommand*{\DTLafterinitialbeforehyphen}{}\relax
+%\DTLinitials{Marie-{\'E}lise del~Rosario}}
+%whereas
+%\begin{verbatim}
+%\renewcommand*{\DTLafterinitialbeforehyphen}{}%
+%\renewcommand*{\DTLafterinitials}{}%
+%\renewcommand*{\DTLbetweeninitials}{}%
+%\renewcommand*{\DTLinitialhyphen}{}%
+%\DTLinitials{Marie-{\'E}lise del~Rosario}
+%\end{verbatim}
+%produces:
+%{\renewcommand*{\DTLafterinitialbeforehyphen}{}\relax
+%\renewcommand*{\DTLafterinitials}{}\relax
+%\renewcommand*{\DTLbetweeninitials}{}\relax
+%\renewcommand*{\DTLinitialhyphen}{}\relax
+%\DTLinitials{Marie-{\'E}lise del~Rosario}}
+%
+%\section{Databases}
+%\label{sec:databases}
+%
+%The \sty{datatool} package provides a means of creating and
+%loading databases. Once a database has been created (or loaded),
+%it is possible to iterate through each row of data, to make it
+%easier to perform repetitive actions, such as mail merging.
+%
+%\subsection{Creating a New Database}
+%\label{sec:newdb}
+%
+%\DescribeMacro{\DTLnewdb}
+%\begin{definition}
+%\cs{DTLnewdb}\marg{db name}
+%\end{definition}
+%This command creates a new empty database called \meta{db name}. You
+%can test if a database is empty using:
+%\DescribeMacro{\DTLifdbempty}
+%\begin{definition}
+%\cs{DTLifdbempty}\marg{db name}\marg{true part}\marg{false part}
+%\end{definition}
+%If the database called \meta{db name} is empty, do \meta{true part},
+%otherwise do \meta{false part}.
+%
+%\DescribeMacro{\DTLrowcount}
+%\begin{definition}
+%\cs{DTLrowcount}\marg{db name}
+%\end{definition}
+%This command displays the number of rows in the database called
+%\meta{db name}.
+%
+%\DescribeMacro{\DTLnewrow}
+%\begin{definition}
+%\cs{DTLnewrow}\marg{db name}
+%\end{definition}
+%This command starts a new row in the database called \meta{db name}.
+%This new row becomes the current row when adding new entries.
+%
+%For example, the following creates an empty database called
+%\texttt{mydata}:
+%\begin{verbatim}
+%\DTLnewdb{mydata}
+%\end{verbatim}
+%\DTLnewdb{mydata}\relax
+%The following tests if the database is empty:
+%\begin{verbatim}
+%\DTLifdbempty{mydata}{empty}{not empty}!
+%\end{verbatim}
+%This produces:
+%\DTLifdbempty{mydata}{empty}{not empty}!
+%
+%The following adds an empty row to the database, this is the
+%first row of the database:
+%\begin{verbatim}
+%\DTLnewrow{mydata}
+%\end{verbatim}
+%\DTLnewrow{mydata}\relax
+%Note that even though the only row in the database is currently
+%empty, the database is no longer considered to be empty:
+%\begin{verbatim}
+%\DTLifdbempty{mydata}{empty}{not empty}!
+%\end{verbatim}
+%This now produces:
+%\DTLifdbempty{mydata}{empty}{not empty}! The row count is
+%given by
+%\begin{verbatim}
+%\DTLrowcount{mydata}
+%\end{verbatim}
+%which produces:
+%\DTLrowcount{mydata}.
+%
+%\DescribeMacro{\DTLnewdbentry}
+%\begin{definition}
+%\cs{DTLnewdbentry}\marg{db name}\marg{key}\marg{value}
+%\end{definition}
+%This creates a new entry with the identifier \meta{key} whose value
+%is \meta{value} and adds it to the last row of the database
+%called \meta{db name}. For example:
+%\begin{verbatim}
+%\DTLnewdbentry{mydata}{Surname}{Smith}
+%\DTLnewdbentry{mydata}{FirstName}{John}
+%\end{verbatim}
+%Adds an entry with identifier \texttt{Surname} and value
+%\texttt{Smith} to the last row of the database named
+%\texttt{mydata}, and then adds an entry with identifier
+%\texttt{FirstName} and value \texttt{John}.
+%
+%\importantpar Note that database entries can't contain paragraph
+%breaks as many of the macros used by \sty{datatool} are short
+%commands. If you do need a paragraph break in an entry, you can
+%instead use the command:
+%\DescribeMacro{\DTLpar}
+%\begin{definition}
+%\cs{DTLpar}
+%\end{definition}
+%
+%\DescribeMacro{\DTLaddentryforrow}
+%\begin{definition}
+%\cs{DTLaddentryforrow}\marg{db name}\marg{assign list}\marg{condition}\marg{key}\marg{value}
+%\end{definition}
+%This adds the entry with the key given by \meta{key} and value
+%given by \meta{value} to the first row in the database
+%\meta{db name} which satisfies the condition given by
+%\meta{condition}. The \meta{assign list} argument is the same
+%as for \cs{DTLforeach} (described in \autoref{sec:dbforeach})
+%and may be used to set the values which are to be tested in
+%\meta{condition} (where, again, \meta{condition} is the same
+%as for \cs{DTLforeach}).
+%
+%\subsection{Loading a Database from an External ASCII File}
+%\label{sec:loaddb}
+%
+%Instead of using the commands described in \autoref{sec:newdb}
+%to create a new database, you can load a database from an
+%external ASCII file using:
+%\DescribeMacro{\DTLloaddb}
+%\begin{definition}
+%\cs{DTLloaddb}\marg{db name}\marg{filename}
+%\end{definition}
+%This creates a new database called \meta{db name}, and fills
+%it with the entries given in the file \meta{filename}.
+%The filename must have a header row at the start of the file,
+%which provides the \meta{key} when creating a new database entry
+%using \ics{DTLnewdbentry}. By default, the entries in the database
+%must be separated by a comma, and optionally delimited by the
+%double quote character (\verb|"|). The separator can be changed
+%to a tab separator using the command:
+%\DescribeMacro{\DTLsettabseparator}
+%\begin{definition}
+%\cs{DTLsettabseparator}
+%\end{definition}
+%To set the separator to a character other than a tab, you need to use
+%\DescribeMacro{\DTLsetseparator}
+%\begin{definition}
+%\cs{DTLsetseparator}\marg{character}
+%\end{definition}
+%The delimiter can be changed using
+%\DescribeMacro{\DTLsetdelimiter}
+%\begin{definition}
+%\cs{DTLsetdelimiter}\marg{character}
+%\end{definition}
+%
+%For example, suppose you have a file called \texttt{mydata.csv}
+%which contains the following:
+%\begin{verbatim}
+%FirstName,Surname,Score
+%John,"Smith, Jr",68
+%Jane,Brown,75
+%Andy,Brown,42
+%Z\"oe,Adams,52
+%\end{verbatim}
+%then
+%\begin{verbatim}
+%\DTLloaddb{mydata}{mydata.csv}
+%\end{verbatim}
+%is equivalent to:
+%\begin{verbatim}
+%\DTLnewdb{mydata}
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{FirstName}{John}%
+%\DTLnewdbentry{mydata}{Surname}{Smith, Jr}%
+%\DTLnewdbentry{mydata}{Score}{68}%
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{FirstName}{Jane}%
+%\DTLnewdbentry{mydata}{Surname}{Brown}%
+%\DTLnewdbentry{mydata}{Score}{75}%
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{FirstName}{Andy}%
+%\DTLnewdbentry{mydata}{Surname}{Brown}%
+%\DTLnewdbentry{mydata}{Score}{42}%
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{FirstName}{Z\"oe}%
+%\DTLnewdbentry{mydata}{Score}{52}%
+%\DTLnewdbentry{mydata}{Surname}{Adams}%
+%\end{verbatim}
+%Note that the entry \texttt{Smith, Jr} had to be delimited in
+%\texttt{mydata.csv} using the double quote character since it
+%contained a comma which is used as the separator.
+%
+%The file used in the above example contained a \LaTeX\ command,
+%namely \verb|\"|. When using \ics{DTLloaddb} all the special
+%characters that appear in the command retain their \LaTeX\ meaning
+%when the file is loaded. It is likely however that the data file
+%may have been created by another application that is not \TeX-aware,
+%such as a spreadsheet application. For example, suppose you
+%have a file called, say, \texttt{products.csv} which looks
+%like:
+%\begin{verbatim}
+%Product,Cost
+%Fruit & Veg,$1.25
+%Stationary,$0.80
+%\end{verbatim}
+%This file contains two of \TeX's special characters, namely
+%"&" and \verb|$|. In this case, if you try to load the file
+%using \ics{DTLloaddb}, you will encounter errors. Instead you
+%can use:
+%\DescribeMacro{\DTLloadrawdb}
+%\begin{definition}
+%\cs{DTLloadrawdb}\marg{db name}\marg{filename}
+%\end{definition}
+%This is the same as \ics{DTLloaddb} except that it maps nine of
+%the ten special characters onto commands which produce that
+%symbol. The only character that retains its active state is the
+%backslash character, so you will still need to check the file
+%for backslash characters. The mappings used are listed in
+%\autoref{tab:rawmappings}. So using the file \texttt{products.csv},
+%as described above,
+%\begin{verbatim}
+%\DTLloadrawdb{mydata}{products.csv}
+%\end{verbatim}
+%is equivalent to:
+%\begin{verbatim}
+%\DTLnewdb{mydata}
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{Product}{Fruit \& Veg}%
+%\DTLnewdbentry{mydata}{Cost}{\$1.25}%
+%\DTLnewrow{mydata}%
+%\DTLnewdbentry{mydata}{Product}{Stationary}%
+%\DTLnewdbentry{mydata}{Cost}{\$0.80}%
+%\end{verbatim}
+%
+%\begin{table}[htbp]
+%\caption[Special character mappings used by
+%\cs{DTLloadrawdb}]{Special character mappings used by
+%\cs{DTLloadrawdb} (note that the backslash retains its active state)}
+%\label{tab:rawmappings}
+%\begin{center}
+%\begin{tabular}{ll}
+%Character & Mapping\\
+%\verb|%| & \verb|\%|\\
+%\verb|$| & \verb|\$|\\
+%\verb|&| & \verb|\&|\\
+%\verb|#| & \verb|\#|\\
+%\verb|_| & \verb|\_|\\
+%\verb|{| & \verb|\{|\\
+%\verb|}| & \verb|\}|\\
+%\verb|~| & \cs{textasciitilde}\\
+%\verb|^| & \cs{textasciicircum}
+%\end{tabular}
+%\end{center}
+%\end{table}
+%
+%It may be that there are other characters that require mapping.
+%For example, the file \texttt{products.csv} may instead look like:\par
+%\vskip\baselineskip
+%\begin{ttfamily}\obeylines\setlength{\parindent}{0pt}
+%Product,Cost
+%Fruit \& Veg,\pounds1.25
+%Stationary,\pounds0.80
+%\end{ttfamily}
+%\vskip\baselineskip
+%The pound character is not an internationally standard keyboard
+%character, and does not generally achieve the desired effect when used
+%in a \LaTeX\ document. It will therefore be necessary to convert
+%this symbol to an appropriate control sequence. This can be done
+%using the command:
+%\DescribeMacro{\DTLrawmap}
+%\begin{definition}
+%\cs{DTLrawmap}\marg{string}\marg{replacement}
+%\end{definition}
+%For example:\par
+%\vskip\baselineskip
+%\begin{ttfamily}\obeylines\setlength{\parindent}{0pt}
+%\cs{DTLrawmap}\char`\{\pounds\char`\}\char`\{\cs{pounds}\char`\}
+%\end{ttfamily}
+%\vskip\baselineskip\noindent
+%will convert all occurrences\footnote{when it is loaded into the
+%\LaTeX\ database, it does not modify the data file!} of
+%\texttt{\pounds} with \cs{pounds}. Naturally, the mappings must be
+%set \emph{prior} to loading the data with \cs{DTLloadrawdb}.
+%
+%\importantpar Note that the warning in the previous section about no
+%paragraph breaks in an entry also applies to entries loaded from a
+%database. If you do need a paragraph break, use \ics{DTLpar} instead
+%of \cs{par}, but remember that each row of data in an external data
+%file must not have a line break.
+%
+%\subsection{Iterating Through a Database}
+%\label{sec:dbforeach}
+%
+%Once you have created a database, either loading it from an
+%external file, as described in \autoref{sec:loaddb}, or using the
+%commands described in \autoref{sec:newdb}, you can then iterate
+%through each row of the database and access elements in that row.
+%
+%\DescribeMacro{\DTLforeach}
+%\begin{definition}
+%\cs{DTLforeach}\oarg{condition}\marg{db name}\marg{assign list}\marg{text}
+%\end{definition}
+%\DescribeMacro{\DTLforeach*}
+%\begin{definition}
+%\cs{DTLforeach*}\oarg{condition}\marg{db name}\marg{assign list}\marg{text}
+%\end{definition}
+%This will iterate through each row of the database called
+%\meta{db name}, applying \meta{text} to each row of the database
+%where \meta{condition} is met. The argument \meta{assign list} is a
+%comma separated list of \meta{cmd}"="\meta{key} pairs. At the
+%start of each row, each command \meta{cmd} in \meta{assign list}
+%will be set to the value of the entry given by \meta{key}.
+%These commands may then be used in \meta{text}.
+%
+%\importantpar Note that this assignment is done globally to ensure
+%that \cs{DLTforeach} works correctly in a \env{tabular} environment.
+%Since you may want to use the same set of commands in a later
+%\cs{DTLforeach}, the commands are not checked to determine if they
+%already exist. It is therefore important that you check you are not
+%using an existing command whose value should not be changed.
+%
+%The optional argument \meta{condition} is a condition in the
+%form allowed by \cs{ifthenelse}. This includes the commands
+%provided by the \sty{ifthen} package, as well as the commands
+%described in \autoref{sec:ifthen}. The default value of
+%\meta{condition} is "\boolean{true}".
+%
+%The starred version \cs{DTLforeach*} is a read-only version.
+%If you want to modify the database using any of the commands
+%described in \autoref{sec:editdb}, you must use the unstarred
+%version. The starred version is slightly quicker, however the
+%difference will probably only be noticeable for very large
+%databases.
+%
+%\begin{example}{Student scores}{ex:scores}
+%Suppose you have a data file called \texttt{studentscores.csv} that
+%contains the following:
+%\begin{verbatim}
+%FirstName,Surname,StudentNo,Score
+%John,"Smith, Jr",102689,68
+%Jane,Brown,102647,75
+%Andy,Brown,103569,42
+%Z\"oe,Adams,105987,52
+%Roger,Brady,106872,58
+%Clare,Verdon,104356,45
+%\end{verbatim}
+%\DTLnewdb{scores}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{John}\relax
+%\DTLnewdbentry{scores}{Surname}{Smith, Jr}\relax
+%\DTLnewdbentry{scores}{StudentNo}{102689}\relax
+%\DTLnewdbentry{scores}{Score}{68}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{Jane}\relax
+%\DTLnewdbentry{scores}{Surname}{Brown}\relax
+%\DTLnewdbentry{scores}{StudentNo}{102647}\relax
+%\DTLnewdbentry{scores}{Score}{75}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{Andy}\relax
+%\DTLnewdbentry{scores}{Surname}{Brown}\relax
+%\DTLnewdbentry{scores}{StudentNo}{103569}\relax
+%\DTLnewdbentry{scores}{Score}{42}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{Z\"oe}\relax
+%\DTLnewdbentry{scores}{Score}{52}\relax
+%\DTLnewdbentry{scores}{StudentNo}{105987}\relax
+%\DTLnewdbentry{scores}{Surname}{Adams}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{Roger}\relax
+%\DTLnewdbentry{scores}{Score}{58}\relax
+%\DTLnewdbentry{scores}{StudentNo}{106872}\relax
+%\DTLnewdbentry{scores}{Surname}{Brady}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{FirstName}{Clare}\relax
+%\DTLnewdbentry{scores}{Score}{45}\relax
+%\DTLnewdbentry{scores}{StudentNo}{104356}\relax
+%\DTLnewdbentry{scores}{Surname}{Verdon}\relax
+%and you load the data into a database called "scores" using:
+%\begin{verbatim}
+%\DTLloaddb{scores}{studentscores.csv}
+%\end{verbatim}
+%you can then display the database in a table as follows:
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:scores}. (Note that since I didn't
+%need the student registration number, I didn't bother to
+%assign a command to the key "StudentNo".)
+%
+%\begin{table}[htbp]
+%\caption[Student scores (displaying a database in a
+%table)]{Student scores}\label{tab:scores}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%\end{example}
+%
+%The macro \ics{DTLforeach} may be nested up to three times. Each
+%level uses the corresponding counters:
+%\counterfmt{DTLrowi},
+%\counterfmt{DTLrowii} and
+%\counterfmt{DTLrowiii} which keep track of
+%the current row.
+%
+%\importantpar Note that these counters are only incremented
+%when \meta{condition} is satisfied. These counters are incremented
+%using \cs{refstepcounter} before the start of \meta{text}, so they
+%may be referenced using \cs{label}, however remember that \cs{label}
+%references the last counter to be incremented using
+%\cs{refstepcounter} \emph{in the current scope}. The \cs{label}
+%should therefore be the first command in \meta{text} to ensure
+%that it references the current row counter.
+%
+%\DescribeMacro{\DTLcurrentindex}
+%\begin{definition}
+%\cs{DTLcurrentindex}
+%\end{definition}
+%At the start of each iteration, \cs{DTLcurrentindex} is set
+%to the arabic value of the current row counter.
+%
+%\DescribeMacro{\DTLforeachkeyinrow}
+%\begin{definition}
+%\cs{DTLforeachkeyinrow}\marg{cmd}\marg{text}
+%\end{definition}
+%This iterates through each key in the current row, assigns
+%\meta{cmd} to the value of that key, and does \meta{text}.
+%(\meta{cmd} must be a control sequence.)
+%
+%\begin{example}{Student Scores---Labelling}{ex:label}
+%In the previous example, the student scores, stored in the
+%database "scores" were placed in a table. In this example the
+%table will be modified slightly to number each student according
+%to the row. Suppose I also want to identify which row Jane Brown
+%is in, and reference it in the text. The easiest way to do this
+%is to construct a label on each row which uniquely identifies
+%that student. The label can't simply be constructed from the
+%surname, as there are two students with the same surname. In order
+%to create a unique label, I can either construct a label from
+%both the surname and the first name, or I can use the student's
+%registration number, or I can use the student's score, since all
+%the scores are unique. The former method will cause a problem since
+%one of the names (Z\"oe) contains an accent command. Although
+%the registration numbers are all unique, they are not particularly
+%memorable, so I shall instead use the scores.
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores}
+%\centering
+%\begin{tabular}{cllc}
+%\bfseries Row &
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\label{row:\score}\\\theDTLrowi &
+%\firstname & \surname & \score}%
+%\end{tabular}
+%\end{table}
+%
+%Jane Brown scored the highest (75\%), her score can be seen on
+%row~\ref{row:75}.
+%\end{verbatim}
+%This produces \autoref{tab:scoreslab} and the following text:
+%Jane Brown scored the highest (75\%), her score can be seen on
+%row~\ref*{row:75}.
+%
+%\textbf{Note:} the \cs{label} command is placed before
+%"\\" to ensure that it is in the same scope as the command
+%"\refstepcounter{DTLrowi}".
+%
+%\begin{table}[htbp]
+%\caption[Student scores (labelling rows)]{Student
+%scores}\label{tab:scoreslab}
+%\centering
+%\begin{tabular}{cllc}
+%\bfseries Row &
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\label{row:\score}\\\theDTLrowi &
+%\firstname & \surname & \score}\relax
+%\end{tabular}
+%\end{table}
+%\end{example}
+%
+%\DescribeMacro{\DTLsavelastrowcount}
+%\begin{definition}
+%\cs{DTLsavelastrowcount}\marg{cmd}
+%\end{definition}
+%This command will store the value of the row counter used in
+%the last occurrence of \ics{DTLforeach} in the control sequence
+%\meta{cmd}.
+%
+%\begin{example}{Filtering Rows}{ex:filter}
+%As mentioned earlier, the optional argument \meta{condition} of
+%\ics{DTLforeach} provides a means to exclude certain rows.
+%This example uses the database defined in \autoref{ex:scores},
+%but only displays the information for students whose marks are
+%above 60. At the end of the table, \cs{DTLsavelastrowcount}
+%is used to store the number of rows in the table. (Note that
+%\cs{DTLsavelastrowcount} is outside of \ics{DTLforeach}.)
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Top student scores}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach[\DTLisgt{\score}{60}]{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%
+%\DTLsavelastrowcount{\n}%
+%\n\ students scored above 60\%.
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:topscores}. Note that in this example,
+%I could have specified the condition as "\score>60" since all
+%the scores are integers, however, as it's possible that an entry
+%may feasibly have a decimal score I have used \ics{DTLisgt} instead.
+%
+%\begin{table}[htbp]
+%\caption[Top student scores (filtering rows using
+%\cs{DTLisgt})]{Top student scores}\label{tab:topscores}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach[\DTLisgt{\score}{60}]{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%
+%\DTLsavelastrowcount{\n}\relax
+%\n\ students scored above 60\%.
+%\end{table}
+%
+%Suppose now, I only want to display the scores for students whose
+%surname begins with `B'. I can do this as follows:
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores (B)}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach[\DTLisopenbetween{\surname}{B}{C}]{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:Bscores}.
+%
+%\begin{table}[htbp]
+%\caption[Student scores (B) --- filtering rows using
+%\cs{DTLisopenbetween}]{Student scores (B)}\label{tab:Bscores}
+%\centering
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach[\DTLisopenbetween{\surname}{B}{C}]{scores}
+%{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%
+%\end{example}
+%
+%Within the body of \ics{DTLforeach} (i.e.\ within \meta{text})
+%the following conditionals may be used:
+%\DescribeMacro{\DTLiffirstrow}
+%\begin{definition}
+%\cs{DTLiffirstrow}\marg{true part}\marg{false part}
+%\end{definition}
+%If the current row is the first row, then do \meta{true part},
+%otherwise do \meta{false part}.
+%
+%\DescribeMacro{\DTLifoddrow}
+%\begin{definition}
+%\cs{DTLifoddrow}\marg{true part}\marg{false part}
+%\end{definition}
+%If the current row number is an odd number, then do \meta{true part},
+%otherwise do \meta{false part}.
+%
+%\begin{example}{Stripy Tables}{ex:stripy}
+%This example uses the same database as in the previous examples.
+%It requires the \sty{colortbl} package, which provides the
+%command \cs{rowcolor}. The command \cs{DTLifoddrow} is used
+%to produce a striped table.
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{A stripy table}\label{tab:stripy}
+%\centering
+%\begin{tabular}{llc}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\\DTLifoddrow{\rowcolor{blue}}{\rowcolor{green}}%
+%\firstname & \surname & \score}%
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:stripy}.
+%
+%\begin{table}[htbp]
+%\caption[A stripy table (illustrating the use of
+%\cs{DTLifoddrow})]{A stripy table}\label{tab:stripy}
+%\centering
+%\begin{tabular}{llc}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\\DTLifoddrow{\rowcolor{blue}}{\rowcolor{green}}\relax
+%\firstname & \surname & \score}\relax
+%\end{tabular}
+%\end{table}
+%\end{example}
+%
+%\begin{example}{Two Database Rows per Tabular Row}{ex:2rows}
+%In order to save space, you may want two database rows per
+%tabular row, when displaying a database in a \env{tabular}
+%environment. This can be accomplished using \ics{DTLifoddrow}.
+%For example
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Two database rows per tabular row}
+%\centering
+%\begin{tabular}{llcllc}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%) &
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\DTLifoddrow{\\}{&}%
+%\firstname & \surname & \score}%
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%produces \autoref{tab:2rows}
+%
+%\begin{table}[htbp]
+%\caption[Two database rows per tabular row (illustrating the
+%use of\newline \cs{DTLifoddrow})]{Two database rows per tabular
+%row}\label{tab:2rows}
+%\centering
+%\begin{tabular}{llcllc}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%) &
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\DTLifoddrow{\\}{&}\relax
+%\firstname & \surname & \score}\relax
+%\end{tabular}
+%\end{table}
+%\end{example}
+%
+%\begin{example}{Nested \cs{DTLforeach}}{ex:nested}
+%In this example I have a CSV file called "index.csv" which
+%contains:
+%\begin{verbatim}
+%File,Temperature,NaCl,pH
+%exp25a.csv,25,4.7,0.5
+%exp25b.csv,25,4.8,1.5
+%exp30a.csv,30,5.12,4.5
+%\end{verbatim}
+%\DTLnewdb{index}\relax
+%\DTLnewrow{index}\relax
+%\DTLnewdbentry{index}{File}{exp25a.csv}\relax
+%\DTLnewdbentry{index}{Temperature}{25}\relax
+%\DTLnewdbentry{index}{NaCl}{4.7}\relax
+%\DTLnewdbentry{index}{pH}{0.5}\relax
+%\DTLnewrow{index}\relax
+%\DTLnewdbentry{index}{File}{exp25b.csv}\relax
+%\DTLnewdbentry{index}{Temperature}{25}\relax
+%\DTLnewdbentry{index}{NaCl}{4.8}\relax
+%\DTLnewdbentry{index}{pH}{1.5}\relax
+%\DTLnewrow{index}\relax
+%\DTLnewdbentry{index}{File}{exp30a.csv}\relax
+%\DTLnewdbentry{index}{Temperature}{30}\relax
+%\DTLnewdbentry{index}{NaCl}{5.12}\relax
+%\DTLnewdbentry{index}{pH}{4.5}\relax
+%The first column of this file contains the name of another
+%CSV file which has the results of a time to growth experiment
+%performed at the given incubation temperature, salt concentration
+%and pH. The file "exp25a.csv" contains the following:
+%\begin{verbatim}
+%Time,Log Count
+%0,3.75
+%23,3.9
+%45,4.0
+%\end{verbatim}
+%\DTLnewdb{exp25a.csv}\relax
+%\DTLnewrow{exp25a.csv}\relax
+%\DTLnewdbentry{exp25a.csv}{Time}{0}\relax
+%\DTLnewdbentry{exp25a.csv}{Log Count}{3.75}\relax
+%\DTLnewrow{exp25a.csv}\relax
+%\DTLnewdbentry{exp25a.csv}{Time}{23}\relax
+%\DTLnewdbentry{exp25a.csv}{Log Count}{3.9}\relax
+%\DTLnewrow{exp25a.csv}\relax
+%\DTLnewdbentry{exp25a.csv}{Time}{45}\relax
+%\DTLnewdbentry{exp25a.csv}{Log Count}{4.0}\relax
+%The file "exp25b.csv" contains the following:
+%\begin{verbatim}
+%Time,Log Count
+%0,3.6
+%60,3.8
+%120,4.0
+%\end{verbatim}
+%\DTLnewdb{exp25b.csv}\relax
+%\DTLnewrow{exp25b.csv}\relax
+%\DTLnewdbentry{exp25b.csv}{Time}{0}\relax
+%\DTLnewdbentry{exp25b.csv}{Log Count}{3.6}\relax
+%\DTLnewrow{exp25b.csv}\relax
+%\DTLnewdbentry{exp25b.csv}{Time}{60}\relax
+%\DTLnewdbentry{exp25b.csv}{Log Count}{3.8}\relax
+%\DTLnewrow{exp25b.csv}\relax
+%\DTLnewdbentry{exp25b.csv}{Time}{120}\relax
+%\DTLnewdbentry{exp25b.csv}{Log Count}{4.0}\relax
+%The file "exp30a.csv" contains the following:
+%\begin{verbatim}
+%Time,Log Count
+%0,3.73
+%23,3.67
+%60,4.9
+%\end{verbatim}
+%\DTLnewdb{exp30a.csv}\relax
+%\DTLnewrow{exp30a.csv}\relax
+%\DTLnewdbentry{exp30a.csv}{Time}{0}\relax
+%\DTLnewdbentry{exp30a.csv}{Log Count}{3.73}\relax
+%\DTLnewrow{exp30a.csv}\relax
+%\DTLnewdbentry{exp30a.csv}{Time}{23}\relax
+%\DTLnewdbentry{exp30a.csv}{Log Count}{3.67}\relax
+%\DTLnewrow{exp30a.csv}\relax
+%\DTLnewdbentry{exp30a.csv}{Time}{60}\relax
+%\DTLnewdbentry{exp30a.csv}{Log Count}{4.9}\relax
+%Suppose I now want to iterate through "index.csv", load the given
+%file, and create a table for that data. I can do this using
+%nested \ics{DTLforeach} as follows:
+%\begin{verbatim}
+% % load index data file
+%\DTLloaddb{index}{index.csv}
+%
+% % iterate through index database
+%\DTLforeach{index}{\theFile=File,\theTemp=Temperature,%
+%\theNaCl=NaCl,\thepH=pH}{%
+% % load results file into database of the same name
+%\DTLloaddb{\theFile}{\theFile}%
+% % Create a table
+%\begin{table}[htbp]
+%\caption{Temperature = \theTemp, NaCl = \theNaCl,
+%pH = \thepH}\label{tab:\theFile}
+%\centering
+%\begin{tabular}{rl}
+%\bfseries Time & \bfseries Log Count
+%\DTLforeach{\theFile}{\theTime=Time,\theLogCount=Log Count}{%
+%\\\theTime & \theLogCount}%
+%\end{tabular}
+%\end{table}
+%}
+%\end{verbatim}
+%This creates \autoref{tab:exp25a.csv} to \autoref{tab:exp30a.csv}.
+%(Note that each table is given a label that is based on the
+%database name, to ensure that it is unique.)
+%
+%\DTLforeach{index}{\theFile=File,\theTemp=Temperature,\theNaCl
+%=NaCl,\thepH=pH}{
+%\begin{table}[htbp]
+%\caption[Temperature = \theTemp, NaCl = \theNaCl,
+%pH = \thepH\space (illustrating nested
+%\cs{DTLforeach})]{Temperature = \theTemp, NaCl = \theNaCl,
+%pH = \thepH}\label{tab:\theFile}
+%\centering
+%\begin{tabular}{rl}
+%\bfseries Time & \bfseries Log Count
+%\DTLforeach{\theFile}{\theTime=Time,\theLogCount=Log Count}{
+%\\\theTime & \theLogCount}%
+%\end{tabular}
+%\end{table}
+%}
+%\end{example}
+%
+%\subsection{Null Values}
+%If a database is created using \cs{DTLnewdb}, \cs{DTLnewrow}
+%and \cs{DTLnewdbentry} (rather than loading it from an ASCII
+%file), it is possible for some of the entries to have null values
+%when a value is not assigned to a given key for a given row.
+%
+%When you iterate through the database using \cs{DTLforeach}
+%(described in \autoref{sec:dbforeach}),
+%if an entry is missing for a given row, the associated command given
+%in the \meta{values} argument will be set to a null value. This
+%value depends on the data type associated with the given key.
+%
+%\DescribeMacro{\DTLstringnull}
+%\begin{definition}
+%\cs{DTLstringnull}
+%\end{definition}
+%This is the null value for a string.
+%
+%\DescribeMacro{\DTLnumbernull}
+%\begin{definition}
+%\cs{DTLnumbernull}
+%\end{definition}
+%This is the null value for a number.
+%
+%\DescribeMacro{\DTLifnull}
+%\begin{definition}
+%\cs{DTLifnull}\marg{cmd}\marg{true part}\marg{false part}
+%\end{definition}
+%This checks if \meta{cmd} is null where \meta{cmd} is a command name,
+%if it is, then \meta{true part}
+%is done, otherwise \meta{false part} is done. This macro is
+%illustrated in \autoref{ex:null} below.
+%
+%\begin{example}{Null Values}{ex:null}
+%Consider the following (which creates a database called "emailDB"):
+%\begin{verbatim}
+%\DTLnewdb{emailDB}
+%\DTLnewrow{emailDB}
+%\DTLnewdbentry{emailDB}{Surname}{Jones}
+%\DTLnewdbentry{emailDB}{FirstName}{Mary}
+%\DTLnewdbentry{emailDB}{Email1}{mj@my.uni.ac.uk}
+%\DTLnewdbentry{emailDB}{Email2}{mj@somewhere.com}
+%\DTLnewrow{emailDB}
+%\DTLnewdbentry{emailDB}{Surname}{Smith}
+%\DTLnewdbentry{emailDB}{FirstName}{Adam}
+%\DTLnewdbentry{emailDB}{Email1}{as@my.uni.ac.uk}
+%\DTLnewdbentry{emailDB}{RegNum}{12345}
+%\end{verbatim}
+%\DTLnewdb{emailDB}\relax
+%\DTLnewrow{emailDB}\relax
+%\DTLnewdbentry{emailDB}{Surname}{Jones}\relax
+%\DTLnewdbentry{emailDB}{FirstName}{Mary}\relax
+%\DTLnewdbentry{emailDB}{Email1}{mj@my.uni.ac.uk}\relax
+%\DTLnewdbentry{emailDB}{Email2}{mj@somewhere.com}\relax
+%\DTLnewrow{emailDB}\relax
+%\DTLnewdbentry{emailDB}{Surname}{Smith}\relax
+%\DTLnewdbentry{emailDB}{FirstName}{Adam}\relax
+%\DTLnewdbentry{emailDB}{Email1}{as@my.uni.ac.uk}\relax
+%\DTLnewdbentry{emailDB}{RegNum}{12345}\relax
+%In the above example, the first row of the database contains
+%an entry with the key "Email2", but the second row doesn't.
+%Whereas the second row contains an entry with the key "RegNum",
+%but the first row doesn't.
+%
+%The following code puts the information in a \env{tabular}
+%environment:
+%\begin{verbatim}
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Num%
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname=Surname,%
+%\emailI=Email1,\emailII=Email2,\regnum=RegNum}{%
+%\\\firstname & \surname & \emailI & \emailII & \regnum}%
+%\end{tabular}
+%\end{verbatim}
+%This produces the following:\par\vskip\baselineskip\noindent
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Num\relax
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname
+%=Surname,\emailI=Email1,\emailII=Email2,\regnum=RegNum}{\relax
+%\\\firstname & \surname & \emailI & \emailII & \regnum}\relax
+%\end{tabular}
+%\par\vskip\baselineskip
+%Note that on the first row of data, the registration number appears as
+%0, while on the next row, the second email address appears as
+%NULL. The \sty{datatool} package has identified the key "RegNum"
+%for this database as a numerical key, since all elements in the
+%database with that key are numerical, whereas it has
+%identified the key "Email2" as a string, since there is at least
+%one element in this database with that key that is a string.
+%Null numerical values are set to \cs{DTLnumbernull} (0),
+%and null strings are set to \cs{DTLstringnull} (NULL).
+%
+%The following code checks each value to determine whether it
+%is null using \cs{DTLifnull}. If it is, the text \emph{Missing}
+%is inserted, otherwise the value itself is used:
+%\begin{verbatim}
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Num%
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname=Surname,%
+%\emailI=Email1,\emailII=Email2,\regnum=RegNum}{%
+%\\\DTLifnull{\firstname}{\emph{Missing}}{\firstname} &
+%\DTLifnull{\surname}{\emph{Missing}}{\surname} &
+%\DTLifnull{\emailI}{\emph{Missing}}{\emailI} &
+%\DTLifnull{\emailII}{\emph{Missing}}{\emailII} &
+%\DTLifnull{\regnum}{\emph{Missing}}{\regnum}}%
+%\end{tabular}
+%\end{verbatim}
+%This produces the following:\par\vskip\baselineskip\noindent
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Num\relax
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname
+%=Surname,\emailI=Email1,\emailII=Email2,\regnum=RegNum}{\relax
+%\\\DTLifnull{\firstname}{\emph{Missing}}{\firstname} &
+%\DTLifnull{\surname}{\emph{Missing}}{\surname} &
+%\DTLifnull{\emailI}{\emph{Missing}}{\emailI} &
+%\DTLifnull{\emailII}{\emph{Missing}}{\emailII} &
+%\DTLifnull{\regnum}{\emph{Missing}}{\regnum}}\relax
+%\end{tabular}
+%\par\vskip\baselineskip\noindent
+%If you want to do this, you may find it easier to define a
+%convenience command that will display some appropriate text
+%if an entry is missing, for example:
+%\begin{verbatim}
+%\newcommand*{\checkmissing}[1]{\DTLifnull{#1}{---}{#1}}
+%\end{verbatim}
+%Then instead of typing, say,
+%\begin{verbatim}
+%\DTLifnull{\regnum}{---}{\regnum}
+%\end{verbatim}
+%you can instead type:
+%\begin{verbatim}
+%\checkmissing{\regnum}
+%\end{verbatim}
+%
+%Now suppose that instead of defining the database using \cs{DTLnewdb},
+%\cs{DTLnewrow} and \cs{DTLnewdbentry}, you have a file with the
+%contents:
+%\begin{ttfamily}\setlength{\parindent}{0pt}\par\vskip\baselineskip
+%Surname,FirstName,RegNum,Email1,Email2
+%
+%\DTLforeach{emailDB}{\surname=Surname,\firstname=FirstName,\regNo
+%=RegNum,\emailI=Email1,\emailII
+%=Email2}{\relax
+%\surname,\firstname,\DTLifnull{\regNo}{}{\regNo},\emailI,\DTLifnull{\emailII}{}{\emailII}\par
+%}
+%\end{ttfamily}\par\vskip\baselineskip\noindent
+%and you load the data from this file using \cs{DTLloaddb}
+%(defined in \autoref{sec:loaddb}). Now the
+%database has no null values, but has an empty value for the
+%key "RegNum" on the first row of the database, and an empty
+%value for the key "Email2" on the second row of the database.
+%Now, the following code
+%\begin{verbatim}
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Number%
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname=Surname,%
+%\emailI=Email1,\emailII=Email2,\regnum=RegNum}{%
+%\\\DTLifnull{\firstname}{\emph{Missing}}{\firstname} &
+%\DTLifnull{\surname}{\emph{Missing}}{\surname} &
+%\DTLifnull{\emailI}{\emph{Missing}}{\emailI} &
+%\DTLifnull{\emailII}{\emph{Missing}}{\emailII} &
+%\DTLifnull{\regnum}{\emph{Missing}}{\regnum}}%
+%\end{tabular}
+%\end{verbatim}
+%produces:\par\vskip\baselineskip\noindent
+%\begin{tabular}{lllll}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Email 1 &
+%\bfseries Email 2 &
+%\bfseries Reg Number\relax
+%\DTLforeach{emailDB}{\firstname=FirstName,\surname
+%=Surname,\emailI=Email1,\emailII=Email2,\regnum=RegNum}{\relax
+%\\\firstname & \surname & \emailI & \DTLifnull{\emailII}{}{\emailII} & \DTLifnull{\regnum}{}{\regnum}}\relax
+%\end{tabular}
+%\end{example}
+%
+%\subsection{Editing Database Rows}
+%\label{sec:editdb}
+%
+%In the body of the \ics{DTLforeach} loop, you can use the following
+%to edit the current row:
+%\DescribeMacro{\DTLappendtorow}
+%\begin{definition}
+%\cs{DTLappendtorow}\marg{key}\marg{value}
+%\end{definition}
+%This appends a new entry with the given \meta{key} and \meta{value}
+%to the current row.
+%
+%\DescribeMacro{\DTLreplaceentryforrow}
+%\begin{definition}
+%\cs{DTLreplaceentryforrow}\marg{key}\marg{value}
+%\end{definition}
+%This replaces the entry for \meta{key} with \meta{value}.
+%
+%\DescribeMacro{\DTLremoveentryfromrow}
+%\begin{definition}
+%\cs{DTLremoveentryfromrow}\marg{key}
+%\end{definition}
+%This the entry for \meta{key} from the current row.
+%
+%\DescribeMacro{\DTLremovecurrentrow}
+%\begin{definition}
+%\cs{DTLremovecurrentrow}
+%\end{definition}
+%This removes the current row from the database.
+%
+%\begin{example}{Editing Database Rows}{ex:editdb}
+%In this example I have a CSV file called "marks.csv" that contains
+%student marks for three assignments:
+%\DTLnewdb{marks}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{John}\relax
+%\DTLnewdbentry{marks}{Surname}{Smith, Jr}\relax
+%\DTLnewdbentry{marks}{StudentNo}{102689}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{68}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{57}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{72}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{Jane}\relax
+%\DTLnewdbentry{marks}{Surname}{Brown}\relax
+%\DTLnewdbentry{marks}{StudentNo}{102647}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{75}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{84}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{80}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{Andy}\relax
+%\DTLnewdbentry{marks}{Surname}{Brown}\relax
+%\DTLnewdbentry{marks}{StudentNo}{103569}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{42}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{52}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{54}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{Z\"oe}\relax
+%\DTLnewdbentry{marks}{Surname}{Adams}\relax
+%\DTLnewdbentry{marks}{StudentNo}{105987}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{52}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{48}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{57}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{Roger}\relax
+%\DTLnewdbentry{marks}{Surname}{Brady}\relax
+%\DTLnewdbentry{marks}{StudentNo}{106872}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{58}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{60}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{62}\relax
+%\DTLnewrow{marks}\relax
+%\DTLnewdbentry{marks}{FirstName}{Clare}\relax
+%\DTLnewdbentry{marks}{Surname}{Verdon}\relax
+%\DTLnewdbentry{marks}{StudentNo}{104356}\relax
+%\DTLnewdbentry{marks}{Assignment 1}{45}\relax
+%\DTLnewdbentry{marks}{Assignment 2}{50}\relax
+%\DTLnewdbentry{marks}{Assignment 3}{48}\relax
+%\begin{ttfamily}\setlength{\parindent}{0pt}\par
+%Surname,FirstName,StudentNo,Assignment 1,Assignment 2,Assignment 3
+%
+%\DTLforeach{marks}{\surname=Surname,\firstname=FirstName,\regNo
+%=StudentNo,\assignI=Assignment 1,\assignII
+%=Assignment 2,\assignIII=Assignment 3}{\relax
+%\char`\"\surname\char`\",\DTLifstringeq{\firstname}{Zoe}{Z\string\"oe}{\firstname},\regNo,\assignI,\assignII,\assignIII\par
+%}
+%\end{ttfamily}\par\noindent
+%First load this into a database called "marks":
+%\begin{verbatim}
+%\DTLloaddb{marks}{marks.csv}
+%\end{verbatim}
+%Suppose now I want to compute the average mark for each
+%student, and append this to the database. I can do this as
+%follows:
+%\begin{verbatim}
+%\DTLforeach{marks}{%
+%\assignI=Assignment 1,%
+%\assignII=Assignment 2,%
+%\assignIII=Assignment 3}{%
+%\DTLmeanforall{\theMean}{\assignI,\assignII,\assignIII}%
+%\DTLappendtorow{Average}{\theMean}}
+%\end{verbatim}
+%\DTLforeach{marks}{\assignI=Assignment 1,\assignII
+%=Assignment 2,\assignIII=Assignment 3}{\relax
+%\DTLmeanforall{\theMean}{\assignI,\assignII,\assignIII}%
+%\DTLappendtorow{Average}{\theMean}}\relax
+%For each row in the "marks" database, I now have an extra key
+%called "Average" that contains the average mark over all three
+%assignments for a given student. I can now put this data into
+%a table:
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student marks}
+%\centering
+%\begin{tabular}{llrrrr}
+%\bfseries Surname & \bfseries First Name &
+%\bfseries Assign 1 &
+%\bfseries Assign 2 &
+%\bfseries Assign 3 &
+%\bfseries Average Mark%
+%\DTLforeach{marks}{\surname=Surname,\firstname=FirstName,\average
+%=Average,\assignI=Assignment 1,\assignII=Assignment 2,\assignIII
+%=Assignment 3}{\\\surname
+%& \firstname & \assignI & \assignII & \assignIII &
+%\DTLround{\average}{\average}{2}\average}\relax
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:meanmarks}.
+%
+%Note that if I only wanted the averages for the table and nothing
+%else, I could simply have computed the average in each row of the
+%table and displayed it without adding the information to the
+%database, however I am going to reuse this information in
+%\autoref{ex:multibar}, so adding it to the database means that
+%I don't need to recompute the mean.
+%
+%\begin{table}[htbp]
+%\caption[Student marks (with averages)]{Student
+%marks}\label{tab:meanmarks}
+%\centering
+%\begin{tabular}{llrrrr}
+%\bfseries Surname & \bfseries First Name &
+%\bfseries Assign 1 &
+%\bfseries Assign 2 &
+%\bfseries Assign 3 &
+%\bfseries Average Mark\relax
+%\DTLforeach{marks}{\surname=Surname,\firstname=FirstName,\average
+%=Average,\assignI=Assignment 1,\assignII=Assignment 2,\assignIII
+%=Assignment 3}{\\\surname
+%& \firstname & \assignI & \assignII & \assignIII &
+%\DTLround{\average}{\average}{2}\average}\relax
+%\end{tabular}
+%\end{table}
+%
+%\end{example}
+%
+%\subsection{Arithmetical Computations on Database Entries}
+%
+%The commands used in \autoref{sec:fp} can be used on database
+%entries. You can, of course, directly use the commands provided
+%by the \sty{fp} package if you know that the values are in the
+%correct format (i.e.\ no currency symbols, no number group
+%separators and a full stop as the decimal point) but if this is
+%not the case, then you should use the commands described in
+%\autoref{sec:fp}. If you want to use a command provided by the
+%\sty{fp} package, that does not have a wrapper function in
+%\sty{datatool}, then you will need to convert the value using
+%\ics{DTLconverttodecimal}, and convert it back using either
+%\ics{DTLdecimaltolocale} or \ics{DTLdecimaltocurrency}.
+%
+%\begin{example}{Arithmetical Computations}{ex:mean}
+%In this example, I am going to produce a table similar to
+%\autoref{tab:scores}, except that I want to add an extra row at the
+%end which contains the average score.
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores}\label{tab:mean}
+%\centering
+%\def\total{0}%
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\firstname & \surname &
+%\DTLgadd{\total}{\score}{\total}%
+%\score
+%}\\
+%\multicolumn{2}{l}{\bfseries Average Score} &
+%\DTLsavelastrowcount{\n}%
+%\DTLdiv{\average}{\total}{\n}%
+%\DTLround{\average}{\average}{2}%
+%\average
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:mean}.
+%\textbf{Notes:}
+%\begin{itemize}
+%\item I had to use \ics{DTLgadd} rather than \ics{DTLadd} since it
+%occurs within a \env{tabular} environment which puts each entry
+%in a local scope.
+%
+%\item I used \ics{DTLsavelastrowcount} to store the number of
+%rows produced by \ics{DTLforeach} in the control sequence \cs{n}.
+%
+%\item I used \ics{DTLround} to round the average score to 2 decimal
+%places.
+%\end{itemize}
+%
+%\begin{table}[htbp]
+%\caption[Student scores (using arithmetic computations)]{Student
+%scores}\label{tab:mean}
+%\centering
+%\def\total{0}\relax
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\firstname & \surname &
+%\DTLgadd{\total}{\score}{\total}\relax
+%\score
+%}\\
+%\multicolumn{2}{l}{\bfseries Average Score} &
+%\DTLsavelastrowcount{\n}\relax
+%\DTLdiv{\average}{\total}{\n}\relax
+%\DTLround{\average}{\average}{2}\relax
+%\average
+%\end{tabular}
+%\end{table}
+%\end{example}
+%
+%\DescribeMacro{\DTLsumforkeys}
+%\begin{definition}
+%\cs{DTLsumforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command sums all the entries over all the databases listed in
+%the comma separated list of database names \meta{db list} for each key in
+%\meta{key list} where the condition given by
+%\meta{condition} is true. The result is stored in \meta{cmd}
+%which must be a control sequence. For example:
+%\begin{verbatim}
+%\DTLsumforkeys{scores}{Score}{\total}
+%\end{verbatim}
+%sets \cs{total} to the sum of all the scores in the database
+%called "scores".
+%
+%\DescribeMacro{\DTLmeanforkeys}
+%\begin{definition}
+%\cs{DTLmeanforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command computes the arithmetic mean of all the entries over
+%all the databases listed in \meta{db list} for all keys in \meta{key list} where
+%the condition
+%given by \meta{condition} is true. The result is stored in \meta{cmd}
+%which must be a control sequence. For example:
+%\begin{verbatim}
+%\DTLmeanforkeys{scores}{Score}{\average}
+%\end{verbatim}
+%sets \cs{average} to the mean of all the scores in the database
+%called "scores".
+%
+%\DescribeMacro{\DTLvarianceforkeys}
+%\begin{definition}
+%\cs{DTLvarianceforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command computes the variance of all the entries over
+%all the databases listed in \meta{db list} for all keys in \meta{key list} where
+%the condition
+%given by \meta{condition} is true. The result is stored in \meta{cmd}
+%which must be a control sequence.
+%
+%\DescribeMacro{\DTLsdforkeys}
+%\begin{definition}
+%\cs{DTLsdforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command computes the standard deviation of all the entries over
+%all the databases listed in \meta{db list} for all keys in \meta{key list} where
+%the condition
+%given by \meta{condition} is true. The result is stored in \meta{cmd}
+%which must be a control sequence.
+%
+%\DescribeMacro{\DTLminforkeys}
+%\begin{definition}
+%\cs{DTLminforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command determines the minimum value over all entries
+%for all keys in \meta{key list} over all the databases listed in \meta{db list}
+%and stores
+%in \meta{cmd}, which must be a control sequence. For example
+%\begin{verbatim}
+%\DTLminforkeys{scores}{Score}{\theMin}
+%\end{verbatim}
+%sets \cs{theMin} to the minimum score in the database.
+%
+%\DescribeMacro{\DTLmaxforkeys}
+%\begin{definition}
+%\cs{DTLmaxforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+%This command determines the maximum value over all entries
+%for all keys in \meta{key list} over all the databases listed in \meta{db list}
+%and stores
+%in \meta{cmd}, which must be a control sequence. For example
+%\begin{verbatim}
+%\DTLminforkeys{scores}{Score}{\theMax}
+%\end{verbatim}
+%sets \cs{theMax} to the minimum score in the database.
+%
+%\DescribeMacro{\DTLcomputebounds}
+%\begin{definition}
+%\cs{DTLcomputebounds}\marg{condition}\marg{db list}\marg{x key}\marg{y key}\marg{minX cmd}\marg{minY cmd}\marg{maxX cmd}\marg{maxY cmd}
+%\end{definition}
+%Computes the maximum and minimum $x$ and $y$ values over all
+%the databases listed in \meta{db list} where the $x$ value
+%is given by \meta{x key} and the $y$ value is given by
+%\meta{y key}. The results are stored in \meta{minX cmd},
+%\meta{minY cmd}, \meta{maxX cmd} and \meta{maxY cmd}.
+%
+%\begin{example}{Mail Merging}{ex:mailmerging}
+%This example uses the database given in \autoref{ex:scores} and
+%uses \ics{DTLmeanforkeys} to determine the average score. A letter
+%is then created for each student to inform them of their score
+%and the class average.
+%
+%\begin{verbatim}
+%\documentclass{letter}
+%
+%\usepackage{datatool}
+%
+%\begin{document}
+% % load database
+%\DTLloaddb{scores}{studentscores.csv}
+% % compute arithmetic mean for key `Score'
+%\DTLmeanforkeys{scores}{Score}{\average}
+% % Round the average to 2 decimal places
+%\DTLround{\average}{\average}{2}
+% % Save the highest score in \maxscore
+%\DTLmaxforkeys{scores}{Score}{\maxscore}
+%
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,%
+%\score=Score}{%
+%\begin{letter}{}
+%\opening{Dear \firstname\ \surname}
+%
+%\DTLifnumgt{\score}{60}{Congratulations you}{You} achieved a score
+%of \score\% which was \DTLifnumgt{\score}{\average}{above}{below}
+%the average of \average\%. \DTLifnumeq{\score}{\maxscore}{You
+%achieved the highest score}{The top score was \maxscore}.
+%
+%\closing{Yours Sincerely}
+%\end{letter}
+%}
+%\end{document}
+%\end{verbatim}
+%\end{example}
+%
+%\subsection{Sorting a Database}
+%\label{sec:sort}
+%
+%\DescribeMacro{\DTLsort}
+%\begin{definition}
+%\cs{DTLsort}\oarg{replacement key list}\marg{sort criteria}\marg{db name}
+%\end{definition}
+%\DescribeMacro{\DTLsort*}
+%\begin{definition}
+%\cs{DTLsort*}\oarg{replacement key list}\marg{sort criteria}\marg{db name}
+%\end{definition}
+%This will sort the database called \meta{db name} according to
+%the criteria given by \meta{sort criteria}, which must be a
+%comma separated list of keys and optionally "="\meta{order}, where
+%\meta{order} is either "ascending" or "descending". If the order
+%is omitted, "ascending" is assumed. The database keeps track of
+%the data type for a given key, and uses this to determine whether
+%an alphabetical or numerical sort is required. (String comparisons
+%are made using the command \cs{dtlcompare} or \cs{dtlicompare}
+%described in \autoref{src:dtlcompare}.)
+%
+%The optional argument \meta{replacement key list} is a list of
+%keys to use if the current key given in \meta{sort criteria}
+%is null for a given entry. Null keys are unlikely to occur if
+%you have loaded the database from an external ASCII file, but
+%may occur if the database is created using \cs{DTLnewdb},
+%\cs{DTLnewrow} and \cs{DTLnewdbentry}. For example:
+%\begin{verbatim}
+%\DTLsort[Editor,Organization]{Author}{mydata}
+%\end{verbatim}
+%will sort according to the "Author" key, but if that key is missing
+%for a given row of the database, the "Editor" key will be used,
+%and if the "Editor" key is missing, it will use the "Organization"
+%key. Note that this is not the same as:
+%\begin{verbatim}
+%\DTLsort{Author,Editor,Organization}{mydata}
+%\end{verbatim}
+%which will first compare the "Author" keys, but if the author names
+%are the same, it will then compare the "Editor" keys, and if the
+%editor names are also the same, it will then compare the
+%"Organization" keys.
+%
+%The unstarred version uses a case sensitive comparison for strings,
+%whereas the starred version ignores the case when comparing strings.
+%Note that the case sensitive comparison orders uppercase characters
+%before lowercase characters, so the letter B is considered to be
+%lower than the letter a.
+%
+%\begin{example}{Sorting a Database}{ex:sort}
+%This example uses the database called "scores" defined in
+%\autoref{ex:scores}. First, I am going to sort the database
+%according to the student scores in descending order (highest to
+%lowest) and display the database in a table
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores (sorted by score)}
+%\centering
+%\DTLsort{Score=descending}{scores}%
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:sortscores}.
+%
+%\begin{table}[htbp]
+%\caption{Student scores (sorted by score)}\label{tab:sortscores}
+%\centering
+%\DTLsort{Score=descending}{scores}\relax
+%\begin{tabular}{llr}
+%\bfseries First Name &
+%\bfseries Surname &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\firstname & \surname & \score}
+%\end{tabular}
+%\end{table}
+%
+%Now I am going to sort the database according to
+%surname and then first name, and display it in a table. Note that
+%since I want to sort in ascending order, I can omit the
+%"=ascending" part of the sort criteria. I have also decided to
+%reverse the first and second columns, so that the surname is
+%in the first column.
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores (sorted by name)}
+%\centering
+%\DTLsort{Surname,FirstName}{scores}%
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:sortname}.
+%\begin{table}[htbp]
+%\caption{Student scores (sorted by name)}\label{tab:sortname}
+%\centering
+%\DTLsort{Surname,FirstName}{scores}\relax
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%
+%Now suppose I add two new students to the database:
+%\begin{verbatim}
+%\DTLnewrow{scores}%
+%\DTLnewdbentry{scores}{Surname}{van der Mere}%
+%\DTLnewdbentry{scores}{FirstName}{Henk}%
+%\DTLnewdbentry{scores}{Score}{71}%
+%\DTLnewrow{scores}%
+%\DTLnewdbentry{scores}{Surname}{de la Mere}%
+%\DTLnewdbentry{scores}{FirstName}{Jos}%
+%\DTLnewdbentry{scores}{Score}{58}%
+%\end{verbatim}
+%\DTLnewrow{scores}
+%\DTLnewdbentry{scores}{Surname}{van der Mere}\relax
+%\DTLnewdbentry{scores}{FirstName}{Henk}\relax
+%\DTLnewdbentry{scores}{Score}{71}\relax
+%\DTLnewrow{scores}\relax
+%\DTLnewdbentry{scores}{Surname}{de la Mere}\relax
+%\DTLnewdbentry{scores}{FirstName}{Jos}\relax
+%\DTLnewdbentry{scores}{Score}{58}\relax
+%and again I try sorting the database, and displaying the contents
+%as a table:
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores (case sensitive sort)}
+%\centering
+%\DTLsort{Surname,FirstName}{scores}%
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:sortname2}. Notice that the surnames
+%aren't correctly ordered. This is because a case-sensitive
+%sort was used. Changing \cs{DTLsort} to \cs{DTLsort*} in the
+%above code produces \autoref{tab:sortname3}.
+%
+%\begin{table}[htbp]
+%\caption{Student scores (case sensitive sort)}\label{tab:sortname2}
+%\centering
+%\DTLsort{Surname,FirstName}{scores}\relax
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%
+%\begin{table}[htbp]
+%\caption{Student scores (case ignored when
+%sorting)}\label{tab:sortname3}
+%\centering
+%\DTLsort*{Surname,FirstName}{scores}\relax
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%
+%\end{example}
+%
+%\begin{example}{Influencing the sort order}{ex:sortswitchargs}
+%Consider the data displayed in \autoref{tab:sortname3}, suppose that
+%you want the names ``van der Mere'' and ``de la Mere'' sorted
+%according to the actual surname ``Mere'' rather than by the ``von
+%part''. There are two ways you can do this: firstly, you could store
+%the von part in a separate field, and then sort by surname, then von
+%part, then first name, or you could define a command called, say,
+%\cs{switchargs}, as follows:
+%\begin{verbatim}
+%\newcommand*{\switchargs}[2]{#2#1}
+%\end{verbatim}
+%\newcommand*{\switchargs}[2]{#2#1}\relax
+%then store the data as:
+%\begin{verbatim}
+%FirstName,Surname,StudentNo,Score
+%John,"Smith, Jr",102689,68
+%Jane,Brown,102647,75
+%Andy,Brown,103569,42
+%Z\"oe,Adams,105987,52
+%Roger,Brady,106872,58
+%Clare,Verdon,104356,45
+%Henk,\switchargs{Mere}{van der },106789,71
+%Jos,\switchargs{Mere}{de la },104256,58
+%\end{verbatim}
+%\DTLnewdb{scores2}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{John}\relax
+%\DTLnewdbentry{scores2}{Surname}{Smith, Jr}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{102689}\relax
+%\DTLnewdbentry{scores2}{Score}{68}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Jane}\relax
+%\DTLnewdbentry{scores2}{Surname}{Brown}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{102647}\relax
+%\DTLnewdbentry{scores2}{Score}{75}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Andy}\relax
+%\DTLnewdbentry{scores2}{Surname}{Brown}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{103569}\relax
+%\DTLnewdbentry{scores2}{Score}{42}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Z\"oe}\relax
+%\DTLnewdbentry{scores2}{Score}{52}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{105987}\relax
+%\DTLnewdbentry{scores2}{Surname}{Adams}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Roger}\relax
+%\DTLnewdbentry{scores2}{Score}{58}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{106872}\relax
+%\DTLnewdbentry{scores2}{Surname}{Brady}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Clare}\relax
+%\DTLnewdbentry{scores2}{Score}{45}\relax
+%\DTLnewdbentry{scores2}{StudentNo}{104356}\relax
+%\DTLnewdbentry{scores2}{Surname}{Verdon}\relax
+%\DTLnewrow{scores2}
+%\DTLnewdbentry{scores2}{Surname}{\switchargs{Mere}{van der }}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Henk}\relax
+%\DTLnewdbentry{scores2}{Score}{71}\relax
+%\DTLnewrow{scores2}\relax
+%\DTLnewdbentry{scores2}{Surname}{\switchargs{Mere}{de la }}\relax
+%\DTLnewdbentry{scores2}{FirstName}{Jos}\relax
+%\DTLnewdbentry{scores2}{Score}{58}\relax
+%Now sort the data, and put it in table (this is the same code
+%as in the previous example:
+%\begin{verbatim}
+%\begin{table}[htbp]
+%\caption{Student scores (influencing the sort order)}
+%\centering
+%\DTLsort*{Surname,FirstName}{scores}%
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)%
+%\DTLforeach{scores}{%
+%\firstname=FirstName,\surname=Surname,\score=Score}{%
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%\end{verbatim}
+%This produces \autoref{tab:influencesort}.
+%
+%\begin{table}[htbp]
+%\caption{Student scores (influencing the sort order)}\label{tab:influencesort}
+%\centering
+%\DTLsort*{Surname,FirstName}{scores2}\relax
+%\begin{tabular}{llr}
+%\bfseries Surname &
+%\bfseries First Name &
+%\bfseries Score (\%)\relax
+%\DTLforeach{scores2}{\firstname=FirstName,\surname=Surname,\score=Score}{\relax
+%\\
+%\surname & \firstname & \score}
+%\end{tabular}
+%\end{table}
+%
+%\end{example}
+%
+%\subsection{Saving a Database to an External File}
+%\label{sec:savedb}
+%
+%\DescribeMacro{\DTLsavedb}
+%\begin{definition}
+%\cs{DTLsavedb}\marg{db name}\marg{filename}
+%\end{definition}
+%This writes the database called \meta{db name} to a file called
+%\meta{filename}. The separator and delimiter characters used
+%are as given by \ics{DTLsetseparator} (or \ics{DTLsettabseparator})
+%and \ics{DTLsetdelimiter}. For example:
+%\begin{verbatim}
+%\DTLsettabdelimiter
+%\DTLsavedb{scores}{scores.txt}
+%\end{verbatim}
+%will create a file called "scores.txt", and save the data in a
+%tab separated format. (The delimiters will only be used if a
+%given entry contains the separator character.)
+%
+%\DescribeMacro{\DTLsavetexdb}
+%\begin{definition}
+%\cs{DTLsavetexdb}\marg{db name}\marg{filename}
+%\end{definition}
+%This writes the database called \meta{db name} to a \LaTeX\ file
+%called \meta{filename}, where the database is stored as
+%a combination of \ics{DTLnewdb}, \ics{DTLnewrow} and
+%\ics{DTLnewdbentry} commands.
+%
+%\section{Pie Charts (\texorpdfstring{\sty{datapie}}{datapie} package)}
+%
+%The \sty{datapie} package is not loaded by the \sty{datatool} package,
+%so you need to load \sty{datapie} if you want to use any of the
+%commands defined in this section. You will need to have the
+%\sty{pgf}/\sty{tikz} packages installed. The \sty{datapie} package
+%may be given the following options:
+%\begin{description}
+%\item[{\pkgopt[datapie]{color}}] Colour option (default.)
+%\item[{\pkgopt[datapie]{monochrome}}] Monochrome option.
+%\item[{\pkgopt[datapie]{rotateinner}}]
+%Rotate inner labels so that they are aligned
+%with the pie chart radial axis.
+%\item[{\pkgopt[datapie]{norotateinner}}]
+%Don't rotate inner labels (default.)
+%\item[{\pkgopt[datapie]{rotateouter}}]
+%Rotate outer labels so that they are aligned
+%with the pie chart radial axis.
+%\item[{\pkgopt[datapie]{norotateouter}}]
+%Don't rotate outer labels (default.)
+%\end{description}
+%
+%Numerical information contained in a database created by the
+%\sty{datatool} package can be converted into a pie chart using
+%\DescribeMacro{\DTLpiechart}
+%\begin{definition}
+%\cs{DTLpiechart}\oarg{condition}\marg{settings list}\marg{db name}\marg{values}
+%\end{definition}\noindent
+%where \meta{db name} is the name of the database, and
+%\meta{condition} has the same form as the optional argument
+%to \ics{DTLforeach} described in \autoref{sec:dbforeach}. If
+%\meta{condition} is false, that information is omitted from the
+%construction of the pie chart. The argument \meta{values} is a
+%comma separated list of \meta{cmd}"="\meta{key} pairs, the same
+%as that required by the penultimate argument of \ics{DTLforeach}.
+%The \meta{settings list} is a comma separated list of
+%\meta{setting}=\meta{value} pairs, where \meta{setting} can be any of
+%the following:
+%\begin{description}
+%\item[\setting{DTLpiechart}{variable}]
+%This specifies the control sequence to use that
+%contains the value used to construct the pie chart. The control
+%sequence must be one of the control sequences to appear in
+%the assignment list \meta{values}. This setting is required.
+%
+%\item[\setting{DTLpiechart}{start}]
+%This is the starting angle of the first segment. The
+%value is 0 by default.
+%
+%\item[\setting{DTLpiechart}{radius}]
+%This is the radius of the pie chart. The default value
+%is 2cm.
+%
+%\item[\setting{DTLpiechart}{innerratio}]
+%The distance from the centre of the
+%pie chart to the point where the inner labels are placed is given
+%by this value multiplied by the ratio. The default value is 0.5.
+%
+%\item[\setting{DTLpiechart}{outerratio}]
+%The distance from the centre of the
+%pie chart to the point where the outer labels are placed is given
+%by this value multiplied by the ratio. The default value is 1.25.
+%
+%\item[\setting{DTLpiechart}{cutawayratio}]
+%The distance from the centre of the pie chart
+%to the point of cutaway segments is given by this value multiplied
+%by the ratio. The default value is 0.2.
+%
+%\item[\setting{DTLpiechart}{inneroffset}]
+%This is the absolute distance from the centre
+%of the pie chart to the point where the inner labels are placed.
+%You should use only one or other of \setting{DTLpiechart}{innerratio}
+%and \setting{DTLpiechart}{inneroffset}, not both. If you also want to
+%specify the radius, you must use \setting{DTLpiechart}{ratio}
+%before \setting{DTLpiechart}{inneroffset}. If omitted, the inner
+%offset is obtained from the ratio multiplied by the
+%\setting{DTLpiechart}{innerratio} value.
+%
+%\item[\setting{DTLpiechart}{outeroffset}]
+%This is the absolute distance from the centre
+%of the pie chart to the point where the outer labels are placed.
+%You should use only one or other of \setting{DTLpiechart}{outerratio}
+%and \setting{DTLpiechart}{outeroffset}, not both. If you also want to
+%specify the radius, you must use \setting{DTLpiechart}{ratio}
+%before \setting{DTLpiechart}{outeroffset}. If omitted, the outer
+%offset is obtained from the ratio multiplied by the
+%\setting{DTLpiechart}{outerratio} value.
+%
+%\item[\setting{DTLpiechart}{cutawayoffset}]
+%This is the absolute distance from the centre of
+%the pie chart to the point of the cutaway segments. You should use
+%only one or other of \setting{DTLpiechart}{cutawayratio} and
+%\setting{DTLpiechart}{cutawayoffset}, not both. If
+%you also want to specify the radius, you must use
+%\setting{DTLpiechart}{ratio} before
+%\setting{DTLpiechart}{cutawayoffset}. If omitted, the cutaway offset
+%is obtained from the ratio multiplied by the
+%\setting{DTLpiechart}{cutawayratio} value.
+%
+%\item[\setting{DTLpiechart}{cutaway}]
+%This is a list of cutaway segments. This should be
+%a comma separated list of individual numbers, or number ranges
+%(separated by a dash.) For example "cutaway={1,3}" will separate
+%the first and third segments from the rest of the pie chart, offset
+%by the value of the \setting{DTLpiechart}{cutawayoffset} setting,
+%whereas "cutaway={1-3}" will separate the
+%first three segments from the rest of the pie chart. If omitted,
+%the pie chart will be whole.
+%
+%\item[\setting{DTLpiechart}{innerlabel}]
+%The value of this is positioned in the middle of each segment at a
+%distance of \setting{DTLpiechart}{inneroffset} from the centre
+%of the pie chart. The default is the same as the value of
+%\setting{DTLpiechart}{variable}.
+%
+%\item[\setting{DTLpiechart}{outerlabel}]
+%The value of this is positioned at a distance of
+%\setting{DTLpiechart}{outeroffset} from the centre of the pie chart.
+%The default is empty.
+%
+%\item[\setting{DTLpiechart}{rotateinner}] This is a boolean setting,
+%so it can only take the values "true" and "false". If the value is
+%omitted "true" is assumed. If true, the inner labels are rotated
+%along the spokes of the pie chart, otherwise the inner labels are not
+%rotated. There are analogous package options
+%\pkgopt[datapie]{rotateinner} and \pkgopt[datapie]{norotateinner}.
+%
+%\item[\setting{DTLpiechart}{rotateouter}]
+%This is a boolean setting, so it can only take
+%the values "true" and "false". If the value is omitted "true" is
+%assumed. If true, the outer labels are rotated along the spokes of
+%the pie chart, otherwise the outer labels are not rotated.
+%There are analogous package options
+%\pkgopt[datapie]{rotateouter} and \pkgopt[datapie]{norotateouter}.
+%
+%\end{description}
+%
+%\begin{example}{A Pie Chart}{ex:piechart}
+%This example loads data from a file called "fruit.csv" which contains
+%the following:
+%\begin{verbatim}
+%Name,Quantity
+%"Apples",30
+%"Pears",25
+%"Lemons,Limes",40.5
+%"Peaches",34.5
+%"Cherries",20
+%\end{verbatim}
+%First load the data:
+%\begin{verbatim}
+%\DTLloaddb{fruit}{fruit.csv}
+%\end{verbatim}
+%\DTLnewdb{fruit}\relax
+%\DTLnewrow{fruit}\relax
+%\DTLnewdbentry{fruit}{Name}{Apples}\relax
+%\DTLnewdbentry{fruit}{Quantity}{30}\relax
+%\DTLnewrow{fruit}\relax
+%\DTLnewdbentry{fruit}{Name}{Pears}\relax
+%\DTLnewdbentry{fruit}{Quantity}{25}\relax
+%\DTLnewrow{fruit}\relax
+%\DTLnewdbentry{fruit}{Name}{Lemons,Limes}\relax
+%\DTLnewdbentry{fruit}{Quantity}{40.5}\relax
+%\DTLnewrow{fruit}\relax
+%\DTLnewdbentry{fruit}{Name}{Peaches}\relax
+%\DTLnewdbentry{fruit}{Quantity}{34.5}\relax
+%\DTLnewrow{fruit}\relax
+%\DTLnewdbentry{fruit}{Name}{Cherries}\relax
+%\DTLnewdbentry{fruit}{Quantity}{20}\relax
+%Now create a pie chart in a figure:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{A pie chart}
+%\end{figure}
+%\end{verbatim}
+%This creates \autoref{fig:piechart}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{A pie chart}
+%\label{fig:piechart}
+%\end{figure}
+%
+%There are no outer labels by default, but they can be set
+%using the \setting{DTLpiechart}{outerlabel} setting.
+%The following sets the outer label to the value of the "Name" key:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (outer labels set)}
+%\end{figure}
+%\end{verbatim}
+%This creates \autoref{fig:piechartouter}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name}{fruit}
+%{\name=Name,\quantity=Quantity}
+%\caption{A pie chart (outer labels set)}
+%\label{fig:piechartouter}
+%\end{figure}
+%
+%You may prefer the labels to be rotated. The following
+%switches on the rotation for the inner and outer labels:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name,%
+%rotateinner,rotateouter}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (rotation enabled)}
+%\end{figure}
+%\end{verbatim}
+%This creates \autoref{fig:piechartrot}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name
+%,rotateinner,rotateouter}{fruit}
+%{\name=Name,\quantity=Quantity}
+%\caption{A pie chart (rotation enabled)}
+%\label{fig:piechartrot}
+%\end{figure}
+%\end{example}
+%
+%\begin{example}{Separating Segments from the Pie Chart}{ex:cutaway}
+%You may want to separate one or more segments from the pie chart,
+%perhaps to emphasize them. You can do this using the
+%\setting{DTLpiechart}{cutaway}
+%setting. The following separates the first and third segments
+%from the pie chart:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name,%
+%cutaway={1,3}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:piecutaway}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name
+%,cutaway={1,3}}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments}
+%\label{fig:piecutaway}
+%\end{figure}
+%
+%Alternatively I can specify a range of segments. The following
+%separates the first two segments:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name,%
+%cutaway={1-2}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments (\texttt{cutaway=\{1-2\}})}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:piecutaway2}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name
+%,cutaway={1-2}}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments (\texttt{cutaway=\{1-2\}})}
+%\label{fig:piecutaway2}
+%\end{figure}
+%
+%Notice the difference between \autoref{fig:piecutaway2} and
+%\autoref{fig:piecutaway3} which was produced using:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name,%
+%cutaway={1,2}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments (\texttt{cutaway=\{1,2\}})}
+%\end{figure}
+%\end{verbatim}
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,outerlabel=\name
+%,cutaway={1,2}}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{A pie chart with cutaway segments (\texttt{cutaway=\{1,2\}})}
+%\label{fig:piecutaway3}
+%\end{figure}
+%
+%\end{example}
+%
+%\subsection{Pie Chart Variables}
+%
+%\DescribeMacro{\DTLpievariable}
+%\begin{definition}
+%\cs{DTLpievariable}
+%\end{definition}
+%This command is set to the variable given by the
+%\setting{DTLpiechart}{variable} setting in the \meta{settings list}
+%argument of \cs{DTLpiechart}. The \setting{DTLpiechart}{innerlabel}
+%is set to \cs{DTLpievariable} by default.
+%
+%\DescribeMacro{\DTLpiepercent}
+%\begin{definition}
+%\cs{DTLpiepercent}
+%\end{definition}
+%This command is set to the percentage value of \cs{DTLpievariable}.
+%The percentage value is rounded to \meta{n} digits, where \meta{n}
+%is the value of the \LaTeX\ counter
+%\counterfmt{DTLpieroundvar}.
+%
+%\begin{example}{Changing the Inner and Outer Labels}{ex:pielabels}
+%This example uses the database defined in \autoref{ex:piechart}.
+%The inner label is now set to the percentage value, rather than
+%the actual value, and the outer label is set to the name with
+%the actual value in parentheses.
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,%
+%innerlabel={\DTLpiepercent\%},%
+%outerlabel={\name\ (\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (changing the labels)}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:piechartlabels}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity,innerlabel={\DTLpiepercent
+%\%},outerlabel={\name\ (\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (changing the labels)}
+%\label{fig:piechartlabels}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Pie Chart Label Formatting}
+%
+%\DescribeMacro{\DTLdisplayinnerlabel}
+%\begin{definition}
+%\cs{DTLdisplayinnerlabel}\marg{text}
+%\end{definition}
+%This governs how the inner label is formatted, where \meta{text}
+%is the text of the inner label. The default is to just do \meta{text}.
+%
+%\DescribeMacro{\DTLdisplayouterlabel}
+%\begin{definition}
+%\cs{DTLdisplayouterlabel}\marg{text}
+%\end{definition}
+%This governs how the outer label is formatted, where \meta{text}
+%is the text of the outer label. The default is to just do \meta{text}.
+%
+%\begin{example}{Changing the Inner and Outer Label
+%Format}{ex:pielabelformat}
+%This example extends \autoref{ex:pielabels}.
+%The inner and outer labels are now both typeset in a sans-serif
+%font:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\renewcommand*{\DTLdisplayinnerlabel}[1]{\textsf{#1}}
+%\renewcommand*{\DTLdisplayouterlabel}[1]{\textsf{#1}}
+%\DTLpiechart{variable=\quantity,%
+%innerlabel={\DTLpiepercent\%},%
+%outerlabel={\name\ (\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (changing the label format)}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:piechartlabelformat}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\renewcommand*{\DTLdisplayinnerlabel}[1]{\textsf{#1}}
+%\renewcommand*{\DTLdisplayouterlabel}[1]{\textsf{#1}}
+%\DTLpiechart{variable=\quantity,innerlabel={\DTLpiepercent
+%\%},outerlabel={\name\ (\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{A pie chart (changing the label format)}
+%\label{fig:piechartlabelformat}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Pie Chart Colours}
+%
+%The \sty{datapie} package predefines colours for the first
+%eight segments of the pie chart. If you require more than
+%eight segments, you will need to use
+%\DescribeMacro{\DTLsetpiesegmentcolor}
+%\begin{definition}
+%\cs{DTLsetpiesegmentcolor}\marg{n}\marg{color}
+%\end{definition}\noindent
+%to set the colours for any additional segments, or you can use
+%it to change the default colours. The first argument \meta{n}
+%is the segment index (starting from 1), and the second argument
+%\meta{color} is a colour specifier as used in commands such as
+%\cs{color}.
+%
+%\DescribeMacro{\DTLdopiesegmentcolor}
+%\begin{definition}
+%\cs{DTLdopiesegmentcolor}\meta{n}
+%\end{definition}
+%This sets the current text colour to that of the \meta{n}th
+%segment.
+%
+%\DescribeMacro{\DTLdocurrentpiesegmentcolor}
+%\begin{definition}
+%\cs{DTLdocurrentpiesegmentcolor}
+%\end{definition}
+%This sets the current text colour to that of the current pie
+%segment. This command may only be used within a pie chart, or
+%within the body of \ics{DTLforeach}.
+%
+%\DescribeMacro{\DTLpieoutlinecolor}
+%\begin{definition}
+%\cs{DTLpieoutlinecolor}
+%\end{definition}
+%This sets the outline colour for the pie chart. The default is
+%black.
+%
+%\DescribeMacro{\DTLpieoutlinewidth}
+%\begin{definition}
+%\cs{DTLpieoutlinewidth}
+%\end{definition}
+%This is a length that governs the line width of the outline. The
+%default value is 0pt, but can be changed using \cs{setlength}.
+%The outline is only drawn if \cs{DTLpieoutlinewidth} is greater
+%than 0pt.
+%
+%\begin{example}{Pie Segment Colours}{ex:piecolours}
+%This example extends \autoref{ex:pielabelformat}.
+%It sets the outline thickness to 2pt, and
+%the outer label is now set in the same colour as the fill colour
+%of the segment to which it belongs.
+%In addition, a legend is created using
+%\ics{DTLforeach}.
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\setlength{\DTLpieoutlinewidth}{2pt}
+%\renewcommand*{\DTLdisplayinnerlabel}[1]{\textsf{#1}}
+%\renewcommand*{\DTLdisplayouterlabel}[1]{%
+%\DTLdocurrentpiesegmentcolor
+%\textsf{\shortstack{#1}}}
+%\DTLpiechart{variable=\quantity,%
+%innerlabel={\DTLpiepercent\%},%
+%outerlabel={\name\\(\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\begin{tabular}[b]{ll}
+%\DTLforeach{fruit}{\name=Name}{\DTLiffirstrow{}{\\}%
+%\DTLdocurrentpiesegmentcolor\rule{10pt}{10pt} &
+%\name
+%}
+%\end{tabular}
+%\caption{A pie chart (using segment colours and outline)}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:piesegcolour}. (The format of the
+%outer label has been changed to use \cs{shortstack} to
+%prevent the outer labels from taking up so much horizontal
+%space. The \setting{DTLpiechart}{outerlabel} setting has also been
+%modified to use "\\" after the name to move the percentage value onto
+%the next row.)
+%
+%\begin{figure}[htbp]
+%\centering
+%\setlength{\DTLpieoutlinewidth}{2pt}
+%\renewcommand*{\DTLdisplayinnerlabel}[1]{\textsf{#1}}
+%\renewcommand*{\DTLdisplayouterlabel}[1]{\relax
+%\DTLdocurrentpiesegmentcolor
+%\textsf{\shortstack{#1}}}
+%\DTLpiechart{variable=\quantity,innerlabel={\DTLpiepercent
+%\%},outerlabel={\name\\(\DTLpievariable)}}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\begin{tabular}[b]{ll}
+%\DTLforeach{fruit}{\name=Name}{\DTLiffirstrow{}{\\}\relax
+%\DTLdocurrentpiesegmentcolor\rule{10pt}{10pt} &
+%\name
+%}
+%\end{tabular}
+%\caption{A pie chart (using segment colours and outline)}
+%\label{fig:piesegcolour}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Adding Extra Commands Before and After the Pie Chart}
+%
+%The pie charts created using \ics{DTLpiechart} are placed inside
+%a \env{tikzpicture} environment (defined by the \sty{tikz} package.)
+%
+%\DescribeMacro{\DTLpieatbegintikz}
+%\begin{definition}
+%\cs{DTLpieatbegintikz}
+%\end{definition}
+%The macro \cs{DTLpieatbegintikz} is called at the start of the
+%\env{tikzpicture} environment, allowing you to change the
+%\env{tikzpicture} settings. By default \cs{DTLpieatbegintikz}
+%does nothing, but you can redefine it to, say, scale the pie
+%chart.
+%
+%\DescribeMacro{\DTLpieatendtikz}
+%\begin{definition}
+%\cs{DTLpieatendtikz}
+%\end{definition}
+%The macro \cs{DTLpieatendtikz} is called at the end of the
+%\env{tikzpicture} environment, allowing you add additional
+%graphics to the pie chart. This does nothing by default.
+%
+%\begin{example}{Adding Information to the Pie Chart}{ex:piescale}
+%This example modifies \autoref{ex:piechart}. It redefines
+%\cs{DTLpieatendtikz} to add an annotated arrow.
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLpiechart{variable=\quantity}{fruit}{%
+%\name=Name,\quantity=Quantity}
+%\caption{An annotated pie chart}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:pieannote}. (Note that the centre
+%of the pie chart is the origin of the TikZ picture.)
+%
+%\begin{figure}[htbp]
+%\centering
+%\renewcommand*{\DTLpieatendtikz}{%
+%\draw[<-] (45:1.5cm) -- (40:2.5cm)node[right]{Apples};}
+%\DTLpiechart{variable=\quantity}{fruit}{\name=Name,\quantity=Quantity}
+%\caption{An annotated pie chart}
+%\label{fig:pieannote}
+%\end{figure}
+%\end{example}
+%
+%\section{Scatter and Line Plots (\texorpdfstring{\sty{dataplot}}{dataplot}
+%package)}
+%
+%The \sty{dataplot} package provides commands for creating
+%scatter or line plots from databases. It uses the pgf/TikZ plot
+%handler library to create the plots. See the \sty{pgf} manual for
+%more detail on pgf streams and plot handles. The \sty{dataplot}
+%package is not loaded by \sty{datatool} so if you want to use
+%it you need to load it explicitly using "\usepackage{dataplot}".
+%
+%\DescribeMacro{\DTLplot}
+%\begin{definition}
+%\cs{DTLplot}\oarg{condition}\marg{db list}\marg{settings}
+%\end{definition}
+%This command creates a plot (inside a \env{tikzpicture} environment)
+%of all the data given in the databases listed in \meta{db list},
+%which should be a comma separated list of database names.
+%The optional argument \meta{condition} is the same as that for
+%\ics{DTLforeach}. The \meta{settings} argument is a comma separated
+%list of \meta{setting}"="\meta{value} pairs. There are two settings
+%that must be specified \setting{DTLplot}{x} and \setting{DTLplot}{y}.
+%The other settings are optional. Note that any value that contains
+%a comma, must be enclosed in braces. For example
+%"colors={red,cyan,blue}". Note where any setting requires
+%a number, or list of numbers (such as \setting{DTLplot}{bounds})
+%the number must be supplied in standard decimal notation (i.e.\
+%no currency, no number groups, and a full stop as the decimal
+%point.) Available settings are as follows:
+%\begin{description}
+%\item[\setting{DTLplot}{x}] The database key
+%that specifies the $x$ co-ordinates. This setting is required.
+%
+%\item[\setting{DTLplot}{y}] The database key that specifies
+%the $y$ co-ordinates. This setting is required.
+%
+%\item[\setting{DTLplot}{markcolors}] A comma separated list of colour
+%names for the markers. An empty value will use the current colour.
+%
+%\item[\setting{DTLplot}{linecolors}] A comma separated list of colour
+%names for the plot lines. An empty value will use the current colour.
+%
+%\item[\setting{DTLplot}{colors}] A comma separated list of colour
+%names for the lines and markers.
+%
+%\item[\setting{DTLplot}{marks}] A comma separated list of
+%code to generate plot marks. (This should typically be a list
+%of \cs{pgfuseplotmark} commands, see the \sty{pgf} manual for
+%further details.) You may use \cs{relax} as an element
+%of the list to suppress markers for the corresponding plot.
+%For example: "marks={\pgfuseplotmark{o},\relax}" will use an
+%open circle marker for the first database, and no markers for the
+%second database listed in \meta{db list}.
+%
+%\item[\setting{DTLplot}{lines}] A comma separated list of
+%line style settings. (This should typically be a list of
+%\cs{pgfsetdash} commands, see the \sty{pgf} manual for
+%further details on how to set the line style.) An empty value
+%will use the current line style.
+%You may use \cs{relax} as an element
+%of the list to suppress line for the corresponding plot.
+%For example: "lines={\relax,\pgfsetdash{}{0pt}}"
+%will have no lines for the first database, and a solid line
+%for the second database listed in \meta{db list}.
+%
+%\item[\setting{DTLplot}{width}] The width of the plot. This must
+%be a length. The plot width does not include outer tick marks or
+%labels.
+%
+%\item[\setting{DTLplot}{height}] The height of the plot. This must
+%be a length. The plot height does not include outer tick marks
+%or labels.
+%
+%\item[\setting{DTLplot}{style}] This setting governs whether
+%to use lines or markers in the plot, and may take one of
+%the following values: "both" (lines and markers),
+%"lines" (only lines) or "markers" (only markers.) The default is
+%"markers".
+%
+%\item[\setting{DTLplot}{axes}] This setting governs whether
+%to display the axes, and may take one of
+%the following values: "both", "x", "y" or "none". If no value
+%is specified, "both" is assumed.
+%
+%\item[\setting{DTLplot}{box}] This setting governs whether
+%or not to surround the plot in a box. It is a boolean setting,
+%taking only the values "true" and "false". If no value is
+%specified, "true" is assumed.
+%
+%\item[\setting{DTLplot}{xtics}] This setting governs whether
+%or not to display the $x$ tick marks. It is a boolean setting,
+%taking only the values "true" and "false". If no value is
+%specified "true" is assumed. If the \setting{DTLplot}{axes}
+%setting is set to "both" or "x", this value will automatically
+%be set to "true", otherwise it will be set to "false".
+%
+%\item[\setting{DTLplot}{ytics}] This setting governs whether
+%or not to display the $y$ ticks. It is a boolean setting,
+%taking only the values "true" and "false". If no value is
+%specified "true" is assumed. If the \setting{DTLplot}{axes}
+%setting is set to "both" or "y", this value will automatically
+%be set to "true", otherwise it will be set to "false".
+%
+%
+%\item[\setting{DTLplot}{xminortics}] This setting governs whether
+%or not to display the $x$ minor tick marks. It is a boolean
+%setting, taking only the values "true" and "false". If no value is
+%specified "true" is assumed. This setting also sets the
+%$x$ major tick marks on if the value is "true".
+%
+%\item[\setting{DTLplot}{yminortics}] This setting governs whether
+%or not to display the $y$ minor tick marks. It is a boolean
+%setting, taking only the values "true" and "false". If no value is
+%specified "true" is assumed. This setting also sets the
+%$y$ major tick marks on if the value is "true".
+%
+%\item[\setting{DTLplot}{xticdir}] This sets the $x$ tick direction,
+%and may only take the values "in" or "out".
+%
+%\item[\setting{DTLplot}{yticdir}] This sets the $y$ tick direction,
+%and may only take the values "in" or "out".
+%
+%\item[\setting{DTLplot}{ticdir}] This sets the $x$ and $y$ tick
+%direction, and may only take the values "in" or "out".
+%
+%\item[\setting{DTLplot}{bounds}] The value must be in the form
+%\meta{min x}","\meta{min y}","\meta{max x}","\meta{max y}. This
+%sets the graph bounds to the given values. If omitted the
+%bounds are computed from the maximum and minimum values of the
+%data. For example
+%\begin{verbatim}
+%\DTLplot{data1,data2}{x=Height,y=Weight,bounds={0,0,10,20}}
+%\end{verbatim}
+%Note that the \setting{DTLplot}{bounds} setting overrides
+%the \setting{DTLplot}{minx}, \setting{DTLplot}{maxx},
+%\setting{DTLplot}{miny} and \setting{DTLplot}{maxy} settings.
+%
+%\item[\setting{DTLplot}{minx}] The value is the minimum value
+%of the $x$ axis.
+%
+%\item[\setting{DTLplot}{miny}] The value is the minimum value
+%of the $y$ axis.
+%
+%\item[\setting{DTLplot}{maxx}] The value is the maximum value
+%of the $x$ axis.
+%
+%\item[\setting{DTLplot}{maxy}] The value is the maximum value
+%of the $y$ axis.
+%
+%\item[\setting{DTLplot}{xticpoints}] The value must be a comma
+%separated list of decimal numbers indicating where to put the
+%$x$ tick marks. If omitted, the $x$ tick marks are placed at
+%equal intervals along the $x$ axis such that each interval is
+%not less than the length given by \ics{DTLmintickgap}.
+%This setting overrides \setting{DTLplot}{xticgap}.
+%
+%\item[\setting{DTLplot}{xticgap}] This value specifies the
+%gap between the $x$ tick marks.
+%
+%\item[\setting{DTLplot}{yticpoints}] The value must be a comma
+%separated list of decimal numbers indicating where to put the
+%$y$ tick marks. If omitted, the $y$ tick marks are placed at
+%equal intervals along the $y$ axis such that each interval is
+%not less than the length given by \ics{DTLmintickgap}.
+%This setting overrides \setting{DTLplot}{yticgap}.
+%
+%\item[\setting{DTLplot}{yticgap}] This value specifies the
+%gap between the $y$ tick marks.
+%
+%\item[\setting{DTLplot}{grid}] This is a boolean value that
+%specifies whether or not to display the grid. If no value
+%is given, "true" is assumed. The minor grid lines are only
+%displayed if the minor tick marks are set.
+%
+%\item[\setting{DTLplot}{xticlabels}] The value must be a comma
+%separated list of labels for each $x$ tick mark. If omitted,
+%the labels are the value of the $x$ tick position, rounded
+%\meta{n} digits after the decimal point, where \meta{n} is
+%given by the value of the counter \counterfmt{DTLplotroundXvar}.
+%
+%\item[\setting{DTLplot}{yticlabels}] The value must be a comma
+%separated list of labels for each $y$ tick mark. If omitted,
+%the labels are the value of the $y$ tick position, rounded
+%\meta{n} digits after the decimal point, where \meta{n} is
+%given by the value of the counter \counterfmt{DTLplotroundYvar}.
+%
+%\item[\setting{DTLplot}{xlabel}] The value is the label for
+%the $x$ axis. If omitted, the axis has no label.
+%
+%\item[\setting{DTLplot}{ylabel}] The value is the label for
+%the $y$ axis. If omitted, the axis has no label.
+%
+%\item[\setting{DTLplot}{legend}] This setting governs whether
+%or not to display the legend, and where it should be displayed.
+%It may take one of the following values "none" (don't display
+%the legend), "north", "northeast", "east", "southeast", "south",
+%"southwest", "west" or "northwest". If the value is omitted,
+%"northeast" is assumed.
+%
+%\item[\setting{DTLplot}{legendlabels}] The value must be a comma
+%separated list of labels for the legend. If omitted, the database
+%names are used.
+%
+%\end{description}
+%
+%\begin{example}{A Basic Graph}{ex:basicplot}
+%Suppose you have a file called "groupa.csv" that contains the
+%following:
+%\DTLnewdb{groupa}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.55}\relax
+%\DTLnewdbentry{groupa}{Weight}{45.4}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.54}\relax
+%\DTLnewdbentry{groupa}{Weight}{48.0}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.56}\relax
+%\DTLnewdbentry{groupa}{Weight}{58.0}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.56}\relax
+%\DTLnewdbentry{groupa}{Weight}{50.2}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.57}\relax
+%\DTLnewdbentry{groupa}{Weight}{46.0}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.58}\relax
+%\DTLnewdbentry{groupa}{Weight}{48.3}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.59}\relax
+%\DTLnewdbentry{groupa}{Weight}{56.5}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.59}\relax
+%\DTLnewdbentry{groupa}{Weight}{58.1}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.60}\relax
+%\DTLnewdbentry{groupa}{Weight}{60.9}\relax
+%\DTLnewrow{groupa}\relax
+%\DTLnewdbentry{groupa}{Height}{1.62}\relax
+%\DTLnewdbentry{groupa}{Weight}{56.3}\relax
+%\begin{ttfamily}\obeylines\setlength{\parindent}{0pt}
+%Height,Weight
+%\DTLforeach{groupa}{\x=Height,\y=Weight}{\x,\y
+%}\end{ttfamily}\par\noindent
+%First load this into a database called "groupa":
+%\begin{verbatim}
+%\DTLloaddb{groupa}{groupa.csv}
+%\end{verbatim}
+%The data can now be converted into a scatter plot as follows:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa}{x=Height,y=Weight}
+%\caption{A scatter plot}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:basicplot}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa}{x=Height,y=Weight}
+%\caption{A scatter plot}
+%\label{fig:basicplot}
+%\end{figure}
+%
+%Alternatively, you can use the \setting{DTLplot}{style} setting
+%to change it into a line plot:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa}{x=Height,y=Weight,style=lines}
+%\caption{A line plot}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:basiclineplot}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa}{x=Height,y=Weight,style=lines}
+%\caption{A line plot}
+%\label{fig:basiclineplot}
+%\end{figure}
+%\end{example}
+%
+%\begin{example}{Plotting Multiple Data Sets}{ex:2db}
+%In this example, I shall use the database called "groupa" defined
+%in \autoref{ex:basicplot}, and another database called "groupb"
+%which is loaded from the file "groupb.csv" which contains the
+%following:
+%\DTLnewdb{groupb}
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.54}\relax
+%\DTLnewdbentry{groupb}{Weight}{48.4}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.54}\relax
+%\DTLnewdbentry{groupb}{Weight}{42.0}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.55}\relax
+%\DTLnewdbentry{groupb}{Weight}{64.0}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.56}\relax
+%\DTLnewdbentry{groupb}{Weight}{58.2}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.56}\relax
+%\DTLnewdbentry{groupb}{Weight}{49.0}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.57}\relax
+%\DTLnewdbentry{groupb}{Weight}{40.3}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.58}\relax
+%\DTLnewdbentry{groupb}{Weight}{51.5}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.58}\relax
+%\DTLnewdbentry{groupb}{Weight}{63.1}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.59}\relax
+%\DTLnewdbentry{groupb}{Weight}{74.9}\relax
+%\DTLnewrow{groupb}\relax
+%\DTLnewdbentry{groupb}{Height}{1.59}\relax
+%\DTLnewdbentry{groupb}{Weight}{59.3}\relax
+%\begin{ttfamily}\obeylines\setlength{\parindent}{0pt}
+%Height,Weight
+%\DTLforeach{groupb}{\x=Height,\y=Weight}{\x,\y
+%}\end{ttfamily}\par\noindent
+%First load this into a database called "groupb":
+%\begin{verbatim}
+%\DTLloaddb{groupb}{groupb.csv}
+%\end{verbatim}
+%I can now plot both groups in the same graph, but I want a smaller
+%graph than \autoref{fig:basicplot} and \autoref{fig:basiclineplot},
+%so I am going to set the plot width and height to 3in:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa,groupb}{x=Height,y=Weight,width=3in,height=3in}
+%\caption{A scatter plot}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:2db}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa,groupb}{x=Height,y=Weight,width=3in,height=3in}
+%\caption[A scatter plot (multiple datasets)]{A scatter plot}
+%\label{fig:2db}
+%\end{figure}
+%
+%Now let's add a legend using the \setting{DTLplot}{legend} setting,
+%with the legend labels "Group A" and "Group B",
+%and set the $x$ tick intervals using \setting{DTLplot}{xticpoints}
+%setting. I am also going to set the $x$ axis label to
+%"Height (m)" and the $y$ axis label to "Weight (kg)", and place
+%a box around the plot.
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa,groupb}{x=Height,y=Weight,
+%width=3in,height=3in,legend,legendlabels={Group A,Group B},
+%xlabel={Height (m)},ylabel={Weight (kg)},box,
+%xticpoints={1.54,1.55,1.56,1.57,1.58,1.59,1.60,1.61,1.62}}
+%\caption{A scatter plot}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:legend}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLplot{groupa,groupb}{x=Height,y=Weight,legend,
+%width=3in,height=3in,legendlabels={Group A,Group B},
+%xlabel={Height (m)},ylabel={Weight (kg)},box,
+%xticpoints={1.54,1.55,1.56,1.57,1.58,1.59,1.60,1.61,1.62}}
+%\caption[A scatter plot (with a legend)]{A scatter plot}
+%\label{fig:legend}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Adding Information to the Plot}
+%
+%The \sty{datatool} package provides two hooks used at the beginning
+%and end of the \env{tikzpicture} environment:
+%\DescribeMacro{\DTLplotatbegintikz}
+%\begin{definition}
+%\cs{DTLplotatbegintikz}
+%\end{definition}\noindent
+%and
+%\DescribeMacro{\DTLplotatendtikz}
+%\begin{definition}
+%\cs{DTLplotatendtikz}
+%\end{definition}
+%They are both defined to do nothing by default, but can be redefined
+%to add commands to the image. The unit vectors are set prior to
+%using these hooks, so you can use the same co-ordinates as those
+%in the data sets.
+%
+%\DescribeMacro{\DTLaddtoplotlegend}
+%\begin{definition}
+%\cs{DTLaddtoplotlegend}\marg{marker}\marg{line style}\marg{text}
+%\end{definition}
+%This adds a new row to the plot legend where \meta{marker} is
+%code to produce the marker, \meta{line style} is code to set
+%the line style and \meta{text} is a textual label. You can
+%use \cs{relax} to suppress the marker or line. For example:
+%\begin{verbatim}
+%\DTLaddtoplotlegend{\pgfuseplotmark{x}}{\relax}{Some Data}
+%\end{verbatim}
+%Note that the legend is plotted before \cs{DTLplotatendtikz},
+%so if you want to add information to the legend you will need
+%to do the in \cs{DTLplotatstarttikz}.
+%
+%\begin{example}{Adding Information to a Plot}{ex:addtoplot}
+%Returning to the plots created in \autoref{ex:2db}, suppose
+%I now want to annotate the plot, say I want to draw your notice
+%to a particular point, say the point (1.58,48.3), then I can
+%redefine \cs{DTLplotatendtikz} to draw an annotated arrow to
+%that point:
+%\begin{verbatim}
+%\renewcommand*{\DTLplotatendtikz}{%
+%\draw[<-,line width=1pt] (1.58,48.3) -- (1.6,43)
+% node[below]{interesting point};
+%}
+%\end{verbatim}
+%So \autoref{fig:legend} now looks like \autoref{fig:annote}.
+%(Obviously, \cs{DTLplotatendtikz} needs to be redefined before
+%using \cs{DTLplot}.)
+%
+%\begin{figure}[htbp]
+%\renewcommand*{\DTLplotatendtikz}{%
+%\draw[<-,line width=1pt] (1.58,48.3) -- (1.6,43)
+% node[below]{interesting point};
+%}
+%\centering
+%\DTLplot{groupa,groupb}{x=Height,y=Weight,legend,
+%width=3in,height=3in,legendlabels={Group A,Group B},box,
+%xlabel={Height (m)},ylabel={Weight (kg)},
+%xticpoints={1.54,1.55,1.56,1.57,1.58,1.59,1.60,1.61,1.62}}
+%\caption[A scatter plot (using the end plot hook to annotate the
+%plot)]{A scatter plot}
+%
+%\label{fig:annote}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Global Plot Settings}
+%
+%\subsubsection{Lengths}
+%This section describes the lengths that govern the appearance of
+%the plot created using \ics{DTLplot}. These lengths can be
+%changed using \cs{setlength}.
+%
+%\DescribeMacro{\DTLplotwidth}
+%\begin{definition}
+%\cs{DTLplotwidth}
+%\end{definition}
+%This length governs the length of the $x$ axis. Note that the plot
+%width does not include any outer tick marks or labels. The default
+%value is 4in.
+%
+%\DescribeMacro{\DTLplotheight}
+%\begin{definition}
+%\cs{DTLplotheight}
+%\end{definition}
+%This length governs the length of the $y$ axis. Note that the plot
+%height does not include any outer tick marks or labels. The default
+%value is 4in
+%
+%\DescribeMacro{\DTLticklength}
+%\begin{definition}
+%\cs{DTLticklength}
+%\end{definition}
+%This governs the length of the tick marks. The default value is
+%5pt.
+%
+%\DescribeMacro{\DTLminorticklength}
+%\begin{definition}
+%\cs{DTLminorticklength}
+%\end{definition}
+%This governs the length of the minor tick marks. The default value is
+%2pt.
+%
+%\DescribeMacro{\DTLticklabeloffset}
+%\begin{definition}
+%\cs{DTLticklabeloffset}
+%\end{definition}
+%This governs the distance from the axis to the tick labels. The
+%default value is 8pt.
+%
+%\DescribeMacro{\DTLmintickgap}
+%\begin{definition}
+%\cs{DTLmintickgap}
+%\end{definition}
+%This is the minimum distance allowed between tick marks. If the
+%plot width or height is less than this distance there will only
+%be tick marks at either end of the axis. The default value is
+%20pt.
+%
+%\DescribeMacro{\DTLlegendxoffset}
+%\begin{definition}
+%\cs{DTLlegendxoffset}
+%\end{definition}
+%This is the horizontal distance from the border of the plot to the
+%outer border of the legend. The default value is 10pt.
+%
+%\DescribeMacro{\DTLlegendyoffset}
+%\begin{definition}
+%\cs{DTLlegendyoffset}
+%\end{definition}
+%This is the vertical distance from the border of the plot to the
+%outer border of the legend. The default value is 10pt.
+%
+%\subsubsection{Counters}
+%These counters govern the appearance of plots
+%created using \ics{DTLplot}. The value of the counters can be
+%changed using \cs{setcounter}.
+%
+%\begin{definition}
+%\counterfmt{DTLplotroundXvar}
+%\end{definition}
+%Unless you specify your own tick labels, the $x$ tick labels will
+%be given by the tick points rounded to \meta{n} digits after the
+%decimal point, where \meta{n} is the value of the counter
+%\counterfmt{DTLplotroundXvar}.
+%
+%\begin{definition}
+%\counterfmt{DTLplotroundYvar}
+%\end{definition}
+%Unless you specify your own tick labels, the $y$ tick labels will
+%be given by the tick points rounded to \meta{n} digits after the
+%decimal point, where \meta{n} is the value of the counter
+%\counterfmt{DTLplotroundYvar}.
+%
+%\subsubsection{Macros}
+%These macros govern the appearance of plots created using
+%\ics{DTLplot}. They can be changed using \cs{renewcommand}.
+%
+%\DescribeMacro{\DTLplotmarks}
+%\begin{definition}
+%\cs{DTLplotmarks}
+%\end{definition}
+%This must be a comma separated list of \sty{pgf} code to create the
+%plot marks. \ics{DTLplot} cycles through this list for each
+%database listed. The \sty{pgf} package provides convenient commands
+%for generating plots using \cs{pgfuseplotmark}. See the \sty{pgf}
+%manual for more details.
+%
+%\DescribeMacro{\DTLplotmarkcolors}
+%\begin{definition}
+%\cs{DTLplotmarkcolors}
+%\end{definition}
+%This must be a comma separated list of defined colours to apply to the
+%plot marks. \ics{DTLplot} cycles through this list for each database
+%listed. If this macro is set to empty, the current colour will
+%be used instead.
+%
+%\DescribeMacro{\DTLplotlines}
+%\begin{definition}
+%\cs{DTLplotlines}
+%\end{definition}
+%This must be a comma separated list of \sty{pgf} code to set the
+%style of the plot lines. \ics{DTLplot} cycles through this list for
+%each database listed. Dash patterns can be set using \cs{pgfsetdash},
+%see the \sty{pgf} manual for more details. If \cs{DTLplotlines} is
+%set to empty the current line style will be used instead.
+%
+%\DescribeMacro{\DTLplotlinecolors}
+%\begin{definition}
+%\cs{DTLplotlinecolors}
+%\end{definition}
+%This must be a comma separated list of defined colours to apply to the
+%plot lines. \cs{DTLplot} cycles through this list for each database
+%listed. If this macro is set to empty, the current colour will
+%be used instead. The default is the same as \cs{DTLplotmarkcolors}.
+%
+%\DescribeMacro{\DTLXAxisStyle}
+%\begin{definition}
+%\cs{DTLxaxisstyle}
+%\end{definition}
+%This governs the style of the $x$ axis. It is passed as the optional
+%argument to the TikZ \cs{draw} command. By default it is just "-"
+%which is a solid line style with no start or end arrows. The $x$
+%axis line starts from the bottom left corner of the plot and extends
+%to the bottom right corner of the plot. So if you want the $x$ axis
+%to have an arrow head at the right end, you can do:
+%\begin{verbatim}
+%\renewcommand*{\DTLXAxisStyle}{->}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLYAxisStyle}
+%\begin{definition}
+%\cs{DTLyaxisstyle}
+%\end{definition}
+%This governs the style of the $y$ axis. It is analogous to
+%\cs{DTLxaxisstyle} described above.
+%
+%\DescribeMacro{\DTLmajorgridstyle}
+%\begin{definition}
+%\cs{DTLmajorgridstyle}
+%\end{definition}
+%This specifies the format of the major grid lines.
+%It may be set to any TikZ setting that you can pass to the
+%optional argument of \cs{draw}. The default value is
+%"color=gray,-" which indicates a grey solid line.
+%
+%\DescribeMacro{\DTLminorgridstyle}
+%\begin{definition}
+%\cs{DTLminorgridstyle}
+%\end{definition}
+%This specifies the format of the minor grid lines.
+%It may be set to any TikZ setting that you can pass to the
+%optional argument of \cs{draw}. The default value is
+%"color=gray,loosely dotted" which indicates a grey dotted line.
+%
+%\DescribeMacro{\DTLformatlegend}
+%\begin{definition}
+%\cs{DTLformatlegend}\marg{legend}
+%\end{definition}
+%This formats the entire legend, which is passed as the argument.
+%The default is to set the legend with
+%a white background, a black frame.
+%
+%\subsection{Adding to a Plot Stream}
+%\DescribeMacro{\DTLplotstream}
+%\begin{definition}
+%\cs{DTLplotstream}\oarg{condition}\marg{db name}\marg{x key}\marg{y key}
+%\end{definition}
+%This adds points to a stream from the database called \meta{db name}
+%where the $x$ co-ordinates are given by the key \meta{x key}
+%and the $y$ co-ordinates are given by the key \meta{y key}.
+%(\ics{DTLconverttodecimal} is used to convert locale dependent
+%values to a standard decimal that is recognised by the
+%\sty{pgf} package.)
+%The optional argument \meta{condition} is the same as that
+%for \ics{DTLforeach}.
+%
+%\begin{example}{Adding to a Plot Stream}{ex:plotstream}
+%Suppose you have a CSV file called "data.csv" containing the
+%following:
+%\begin{verbatim}
+%x,y
+%0,0
+%1,1
+%2,0.5
+%1.5,0.3
+%\end{verbatim}
+%\DTLnewdb{data}\relax
+%\DTLnewrow{data}\relax
+%\DTLnewdbentry{data}{x}{0}\relax
+%\DTLnewdbentry{data}{y}{0}\relax
+%\DTLnewrow{data}\relax
+%\DTLnewdbentry{data}{x}{1}\relax
+%\DTLnewdbentry{data}{y}{1}\relax
+%\DTLnewrow{data}\relax
+%\DTLnewdbentry{data}{x}{2}\relax
+%\DTLnewdbentry{data}{y}{0.5}\relax
+%\DTLnewrow{data}\relax
+%\DTLnewdbentry{data}{x}{1.5}\relax
+%\DTLnewdbentry{data}{y}{0.3}\relax
+%First load the file into a database called "data":
+%\begin{verbatim}
+%\DTLloaddb{data}{data.csv}
+%\end{verbatim}
+%Now create a figure containing this data:
+%\begin{verbatim}
+%\begin{figure}[tbhp]
+%\centering
+%\begin{tikzpicture}
+%\pgfplothandlermark{\pgfuseplotmark{o}}
+%\pgfplotstreamstart
+%\DTLplotstream{data}{x}{y}%
+%\pgfplotstreamend
+%\pgfusepath{stroke}
+%\end{tikzpicture}
+%\caption{Adding to a plot stream}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:plotstream}.
+%
+%\begin{figure}[tbhp]
+%\centering
+%\begin{tikzpicture}
+%\pgfplothandlermark{\pgfuseplotmark{o}}
+%\pgfplotstreamstart
+%\DTLplotstream{data}{x}{y}%
+%\pgfplotstreamend
+%\pgfusepath{stroke}
+%\end{tikzpicture}
+%\caption{Adding to a plot stream}
+%\label{fig:plotstream}
+%\end{figure}
+%\end{example}
+%
+%\begin{example}{Plotting Multiple Keys in the Same
+%Database}{ex:multikey}
+%Suppose I have conducted two time to growth experiments. For each
+%experiment, I have recorded the log count at set times, and I have
+%recorded this information in the same data file called, say,
+%"growth.csv" which contains the following:
+%\begin{verbatim}
+%Time,Experiment 1,Experiment 2
+%0,3.73,3.6
+%23,3.67,3.7
+%60,4.9,3.8
+%\end{verbatim}
+%\DTLnewdb{growth}\DTLnewrow{growth}\relax
+%\DTLnewdbentry{growth}{Time}{0}\relax
+%\DTLnewdbentry{growth}{Experiment 1}{3.73}\relax
+%\DTLnewdbentry{growth}{Experiment 2}{3.6}\relax
+%\DTLnewrow{growth}\relax
+%\DTLnewdbentry{growth}{Time}{23}\relax
+%\DTLnewdbentry{growth}{Experiment 1}{3.67}\relax
+%\DTLnewdbentry{growth}{Experiment 2}{3.7}\relax
+%\DTLnewrow{growth}\relax
+%\DTLnewdbentry{growth}{Time}{60}\relax
+%\DTLnewdbentry{growth}{Experiment 1}{4.9}\relax
+%\DTLnewdbentry{growth}{Experiment 2}{3.8}\relax
+%I can load the data into a database using:
+%\begin{verbatim}
+%\DTLloaddb{growth}{growth.csv}
+%\end{verbatim}
+%However, I'd like to plot both results on the same graph. Since they
+%are contained in the same database, I can't use the method I used
+%in \autoref{ex:2db}. Instead I can use a combination of
+%\ics{DTLplot} and \ics{DTLplotstream}:
+%\begin{verbatim}
+%\begin{figure}[tbhp]
+%\centering
+% % computer bounds
+%\DTLminforkeys{growth}{Time}{\minX}
+%\DTLminforkeys{growth}{Experiment 1,Experiment 2}{\minY}
+%\DTLmaxforkeys{growth}{Time}{\maxX}
+%\DTLmaxforkeys{growth}{Experiment 1,Experiment 2}{\maxY}
+% % round x tick labels
+%\setcounter{DTLplotroundXvar}{0}
+% % redefine \DTLplotatbegintikz to plot the data for Experiment 1
+%\renewcommand*{\DTLplotatbegintikz}{%
+% % set plot mark
+%\pgfplothandlermark{\color{green}\pgfuseplotmark{x}}
+% % start plot stream
+%\pgfplotstreamstart
+% % add data from Experiment 1 to plot stream
+%\DTLplotstream{growth}{Time}{Experiment 1}%
+% % end plot stream
+%\pgfplotstreamend
+% % stroke path
+%\pgfusepath{stroke}
+% % add information to legend (no line is require so use \relax)
+%\DTLaddtoplotlegend{\color{green}%
+%\pgfuseplotmark{x}}{\relax}{Experiment 1}
+%}
+% % now plot the data for Experiment 2
+%\DTLplot{growth}{x=Time,y=Experiment 2,legend,
+%width=3in,height=3in,bounds={\minX,\minY,\maxX,\maxY},
+%xlabel={Time},ylabel={Log Count},
+%legendlabels={Experiment 2}}
+%\caption{Time to growth data}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:multikey}.
+%Notes:
+%\begin{itemize}
+%\item I redefined \ics{DTLplotatbegintikz} in order to add
+%the new plot to the legend, since \ics{DTLplotatendtikz} is
+%used after the legend is plotted. The $x$ and $y$ unit vectors
+%are set before \ics{DTLplotatbegintikz} so I don't need to
+%worry about the co-ordinates.
+%\item I set the counter \counterfmt{DTLplotroundXvar} to zero
+%otherwise the $x$ axis would have looked too cluttered.
+%\item I have used \ics{DTLminforkeys} and \ics{DTLmaxforkeys} to
+%determine the bounds since \ics{DTLplot} won't take the data
+%for Experiment 1 into account when computing the bounds.
+%\end{itemize}
+%
+%\begin{figure}[htbp]
+%\DTLminforkeys{growth}{Time}{\minX}
+%\DTLminforkeys{growth}{Experiment 1,Experiment 2}{\minY}
+%\DTLmaxforkeys{growth}{Time}{\maxX}
+%\DTLmaxforkeys{growth}{Experiment 1,Experiment 2}{\maxY}
+%\setcounter{DTLplotroundXvar}{0}
+%\renewcommand*{\DTLplotatbegintikz}{%
+%\pgfplothandlermark{\color{green}\pgfuseplotmark{x}}
+%\pgfplotstreamstart
+%\DTLplotstream{growth}{Time}{Experiment 1}%
+%\pgfplotstreamend
+%\pgfusepath{stroke}
+%\DTLaddtoplotlegend{\color{green}\pgfuseplotmark{x}}{\relax}{Experiment 1}
+%}
+%\centering
+%\DTLplot{growth}{x=Time,y=Experiment 2,legend,
+%width=3in,height=3in,bounds={\minX,\minY,\maxX,\maxY},
+%xlabel={Time},ylabel={Log Count},
+%legendlabels={Experiment 2}}
+%\caption[Time to growth data (plotting from the same database using
+%different keys)]{Time to growth data}
+%\label{fig:multikey}
+%\end{figure}
+%\end{example}
+%
+%\section{Bar Charts (\texorpdfstring{\sty{databar}}{databar}
+%package)}
+%
+%The \sty{databar} package provides commands for creating bar charts.
+%It is not loaded by the \sty{datatool} package, so if you want to
+%use it you will need to load it explicitly using
+%"\usepackage{databar}".
+%
+%Bar charts can either be vertical or horizontal, the default is
+%vertical. In this section the $x$ axis refers to the horizontal
+%axis when plotting a vertical bar chart and to the vertical axis
+%when plotting a horizontal bar chart. The $x$ axis units are in
+%increments of one bar. The $y$ axis refers to the vertical axis
+%when plotting a vertical bar chart and to the horizontal axis when
+%plotting a horizontal bar chart. The $y$ axis uses the same
+%co-ordinates as the data. The bars may have an upper and lower
+%label. In a vertical bar chart, the lower label is placed below
+%the $x$ axis and the upper label is placed above the top of the bar.
+%In a horizontal bar chart, the lower label is placed to the left of
+%the $x$ axis and the upper label is placed to the right of the
+%end of the bar. (This is actually a misnomer as it is possible
+%for the ``upper'' label to be below the ``lower'' label if a
+%bar has a negative value, however the bars are considered to
+%be anchored on the $x$ axis, and the other end of the bar is
+%considered to be the ``upper'' end, regardless of its
+%direction.)
+%
+%The \sty{databar} package options are as follows:
+%\begin{description}
+%\item[{\pkgopt[databar]{color}}] Created coloured bar charts
+%(default.)
+%
+%\item[{\pkgopt[databar]{gray}}] Created grey scale bar charts.
+%
+%\item[{\pkgopt[databar]{vertical}}] Created vertical bar charts
+%(default.)
+%
+%\item[{\pkgopt[databar]{horizontal}}] Created horizontal bar charts.
+%\end{description}
+%
+%
+%\DescribeMacro{\DTLbarchart}
+%\begin{definition}
+%\cs{DTLbarchart}\oarg{condition}\marg{db name}\marg{settings}\marg{values}
+%\end{definition}
+%\DescribeMacro{\DTLmultibarchart}
+%\begin{definition}
+%\cs{DTLmultibarchart}\oarg{condition}\marg{db name}\marg{settings}\marg{values}
+%\end{definition}
+%These commands both create a bar chart from the information in
+%the database \meta{db name}, where \meta{condition} is the same
+%as the optional argument for \ics{DTLforeach} described in
+%\autoref{sec:dbforeach}, and \meta{values} is the same as the
+%penultimate argument of \ics{DTLforeach}. The \meta{settings}
+%argument is a \meta{setting}"="\meta{value} list of settings. The
+%first command, \cs{DLTbarchart}, will draw a bar chart for a
+%given column of data in the database, whereas the second command,
+%\cs{DTLmultibarchart}, will draw a bar chart that is divided into
+%groups of bars where each bar within a group represents data from
+%several columns of a given row in the database.
+%
+%The \setting{DTLbarchart}{variable} setting is
+%required for \cs{DTLbarchart} and the
+%\setting{DTLmultibarchart}{variables}, the other settings are
+%optional (though some may only be used for one of
+%\cs{DTLbarchart} and \cs{DLTmultibarchart}), and are as follows:
+%
+%\begin{description}
+%\item[\setting{DTLbarchart}{variable}]
+%This specifies the control sequence to use that
+%contains the value used to construct the bar chart. The control
+%sequence must be one of the control sequences to appear in
+%the assignment list \meta{values}. This setting is required
+%for \cs{DTLbarchart}, and is unavailable for \cs{DTLmultibarchart}.
+%
+%\item[\setting{DTLmultibarchart}{variables}]
+%This specifies a list of control sequences to use which
+%contain the values used to construct the bar chart. Each control
+%sequence must be one of the control sequences to appear in
+%the assignment list \meta{values}. This setting is required
+%for \cs{DTLmultibarchart}, and is unavailable for
+%\cs{DTLbarchart}.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{max}]
+%This specifies the maximum value on the $y$ axis. (This should
+%be a standard decimal value.)
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{length}]
+%This specifies the overall length of the $y$ axis, and must
+%be a dimension.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{maxdepth}]
+%This must be a zero or negative number. It specifies the maximum
+%depth of the $y$ axis. (This should be a standard decimal value.)
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{axes}]
+%This setting specifies which axes to display. This may take one
+%of the following values: "both", "x", "y" or "none".
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{barlabel}]
+%This setting specifies the lower bar label. When used with
+%\cs{DTLmultibarchart} it indicates the group label.
+%
+%\item[\setting{DTLmultibarchart}{multibarlabels}]
+%This setting should contain a comma separated list of labels
+%for each bar within a group for \cs{DTLmultibarchart}. This
+%setting is not available for \cs{DTLbarchart}.
+%
+%\item[\setting{DTLbarchart}{upperbarlabel}]
+%This setting specifies the upper bar label. This setting
+%is not available for \cs{DTLmultibarchart}.
+%
+%\item[\setting{DTLmultibarchart}{uppermultibarlabels}]
+%This setting must be a comma separated list of upper bar
+%labels for each bar within a group. This setting is not
+%available for \cs{DTLbarchart}.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{yticpoints}]
+%This must be a comma separated list of tick locations for the
+%$y$ axis. (These should be standard decimal values.)
+%This setting overrides \setting{DTLbarchart}{yticgap}.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{yticgap}]
+%This specifies the gap between the $y$ tick marks. (This should
+%be a standard decimal value.)
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{yticlabels}]
+%This must be a comma separated list of tick labels for the
+%$y$ axis.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{ylabel}]
+%This specifies the label for the $y$ axis.
+%
+%\item[\setting{DTLmultibarchart}{groupgap}] This specifies
+%the gap between groups when using \cs{DTLmultibarchart}.
+%This value is given as a multiple of the bar width. The
+%default value is 1, which indicates a gap of one bar width.
+%This setting is not available for \cs{DTLbarchart}.
+%
+%\item[\setting{DTLbarchart,DTLmultibarchart}{verticalbars}]
+%This is a boolean setting, so it can only take the values
+%"true" (do a vertical bar chart) or "false" (do a horizontal
+%bar chart.) If the value is omitted, "true" is assumed.
+%\end{description}
+%
+%\begin{example}{A Basic Bar Chart}{ex:barchart}
+%Recall \autoref{ex:piechart} defined a database called "fruit".
+%This example will be using that database to plot a bar chart.
+%The following plots a basic vertical bar chart:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLbarchart{variable=\theQuantity}{fruit}{\theQuantity=Quantity}
+%\caption{A basic bar chart}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:barchart}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLbarchart{variable=\theQuantity}{fruit}{\theQuantity=Quantity}
+%\caption{A basic bar chart}
+%\label{fig:barchart}
+%\end{figure}
+%\end{example}
+%
+%\subsection{Changing the Appearance of a Bar Chart}
+%
+%\DescribeMacro{\DTLbarchartlength}
+%\begin{definition}
+%\cs{DTLbarchartlength}
+%\end{definition}
+%This specifies the total length of the $y$ axis. You must use
+%\cs{setlength} to change this value. The default value is 3in.
+%
+%\DescribeMacro{\DTLbarwidth}
+%\begin{definition}
+%\cs{DTLbarwidth}
+%\end{definition}
+%This specifies the width of each bar. You must use \cs{setlength}
+%to change this value. The default value is 1cm.
+%
+%\DescribeMacro{\DTLbarlabeloffset}
+%\begin{definition}
+%\cs{DTLbarlabeloffset}
+%\end{definition}
+%This specifies the distance from the $x$ axis to the lower bar label.
+%You must use \cs{setlength} to change this value. The default value
+%is 10pt.
+%
+%\begin{definition}
+%\counterfmt{DTLbarroundvar}
+%\end{definition}
+%The $y$ tick labels are rounded to \meta{n} digits after the
+%decimal point, where \meta{n} is given by the value of the
+%counter \counterfmt{DTLbarroundvar}. You must use \cs{setcounter}
+%to change this value.
+%
+%\DescribeMacro{\DTLsetbarcolor}
+%\begin{definition}
+%\cs{DTLsetbarcolor}\marg{n}\marg{color}
+%\end{definition}
+%This sets the \meta{n}th bar colour to \meta{color}.
+%Only the first eight bars have a colour defined by default. If you
+%need more than eight bars, you will need to define more bar colours.
+%
+%\DescribeMacro{\DTLdobarcolor}
+%\begin{definition}
+%\cs{DTLdobarcolor}\marg{n}
+%\end{definition}
+%This sets the current colour to the colour of the \meta{n}th bar.
+%
+%\DescribeMacro{\DTLbaroutlinecolor}
+%\begin{definition}
+%\cs{DTLbaroutlinecolor}
+%\end{definition}
+%This macro contains the colour of the bar outlines. This defaults
+%to "black".
+%
+%\DescribeMacro{\DTLbaroutlinewidth}
+%\begin{definition}
+%\cs{DTLbaroutlinewidth}
+%\end{definition}
+%This length specifies the line width for the bar outlines. If it
+%is 0pt, the outline is not drawn. The default value is 0pt.
+%
+%\DescribeMacro{\DTLbaratbegintikz}
+%\begin{definition}
+%\cs{DTLbaratbegintikz}
+%\end{definition}
+%This specifies any additional commands to add to the start of
+%the plot. It defaults to nothing, and is called after the
+%unit vectors are set.
+%
+%\DescribeMacro{\DTLbaratendtikz}
+%\begin{definition}
+%\cs{DTLbaratendtikz}
+%\end{definition}
+%This specifies any additional commands to add to the end of
+%the plot. It defaults to nothing.
+%
+%\DescribeMacro{\ifDTLverticalbars}
+%\begin{definition}
+%\cs{ifDTLverticalbars}
+%\end{definition}
+%This conditional governs whether the chart uses vertical or
+%horizontal bars.
+%
+%\DescribeMacro{\DTLbarXlabelalign}
+%\begin{definition}
+%\cs{DTLbarXlabelalign}
+%\end{definition}
+%This specifies the text alignment of the lower bar labels. This
+%defaults to "left,rotate=-90" if you use the \pkgopt[databar]{vertical}
+%package option or the \setting{DTLbarchart}{verticalbars} setting,
+%and defaults to "right" if you use the \pkgopt[databar]{horizontal}
+%package option or the \setting{DTLbarchart}{verticalbars}"=false"
+%setting.
+%
+%\DescribeMacro{\DTLbarYticklabelalign}
+%\begin{definition}
+%\cs{DTLbarYlabelalign}
+%\end{definition}
+%This specifies the text alignment of the $y$ axis labels. This
+%defaults to "right" for vertical bar charts and "center" for
+%horizontal bar charts.
+%
+%\DescribeMacro{\DTLbardisplayYticklabel}
+%\begin{definition}
+%\cs{DTLbardisplayYticklabel}\marg{text}
+%\end{definition}
+%This specifies how to display the $y$ tick label. The argument
+%is the tick label.
+%
+%\DescribeMacro{\DTLdisplaylowerbarlabel}
+%\begin{definition}
+%\cs{DTLdisplaylowerbarlabel}\marg{text}
+%\end{definition}
+%This specifies how to display the lower bar label for
+%\cs{DTLbarchart} and the lower bar group label for
+%\cs{DTLmultibarchart}. The argument is the label.
+%
+%\DescribeMacro{\DTLdisplaylowermultibarlabel}
+%\begin{definition}
+%\cs{DTLdisplaylowermultibarlabel}\marg{text}
+%\end{definition}
+%This specifies how to display the lower bar label for
+%\cs{DTLmultibarchart}. The argument is the label. This
+%command is ignored by \cs{DTLbarchart}.
+%
+%\DescribeMacro{\DTLdisplayupperbarlabel}
+%\begin{definition}
+%\cs{DTLdisplayupperbarlabel}\marg{text}
+%\end{definition}
+%This specifies how to display the upper bar label for
+%\cs{DTLbarchart} and the upper bar group label for
+%\cs{DTLmultibarchart}. The argument is the label.
+%
+%\DescribeMacro{\DTLdisplayuppermultibarlabel}
+%\begin{definition}
+%\cs{DTLdisplayuppermultibarlabel}\marg{text}
+%\end{definition}
+%This specifies how to display the upper bar label for
+%\cs{DTLmultibarchart}. The argument is the label. This
+%command is ignored by \cs{DTLbarchart}.
+%
+%\begin{example}{An Labelled Bar Chart}{ex:annotebarchart}
+%This example extends \autoref{ex:barchart} so that the chart is
+%a bit more informative (which is after all the whole point of
+%a chart.) This chart now has a label below each bar, as well
+%as a label above the bar. The lower label uses the value of the
+%"Name" key, and the upper label uses the quantity. I have also
+%set the outline width so each bar has a border.
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\setlength{\DTLbaroutlinewidth}{1pt}
+%\centering
+%\DTLbarchart{variable=\theQuantity,barlabel=\theName,%
+%upperbarlabel=\theQuantity}{fruit}{%
+%\theQuantity=Quantity,\theName=Name}
+%\caption{A bar chart}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:annotebarchart}.
+%
+%\begin{figure}[htbp]
+%\centering
+%\setlength{\DTLbaroutlinewidth}{1pt}
+%\DTLbarchart{variable=\theQuantity,barlabel=\theName,
+%upperbarlabel=\theQuantity}{fruit}{%
+%\theQuantity=Quantity,\theName=Name}
+%\caption[A bar chart (labelled)]{A bar chart}
+%\label{fig:annotebarchart}
+%\end{figure}
+%\end{example}
+%
+%\begin{example}{Profit/Loss Bar Chart}{ex:profit}
+%Suppose I have a file called "profits.csv" that looks like:
+%\DTLnewdb{profits}
+%\DTLnewrow{profits}
+%\DTLnewdbentry{profits}{Year}{2000}\relax
+%\DTLnewdbentry{profits}{Profit}{\protect\pounds2,525}\relax
+%\DTLnewrow{profits}
+%\DTLnewdbentry{profits}{Year}{2001}\relax
+%\DTLnewdbentry{profits}{Profit}{\protect\pounds3,752}\relax
+%\DTLnewrow{profits}
+%\DTLnewdbentry{profits}{Year}{2002}\relax
+%\DTLnewdbentry{profits}{Profit}{-\protect\pounds1,520}\relax
+%\DTLnewrow{profits}
+%\DTLnewdbentry{profits}{Year}{2003}\relax
+%\DTLnewdbentry{profits}{Profit}{\protect\pounds1,270}\relax
+%\begin{verbatim}
+%Year,Profit
+%2000,\pounds2,535
+%2001,\pounds3,752
+%2002,-\pounds1,520
+%2003,\pounds1,270
+%\end{verbatim}
+%First I can load this file into a database called "profits":
+%\begin{verbatim}
+%\DTLloaddb{profits}{profits.csv}
+%\end{verbatim}
+%Now I can plot the data as a bar chart:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+% % Set the width of each bar to 10pt
+%\setlength{\DTLbarwidth}{10pt}
+% % Set the outline width to 1pt
+%\setlength{\DTLbaroutlinewidth}{1pt}
+% % Round the $y$ tick labels to integers
+%\setcounter{DTLbarroundvar}{0}
+% % Adjust the tick label offset
+%\setlength{\DTLticklabeloffset}{20pt}
+% % Change the y tick label alignment
+%\renewcommand*{\DTLbarYticklabelalign}{left}
+% % Rotate the y tick labels
+%\renewcommand*{\DTLbardisplayYticklabel}[1]{\rotatebox{-45}{#1}}
+% % Set the bar colours depending on the value of \theProfit
+%\DTLforeach{profits}{\theProfit=Profit}{%
+%\ifthenelse{\DTLislt{\theProfit}{0}}
+%{\DTLsetbarcolor{\DTLcurrentindex}{red}}
+%{\DTLsetbarcolor{\DTLcurrentindex}{blue}}}
+% % Do the bar chart
+%\DTLbarchart{variable=\theProfit,upperbarlabel=\theYear,
+%ylabel={Profit/Loss (\pounds)},verticalbars=false,
+%maxdepth=-2000,max=4000}{profits}
+%{\theProfit=Profit,\theYear=Year}
+%\caption{Profits for 2000--2003}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:profits}. Notes:
+%\begin{enumerate}
+%\item This example uses \cs{rotatebox}, so the \sty{graphics}
+%or \sty{graphicx} package is required.
+%\item The $y$ tick labels are too wide to fit horizontally
+%so they have been rotated to avoid overlapping with their
+%neighbour.
+%\item Rotating the $y$ tick labels puts them too close to
+%the $y$ axis, so \ics{DTLticklabeloffset} is made larger to
+%compensate.
+%\item Remember not to use \cs{year} as an assignment command
+%as this command already exists!
+%\item Before the bar chart is created I have iterated through
+%the database, setting the bar colour to red or blue
+%depending on the value of \cs{theProfit}.
+%\end{enumerate}
+%
+%Both \cs{DTLbarchart} and \cs{DTLmultibarchart} set the following
+%macros, which may be used in \cs{DTLbaratbegintikz} and
+%\cs{DTLbaratendtikz}:
+%\DescribeMacro{\DTLbarchartwidth}
+%\begin{definition}
+%\cs{DTLbarchartwidth}
+%\end{definition}
+%This is the overall width of the bar chart. In the case of
+%\cs{DTLbarchart} this is just the number of bars. In the case
+%of \cs{DTLmultibarchart} it is computed as:
+%\begin{displaymath}
+%m \times n + (m-1)\times g
+%\end{displaymath}
+%where $m$ is the number of bar groups (i.e.\ the number of rows
+%of data), $n$ is the number of bars within a group (i.e.\
+%the number of commands listed in the
+%\setting{DTLmultibarchart}{variables}) setting and $g$ is the
+%group gap (as specified by the \setting{DTLmultibarchart}{groupgap} setting.)
+%
+%\DescribeMacro{\DTLnegextent}
+%\begin{definition}
+%\cs{DTLnegextent}
+%\end{definition}
+%This is set to the negative extent of the bar chart. (This value
+%may either be zero or negative, and corresponds to the
+%\setting{DTLbarchart,DTLmultibarchart}{maxdepth} setting.)
+%
+%\DescribeMacro{\DTLbarmax}
+%\begin{definition}
+%\cs{DTLbarmax}
+%\end{definition}
+%This is set to the maximum extent of the bar chart. (This value
+%corresponds to the
+%\setting{DTLbarchart,DTLmultibarchart}{max} setting.)
+%
+%\begin{figure}[htbp]
+%\centering
+%\setlength{\DTLbarwidth}{10pt}
+%\setlength{\DTLbaroutlinewidth}{1pt}
+%\setlength{\DTLticklabeloffset}{20pt}
+%\setcounter{DTLbarroundvar}{0}
+%\renewcommand*{\DTLbarYticklabelalign}{left}
+%\renewcommand*{\DTLbardisplayYticklabel}[1]{\rotatebox{-45}{#1}}
+%\DTLforeach{profits}{\theProfit=Profit}{\relax
+%\ifthenelse{\DTLislt{\theProfit}{0}}
+%{\DTLsetbarcolor{\DTLcurrentindex}{red}}
+%{\DTLsetbarcolor{\DTLcurrentindex}{blue}}}
+%\DTLbarchart{variable=\theProfit,upperbarlabel=\theYear,
+%ylabel={Profit/Loss (\pounds)},verticalbars=false,
+%maxdepth=-2000,max=4000
+%}{profits}
+%{\theProfit=Profit,\theYear=Year}
+%\caption[Profits for 2000--2003 (a horizontal bar chart)]{Profits for
+%2000--2003}
+%\label{fig:profits}
+%\end{figure}
+%
+%\end{example}
+%
+%\begin{example}{A Multi-Bar Chart}{ex:multibar}
+%This example uses the "marks" database described in
+%\autoref{ex:editdb}.
+%Recall that this database stores student marks for three
+%assignments. The keys for the assignment marks are
+%\texttt{Assignment 1}, \texttt{Assignment 2} and
+%\texttt{Assignment 3}, respectively. I can convert this
+%data into a bar chart using the following:
+%\begin{verbatim}
+%\begin{figure}[htbp]
+%\centering
+%\DTLmultibarchart{variables={\assignI,\assignII,\assignIII},
+%barwidth=10pt,uppermultibarlabels={\assignI,\assignII,\assignIII},
+%barlabel={\firstname\ \surname}}{marks}{%
+%\surname=Surname,\firstname=FirstName,\assignI=Assignment 1,%
+%\assignII=Assignment 2,\assignIII=Assignment 3}
+%\caption{Student marks}
+%\end{figure}
+%\end{verbatim}
+%This produces \autoref{fig:multibar}. Notes:
+%\begin{enumerate}
+%\item I used "variables={\assignI,\assignII,\assignIII}" to
+%set the variable to use for each bar within a group. This means
+%that there will be three bars in each group.
+%\item I have set the bar width to 10pt, otherwise the chart
+%will be too wide.
+%\item I used "uppermultibarlabels={\assignI,\assignII,\assignIII}"
+%to set the upper labels for each bar within a group. This
+%will print the assignment mark above the relevant bar.
+%\item I used "barlabel={\firstname\ \surname}" to place the
+%student's name below the group corresponding to that student.
+%\end{enumerate}
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLmultibarchart{variables={\assignI,\assignII,\assignIII},
+%barwidth=10pt,uppermultibarlabels={\assignI,\assignII,\assignIII},
+%barlabel={\firstname\ \surname}}{marks}
+%{\surname=Surname,\firstname=FirstName,\assignI=Assignment 1,\assignII=Assignment 2,\assignIII=Assignment 3}
+%\caption[Student marks (a multi-bar chart)]{Student
+%marks}\label{fig:multibar}
+%\end{figure}
+%
+%Recall that \autoref{ex:editdb} computed the average score over
+%for each student, and saved it with the key "Average". This
+%information can be added to the bar chart. It might also be
+%useful to compute the average over all students and add this
+%information to the chart. This is done as follows:
+%\begin{verbatim}
+% \begin{figure}[htbp]
+% \centering
+% % compute the overall mean
+% \DTLmeanforkeys{marks}{Average}{\overallmean}
+% % round it to 2 decimal places
+% \DTLround{\overallmean}{\overallmean}{2}
+% % draw a grey dotted line indicating the overall mean
+% % covering the entire width of the bar chart
+% \renewcommand*{\DTLbaratendtikz}{%
+% \draw[lightgray,loosely dotted] (0,\overallmean) --
+% (\DTLbarchartwidth,\overallmean)
+% node[right,black]{Average (\overallmean)};}
+% % Set the lower bar labels to draw a brace across the current
+% % group, along with the student's name and average score
+% \renewcommand*{\DTLdisplaylowerbarlabel}[1]{%
+% \tikz[baseline=(current bounding box.center)]{
+% \draw[snake=brace,rotate=-90](0,0) -- (\DTLbargroupwidth,0);}
+% \DTLround{\theMean}{\theMean}{2}%
+% \shortstack{#1\\(Average: \theMean)}}
+% % draw the bar chart
+% \DTLmultibarchart{variables={\assignI,\assignII,\assignIII},
+% barwidth=10pt,uppermultibarlabels={\assignI,\assignII,\assignIII},
+% barlabel={\firstname\ \surname}}{marks}
+% {\surname=Surname,\firstname=FirstName,\assignI=Assignment 1,%
+% \assignII=Assignment 2,\assignIII=Assignment 3,\theMean=Average}
+% \caption{Student marks}
+% \end{figure}
+%\end{verbatim}
+%which produces \autoref{fig:multibarmean}. Notes:
+%\begin{enumerate}
+%\item I've used the TikZ snake library to create a brace, so
+%I need to put
+%\begin{verbatim}
+%\usetikzlibrary{snakes}
+%\end{verbatim}
+%in the preamble. See the \sty{pgf} manual for more details on
+%how to use this library.
+%
+%\item I used \ics{DTLbargroupwidth} to indicate the width of
+%each bar group.
+%
+%\item I used \ics{DTLbarchartwidth} to indicate the width of the
+%entire bar chart
+%\end{enumerate}
+%
+%\begin{figure}[htbp]
+%\centering
+%\DTLmeanforkeys{marks}{Average}{\overallmean}
+%\DTLround{\overallmean}{\overallmean}{2}
+%\renewcommand*{\DTLbaratendtikz}{\draw[lightgray,loosely dotted] (0,\overallmean) --
+%(\DTLbarchartwidth,\overallmean) node[right,black]{Average (\overallmean)};}
+%\renewcommand*{\DTLdisplaylowerbarlabel}[1]{\relax
+%\tikz[baseline=(current bounding box.center)]{
+%\draw[snake=brace,rotate=-90](0,0) -- (\DTLbargroupwidth,0);}
+%\DTLround{\theMean}{\theMean}{2}\relax
+%\shortstack{#1\\(Average: \theMean)}}
+%\DTLmultibarchart{variables={\assignI,\assignII,\assignIII},
+%barwidth=10pt,uppermultibarlabels={\assignI,\assignII,\assignIII},
+%barlabel={\firstname\ \surname}}{marks}
+%{\surname=Surname,\firstname=FirstName,\assignI=Assignment 1,\assignII=Assignment 2,\assignIII=Assignment 3,\theMean=Average}
+%\caption[Student marks (annotating a bar chart)]{Student marks}
+%\label{fig:multibarmean}
+%\end{figure}
+%\end{example}
+%
+%\section{Converting a \texorpdfstring{\BibTeX}{BibTeX} database
+%into a datatool database
+%(\texorpdfstring{\sty{databib}}{databib} package)}
+%\label{sec:databib}
+%
+%The \sty{databib} package provides the means of converting a \BibTeX\
+%database into a \sty{datatool} database. The database can then be
+%sorted using \cs{DTLsort}, described in \autoref{sec:sort}.
+%For example, you may want to sort the bibliography in
+%reverse chronological order. Once you have sorted the bibliography,
+%you can display it using \cs{DTLbibliography}, described in
+%\autoref{sec:thebib}, or you can iterate through the database
+%using \cs{DTLforeachbib}, described in \autoref{sec:foreachbib}.
+%
+%Note that the \sty{databib}
+%package is not automatically loaded by \sty{datatool}, so if
+%you want to use it, you must load it using
+%"\usepackage{databib}".
+%
+%\importantpar The purpose of this package is to provide a means for
+%authors to format their own bibliography style where there is no
+%bibliography style file available that produces the desired results.
+%The \cs{DTLsort} macro uses a much less efficient sorting algorithm
+%than \BibTeX, and loading the bibliography as a \sty{datatool}
+%database is much slower than loading a standard \ext{bbl} file. If
+%you have a large database, and you are worried that \LaTeX\ may have
+%become stuck, try using the \pkgopt{verbose} option to \sty{datatool}
+%or use the command \cs{dtlverbosetrue}. This will print informative
+%messages to the console and transcript file, to let you know what's
+%going on.
+%
+%\subsection{\texorpdfstring{\BibTeX}{BibTeX}: An Overview}
+%\label{sec:bibtex}
+%This document assumes that you have at least some passing
+%familiarity with \BibTeX, but here follows a brief refresher.
+%
+%\BibTeX\ is an external application used in conjunction with \LaTeX.
+%When you run \BibTeX, you need to specify the name of the document's
+%auxiliary file (without the \ext{aux} extension.) \BibTeX\ then reads
+%this file and looks for the commands \cs{bibstyle} (which indicates
+%which bibliography style (\ext{bst}) file to load), \cs{bibdata}
+%(which indicates which bibliography database (\ext{bib}) files to
+%load) and \cs{citation} (produced by \cs{cite} and \cs{nocite}, which
+%indicates which entries should be included in the bibliography.)
+%\BibTeX\ then creates a file with the extension \ext{bbl} which
+%contains the bibliography, formatted according to the layout defined
+%in the bibliography style file.
+%
+%In general, given a document called, say, \texttt{mydoc.tex}, you
+%will have to perform the following steps to ensure that the
+%bibliography and all citations are up-to-date:
+%\begin{enumerate}
+%\item
+%\begin{verbatim}
+%latex mydoc
+%\end{verbatim}
+%This writes the citation information to the auxiliary file.
+%The bibliography currently doesn't exists, so it isn't displayed.
+%Citations will appear in the document as ?? since the internal
+%cross-references don't exist yet.
+%
+%\item
+%\begin{verbatim}
+%bibtex mydoc
+%\end{verbatim}
+%This reads the auxiliary file, and creates a file with the extension
+%\ext{bbl} which typically contains the typeset bibliography.
+%
+%\item
+%\begin{verbatim}
+%latex mydoc
+%\end{verbatim}
+%Now that the \ext{bbl} file exists, the bibliography can be input
+%into the document. The internal cross-referencing information for the
+%bibliography can now be written to the auxiliary file.
+%
+%\item
+%\begin{verbatim}
+%latex mydoc
+%\end{verbatim}
+%The cross-referencing information can be read from the auxiliary
+%file.
+%\end{enumerate}
+%
+%\subsubsection{\texorpdfstring{\BibTeX}{BibTeX} database}
+%
+%The bibliographic data required by \BibTeX\ must be stored in
+%a file with the extension \ext{bib}, where each entry is stored
+%in the form:\par\vskip\baselineskip\noindent
+%{\obeylines
+%\noindent\texttt{@}\meta{entry\_type}\verb|{|\meta{cite\_key}\texttt,
+% \meta{field\_name} \texttt{=} \char`\"\meta{value}\char`\"\texttt,
+% \mbox{}\vdots
+% \meta{field\_name} \texttt{=} \char`\"\meta{value}\char`\"
+%\noindent\verb|}|
+%}
+%\par\vskip\baselineskip\noindent
+%Note that curly braces "{" and "}" may be used instead of \verb|"|
+%and \verb|"|.
+%
+%The entry type, given by \meta{entry\_type} above, indicates
+%the type of document. This may be one of: "article", "book",
+%"booklet", "inbook", "incollection", "inproceedings"\footnote
+%{Note that \texttt{conference} is a synonym for \texttt{inproceedings}.},
+%"manual",
+%"mastersthesis", "misc", "phdthesis", "proceedings", \linebreak
+%"techreport" or "unpublished".
+%
+%The \meta{cite\_key} above is a unique label identifying this
+%entry, and is the label used in the argument of \cs{cite} or
+%\cs{nocite}. The available fields depends on the entry type, for
+%example, the field "journal" is required for the "article" entry
+%type, but is ignored for the "inproceedings" entry type. The standard
+%fields are: "address", "author", "booktitle", "chapter", "edition",
+%"editor", "howpublished", "institution", "journal", "key", "month",
+%"note", "number", "organization", "pages", "publisher", "school",
+%"series", "title", "type", "volume" and "year".
+%
+%Author and editor names must be entered in one of the following
+%ways:
+%\begin{enumerate}
+%\item \meta{First names} \meta{von part} \meta{Surname}, \meta{Jr part}
+%
+%The \meta{von part} is optional and is identified by the name(s)
+%starting with lowercase letters. The final comma followed by
+%\meta{Jr part} is also optional. Examples:
+%\begin{verbatim}
+%author = "Henry James de Vere"
+%\end{verbatim}
+%In the above, the first names are Henry James, the ``von part'' is
+%de and the surname is Vere. There is no ``junior part''.
+%\begin{verbatim}
+%author = "Mary-Jane Brown, Jr"
+%\end{verbatim}
+%In the above, the first name is Mary-Jane, there is no von part,
+%the surname is Brown and the junior part is Jr.
+%\begin{verbatim}
+%author = "Peter {Murphy Allen}"
+%\end{verbatim}
+%In the above, the first name is Peter, and the surname is Murphy
+%Allen. Note that in this case, the surname must be grouped, otherwise
+%Murphy would be considered part of the forename.
+%\begin{verbatim}
+%author = "Maria Eliza {\uppercase{d}e La} Cruz"
+%\end{verbatim}
+%In the above, the first name is Maria Eliza, the von part is
+%De La, and the surname is Cruz. In this case, the von part starts
+%with an uppercase letter, but specifying
+%\begin{verbatim}
+%author = "Maria Eliza De La Cruz"
+%\end{verbatim}
+%would make \BibTeX\ incorrectly classify ``Maria Eliza De La'' as
+%the first names, and the von part would be empty. Since \BibTeX\
+%doesn't understand \LaTeX\ commands, using "{\uppercase{d}e La}"
+%will trick \BibTeX\ into thinking that it starts with a lower
+%case letter.
+%
+%\item \meta{von part} \meta{Surname}, \meta{Forenames}
+%
+%Again the \meta{von part} is optional, and is determined by the
+%case of the first letter. For example:
+%\begin{verbatim}
+%author = "de Vere, Henry James"
+%\end{verbatim}
+%\end{enumerate}
+%
+%Multiple authors or editors should be separated by the key word
+%"and", for example:
+%\begin{verbatim}
+%author = "Michel Goossens and Frank Mittlebach and Alexander Samarin"
+%\end{verbatim}
+%
+%Below is an example of a book entry:
+%\begin{verbatim}
+%@book{latexcomp,
+% title = "The \LaTeX\ Companion",
+% author = "Michel Goossens and Frank Mittlebach and
+% Alexander Samarin",
+% publisher = "Addison-Wesley",
+% year = 1994
+%}
+%\end{verbatim}
+%Note that numbers may be entered without delimiters, as in "year = 1994".
+%There are also some predefined strings, including those for the month
+%names. You should always use these strings instead of the actual
+%month name, as the way the month name is displayed depends on the
+%bibliography style. For example:
+%\begin{verbatim}
+%@article{Cawley2007b,
+%author = "Gavin C. Cawley and Nicola L. C. Talbot",
+%title = "Preventing over-fitting in model selection via {B}ayesian
+% regularisation of the hyper-parameters",
+%journal = "Journal of Machine Learning Research",
+%volume = 8,
+%pages = "841--861",
+%month = APR,
+%year = 2007
+%}
+%\end{verbatim}
+%
+%You can concatenate strings using the "#" character, for example:
+%\begin{verbatim}
+%month = JUL # "~31~--~" # AUG # "~4",
+%\end{verbatim}
+%Depending on the bibliography style, this may be displayed as:
+%July~31~--~August~4, or it may be displayed as:
+%Jul~31~--~Aug~4. For further information, see~\cite{Goossens}.
+%
+%\subsection{Loading a \texorpdfstring{\sty{databib}}{databib}
+%database}
+%\label{sec:loadbbl}
+%
+%The \sty{databib} package always requires the \texttt{databib.bst}
+%bibliography style file (which is supplied with this bundle.)
+%You need to use \cs{cite} or \cs{nocite} as usual. If you want to
+%add all entries in the \ext{bib} file to the \sty{datatool} database,
+%you can use "\nocite{*}".
+%
+%\DescribeMacro{\DTLloadbbl}
+%\begin{definition}
+%\cs{DTLloadbbl}\oarg{bbl name}\marg{db name}\marg{bib list}
+%\end{definition}
+%This command performs several functions:
+%
+%\begin{enumerate}
+%\item it writes the following line in the auxiliary file:
+%\begin{verbatim}
+%\bibstyle{databib}
+%\end{verbatim}
+%which tells \BibTeX\ to use the \texttt{databib.bst}
+%\BibTeX\ style file,
+%
+%\item it writes \cs{bibdata}\marg{bib list} to the
+%auxiliary file, which tells \BibTeX\ which \ext{bib} files to use,
+%
+%\item it creates a \sty{datatool} database called \meta{db name},
+%
+%\item it loads the file \meta{bbl name} if it exists. (The value
+%defaults to \cs{jobname}".bbl", which is the usual name for
+%a \ext{bbl} file.) If the \ext{bbl} file doesn't exist, the
+%database \meta{db name} will remain empty.
+%\end{enumerate}
+%
+%You then need to run your document through \LaTeX\ (or PDF\LaTeX)
+%and then run \BibTeX\ on the auxiliary file, as described in
+%\autoref{sec:bibtex}. This will create a \ext{bbl} file which
+%contains all the commands required to add the bibliography information
+%to the \sty{datatool} database called \meta{db name}. The next
+%time you \LaTeX\ your document, this file will be read, and the
+%information will be added to \meta{db name}.
+%
+%\importantpar Note that
+%\cs{DTLloaddb} doesn't generate any text. Once you have loaded
+%the data, you can display the bibliography uses
+%\cs{DTLbibliography} (described below) or you can iterate
+%through it using \cs{DTLforeachbibentry} described in
+%\autoref{sec:foreachbib}.
+%
+%Note that the \texttt{databib.bst} \BibTeX\ style file provides
+%the following additional fields: "isbn", "doi", "pubmed", "url"
+%and "abstract".
+%However these fields are ignored by the three predefined
+%\sty{databib} styles ("plain", "abbrv" and "alpha".) If you
+%want these fields to be displayed in the bibliography you will
+%need to modify the bibliography style (see \autoref{sec:modbibstyle}.)
+%
+%\subsection{Displaying a \texorpdfstring{\sty{databib}}{databib}
+%database}
+%\label{sec:thebib}
+%
+%A \sty{databib} database which has been loaded using
+%\cs{DTLloaddb} (described in \autoref{sec:loadbbl}) can be
+%displayed using:
+%\begin{definition}
+%\cs{DTLbibliography}\oarg{conditions}\marg{db name}
+%\end{definition}\noindent
+%where \meta{db name} is the name of the database.
+%
+%Within the optional argument \meta{condition}, you may use any of the
+%commands that may be used within the optional argument of
+%\cs{DTLforeach} \emph{In addition}, you may use the following
+%commands:
+%
+%\DescribeMacro{\DTLbibfieldexists}
+%\begin{definition}
+%\cs{DTLbibfieldexists}\marg{field label}
+%\end{definition}
+%This tests whether the field with the given label exists for the
+%current entry.
+%The field label may be one of: "Address", "Author",
+%"BookTitle", "Chapter", "Edition", "Editor", "HowPublished",
+%"Institution", "Journal", "Key", "Month", "Note", "Number",
+%"Organization", "Pages", "Publisher", "School", "Series",
+%"Title", "Type", "Volume", "Year", "ISBN", "DOI", "PubMed",
+%"Abstract" or "Url".
+%
+%For example, suppose you have loaded a \sty{databib} database
+%called "mybib" using \cs{DTLloadbbl} (described in
+%\autoref{sec:loadbbl}) then the following bibliography will only
+%include those entries which have a "Year" field:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldexists{Year}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldiseq}
+%\begin{definition}
+%\cs{DTLbibfieldiseq}\marg{field label}\marg{value}
+%\end{definition}
+%This tests whether the value of the field given by
+%\meta{field label} equals \meta{value}. If the field doesn't
+%exist for the current entry, this evaluates to false.
+%For example, the following will produce a bibliography which
+%only contains entries which have the "Year" field set to 2004:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldiseq{Year}{2004}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldcontains}
+%\begin{definition}
+%\cs{DTLbibfieldcontains}\marg{field label}\marg{sub string}
+%\end{definition}
+%This tests whether the value of the field given by \meta{field label}
+%contains \meta{sub string}. For example, the following will produce
+%a bibliography which only contains entries where the author field
+%contains the name "Knuth":
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldcontains{Author}{Knuth}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldislt}
+%\begin{definition}
+%\cs{DTLbibfieldislt}\marg{field label}\marg{value}
+%\end{definition}
+%This tests whether the value of the field given by \meta{field label}
+%is less than \meta{value}. If the field doesn't exist for the
+%current entry, this evaluates to false.
+%For example, the following will produce a bibliography which only
+%contains entries whose "Year" field is less than 1983:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldislt{Year}{1983}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldisle}
+%\begin{definition}
+%\cs{DTLbibfieldisle}\marg{field label}\marg{value}
+%\end{definition}
+%This tests whether the value of the field given by \meta{field label}
+%is less than or equal to \meta{value}. If the field doesn't exist
+%for the current entry, this evaluates to false.
+%For example, the following will produce a bibliography which only
+%contains entries whose "Year" field is less than or equal to 1983:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldisle{Year}{1983}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldisgt}
+%\begin{definition}
+%\cs{DTLbibfieldisgt}\marg{field label}\marg{value}
+%\end{definition}
+%This tests whether the value of the field given by \meta{field label}
+%is greater than \meta{value}. If the field doesn't exist for the
+%current entry, this evaluates to false.
+%For example, the following will produce a bibliography which only
+%contains entries whose "Year" field is greater than 1983:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldisgt{Year}{1983}]{mybib}
+%\end{verbatim}
+%
+%\DescribeMacro{\DTLbibfieldisge}
+%\begin{definition}
+%\cs{DTLbibfieldisge}\marg{field label}\marg{value}
+%\end{definition}
+%This tests whether the value of the field given by \meta{field label}
+%is greater than or equal to \meta{value}. If the field doesn't exist
+%for the current entry, this evaluates to false.
+%For example, the following will produce a bibliography which only
+%contains entries whose "Year" field is greater than or equal to 1983:
+%\begin{verbatim}
+%\DTLbibliography[\DTLbibfieldisge{Year}{1983}]{mybib}
+%\end{verbatim}
+%
+%Note that \cs{DTLbibliography} uses \cs{DTLforeachbibentry}
+%(described in \autoref{sec:foreachbib}) so you may also use
+%test the value of the counter \counterfmt{DTLbibrow} within
+%\meta{conditions}.
+%
+%\begin{example}{Creating a list of publications since a given year}{ex:bibsince2000}
+%Suppose my boss has asked me to produce a list of my
+%publications in reverse chronological order, but doesn't want any
+%publications published prior
+%to the year 2000. I have a file called "nlct.bib" which contains
+%all my publications which I keep in the directory
+%\verb!$HOME/texmf/bibtex/bib/!. I could look through this file,
+%work out the labels for all the publications whose year field
+%is greater or equal to 2000, and
+%create a file with a \cs{nocite} command containing all those labels
+%in a comma separated list in reverse chronological order,
+%but I really can't be bothered to do that.
+%Instead, I can create the following document:
+%\begin{verbatim}
+%\documentclass{article}
+%\usepackage{databib}
+%\begin{document}
+%\nocite{*}
+%\DTLloadbbl{mybib}{nlct}
+%\DTLsort{Year=descending,Month=descending}{mybib}
+%\DTLbibliography[\DTLbibfieldisge{Year}{2000}]{mybib}
+%\end{document}
+%\end{verbatim}
+%Suppose I save this file as "mypubs.tex", then I need to do:
+%\begin{verbatim}
+%latex mypubs
+%bibtex mypubs
+%latex mypubs
+%\end{verbatim}
+%Notes:
+%\begin{enumerate}
+%\item "\nocite{*}" is used to add all the citations in the
+%bibliography file ("nlct.bib" in this case) to the \sty{databib}
+%database.
+%
+%\item "\DTLloadbbl{mybib}{nlct}" does the following:
+%\begin{enumerate}
+%\item writes the line
+%\begin{verbatim}
+%\bibstyle{databib}
+%\end{verbatim}
+%to the auxiliary file. This tells \BibTeX\ to use "databib.bst"
+%(which is supplied with this package.) You therefore shouldn't
+%use \cs{bibliographystyle}.
+%
+%\item writes the line
+%\begin{verbatim}
+%\bibdata{nlct}
+%\end{verbatim}
+%to the auxiliary file. This tells \BibTeX\ that the bibliography
+%data is stored in the file "nlct.bib". Since I have placed this
+%file in \TeX's search path, \BibTeX\ will be able to find it.
+%
+%\item creates a \sty{datatool} database called "mybib".
+%
+%\item if the \ext{bbl} file ("mypubs.bbl" in this example) exists,
+%it loads this file (which adds the bibliography data to the
+%database), otherwise it does nothing further.
+%
+%\end{enumerate}
+%
+%\item In my \BibTeX\ database ("nlct.bib" in this example), I
+%have remember to use the \BibTeX\ month macros: "jan", "feb"
+%etc. This means that the months are stored in the database in
+%the form \cs{DTLmonthname}\marg{nn}, where \meta{nn} is a two
+%digit number from 01 to 12. \cs{DTLsort} ignores command names
+%when it compares strings, which means I can not only sort by
+%year, but also by month\footnote{as long as I haven't put anything
+%before the month name in the bibliography file, e.g.\
+%\mbox{\texttt{month = "2~" \# apr}} will sort by 2~03, instead of
+%03}.
+%
+%\item Once I have loaded and sorted my database, I can then
+%display it using \cs{DTLbibliography}. This uses the style
+%given by the \sty{databib} \pkgopt[databib]{style} package option,
+%or the \cs{DTLbibliographystyle} command, both of which are
+%described in \autoref{sec:bibstyle}.
+%
+%\item I have filtered the bibliography using the optional
+%argument\linebreak "[\DTLbibfieldisge{Year}{2000}]", which checks if the
+%year field of the current entry is greater than or equal to
+%2000. (Note that if an entry has no year field, the condition
+%evaluates to false, and the entry will be omitted from the
+%bibliography.)
+%
+%\item If the bibliography database is large, sorting and creating
+%the bibliography may take a while. Using \sty{databib} is much
+%slower than using a standard \BibTeX\ style file.
+%\end{enumerate}
+%\end{example}
+%
+%\begin{example}{Creating a list of my 10 most recent
+%publications}{ex:top10bib}
+%Suppose now my boss has asked me to produce a list of my ten most
+%recent publications (in reverse chronological order).
+%As in the previous example, I have a file called "nlct.bib"
+%which contains all my publications. I can create the required
+%document as follows:
+%\begin{verbatim}
+%\documentclass{article}
+%\usepackage{databib}
+%\begin{document}
+%\nocite{*}
+%\DTLloadbbl{mybib}{nlct}
+%\DTLsort{Year=descending,Month=descending}{mybib}
+%\DTLbibliography[\value{DTLbibrow}<11]{mybib}
+%\end{document}
+%\end{verbatim}
+%\end{example}
+%
+%\subsection{Changing the bibliography style}
+%\label{sec:bibstyle}
+%The style of the bibliography produced using \cs{DTLbibliography}
+%depends on the \pkgopt[databib]{style}
+%package option, or can be set using
+%\begin{definition}
+%\cs{DTLbibliographystyle}\marg{style}
+%\end{definition}
+%Note that this is \emph{not} the same as \cs{bibliographystyle},
+%as the \sty{databib} package uses its custom \texttt{databib.bst}
+%bibliography style file.
+%
+%Example:
+%\begin{verbatim}
+%\usepackage[style=plain]{databib}
+%\end{verbatim}
+%This sets the plain bibliography style. This is, in fact, the
+%default style, so it need not be specified.
+%
+%Available styles are: "plain", "abbrv" and "alpha". These are similar to the
+%standard \BibTeX\ styles of the same name, but are by no means
+%identical. The most notable difference is that these styles
+%do not sort the bibliography. It is up to you to sort the
+%bibliography using \cs{DTLsort} (described in \autoref{sec:sort}.)
+%
+%\subsubsection{Modifying an existing style}
+%\label{sec:modbibstyle}
+%
+%This section describes some of the commands which are used to
+%format the bibliography. You can choose whichever predefined
+%style best fits your required style, and then modify the commands
+%described in this section. A description of the remaining
+%commands not listed in this section can be found in
+%\autoref{sec:src:bibnames}, \autoref{sec:src:displaybib}
+%and \autoref{sec:src:bibstyle}.
+%
+%\DescribeMacro{\DTLformatauthor}
+%\begin{definition}
+%\cs{DTLformatauthor}\marg{von part}\marg{surname}\marg{jr part}\marg{forenames}
+%\end{definition}
+%\DescribeMacro{\DTLformateditor}
+%\begin{definition}
+%\cs{DTLformateditor}\marg{von part}\marg{surname}\marg{jr part}\marg{forenames}
+%\end{definition}
+%These commands are used to format an author/editor's name,
+%respectively. The list of authors and editors are stored in
+%the \sty{databib} database as a comma separated list of
+%\marg{von part}\marg{surname}\marg{jr part}\marg{forenames}
+%data. This ensures that when you sort on the Author or Editor
+%field, the names will be sorted by the first author or editor's
+%surname.
+%
+%Within \cs{DTLformatauthor} and \cs{DTLformateditor}, you may
+%use the following commands:
+%\DescribeMacro{\DTLformatforenames}
+%\begin{definition}
+%\cs{DTLformatforenames}\marg{forenames}
+%\end{definition}
+%This is used by the "plain" style to display the author's
+%forenames\footnote{It also checks
+%whether \meta{forenames} ends with a full stop using
+%\cs{DTLcheckendsperiod} to prevent a sentence ending full stop
+%from following an abbreviation full stop}.
+%
+%\DescribeMacro{\DTLformatabbrvforenames}
+%\begin{definition}
+%\cs{DTLformatabbrvforenames}\marg{forenames}
+%\end{definition}
+%This is used by the "abbrv" style to display the author's
+%initials (which are determined from \meta{forenames}.)
+%Note that if any of the authors has a name starting with an
+%accent, the accented letter must be grouped in order for this
+%command to work. For example:
+%\begin{verbatim}
+%author = "{\'E}lise {\"E}awyn Edwards",
+%\end{verbatim}
+%The initials are formed using \cs{DTLstoreinitials} described
+%in \autoref{sec:strings}, so if you want to change the way the
+%initials are displayed (e.g.\ put a space between them) you will
+%need to redefine the commands used by \cs{DTLstoreinitials} (such
+%as \cs{DTLbetweeninitials}.)
+%
+%\DescribeMacro{\DTLformatsurname}
+%\begin{definition}
+%\cs{DTLformatsurname}\marg{surname}
+%\end{definition}
+%This displays its argument by default\footnote{It also checks
+%whether the surname ends with a full stop using
+%\cs{DTLcheckendsperiod}}.
+%
+%\DescribeMacro{\DTLformatvon}
+%\begin{definition}
+%\cs{DTLformatvon}\marg{von part}
+%\end{definition}
+%If the \meta{von part} is empty, this command does nothing,
+%otherwise it displays its argument followed by a
+%non-breakable space.
+%\DescribeMacro{\DTLformatjr}
+%\begin{definition}
+%\cs{DTLformatjr}\marg{jr part}
+%\end{definition}
+%If the \meta{jr part} is empty, this command displays nothing,
+%otherwise it displays a comma followed by its argument\footnote
+%{again, it also checks \meta{jr part} to determine if it ends
+%with a full stop}.
+%
+%For example, suppose you want the author's surname to appear
+%first in small capitals, followed by a comma and the forenames. This
+%can be achieved by redefining \cs{DTLformatauthor} as follows:
+%\begin{verbatim}
+%\renewcommand*{\DTLformatauthor}[4]{%
+%\textsc{\DTLformatvon{#1}%
+%\DTLformatsurname{#2}\DTLformatjr{#3}},
+%\DTLformatforenames{#4}%
+%}
+%\end{verbatim}
+%
+%\begin{definition}
+%\counterfmt{DTLmaxauthors}
+%\end{definition}
+%The counter \counterfmt{DTLmaxauthors} is used to determine the
+%maximum number of authors to display for a given entry. If the
+%entry's author list contains more than that number of authors,
+%\cs{etalname} is used, the definition of which is given in
+%\autoref{sec:src:bibnames}. The default value of
+%\counterfmt{DTLmaxauthors} is \theDTLmaxauthors.
+%
+%\begin{definition}
+%\counterfmt{DTLmaxeditors}
+%\end{definition}
+%The \counterfmt{DTLmaxeditors} counter is analogous to the
+%\counterfmt{DTLmaxauthors} counter. It is used to determine the
+%maximum number of editor names to display. The default value
+%of \counterfmt{DTLmaxeditors} is \theDTLmaxeditors.
+%
+%\DescribeMacro{\DTLandlast}
+%Within a list of author or editor names, \cs{DTLandlast} is
+%used between the last two names, otherwise
+%\DescribeMacro{\DTLandnotlast}\cs{DTLandnotlast} is used between
+%names.
+%However, if there are only two author or editor names,
+%\DescribeMacro{\DTLtwoand}\cs{DTLtwoand}
+%is used instead of \cs{DTLandlast}.
+%
+%\DescribeMacro{\DTLendbibitem}
+%The command \cs{DTLendbibitem} is a hook provided to add
+%additional information at the end of each bibliography item.
+%This does nothing by default, but if you want to display the
+%additional fields provided by the "databib.bst" style file,
+%you can redefine \cs{DTLendbibitem} so that it displays a
+%particular field, if it is defined. Within this command, you
+%may use the commands \cs{DTLbibfield}, \cs{DTLifbibfieldexist}
+%and \cs{DTLifanybibfieldexist}, which are described in
+%\autoref{sec:foreachbib}. For example, if you have used the
+%"abstract" field in any of your entries, you can display the
+%abstract as follows:
+%\begin{verbatim}
+%\renewcommand{\DTLendbibitem}{%
+%\DTLifbibfieldexists{Abstract}{\DTLpar\textbf{Abstract}
+%\begin{quote}\DTLbibfield{Abstract}\end{quote}}{}}
+%\end{verbatim}
+%(Note that \cs{DTLpar} needs to be used instead of
+%\cs{par}.)
+%
+%\begin{example}{Compact bibliography}{ex:compactbib}
+%Suppose I don't have much space in my document, and I need to
+%produce a compact bibliography. Firstly, I can use the
+%bibliography style "abbrv", either through the package option:
+%\begin{verbatim}
+%\usepackage[style=abbrv]{databib}
+%\end{verbatim}
+%or using:
+%\begin{verbatim}
+%\DTLbibliographystyle{abbrv}
+%\end{verbatim}
+%Once I have set the style, I can further modify it thus:
+%\begin{verbatim}
+%\renewcommand*{\andname}{\&}
+%\renewcommand*{\editorname}{ed.}
+%\renewcommand*{\editorsname}{eds.}
+%\renewcommand*{\pagesname}{pp.}
+%\renewcommand*{\pagename}{p.}
+%\renewcommand*{\volumename}{vol.}
+%\renewcommand*{\numbername}{no.}
+%\renewcommand*{\editionname}{ed.}
+%\renewcommand*{\techreportname}{T.R.}
+%\renewcommand*{\mscthesisname}{MSc thesis}
+%\end{verbatim}
+%Now I can load\footnote{I can load the bibliography earlier, but
+%obviously the bibliography should only be displayed after the
+%bibliography styles have been set, otherwise they will have no
+%effect} and display the bibliography:
+%\begin{verbatim}
+% % create a database called mybib from the information given
+% % in mybib1.bib and mybib2.bib
+% \DTLloadbbl{mybib}{mybib1,mybib2}
+% % display the bibliography
+% \DTLbibliography{mybib}
+%\end{verbatim}
+%\end{example}
+%
+%\begin{example}{Highlighting a given author}{ex:highlightauthor}
+%Suppose my boss wants me to produce a list of all my publications
+%(which I have stored in the file "nlct.bib", as in
+%\autoref{ex:bibsince2000}.) Most of my
+%publications have multiple co-authors, but suppose my boss would
+%like me to highlight my name so that when he skims through
+%the document, he can easily see my name in the list of
+%co-authors. I can do this by redefining \cs{DTLformatauthor}
+%so that it checks if the given surname matches mine. (This
+%assumes that none of the other co-author's share my surname.)
+%\begin{verbatim}
+%\renewcommand*{\DTLformatauthor}[4]{%
+%{\DTLifstringeq{#2}{Talbot}{\bfseries }{}%
+%\DTLformatforenames{#4}
+%\DTLformatvon{#1}%
+%\DTLformatsurname{#2}%
+%\DTLformatjr{#3}}}
+%\end{verbatim}
+%Notes:
+%\begin{enumerate}
+%\item I have used \cs{DTLifstringeq} (described in
+%\autoref{sec:ifconditions}) to perform the string comparison.
+%\item If one or more of my co-authors shared the same surname as
+%me, I would also have had to check the first name, however there
+%is regrettably a lack of consistency in my \ext{bib} file when
+%it comes to my forenames. Sometimes my name is given as
+%\texttt{Nicola L. C. Talbot}, sometimes the middle initials
+%are omitted, \texttt{Nicola Talbot}, or sometimes, just initials
+%are used, \texttt{N. L. C. Talbot}. This can cause problems
+%when checking the forenames, but as long as the other authors
+%who share the same surname as me, don't also share the same
+%first initial, I can use \cs{DTLifStartsWith} or \cs{DTLisPrefix},
+%which are described in \autoref{sec:ifconditions} and
+%\autoref{sec:ifthen}, respectively. Using the first approach
+%I can do:
+%\begin{verbatim}
+%\renewcommand*{\DTLformatauthor}[4]{%
+%{\DTLifstringeq{#2}{Talbot}{\DTLifStartsWith{#4}{N}{\bfseries }{}}{}%
+%\DTLformatforenames{#4}
+%\DTLformatvon{#1}%
+%\DTLformatsurname{#2}%
+%\DTLformatjr{#3}}}
+%\end{verbatim}
+%Using the second approach I can do:
+%\begin{verbatim}
+%\renewcommand*{\DTLformatauthor}[4]{%
+%{\ifthenelse{\DTLiseq{#2}{Talbot}\and
+%\DTLisPrefix{#4}{N}}{\bfseries }{}%
+%\DTLformatforenames{#4}
+%\DTLformatvon{#1}%
+%\DTLformatsurname{#2}%
+%\DTLformatjr{#3}}}
+%\end{verbatim}
+%
+%\item I have used a group to localise the effect of \cs{bfseries}.
+%\end{enumerate}
+%\end{example}
+%
+%\subsection{Iterating through a
+%\texorpdfstring{\sty{databib}}{databib} database}
+%\label{sec:foreachbib}
+%
+%\cs{DTLbibliography} (described in \autoref{sec:thebib}) may still
+%not meet your needs. For example, you may be required
+%to list journal papers and conference proceedings in separate
+%sections. In which case, you may find it easier to iterate through
+%the bibliography using:
+%\DescribeMacro{\DTLforeachbib}
+%\begin{definition}
+%\cs{DTLforeachbib}\oarg{condition}\marg{db name}\marg{text}
+%\end{definition}
+%\DescribeMacro{\DTLforeachbib*}
+%\begin{definition}
+%\cs{DTLforeachbib*}\oarg{condition}\marg{db name}\marg{text}
+%\end{definition}
+%This iterates through the \sty{databib} database called
+%\meta{db name} and does \meta{text} if \meta{condition} is met.
+%As with \cs{DTLforeach}, the starred version is read-only.
+%
+%For each row of the database, the following commands are set:
+%\begin{itemize}
+%\item \cs{DBIBcitekey} \DescribeMacro{\DBIBcitekey}This is the
+%unique label which identifies the current entry (as used in the
+%argument of \cs{cite} and \cs{nocite}.)
+%
+%\item \cs{DBIBentrytype} \DescribeMacro{\DBIBentrytype}This
+%is the current entry type, and will be one of: "article", "book",
+%"booklet", "inbook", "incollection", "inproceedings",
+%"manual", "mastersthesis", "misc", "phdthesis", "proceedings",
+%"techreport" or "unpublished". (Note that even if you used the
+%entry type "conference" in your \ext{bib} file, its entry type
+%will be set to "inproceedings".)
+%\end{itemize}
+%
+%The remaining fields may be accessed using:
+%\DescribeMacro{\DTLbibfield}
+%\begin{definition}
+%\cs{DTLbibfield}\marg{field label}
+%\end{definition}\noindent
+%where \meta{field label} may be one of: "Address", "Author",
+%"BookTitle", "Chapter", "Edition", "Editor", "HowPublished",
+%"Institution", "Journal", "Key", "Month", "Note", "Number",
+%"Organization", "Pages", "Publisher", "School", "Series",
+%"Title", "Type", "Volume", "Year", "ISBN", "DOI", "PubMed",
+%"Abstract" or "Url".
+%
+%You can determine if a field exists for a given entry using
+%\DescribeMacro{\DTLifbibfieldexists}
+%\begin{definition}
+%\cs{DTLifbibfieldexists}\marg{field label}\marg{true part}\marg{false
+%part}
+%\end{definition}
+%If the field given by \meta{field label} exists for the current
+%bibliography entry, it does \meta{true part}, otherwise it
+%does \meta{false part}.
+%
+%\DescribeMacro{\DTLifbibanyfieldexists}
+%\begin{definition}
+%\cs{DTLifanybibfieldexists}\marg{field label list}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%This is similar to \cs{DTLifbibfieldexists} except that the
+%first argument is a list of field names. If one or more of
+%the fields given in \meta{field label list} exists for the
+%current bibliography item, this does \meta{true part}, otherwise
+%it does \meta{false part}.
+%
+%\DescribeMacro{\DTLformatbibentry}
+%\begin{definition}
+%\cs{DTLformatbibentry}
+%\end{definition}
+%This formats the bibliography entry for the current row. It
+%checks for the existence of the command
+%\cs{DTLformat}\meta{entry type}, where \meta{entry type}
+%is given by \cs{DBIBentrytype}. These commands are defined
+%by the bibliography style.
+%
+%\DescribeMacro{\DTLcomputewidestbibentry}
+%\begin{definition}
+%\cs{DTLcomputewidestbibentry}\marg{conditions}\marg{db
+%name}\marg{bib label}\marg{cmd}
+%\end{definition}
+%This computes the widest bibliography entry over all entries
+%satisfying \meta{conditions} in the database \meta{db name},
+%where the label is given by \meta{bib label}, and the result
+%is stored in \meta{cmd}, which may then be used in the
+%argument of the \env{thebibliography} environment.
+%
+%The counter \counterfmt{DTLbibrow} keeps track of the current
+%bibliography entry. This is reset at the start of each
+%\cs{DTLforeachbib} and is incremented if \meta{conditions}
+%is met.
+%
+%Within the optional argument \meta{condition}, you may use any of the
+%commands that may be used within the optional argument of
+%\cs{DTLbibliography}, described in \autoref{sec:thebib}.
+%
+%\begin{example}{Separate List of Journals and Conference Papers}{ex:jcbib}
+%Suppose now my boss has decided that I need to produce a list
+%of all my publications, but they need to be separated so that
+%all the journal papers appear in one section, and all the
+%conference papers appear in another section. The journal papers
+%need to be labelled [J1], [J2] and so on, while the conference
+%papers need to be labelled [C1], [C2] and so on. (My boss isn't
+%interested in any of my other publications!) Again, all my
+%publications are stored in the \BibTeX\ database "nlct.bib". The
+%following creates the required document:
+%\begin{verbatim}
+%\documentclass{article}
+%\usepackage{databib}
+%\begin{document}
+%\nocite{*}
+%\DTLloadbbl{mybib}{nlct}
+%
+%\renewcommand*{\refname}{Journal Papers}
+%\DTLcomputewidestbibentry{\equal{\DBIBentrytype}{article}}
+%{mybib}{J\theDTLbibrow}{\widest}
+%
+%\begin{thebibliography}{\widest}
+%\DTLforeachbibentry[\equal{\DBIBentrytype}{article}]{mybib}{%
+%\bibitem[J\theDTLbibrow]{\DBIBcitekey} \DTLformatbibentry}
+%\end{thebibliography}
+%
+%\renewcommand*{\refname}{Conference Papers}
+%\DTLcomputewidestbibentry{\equal{\DBIBentrytype}{inproceedings}}
+%{mybib}{C\theDTLbibrow}{\widest}
+%
+%\begin{thebibliography}{\widest}
+%\DTLforeachbibentry[\equal{\DBIBentrytype}{inproceedings}]{mybib}{%
+%\bibitem[C\theDTLbibrow]{\DBIBcitekey} \DTLformatbibentry}
+%\end{thebibliography}
+%
+%\end{document}
+%\end{verbatim}
+%\end{example}
+%
+% \StopEventually{\clearpage\phantomsection
+%\addcontentsline{toc}{section}{\refname}
+% \DTLbibliography{docbib}
+%\phantomsection
+%\addcontentsline{toc}{section}{Change History}\PrintChanges
+%\phantomsection
+%\addcontentsline{toc}{section}{Index}\PrintIndex
+%}
+%
+%
+%
+%\section{datatool.sty}
+%\iffalse
+% \begin{macrocode}
+%<*datatool.sty>
+% \end{macrocode}
+%\fi
+%\subsection{Package Declaration}
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{datatool}[2007/08/17 v1.01 (NLCT)]
+% \end{macrocode}
+% Load required packages:
+% \begin{macrocode}
+\RequirePackage{xkeyval}
+\RequirePackage{ifthen}
+\RequirePackage{xfor}
+\RequirePackage{fp}
+\RequirePackage{substr}
+% \end{macrocode}
+%
+%\subsection{Package Options}
+%\begin{macro}{\@dtl@separator}
+% The data separator character (comma by default) is stored in
+% \cs{@dtl@separator}.
+% This is the separator used in external data files, not in the
+% \LaTeX\ code, which always uses a comma separator.
+% \begin{macrocode}
+\newcommand*{\@dtl@separator}{,}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsetseparator}
+%\begin{definition}
+%\cs{DTLsetseparator}\marg{char}
+%\end{definition}
+% The sets \cs{@dtl@separator}, and constructs the relevent macros
+% that require this character to be hardcoded into their definition.
+% \begin{macrocode}
+\newcommand*{\DTLsetseparator}[1]{%
+\renewcommand*{\@dtl@separator}{#1}%
+\@dtl@construct@lopoffs
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsettabseparator}
+%\cs{DTLsettabseparator} makes it easier to set a tab separator.
+% \begin{macrocode}
+\begingroup
+\catcode`\ 12
+\gdef\DTLsettabseparator{%
+ \catcode`\ 12
+ \DTLsetseparator{ }%
+}
+\endgroup
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@delimiter}
+% The data delimiter character (double quote by default) is stored
+% in \cs{@dtl@delimiter}. This is used in external data files, not
+% in the \LaTeX\ code.
+% \begin{macrocode}
+\begingroup
+\catcode`\"12\relax
+\gdef\@dtl@delimiter{"}
+\endgroup
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsetdelimiter}
+%\begin{definition}
+%\cs{DTLsetdelimiter}\marg{char}
+%\end{definition}
+% This sets the delimiter.
+% \begin{macrocode}
+\newcommand*\DTLsetdelimiter[1]{%
+\renewcommand*{\@dtl@delimiter}{#1}%
+\@dtl@construct@lopoffs}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@construct@lopoff}
+%\begin{definition}
+%\cs{@dtl@construct@lopoff}\meta{separator char}\meta{delimiter char}
+%\end{definition}
+% This defines
+%\begin{definition}
+% \cs{@dtl@lopoff}\meta{first element}\meta{sep}\meta{rest of list}\cs{to}\meta{cmd1}\meta{cmd2}
+%\end{definition}\noindent
+%for the current separator and delimiter.
+% \begin{macrocode}
+\edef\@dtl@construct@lopoff#1#2{%
+\noexpand\long\noexpand\def\noexpand\@dtl@lopoff#1##1##2\noexpand
+\to##3##4{%
+\noexpand\ifx#2##1\noexpand\relax
+\noexpand\@dtl@qlopoff#1##1##2\noexpand\to##3##4\relax
+\noexpand\else
+\noexpand\@dtl@lop@ff#1##1##2\noexpand\to##3##4\relax
+\noexpand\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@construct@qlopoff}
+%\begin{definition}
+% \cs{@dtl@construct@qlopoff}\meta{separator char}\meta{delimiter char}
+%\end{definition}
+% This constructs \cs{@dtl@qlopoff} to be used
+% when the entry is surrounded by the current delimiter value.
+% \begin{macrocode}
+\edef\@dtl@construct@qlopoff#1#2{%
+\noexpand\long\noexpand\def\noexpand\@dtl@qlopoff#1#2##1#2#1##2\noexpand
+\to##3##4{%
+\noexpand\def##4{##1}\noexpand\def##3{#1##2}%
+}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@construct@lop@ff}
+%\begin{definition}
+% \cs{@dtl@construct@lop@ff}\meta{separator char}
+%\end{definition}
+% This constructs \cs{@dtl@lop@ff} to be used when
+% the entry isn't surrouded by the delimiter.
+% \begin{macrocode}
+\edef\@dtl@construct@lop@ff#1{%
+\noexpand\long\noexpand\def\noexpand\@dtl@lop@ff#1##1#1##2\noexpand
+\to##3##4{%
+\noexpand\def##4{##1}\noexpand\def##3{#1##2}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@construct@lopoffs}
+%\begin{definition}
+%\cs{@dtl@construct@lopoffs}
+%\end{definition}
+% This constructs all the lopoff macros
+% using the given separator and delimiter characters.
+% \begin{macrocode}
+\newcommand{\@dtl@construct@lopoffs}{%
+\edef\@dtl@chars{{\@dtl@separator}{\@dtl@delimiter}}%
+\expandafter\@dtl@construct@lopoff\@dtl@chars
+\expandafter\@dtl@construct@qlopoff\@dtl@chars
+\expandafter\@dtl@construct@lop@ff\expandafter{\@dtl@separator}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@decimal}
+% The current decimal character is stored in \cs{@dtl@decimal}.
+% \begin{macrocode}
+\newcommand*{\@dtl@decimal}{.}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@numbergroupchar}
+% The current number group character is stored in
+% \cs{@dtl@numbergroupchar}.
+% \begin{macrocode}
+\newcommand*{\@dtl@numbergroupchar}{,}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsetnumberchars}
+%\begin{definition}
+%\cs{DTLsetnumberchars}\marg{number group char}\marg{decimal char}
+%\end{definition}
+% This sets the decimal character and number group
+% characters.
+% \begin{macrocode}
+\newcommand*{\DTLsetnumberchars}[2]{%
+\renewcommand*{\@dtl@numbergroupchar}{#1}%
+\renewcommand*{\@dtl@decimal}{#2}%
+\@dtl@construct@getnums
+\@dtl@construct@stripnumgrpchar{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@construct@getintfrac}
+%\begin{definition}
+%\cs{@dtl@construct@getintfrac}\marg{char}
+%\end{definition}
+% This constructs the macros for extracting integer and
+% fractional parts from a real number using the decimal character
+% \meta{char}.
+%
+%\begin{definition}
+% \cs{DTLconverttodecimal}\marg{num}\marg{cmd}
+%\end{definition}
+% \cs{DTLconverttodecimal} will convert locale dependent \meta{num}
+% a decimal number in a form that can be used in the
+% macros defined in the \sty{fp} package. The resulting
+% number is stored in \meta{cmd}. This command has to be redefined
+% whenever the decimal and number group characters are changed
+% as they form part of the command definitions.
+% \begin{macrocode}
+\edef\@dtl@construct@getintfrac#1{%
+\noexpand\def\noexpand\@dtl@getintfrac##1#1##2\noexpand\relax{%
+\noexpand\@dtl@get@intpart{##1}%
+\noexpand\def\noexpand\@dtl@fracpart{##2}%
+\noexpand\ifx\noexpand\@empty\noexpand\@dtl@fracpart
+ \noexpand\def\noexpand\@dtl@fracpart{0}%
+\noexpand\else
+ \noexpand\@dtl@getfracpart##2\noexpand\relax
+ \noexpand\@dtl@choptrailingzeroes{\noexpand\@dtl@fracpart}%
+\noexpand\fi
+}%
+\noexpand\def\noexpand\@dtl@getfracpart##1#1\noexpand\relax{%
+\noexpand\def\noexpand\@dtl@fracpart{##1}%
+}%
+\noexpand\def\noexpand\DTLconverttodecimal##1##2{%
+\noexpand\dtl@ifsingle{##1}%
+{\noexpand\expandafter\noexpand\toks@\noexpand\expandafter{##1}%
+\noexpand\edef\noexpand\@dtl@tmp{\noexpand\the\noexpand\toks@}}%
+{\noexpand\def\noexpand\@dtl@tmp{##1}}%
+ \noexpand\@dtl@standardize@currency\noexpand\@dtl@tmp
+ \noexpand\ifx\noexpand\@dtl@org@currency\noexpand\@empty
+ \noexpand\else
+ \noexpand\let\noexpand\@dtl@currency\noexpand\@dtl@org@currency
+ \noexpand\fi
+\noexpand\expandafter
+\noexpand\@dtl@getintfrac\noexpand\@dtl@tmp#1\noexpand\relax
+\noexpand\edef##2{\noexpand\@dtl@intpart.\noexpand\@dtl@fracpart}}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@construct@getnums}
+% The following calls the above with the relevant
+% decimal character:
+% \begin{macrocode}
+\newcommand*{\@dtl@construct@getnums}{%
+\expandafter\@dtl@construct@getintfrac\expandafter{\@dtl@decimal}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@get@intpart}
+% The following gets the integer part (adjusting for
+% repeating +/- signs if necessary.)
+% Sets \cs{@dtl@intpart}.
+% \begin{macrocode}
+\newcommand*{\@dtl@get@intpart}[1]{%
+\@dtl@tmpcount=1\relax
+\def\@dtl@intpart{#1}%
+\ifx\@dtl@intpart\@empty
+ \def\@dtl@intpart{0}%
+\else
+ \def\@dtl@intpart{}%
+ \@dtl@get@int@part#1.\relax%
+\fi
+\ifnum\@dtl@tmpcount<0\relax
+ \edef\@dtl@intpart{-\@dtl@intpart}%
+\fi
+\@dtl@strip@numgrpchar{\@dtl@intpart}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@get@int@part}
+% \begin{macrocode}
+\def\@dtl@get@int@part#1#2\relax{%
+\def\@dtl@argi{#1}%
+\def\@dtl@argii{#2}%
+\ifx\protect#1\relax%
+ \let\@dtl@get@nextintpart=\@dtl@get@int@part
+\else
+ \expandafter\ifx\@dtl@argi\$%
+ \let\@dtl@get@nextintpart=\@dtl@get@int@part
+ \else
+ \ifx-#1%
+ \multiply\@dtl@tmpcount by -1\relax
+ \let\@dtl@get@nextintpart=\@dtl@get@int@part
+ \else
+ \if\@dtl@argi+%
+ \let\@dtl@get@nextintpart=\@dtl@get@int@part
+ \else
+ \def\@dtl@intpart{#1}%
+ \ifx.\@dtl@argii
+ \let\@dtl@get@nextintpart=\@gobble
+ \else
+ \let\@dtl@get@nextintpart=\@dtl@get@next@intpart
+ \fi
+ \fi
+ \fi
+ \fi
+\fi
+\@dtl@get@nextintpart#2\relax
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@get@next@intpart}
+% \begin{macrocode}
+\def\@dtl@get@next@intpart#1.\relax{%
+\edef\@dtl@intpart{\@dtl@intpart#1}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@choptrailingzeroes}
+%\begin{definition}
+% \cs{@dtl@choptrailingzeroes}\marg{cmd}
+%\end{definition}
+% Chops trailing zeroes from number given by \meta{cmd}.
+% \begin{macrocode}
+\newcommand*{\@dtl@choptrailingzeroes}[1]{%
+\def\@dtl@tmpcpz{}%
+\expandafter\@dtl@chop@trailingzeroes#1\@nil%
+\let#1=\@dtl@tmpcpz
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@chop@trailingzeroes}
+% Trailing zeroes are chopped using a recursive algorithm.
+% \cs{@dtl@tmpcpz} needs to be set before using this. (The chopped
+% number is put in this control sequence.)
+% \begin{macrocode}
+\def\@dtl@chop@trailingzeroes#1#2\@nil{%
+\FPifeq{#2}{0}%
+ \edef\@dtl@tmpcpz{\@dtl@tmpcpz#1}%
+ \let\@dtl@chopzeroesnext=\@dtl@gobbletonil
+\else
+ \edef\@dtl@tmpcpz{\@dtl@tmpcpz#1}%
+ \let\@dtl@chopzeroesnext=\@dtl@chop@trailingzeroes
+\fi
+\@dtl@chopzeroesnext#2\@nil
+}
+% \end{macrocode}
+%\end{macro}
+% No-op macro to end recursion:
+%\begin{macro}{\@dtl@gobbletonil}
+% \begin{macrocode}
+\def\@dtl@gobbletonil#1\@nil{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@truncatedecimal}
+%\begin{definition}
+%\cs{dtl@truncatedecimal}\meta{cmd}
+%\end{definition}
+%Truncates decimal given by \meta{cmd} to an integer (assumes the
+% number is in decimal format with full stop as decimal point.)
+% \begin{macrocode}
+\newcommand*{\dtl@truncatedecimal}[1]{%
+\expandafter\@dtl@truncatedecimal#1.\@nil#1}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@truncatedecimal}
+% \begin{macrocode}
+\def\@dtl@truncatedecimal#1.#2\@nil#3{%
+\def#3{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@strip@numgrpchar}
+%\begin{definition}
+% \cs{@dtl@strip@numgrpchar}\marg{cmd}
+%\end{definition}
+% Strip the number group character from the number given by
+% \meta{cmd}.
+% \begin{macrocode}
+\newcommand*{\@dtl@strip@numgrpchar}[1]{%
+\def\@dtl@stripped{}%
+\edef\@dtl@do@stripnumgrpchar{%
+\noexpand\@@dtl@strip@numgrpchar#1\@dtl@numbergroupchar
+\noexpand\relax}%
+\@dtl@do@stripnumgrpchar
+\let#1=\@dtl@stripped
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@construct@stripnumgrpchar}
+% The following macro constructs \cs{@@dtl@strip@numgrpchar}.
+% \begin{macrocode}
+\edef\@dtl@construct@stripnumgrpchar#1{%
+\noexpand\def\noexpand\@@dtl@strip@numgrpchar##1#1##2\noexpand\relax{%
+\noexpand\expandafter\noexpand\toks@\noexpand\expandafter
+{\noexpand\@dtl@stripped}%
+\noexpand\edef\noexpand\@dtl@stripped{\noexpand\the\noexpand\toks@
+##1}%
+\noexpand\def\noexpand\@dtl@tmp{##2}%
+\noexpand\ifx\noexpand\@dtl@tmp\noexpand\@empty
+ \noexpand\let\noexpand\@dtl@next=\noexpand\relax
+\noexpand\else
+ \noexpand\let\noexpand\@dtl@next=\noexpand\@@dtl@strip@numgrpchar
+\noexpand\fi
+\noexpand\@dtl@next##2\noexpand\relax
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdecimaltolocale}
+%\begin{definition}
+% \cs{DTLdecimaltolocale}\marg{number}\marg{cmd}
+%\end{definition}
+% Define command to convert a decimal number into the locale
+% dependent format. Stores result in \meta{cmd} which must be
+% a control sequence.
+% \begin{macrocode}
+\newcommand*{\DTLdecimaltolocale}[2]{%
+\edef\@dtl@tmpdtl{#1}%
+\expandafter\@dtl@decimaltolocale\@dtl@tmpdtl.\relax
+\FPifeq{\@dtl@fracpart}{0}%
+ \edef#2{\@dtl@intpart}%
+\else
+ \edef#2{\@dtl@intpart\@dtl@decimal\@dtl@fracpart}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@decimaltolocale}
+% Convert the integer part (store in \cs{@dtl@intpart})
+% \begin{macrocode}
+\def\@dtl@decimaltolocale#1.#2\relax{%
+\@dtl@decimaltolocaleint{#1}%
+\def\@dtl@fracpart{#2}%
+\ifx\@dtl@fracpart\@empty
+ \def\@dtl@fracpart{0}%
+\else
+ \@dtl@decimaltolocalefrac#2\relax
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@decimaltolocaleint}
+% \begin{macrocode}
+\def\@dtl@decimaltolocaleint#1{%
+\@dtl@tmpcount=0\relax
+\@dtl@countdigits#1.\relax
+\@dtl@numgrpsepcount=\@dtl@tmpcount\relax
+\divide\@dtl@numgrpsepcount by 3\relax
+\multiply\@dtl@numgrpsepcount by 3\relax
+\advance\@dtl@numgrpsepcount by -\@dtl@tmpcount\relax
+\ifnum\@dtl@numgrpsepcount<0\relax
+ \advance\@dtl@numgrpsepcount by 3\relax
+\fi
+\def\@dtl@intpart{}%
+\@dtl@decimal@to@localeint#1.\relax
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@countdigits}
+% Counts the number of digits until "#2" is a full stop.
+% (increments \cs{@dtl@tmpcount}.)
+% \begin{macrocode}
+\def\@dtl@countdigits#1#2\relax{%
+\advance\@dtl@tmpcount by 1\relax
+\ifx.#2\relax
+ \let\@dtl@countnext=\@gobble
+\else
+ \let\@dtl@countnext=\@dtl@countdigits
+\fi
+\@dtl@countnext#2\relax
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@decimal@to@localeint}
+% \begin{macrocode}
+\def\@dtl@decimal@to@localeint#1#2\relax{%
+\advance\@dtl@numgrpsepcount by 1\relax
+\ifx.#2\relax
+ \edef\@dtl@intpart{\@dtl@intpart#1}%
+ \let\@dtl@localeintnext=\@gobble
+\else
+ \ifnum\@dtl@numgrpsepcount=3\relax
+ \edef\@dtl@intpart{\@dtl@intpart#1\@dtl@numbergroupchar}%
+ \@dtl@numgrpsepcount=0\relax
+ \else
+ \ifnum\@dtl@numgrpsepcount>3\relax
+ \@dtl@numgrpsepcount=0\relax
+ \fi
+ \edef\@dtl@intpart{\@dtl@intpart#1}%
+ \fi
+ \let\@dtl@localeintnext=\@dtl@decimal@to@localeint
+\fi
+\@dtl@localeintnext#2\relax
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@decimaltolocalefrac}
+% Convert the fractional part (store in \cs{@dtl@fracpart})
+% \begin{macrocode}
+% \end{macrocode}
+\def\@dtl@decimaltolocalefrac#1.\relax{%
+\def\@dtl@fracpart{#1}%
+\@dtl@choptrailingzeroes{\@dtl@fracpart}%
+}
+%\end{macro}
+%
+%\begin{macro}{\DTLdecimaltocurrency}
+%\begin{definition}
+% \cs{DTLdecimaltocurrency}\marg{number}\marg{cmd}
+%\end{definition}
+% This converts a decimal number into the locale
+% dependent currency format. Stores result in \meta{cmd} which must be
+% a control sequence.
+% \begin{macrocode}
+\newcommand*{\DTLdecimaltocurrency}[2]{%
+\edef\@dtl@tmpdtl{#1}%
+\expandafter\@dtl@decimaltolocale\@dtl@tmpdtl.\relax
+\dtl@truncatedecimal\@dtl@tmpdtl
+\@dtl@tmpcount=\@dtl@tmpdtl\relax
+\expandafter\@dtl@toks\expandafter{\@dtl@currency}%
+\FPifeq{\@dtl@fracpart}{0}%
+ \ifnum\@dtl@tmpcount<0\relax
+ \@dtl@tmpcount = -\@dtl@tmpcount\relax
+ \edef#2{-\the\@dtl@toks\the\@dtl@tmpcount\@dtl@decimal00}%
+ \else
+ \edef#2{\the\@dtl@toks\@dtl@intpart\@dtl@decimal00}%
+ \fi
+\else
+ \ifnum\@dtl@tmpcount<0\relax
+ \@dtl@tmpcount = -\@dtl@tmpcount\relax
+ \ifnum\@dtl@fracpart<10\relax
+ \edef#2{-\the\@dtl@toks\number\@dtl@tmpcount
+ \@dtl@decimal\@dtl@fracpart0}%
+ \else
+ \edef#2{-\the\@dtl@toks\number\@dtl@tmpcount
+ \@dtl@decimal\@dtl@fracpart}%
+ \fi
+ \else
+ \ifnum\@dtl@fracpart<10\relax
+ \edef#2{\the\@dtl@toks\@dtl@intpart\@dtl@decimal\@dtl@fracpart0}%
+ \else
+ \edef#2{\the\@dtl@toks\@dtl@intpart\@dtl@decimal\@dtl@fracpart}%
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+% Set the defaults:
+% \begin{macrocode}
+\@dtl@construct@lopoffs
+\@dtl@construct@getnums
+\expandafter\@dtl@construct@stripnumgrpchar\expandafter
+{\@dtl@numbergroupchar}
+% \end{macrocode}
+% Define key for package option \pkgopt{separator}.
+% \begin{macrocode}
+\define@key{datatool.sty}{separator}{%
+\DTLsetseparator{#1}}
+% \end{macrocode}
+% Define key for package option \pkgopt{delimiter}.
+% \begin{macrocode}
+\define@key{datatool.sty}{delimiter}{%
+\DTLsetdelimiter{#1}}
+% \end{macrocode}
+% Define key for package option \pkgopt{verbose}. (This also
+% switches the \sty{fp} messages on/off)
+% \begin{macrocode}
+\define@boolkey{datatool.sty}[dtl]{verbose}[true]{%
+\ifdtlverbose \FPmessagestrue\else \FPmessagesfalse\fi}
+% \end{macrocode}
+%\begin{macro}{\dtl@message}
+%\begin{definition}
+%\cs{dtl@message}\marg{message string}
+%\end{definition}
+% Displays message only if the verbose option is set.
+% \begin{macrocode}
+\newcommand*{\dtl@message}[1]{%
+\ifdtlverbose\typeout{#1}\fi}
+% \end{macrocode}
+%\end{macro}
+% Process package options:
+% \begin{macrocode}
+\ProcessOptionsX
+% \end{macrocode}
+%
+%\begin{macro}{\DTLpar}
+% Many of the commands used by this package are short commands.
+% This means that you can't use \cs{par}
+% in the data. To get around this, define the robust command
+% \cs{DTLpar} to use instead.
+% \begin{macrocode}
+\DeclareRobustCommand\DTLpar{\@par}
+% \end{macrocode}
+%\end{macro}
+%
+% \subsection{Determining Data Types}
+% The control sequence \cs{@dtl@checknumerical} checks the data
+% type of its argument, and sets \cs{@dtl@datatype} to 0 if
+% the argument is a string, 1 if the argument is an integer
+% or 2 if the argument is a real number. First define
+% \cs{@dtl@datatype}:
+%\begin{macro}{\@dtl@datatype}
+% \begin{macrocode}
+\newcount\@dtl@datatype
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@tmpcount}
+% Define temporary count register
+% \begin{macrocode}
+\newcount\@dtl@tmpcount
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@tmplength}
+% Define temporary length register:
+% \begin{macrocode}
+\newlength\dtl@tmplength
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@numgrpsepcount}
+% Define count register to count the digits between the number
+% group separators.
+% \begin{macrocode}
+\newcount\@dtl@numgrpsepcount
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@checknumerical}
+%\begin{definition}
+%\cs{@dtl@checknumerical}\marg{arg}
+%\end{definition}
+% Checks if \meta{arg} is numerical
+% (includes decimal numbers, but not scientific notation.)
+% Sets \cs{@dtl@datatype}, as described above.
+% \begin{macrocode}
+\newcommand{\@dtl@checknumerical}[1]{%
+\@dtl@numgrpsepfalse
+\def\@dtl@tmp{#1}%
+\ifx\@empty#1\@empty
+ \@dtl@datatype=0\relax
+\else
+ \dtl@ifsingle{#1}%
+ {\expandafter\toks@\expandafter{#1}%
+ \edef\@dtl@tmp{\the\toks@}}%
+ {\def\@dtl@tmp{#1}}%
+ \@dtl@tmpcount=0\relax
+ \@dtl@datatype=0\relax
+ \@dtl@numgrpsepcount=2\relax
+ \@dtl@standardize@currency\@dtl@tmp
+ \ifx\@dtl@org@currency\@empty
+ \else
+ \let\@dtl@currency\@dtl@org@currency
+ \fi
+ \expandafter\@dtl@checknumericalstart\@dtl@tmp\@nil\@nil
+\fi
+\ifnum\@dtl@numgrpsepcount>-1\relax
+ \if@dtl@numgrpsep
+ \ifnum\@dtl@numgrpsepcount=3\relax
+ \else
+ \@dtl@datatype=0\relax
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@checknumericalstart}
+% Check first character for checknumerical process to see if
+% it's a plus or minus sign.
+% \begin{macrocode}
+\def\@dtl@checknumericalstart#1#2\@nil\@nil{%
+\ifx#1\protect
+ \@dtl@checknumericalstart#2\@nil\@nil\relax
+\else
+ \ifx-#1\relax
+ \def\@dtl@tmp{#2}%
+ \ifx\@empty\@dtl@tmp
+ \@dtl@datatype=0\relax
+ \else
+ \ifnum\@dtl@datatype=0\relax
+ \@dtl@datatype=1\relax
+ \fi
+ \@dtl@checknumericalstart#2\@nil\@nil\relax
+ \fi
+ \else
+ \ifx+#1\relax
+ \def\@dtl@tmp{#2}%
+ \ifx\@empty\@dtl@tmp
+ \@dtl@datatype=0\relax
+ \else
+ \ifnum\@dtl@datatype=0\relax
+ \@dtl@datatype=1\relax
+ \fi
+ \@dtl@checknumericalstart#2\@nil\@nil\relax
+ \fi
+ \else
+ \def\@dtl@tmp{#1}%
+ \ifx#1\$\relax
+ \@dtl@datatype=3\relax
+ \@dtl@checknumericalstart#2\@nil\@nil\relax
+ \else
+ \ifx\@empty\@dtl@tmp
+ \@dtl@datatype=0\relax
+ \else
+ \ifnum\@dtl@datatype=0\relax
+ \@dtl@datatype=1\relax
+ \fi
+ \@dtl@checknumericalloop#1#2\@nil\@nil\relax
+ \fi
+ \fi
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\if@dtl@numgrpsep}
+% The conditional \cs{if@dtl@numgrpsep} is set the first time
+% \cs{@dtl@checknumericalloop} encounters the number group
+% separator.
+% \begin{macrocode}
+\newif\if@dtl@numgrpsep
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@ifDigitOrDecimalSep}
+% Check if argument is either a digit or the decimal separator.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\@dtl@ifDigitOrDecimalSep}[3]{%
+\ifx0#1\relax
+ #2%
+\else
+ \ifx1#1\relax
+ #2%
+ \else
+ \ifx2#1\relax
+ #2%
+ \else
+ \ifx3#1\relax
+ #2%
+ \else
+ \ifx4#1\relax
+ #2%
+ \else
+ \ifx5#1\relax
+ #2%
+ \else
+ \ifx6#1\relax
+ #2%
+ \else
+ \ifx7#1\relax
+ #2%
+ \else
+ \ifx8#1\relax
+ #2%
+ \else
+ \ifx9#1\relax
+ #2%
+ \else
+ \expandafter\ifx\@dtl@decimal#1\relax
+ #2%
+ \else
+ #3%
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@checknumericalloop}
+% Check numerical loop. This iterates through each character
+% until \cs{@nil} is reached, or invalid character found.
+% Increments \cs{@dtl@tmpcount} each time it encounters a
+% decimal character.\changes{1.01}{2007 Aug 17}{fixed bug caused
+% by commands occuring within text being tested}
+% \begin{macrocode}
+\def\@dtl@checknumericalloop#1#2\@nil{%
+\def\@dtl@tmp{#1}%
+\ifx\@nnil\@dtl@tmp\relax
+ \let\@dtl@chcknumnext=\@dtl@checknumericalnoop%
+\else
+ \@dtl@ifDigitOrDecimalSep{#1}{%
+ \let\@dtl@chcknumnext=\@dtl@checknumericalloop%
+ \expandafter\ifx\@dtl@decimal#1\relax
+ \if@dtl@numgrpsep
+ \ifnum\@dtl@numgrpsepcount=3\relax
+ \@dtl@numgrpsepcount=-1\relax
+ \else
+ \@dtl@datatype=0\relax
+ \let\@dtl@chcknumnext=\@dtl@checknumericalnoop
+ \fi
+ \else
+ \@dtl@numgrpsepcount=-1\relax
+ \fi
+ \else
+ \ifnum\@dtl@numgrpsepcount=-1\relax
+ \else
+ \advance\@dtl@numgrpsepcount by 1\relax
+ \fi
+ \fi
+}{%
+\ifx\@dtl@numbergroupchar\@dtl@tmp\relax
+ \@dtl@numgrpseptrue
+ \ifnum\@dtl@numgrpsepcount<3\relax
+ \@dtl@datatype=0\relax
+ \let\@dtl@chcknumnext=\@dtl@checknumericalnoop
+ \else
+ \@dtl@numgrpsepcount=0\relax
+ \fi
+\else
+ \@dtl@datatype=0\relax
+ \let\@dtl@chcknumnext=\@dtl@checknumericalnoop
+\fi
+}%
+ \ifx\@dtl@decimal\@dtl@tmp\relax
+ \ifnum\@dtl@datatype<3\relax
+ \@dtl@datatype=2\relax
+ \fi
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount>1\relax
+ \@dtl@datatype=0\relax
+ \let\@dtl@chcknumnext=\@dtl@checknumericalnoop%
+ \fi
+ \fi
+\fi
+\@dtl@chcknumnext#2\@nil
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@checknumericalnoop}
+% End loop
+% \begin{macrocode}
+\def\@dtl@checknumericalnoop#1\@nil#2{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumerical}
+%\begin{definition}
+%\cs{DTLifnumerical}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% Tests the first argument, if
+% its numerical do second argument, otherwise do third argument.
+% \begin{macrocode}
+\newcommand{\DTLifnumerical}[3]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=0\relax#3\else#2\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifreal}
+%\begin{definition}
+%\cs{DTLifreal}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% Tests the first argument, if
+% it's a real number (not an integer) do second argument,
+% otherwise do third argument.
+% \begin{macrocode}
+\newcommand{\DTLifreal}[3]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=2\relax #2\else #3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifint}
+%\begin{definition}
+%\cs{DTLifint}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% Tests the first argument, if
+% it's an integer do second argument,
+% otherwise do third argument.
+% \begin{macrocode}
+\newcommand{\DTLifint}[3]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=1\relax #2\else #3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstring}
+%\begin{definition}
+%\cs{DTLifstring}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% Tests the first argument, if
+% it's a string do second argument,
+% otherwise do third argument.
+% \begin{macrocode}
+\newcommand{\DTLifstring}[3]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=0\relax #2\else #3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifcurrency}
+%\begin{definition}
+%\cs{DTLifcurrency}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% Tests the first argument, if
+% it starts with the currency symbol do second argument,
+% otherwise do third argument.
+% \begin{macrocode}
+\newcommand{\DTLifcurrency}[3]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=3\relax #2\else #3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifcurrencyunit}
+%\begin{definition}
+%\cs{DTLifcurrencyunit}\marg{arg}\marg{symbol}\marg{true
+% part}\marg{false part}
+%\end{definition}
+% This tests if \meta{arg} is currency, and uses the currency unit
+% \meta{symbol}. If true do third argument, otherwise
+% do fourth argument.
+% \begin{macrocode}
+\newcommand*{\DTLifcurrencyunit}[4]{%
+\@dtl@checknumerical{#1}%
+\ifnum\@dtl@datatype=3\relax
+ \ifthenelse{\equal{\@dtl@org@currency}{#2}}{#3}{#4}%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifcasedatatype}
+%\begin{definition}
+%\cs{DTLifcasedatatype}\marg{arg}\marg{string case}\marg{int
+%case}\marg{real case}\marg{currency case}
+%\end{definition}
+% If \meta{arg} is a string, do \meta{string case}, if \meta{arg}
+% is an integer do \meta{int case}, if \meta{arg} is a real number,
+% do \meta{real case}, if \meta{arg} is currency, do \meta{curreny
+%case}.
+% \begin{macrocode}
+\newcommand{\DTLifcasedatatype}[5]{%
+\@dtl@checknumerical{#1}%
+\ifcase\@dtl@datatype
+ #2% string
+\or
+ #3% integer
+\or
+ #4% number
+\or
+ #5% currency
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testbothnumerical}
+%\begin{definition}
+%\cs{dtl@testbothnumerical}\marg{arg1}\marg{arg2}
+%\end{definition}
+% Tests if both arguments are numerical. This sets
+% the conditional \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testbothnumerical}[2]{%
+\dtl@ifsingle{#1}{%
+ \edef\@dtl@tmp{#1}}{%
+ \def\@dtl@tmp{#1}}%
+\expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+\edef\@dtl@firsttype{\number\@dtl@datatype}%
+\dtl@ifsingle{#2}{%
+ \edef\@dtl@tmp{#2}}{%
+ \def\@dtl@tmp{#2}}%
+\expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+\multiply\@dtl@datatype by \@dtl@firsttype\relax
+\ifnum\@dtl@datatype>0\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumlt}
+%\begin{definition}
+%\cs{DTLifnumlt}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \marg{num1} $<$ \marg{num2}. Both numbers
+% need to have the decimal separator changed to a dot
+% to ensure that it works with \cs{FPiflt}
+% \begin{macrocode}
+\newcommand*{\DTLifnumlt}[4]{%
+ \DTLconverttodecimal{#1}{\@dtl@numi}%
+ \DTLconverttodecimal{#2}{\@dtl@numii}%
+ \FPiflt{\@dtl@numi}{\@dtl@numii}%
+ #3%
+ \else
+ #4%
+ \fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\label{src:dtlcompare}
+%\begin{macro}{\dtlcompare}
+%\begin{definition}
+%\cs{dtlcompare}\marg{count}\marg{string1}\marg{string2}
+%\end{definition}
+% Compares \meta{string1} and \meta{string2}, and stores the
+% result in the count register \meta{count}. The result may be
+% one of:
+%\par\vskip\baselineskip\noindent
+%\begin{tabular}{rl}
+%-1 & if \meta{string1} is considered to be less than
+%\meta{string2}\\
+%0 & if \meta{string1} is considered to be the same as
+%\meta{string2}\\
+%1 & if \meta{string1} is considered to be greater than
+%\meta{string2}
+%\end{tabular}
+%\par\vskip\baselineskip\noindent
+%Note that for the purposes of string comparisons, commands within
+%\meta{string1} and \meta{string2} are ignored, except for
+%\cs{space} and "~", which are both treated as a space (character
+%code 32.) The following
+%examples assume that the count register \cs{mycount} has been
+%defined as follows:
+%\begin{verbatim}
+%\newcount\mycount
+%\end{verbatim}
+%\newcount\mycount\par\noindent
+%\textbf{Examples:}
+%\begin{enumerate}
+%\item
+%\begin{verbatim}
+%\dtlcompare{\mycount}{Z\"oe}{Zoe}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{Z\"oe}{Zoe}\number\mycount, since the accent
+%command is ignored.
+%
+%\item
+%\begin{verbatim}
+%\dtlcompare{\mycount}{foo}{Foo}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{foo}{Foo}\number\mycount, since the comparison
+%is case sensitive, however, note the following example:
+%\item
+%\begin{verbatim}
+%\dtlcompare{\mycount}{foo}{\uppercase{f}oo}\number\mycount
+%\end{verbatim}
+%which produces:
+%\dtlcompare{\mycount}{foo}{\uppercase{f}oo}\number\mycount, since
+%the \cs{uppercase} command is ignored.
+%
+%\item You can ``trick'' \cs{dtlcompare} using a command which doesn't
+%output any text. Suppose you have defined the following command:
+%\begin{verbatim}
+%\newcommand*{\noopsort}[1]{}
+%\end{verbatim}
+%\providecommand*{\noopsort}[1]{}
+%then "\noopsort{a}foo" produces the text: \noopsort{a}foo, however
+%the following
+%\begin{verbatim}
+%\dtlcompare{\mycount}{\noopsort{a}foo}{bar}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{\noopsort{a}foo}{bar}\number\mycount,
+%since the command \cs{noopsort} is disregarded when the comparison
+%is made, so \cs{dtlcompare} just compares "{a}foo" with "bar", and
+%since "a" is less than "b", the first string is considered to be less
+%than the second string.
+%
+%\item Note that this also means that:
+%\begin{verbatim}
+%\def\mystr{abc}%
+%\dtlcompare{\mycount}{\mystr}{abc}\number\mycount
+%\end{verbatim}
+%produces:
+%\def\mystr{abc}\relax
+%\dtlcompare{\mycount}{\mystr}{abc}\number\mycount, since the command
+%\cs{mystr} is disregarded, which means that \cs{dtlcompare} is
+%comparing an empty string with the string "abc".
+%
+%\item Spaces count in the comparison:
+%\begin{verbatim}
+%\dtlcompare{\mycount}{ab cd}{abcd}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{ab cd}{abcd}\number\mycount,
+%but sequential spaces are treated as a single space:
+%\begin{verbatim}
+%\dtlcompare{\mycount}{ab cd}{ab cd}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{ab cd}{ab cd}\number\mycount.
+%
+%\item As usual, spaces following command names are ignored, so
+%\begin{verbatim}
+%\dtlcompare{\mycount}{ab\relax cd}{ab cd}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{ab\relax cd}{ab cd}\number\mycount.
+%
+%\item "~" and \cs{space} are considered to be the same as a
+% space:
+%\begin{verbatim}
+%\dtlcompare{\mycount}{ab cd}{ab~cd}\number\mycount
+%\end{verbatim}
+%produces:
+%\dtlcompare{\mycount}{ab cd}{ab~cd}\number\mycount.
+%\end{enumerate}
+%\changes{1.01}{2007 Aug 17}{replaces \cs{compare} (no
+% longer using compare.tex)}
+% \begin{macrocode}
+\newcommand*{\dtlcompare}[3]{%
+\dtl@subnobrsp{#2}{\@dtl@argA}%
+\dtl@subnobrsp{#3}{\@dtl@argB}%
+\ifx\@dtl@argA\@empty
+ \ifx\@dtl@argB\@empty
+ #1=0\relax
+ \else
+ #1=-1\relax
+ \fi
+\else
+ \ifx\@dtl@argB\@empty
+ #1=1\relax
+ \else
+ \DTLsubstituteall{\@dtl@argA}{ }{\space }%
+ \DTLsubstituteall{\@dtl@argB}{ }{\space }%
+ \expandafter\dtl@getfirst\@dtl@argA\end
+ \let\dtl@firstA=\dtl@first
+ \let\dtl@restA=\dtl@rest
+ \expandafter\dtl@getfirst\@dtl@argB\end
+ \let\dtl@firstB=\dtl@first
+ \let\dtl@restB=\dtl@rest
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstA}{%
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstB}{%
+ \expandafter\dtl@setcharcode\expandafter{\dtl@firstA}{\dtl@codeA}%
+ \expandafter\dtl@setcharcode\expandafter{\dtl@firstB}{\dtl@codeB}%
+ \ifnum\dtl@codeA=-1\relax
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare{\noexpand#1}{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare
+ {\noexpand#1}{\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ \fi
+ \else
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \ifnum\dtl@codeA<\dtl@codeB
+ #1=-1\relax
+ \else
+ \ifnum\dtl@codeA>\dtl@codeB
+ #1=1\relax
+ \else
+ \ifx\dtl@restA\@empty
+ \ifx\dtl@restB\@empty
+ #1=0\relax
+ \else
+ #1=-1\relax
+ \fi
+ \else
+ \ifx\restB\@empty
+ #1=1\relax
+ \else
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare
+ {\noexpand#1}{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ }{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ }}{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlcompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ }%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@getfirst}
+% Gets the first object, and stores in \cs{dtl@first}. The remainder
+% is stored in \cs{dtl@rest}.
+% \begin{macrocode}
+\def\dtl@getfirst#1#2\end{%
+\def\dtl@first{#1}%
+\ifx\dtl@first\@empty
+ \def\dtl@rest{#2}%
+\else
+ \dtl@ifsingle{#1}{\def\dtl@rest{#2}}{\dtl@getfirst#1#2\end}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+% Count registers to store character codes:
+% \begin{macrocode}
+\newcount\dtl@codeA
+\newcount\dtl@codeB
+% \end{macrocode}
+%\begin{macro}{\dtl@setcharcode}
+%\begin{definition}
+%\cs{dtl@setcharcode}\marg{c}\marg{count register}
+%\end{definition}
+% Sets \meta{count register} to the character code of \meta{c}, or to
+% -1 if \meta{c} is a control sequence, unless \meta{c} is either
+% \cs{space} or |~| in which case it sets \meta{count register}
+% to the character code of the space character.
+% \begin{macrocode}
+\newcommand*{\dtl@setcharcode}[2]{%
+\def\@dtl@tmp{#1}%
+\ifx\@dtl@tmp\@empty
+ #2=-1\relax
+\else
+ \ifx#1\space\relax
+ #2=`\ \relax
+ \else
+ \ifx#1~\relax
+ #2=`\ \relax
+ \else
+ \ifcat\noexpand#1\relax%
+ #2=-1\relax
+ \else
+ #2=`#1\relax
+ \fi
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@setlccharcode}
+%\begin{definition}
+%\cs{dtl@setlccharcode}\marg{c}\marg{count register}
+%\end{definition}
+% As \cs{dtl@setlccharcode} except it sets \meta{count register}
+% to the lower case character code of \meta{c}, unless \meta{c}
+% is a control sequence, in which case it does the same as
+% \cs{dtl@setcharcode}.
+% \begin{macrocode}
+\newcommand*{\dtl@setlccharcode}[2]{%
+\def\@dtl@tmp{#1}%
+\ifx\@dtl@tmp\@empty
+ #2=-1\relax
+\else
+ \ifx#1\space\relax
+ #2=`\ \relax
+ \else
+ \ifx#1~\relax
+ #2=`\ \relax
+ \else
+ \ifcat\noexpand#1\relax%
+ #2=-1\relax
+ \else
+ #2=\lccode`#1\relax
+ \fi
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtlicompare}
+%\begin{definition}
+%\cs{dtlicompare}\marg{count}\marg{string1}\marg{string2}
+%\end{definition}
+% As \cs{dtlcompare} but ignores case.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\dtlicompare}[3]{%
+\dtl@subnobrsp{#2}{\@dtl@argA}%
+\dtl@subnobrsp{#3}{\@dtl@argB}%
+\ifx\@dtl@argA\@empty
+ \ifx\@dtl@argB\@empty
+ #1=0\relax
+ \else
+ #1=-1\relax
+ \fi
+\else
+ \ifx\@dtl@argB\@empty
+ #1=1\relax
+ \else
+ \DTLsubstituteall{\@dtl@argA}{ }{\space }%
+ \DTLsubstituteall{\@dtl@argB}{ }{\space }%
+ \expandafter\dtl@getfirst\@dtl@argA\end
+ \let\dtl@firstA=\dtl@first
+ \let\dtl@restA=\dtl@rest
+ \expandafter\dtl@getfirst\@dtl@argB\end
+ \let\dtl@firstB=\dtl@first
+ \let\dtl@restB=\dtl@rest
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstA}{%
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstB}{%
+ \expandafter\dtl@setlccharcode\expandafter{\dtl@firstA}{\dtl@codeA}%
+ \expandafter\dtl@setlccharcode\expandafter{\dtl@firstB}{\dtl@codeB}%
+ \ifnum\dtl@codeA=-1\relax
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare{\noexpand#1}{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare
+ {\noexpand#1}{\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ \fi
+ \else
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \ifnum\dtl@codeA<\dtl@codeB
+ #1=-1\relax
+ \else
+ \ifnum\dtl@codeA>\dtl@codeB
+ #1=1\relax
+ \else
+ \ifx\dtl@restA\@empty
+ \ifx\dtl@restB\@empty
+ #1=0\relax
+ \else
+ #1=-1\relax
+ \fi
+ \else
+ \ifx\restB\@empty
+ #1=1\relax
+ \else
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare
+ {\noexpand#1}{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ }{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ }}{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtlicompare
+ {\noexpand#1}{\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ }%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstringlt}
+%\begin{definition}
+%\cs{DTLifstringlt}\marg{string1}\marg{string2}\marg{true part}\marg{false part}
+%\end{definition}
+% String comparison (Starred version ignores case)
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifstringlt}{\@ifstar\@sDTLifstringlt\@DTLifstringlt}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifstringlt}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount<0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifstringlt}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount<0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLiflt}
+%\begin{definition}
+%\cs{DTLiflt}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+% Does \cs{DTLifnumlt} if both \meta{arg1} and \meta{arg2} are
+% numerical, otherwise do \cs{DTLifstringlt} (unstarred version)
+% or \cs{DTLifstringlt*} (starred version).
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLiflt}{\@ifstar\@sDTLiflt\@DTLiflt}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLiflt}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumlt{#1}{#2}{#3}{#4}%
+\else
+ \@DTLifstringlt{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLiflt}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumlt{#1}{#2}{#3}{#4}%
+\else
+ \@sDTLifstringlt{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumgt}
+%\begin{definition}
+%\cs{DTLifnumgt}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \marg{num1} $>$ \marg{num2}. Both numbers
+% need to have the decimal separator changed to a dot
+% to ensure that it works with \cs{FPifgt}
+% \begin{macrocode}
+\newcommand*{\DTLifnumgt}[4]{%
+ \DTLconverttodecimal{#1}{\@dtl@numi}%
+ \DTLconverttodecimal{#2}{\@dtl@numii}%
+ \FPifgt{\@dtl@numi}{\@dtl@numii}%
+ #3%
+ \else
+ #4%
+ \fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstringgt}
+%\begin{definition}
+%\cs{DTLifstringgt}\marg{string1}\marg{string2}\marg{true part}\marg{false part}
+%\end{definition}
+% String comparison (starred version ignores case)
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifstringgt}{\@ifstar\@sDTLifstringgt\@DTLifstringgt}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifstringgt}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount>0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifstringgt}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount>0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifgt}
+%\begin{definition}
+%\cs{DTLifgt}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+% Does \cs{DTLifnumgt} if both \meta{arg1} and \meta{arg2} are
+% numerical, otherwise do \cs{DTLifstringgt} or \cs{DTLifstringgt*}.
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifgt}{\@ifstar\@sDTLifgt\@DTLifgt}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifgt}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumgt{#1}{#2}{#3}{#4}%
+\else
+ \@DTLifstringgt{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifgt}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumgt{#1}{#2}{#3}{#4}%
+\else
+ \@sDTLifstringgt{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumeq}
+%\begin{definition}
+%\cs{DTLifnumeq}\marg{num1}\marg{num2}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \marg{num1} = \marg{num2}. Both numbers
+% need to have the decimal separator changed to a dot
+% to ensure that it works with \cs{FPifeq}
+% \begin{macrocode}
+\newcommand*{\DTLifnumeq}[4]{%
+ \DTLconverttodecimal{#1}{\@dtl@numi}%
+ \DTLconverttodecimal{#2}{\@dtl@numii}%
+ \FPifeq{\@dtl@numi}{\@dtl@numii}%
+ #3%
+ \else
+ #4%
+ \fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstringeq}
+%\begin{definition}
+%\cs{DTLifstringeq}\marg{string1}\marg{string2}\marg{true part}\marg{false part}
+%\end{definition}
+% String comparison (starred version ignores case)
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifstringeq}{\@ifstar\@sDTLifstringeq\@DTLifstringeq}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifstringeq}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount=0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifstringeq}[4]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\ifnum\@dtl@tmpcount=0\relax
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifeq}
+%\begin{definition}
+%\cs{DTLifeq}\marg{arg1}\marg{arg2}\marg{true part}\marg{false part}
+%\end{definition}
+% Does \cs{DTLifnumeq} if both \meta{arg1} and \meta{arg2} are
+% numerical, otherwise do \cs{DTLifstringeq} or \cs{DTLifstringeq*}.
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifeq}{\@ifstar\@sDTLifeq\@DTLifeq}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifeq}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumeq{#1}{#2}{#3}{#4}%
+\else
+ \@DTLifstringeq{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifeq}[4]{%
+\dtl@testbothnumerical{#1}{#2}%
+\if@dtl@condition
+ \DTLifnumeq{#1}{#2}{#3}{#4}%
+\else
+ \@sDTLifstringeq{#1}{#2}{#3}{#4}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifSubString}
+%\begin{definition}
+%\cs{DTLifSubString}\marg{string}\marg{sub string}\marg{true
+%part}\marg{false part}
+%\end{definition}
+% If \meta{sub string} is contained in \meta{string} does
+%\meta{true part}, otherwise does \meta{false part}.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLifSubString}[4]{%
+\protected@edef\@dtl@tmp{\noexpand\dtl@testifsubstring
+{#1}{#2}}%
+\@dtl@tmp
+\if@dtl@condition
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testifsubstring}
+% \begin{macrocode}
+\newcommand*{\dtl@testifsubstring}[2]{%
+\dtl@subnobrsp{#1}{\@dtl@argA}%
+\dtl@subnobrsp{#2}{\@dtl@argB}%
+\ifx\@dtl@argB\@empty
+ \@dtl@conditiontrue
+\else
+ \ifx\@dtl@argA\@empty
+ \@dtl@conditionfalse
+ \else
+ \dtl@teststartswith{#1}{#2}%
+ \if@dtl@condition
+ \else
+ \DTLsubstituteall{\@dtl@argA}{ }{\space }%
+ \expandafter\dtl@getfirst\@dtl@argA\end
+ \expandafter\dtl@ifsingle\expandafter{\dtl@first}{%
+ \expandafter\dtl@testifsubstring\expandafter{\dtl@rest}{#2}%
+ }{%
+ \protected@edef\@dtl@donext{\noexpand\dtl@testifsubstring
+ {\dtl@first\dtl@rest}{\@dtl@argB}}%
+ \@dtl@donext
+ }%
+ \fi
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifStartsWith}
+%\begin{definition}
+%\cs{DTLifStartsWith}\marg{string}\marg{substring}\marg{true
+%part}\marg{false part}
+%\end{definition}
+%If \meta{string} starts with \meta{substring}, this does
+%\meta{true part}, otherwise it does \meta{false part}.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLifStartsWith}[4]{%
+\@dtl@conditionfalse
+\protected@edef\@dtl@tmp{\noexpand\dtl@teststartswith{#1}{#2}}%
+\@dtl@tmp
+\if@dtl@condition
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@teststartswith}
+%\begin{definition}
+%\cs{dtl@teststartswith}\marg{string}\marg{prefix}
+%\end{definition}
+% Tests if \meta{string} starts with \meta{prefix}. This sets
+% \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@teststartswith}[2]{%
+\dtl@subnobrsp{#1}{\@dtl@argA}%
+\dtl@subnobrsp{#2}{\@dtl@argB}%
+\ifx\@dtl@argA\@empty
+ \ifx\@dtl@argB\@empty
+ \@dtl@conditiontrue
+ \else
+ \@dtl@conditionfalse
+ \fi
+\else
+ \ifx\@dtl@argB\@empty
+ \@dtl@conditiontrue
+ \else
+ \DTLsubstituteall{\@dtl@argA}{ }{\space }%
+ \DTLsubstituteall{\@dtl@argB}{ }{\space }%
+ \expandafter\dtl@getfirst\@dtl@argA\end
+ \let\dtl@firstA=\dtl@first
+ \let\dtl@restA=\dtl@rest
+ \expandafter\dtl@getfirst\@dtl@argB\end
+ \let\dtl@firstB=\dtl@first
+ \let\dtl@restB=\dtl@rest
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstA}{%
+ \expandafter\dtl@ifsingle\expandafter{\dtl@firstB}{%
+ \expandafter\dtl@setcharcode\expandafter{\dtl@firstA}{\dtl@codeA}%
+ \expandafter\dtl@setcharcode\expandafter{\dtl@firstB}{\dtl@codeB}%
+ \ifnum\dtl@codeA=-1\relax
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith
+ {\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ \fi
+ \else
+ \ifnum\dtl@codeB=-1\relax
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith
+ {\dtl@firstA\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \ifnum\dtl@codeA=\dtl@codeB
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith{\dtl@restA}{\dtl@restB}}%
+ \dtl@donext
+ \else
+ \@dtl@conditionfalse
+ \fi
+ \fi
+ \fi
+ }{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith
+ {\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ \dtl@donext
+ }}{%
+ \protected@edef\dtl@donext{%
+ \noexpand\dtl@teststartswith
+ {\dtl@firstA\dtl@restA}{\dtl@firstB\dtl@restB}}%
+ }%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumclosedbetween}
+%\begin{definition}
+%\cs{DTLifnumclosedbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \meta{min} $\leq$ \meta{num} $\leq$ \meta{max}.
+% \begin{macrocode}
+\newcommand*{\DTLifnumclosedbetween}[5]{%
+\DTLconverttodecimal{#1}{\@dtl@numi}%
+\DTLconverttodecimal{#2}{\@dtl@numii}%
+\DTLconverttodecimal{#3}{\@dtl@numiii}%
+\DTLifFPclosedbetween{\@dtl@numi}{\@dtl@numii}{\@dtl@numiii}{#4}{#5}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstringclosedbetween}
+%\begin{definition}
+%\cs{DTLifstringclosedbetween}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% String comparison (starred version ignores case)
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifstringclosedbetween}{%
+\@ifstar\@sDTLifstringclosedbetween\@DTLifstringclosedbetween}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifstringclosedbetween}[5]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\let\@dtl@dovalue\relax
+\ifnum\@dtl@tmpcount<0\relax
+ \def\@dtl@dovalue{#5}%
+\fi
+\ifx\@dtl@dovalue\relax
+ \protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#3}}%
+ \@dtl@tmpcmp
+ \ifnum\@dtl@tmpcount>0\relax
+ \def\@dtl@dovalue{#5}%
+ \else
+ \def\@dtl@dovalue{#4}%
+ \fi
+\fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifstringclosedbetween}[5]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\let\@dtl@dovalue\relax
+\ifnum\@dtl@tmpcount<0\relax
+ \def\@dtl@dovalue{#5}%
+\fi
+\ifx\@dtl@dovalue\relax
+ \protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#3}}%
+ \@dtl@tmpcmp
+ \ifnum\@dtl@tmpcount>0\relax
+ \def\@dtl@dovalue{#5}%
+ \else
+ \def\@dtl@dovalue{#4}%
+ \fi
+\fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifclosedbetween}
+%\begin{definition}
+%\cs{DTLifclosedbetween}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Does \cs{DTLifnumclosedbetween} if \marg{arg}, \meta{min} and \meta{max} are
+% numerical, otherwise do \cs{DTLifstringclosedbetween}
+% or \cs{DTLifstringclosedbetween*}.
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifclosedbetween}{%
+\@ifstar\@sDTLifclosedbetween\@DTLifclosedbetween}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifclosedbetween}[5]{%
+\dtl@testbothnumerical{#2}{#3}%
+\if@dtl@condition
+ \dtl@ifsingle{#1}{%
+ \edef\@dtl@tmp{#1}}{%
+ \def\@dtl@tmp{#1}}%
+ \expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+ \ifnum\@dtl@datatype>0\relax
+ \DTLifnumclosedbetween{#1}{#2}{#3}{#4}{#5}%
+ \else
+ \@DTLifstringclosedbetween{#1}{#2}{#3}{#4}{#5}%
+ \fi
+\else
+ \@DTLifstringclosedbetween{#1}{#2}{#3}{#4}{#5}%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifclosedbetween}[5]{%
+\dtl@testbothnumerical{#2}{#3}%
+\if@dtl@condition
+ \dtl@ifsingle{#1}{%
+ \edef\@dtl@tmp{#1}}{%
+ \def\@dtl@tmp{#1}}%
+ \expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+ \ifnum\@dtl@datatype>0\relax
+ \DTLifnumclosedbetween{#1}{#2}{#3}{#4}{#5}%
+ \else
+ \@sDTLifstringclosedbetween{#1}{#2}{#3}{#4}{#5}%
+ \fi
+\else
+ \@sDTLifstringclosedbetween{#1}{#2}{#3}{#4}{#5}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifnumopenbetween}
+%\begin{definition}
+%\cs{DTLifnumopenbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \meta{min} $<$ \meta{num} $<$ \meta{max}.
+% \begin{macrocode}
+\newcommand*{\DTLifnumopenbetween}[5]{%
+\DTLconverttodecimal{#1}{\@dtl@numi}%
+\DTLconverttodecimal{#2}{\@dtl@numii}%
+\DTLconverttodecimal{#3}{\@dtl@numiii}%
+\DTLifFPopenbetween{\@dtl@numi}{\@dtl@numii}{\@dtl@numiii}{#4}{#5}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifstringopenbetween}
+%\begin{definition}
+%\cs{DTLifstringopenbetween}\marg{string}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% String comparison (starred version ignores case)
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifstringopenbetween}{%
+\@ifstar\@sDTLifstringopenbetween\@DTLifstringopenbetween}
+% \end{macrocode}
+% Unstarred version:
+% \begin{macrocode}
+\newcommand*{\@DTLifstringopenbetween}[5]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\let\@dtl@dovalue\relax
+\ifnum\@dtl@tmpcount>0\relax
+\else
+ \def\@dtl@dovalue{#5}%
+\fi
+\ifx\@dtl@dovalue\relax
+ \protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlcompare{\noexpand\@dtl@tmpcount}{#1}{#3}}%
+ \@dtl@tmpcmp
+ \ifnum\@dtl@tmpcount<0\relax
+ \def\@dtl@dovalue{#4}%
+ \else
+ \def\@dtl@dovalue{#5}%
+ \fi
+\fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifstringopenbetween}[5]{%
+\protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#2}}%
+\@dtl@tmpcmp
+\let\@dtl@dovalue\relax
+\ifnum\@dtl@tmpcount>0\relax
+\else
+ \def\@dtl@dovalue{#5}%
+\fi
+\ifx\@dtl@dovalue\relax
+ \protected@edef\@dtl@tmpcmp{%
+ \noexpand\dtlicompare{\noexpand\@dtl@tmpcount}{#1}{#3}}%
+ \@dtl@tmpcmp
+ \ifnum\@dtl@tmpcount<0\relax
+ \def\@dtl@dovalue{#4}%
+ \else
+ \def\@dtl@dovalue{#5}%
+ \fi
+\fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifopenbetween}
+%\begin{definition}
+%\cs{DTLifopenbetween}\marg{arg}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Does \cs{DTLifnumopenbetween} if \marg{arg}, \meta{min} and \meta{max} are
+% numerical, otherwise do \cs{DTLifstringopenbetween}
+% or \cs{DTLifstringopenbetween*}.
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLifopenbetween}{%
+\@ifstar\@sDTLifopenbetween\@DTLifopenbetween}
+% \end{macrocode}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLifopenbetween}[5]{%
+\dtl@testbothnumerical{#2}{#3}%
+\if@dtl@condition
+ \dtl@ifsingle{#1}{%
+ \edef\@dtl@tmp{#1}}{%
+ \def\@dtl@tmp{#1}}%
+ \expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+ \ifnum\@dtl@datatype>0\relax
+ \DTLifnumopenbetween{#1}{#2}{#3}{#4}{#5}%
+ \else
+ \@DTLifstringopenbetween{#1}{#2}{#3}{#4}{#5}%
+ \fi
+\else
+ \@DTLifstringopenbetween{#1}{#2}{#3}{#4}{#5}%
+\fi
+}
+% \end{macrocode}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLifopenbetween}[5]{%
+\dtl@testbothnumerical{#2}{#3}%
+\if@dtl@condition
+ \dtl@ifsingle{#1}{%
+ \edef\@dtl@tmp{#1}}{%
+ \def\@dtl@tmp{#1}}%
+ \expandafter\@dtl@checknumerical\expandafter{\@dtl@tmp}%
+ \ifnum\@dtl@datatype>0\relax
+ \DTLifnumopenbetween{#1}{#2}{#3}{#4}{#5}%
+ \else
+ \@sDTLifstringopenbetween{#1}{#2}{#3}{#4}{#5}%
+ \fi
+\else
+ \@sDTLifstringopenbetween{#1}{#2}{#3}{#4}{#5}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifFPopenbetween}
+%\begin{definition}
+%\cs{DTLifFPopenbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \meta{min} $<$ \meta{num} $<$ \meta{max} where
+% all arguments are in standard fixed point notation.
+% \begin{macrocode}
+\newcommand*{\DTLifFPopenbetween}[5]{%
+ \let\@dtl@dovalue\relax
+ \FPifgt{#1}{#2}%
+ \else
+ \def\@dtl@dovalue{#5}%
+ \fi
+ \FPiflt{#1}{#3}%
+ \ifx\@dtl@dovalue\relax
+ \def\@dtl@dovalue{#4}%
+ \fi
+ \else
+ \def\@dtl@dovalue{#5}%
+ \fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifFPclosedbetween}
+%\begin{definition}
+%\cs{DTLifFPclosedbetween}\marg{num}\marg{min}\marg{max}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines if \meta{min} $\leq$ \meta{num} $\leq$ \meta{max}.
+% \begin{macrocode}
+\newcommand*{\DTLifFPclosedbetween}[5]{%
+ \let\@dtl@dovalue\relax
+ \FPifgt{#1}{#3}%
+ \def\@dtl@dovalue{#5}%
+ \fi
+ \FPiflt{#1}{#2}%
+ \ifx\@dtl@dovalue\relax
+ \def\@dtl@dovalue{#5}%
+ \fi
+ \else
+ \def\@dtl@dovalue{#4}%
+ \fi
+\@dtl@dovalue
+}
+% \end{macrocode}
+%\end{macro}
+%
+% The following conditionals are only meant to be used within
+% \cs{DTLforeach} as they depend on the counter
+% \texttt{DTLrow}\meta{n}.
+%
+%\begin{macro}{\DTLiffirstrow}
+%\begin{definition}
+%\cs{DTLiffirstrow}\marg{true part}\marg{false part}
+%\end{definition}
+% Test if the current row is the first row. (This takes
+% \meta{condition}, the optional argument of \cs{DTLforeach},
+% into account.)
+% \begin{macrocode}
+\newcommand{\DTLiffirstrow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLiffirstrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+\expandafter\ifnum\csname c@DTLrow\romannumeral
+\dtlforeachlevel\endcsname
+=1\relax#1\else#2\fi
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLiflastrow}
+%\begin{definition}
+%\cs{DTLiflastrow}\marg{true part}\marg{false part}
+%\end{definition}
+% Checks if the current row is the last row of the database.
+% It doesn't take the condition (the optional argument of
+% \cs{DTLforeach}) into account, so its possible it may never
+% do \meta{true part}, as the last row of the database may not
+% meet the condition. It is therefore not very useful and is
+% confusing since it behaves differently to \cs{DTLiffirstrow}
+% which does take the condition into account, so I have removed
+% its description from the main part of the manual. If you need
+% to use the optional argument of \cs{DTLforeach}, you will first
+% have to iterate through the database to count up the number
+% of rows which meet the condition, and then do another pass,
+% checking if the current row has reached that number.
+% This command requires at least v1.02 of the \sty{xfor} package.
+%\changes{1.01}{2007 Aug 17}{fixed bug}
+% \begin{macrocode}
+\newcommand{\DTLiflastrow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLiflastrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+\ifx\@dtl@nextrow\@nnil
+#1\else #2\fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifoddrow}
+%\begin{definition}
+%\cs{DTLifoddrow}\marg{true part}\marg{false part}
+%\end{definition}
+% Determines whether the current row is odd (takes the optional
+% argument of \cs{DTLforeach} into account.)
+% \begin{macrocode}
+\newcommand{\DTLifoddrow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLifoddrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+\expandafter\ifodd\csname c@DTLrow\romannumeral
+\dtlforeachlevel\endcsname
+#1\else #2\fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+% \subsection{ifthen Conditionals}
+% The following commands provide conditionals \cs{DTLis}\ldots\
+% which can be used in \cs{ifthenelse}. First need to define
+% a new conditional:
+%\begin{macro}{\if@dtl@condition}
+% \begin{macrocode}
+\newif\if@dtl@condition
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testlt}
+% Command to test if first argument is less than second argument.
+% If either argument is a string, a case sensitive string comparison
+% is used instead.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testlt}[2]{%
+\DTLiflt{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLislt}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLislt}[2]{%
+\TE@throw\noexpand\dtl@testlt{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testiclt}
+% Command to test if first argument is less than second argument.
+% If either argument is a string, a case insensitive string comparison
+% is used instead.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testiclt}[2]{%
+\@sDTLiflt{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLisilt}
+% Provide conditional command for use in \cs{ifthenelse}
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisilt}[2]{%
+\TE@throw\noexpand\dtl@testiclt{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testgt}
+% Command to test if first number is greater than second number.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testgt}[2]{%
+\DTLifgt{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisgt}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisgt}[2]{%
+\TE@throw\noexpand\dtl@testgt{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testicgt}
+% Command to test if first number is greater than second number
+% (ignores case).
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testicgt}[2]{%
+\@sDTLifgt{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisigt}
+% Provide conditional command for use in \cs{ifthenelse}
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisigt}[2]{%
+\TE@throw\noexpand\dtl@testicgt{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testeq}
+% Command to test if first number is equal to the second number.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testeq}[2]{%
+\DTLifeq{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLiseq}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLiseq}[2]{%
+\TE@throw\noexpand\dtl@testeq{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testiceq}
+% Command to test if first number is equal to the second number
+% (ignores case).
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testiceq}[2]{%
+\@sDTLifeq{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisieq}
+% Provide conditional command for use in \cs{ifthenelse}
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisieq}[2]{%
+\TE@throw\noexpand\dtl@testiceq{#1}{#2}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLisSubString}
+% Tests if second argument is contained in first argument.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisSubString}[2]{%
+\TE@throw\noexpand\dtl@testifsubstring{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLisPrefix}
+% Tests if first argument starts with second argument.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisPrefix}[2]{%
+\TE@throw\noexpand\dtl@teststartswith{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testclosedbetween}
+% Command to test if first value lies between second and third
+% values. (End points included, case sensitive.)
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testclosedbetween}[3]{%
+\DTLifclosedbetween{#1}{#2}{#3}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisclosedbetween}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisclosedbetween}[3]{%
+\TE@throw\noexpand\dtl@testclosedbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testiclosedbetween}
+% Command to test if first value lies between second and third
+% values. (End points included, case ignored.)
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testiclosedbetween}[3]{%
+\@sDTLifclosedbetween{#1}{#2}{#3}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisiclosedbetween}
+% Provide conditional command for use in \cs{ifthenelse}
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisiclosedbetween}[3]{%
+\TE@throw\noexpand\dtl@testiclosedbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testopenbetween}
+% Command to test if first value lies between second and third
+% values. (End points excluded, case sensitive.)
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testopenbetween}[3]{%
+\DTLifopenbetween{#1}{#2}{#3}{\@dtl@conditiontrue
+}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisopenbetween}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisopenbetween}[3]{%
+\TE@throw\noexpand\dtl@testopenbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testiopenbetween}
+% Command to test if first value lies between second and third
+% values. (End points excluded, case ignored.)
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testiopenbetween}[3]{%
+\@sDTLifopenbetween{#1}{#2}{#3}{\@dtl@conditiontrue
+}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisiopenbetween}
+% Provide conditional command for use in \cs{ifthenelse}
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLisiopenbetween}[3]{%
+\TE@throw\noexpand\dtl@testiopenbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testclosedbetween}
+% Command to test if first number lies between second and third
+% numbers. (End points included, all arguments are fixed point
+% numbers in standard format.) This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPclosedbetween}[3]{%
+\DTLifFPclosedbetween{#1}{#2}{#3}%
+{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+% Provide conditional command for use in \cs{ifthenelse}
+%\begin{macro}{\DTLisFPclosedbetween}
+% \begin{macrocode}
+\newcommand*{\DTLisFPclosedbetween}[3]{%
+\TE@throw\noexpand\dtl@testFPclosedbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testopenbetween}
+% Command to test if first number lies between second and third
+% numbers. (End points excluded, all arguments are fixed point
+% numbers in standard format.) This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPopenbetween}[3]{%
+\DTLifFPopenbetween{#1}{#2}{#3}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPopenbetween}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPopenbetween}[3]{%
+\TE@throw\noexpand\dtl@testFPopenbetween{#1}{#2}{#3}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testFPislt}
+% Command to test if first number is less than second
+% number where both numbers are in standard format.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPislt}[2]{%
+\FPiflt{#1}{#2}\@dtl@conditiontrue\else\@dtl@conditionfalse\fi}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPlt}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPlt}[2]{%
+\TE@throw\noexpand\dtl@testFPislt{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testFPisgt}
+% Command to test if first number is greater than second
+% number where both numbers are in standard format.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPisgt}[2]{%
+\FPifgt{#1}{#2}\@dtl@conditiontrue\else\@dtl@conditionfalse\fi}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPgt}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPgt}[2]{%
+\TE@throw\noexpand\dtl@testFPisgt{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testFPiseq}
+% Command to test if two numbers are equal, where both numbers
+% are in standard decimal format
+% \begin{macrocode}
+\newcommand*{\dtl@testFPiseq}[2]{%
+\FPifeq{#1}{#2}\@dtl@conditiontrue\else\@dtl@conditionfalse\fi}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPeq}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPeq}[2]{%
+\TE@throw\noexpand\dtl@testFPiseq{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testFPislteq}
+% Command to test if first number is less than or equal to second
+% number where both numbers are in standard format.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPislteq}[2]{%
+\FPiflt{#1}{#2}\@dtl@conditiontrue\else\@dtl@conditionfalse\fi
+\if@dtl@condition
+\else
+ \dtl@testFPiseq{#1}{#2}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPlteq}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPlteq}[2]{%
+\TE@throw\noexpand\dtl@testFPislteq{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testFPisgteq}
+% Command to test if first number is greater than or equal to second
+% number where both numbers are in standard format.
+% This sets \cs{if@dtl@condition}.
+% \begin{macrocode}
+\newcommand*{\dtl@testFPisgteq}[2]{%
+\FPifgt{#1}{#2}\@dtl@conditiontrue\else\@dtl@conditionfalse\fi
+\if@dtl@condition
+\else
+ \dtl@testFPiseq{#1}{#2}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisFPgteq}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisFPgteq}[2]{%
+\TE@throw\noexpand\dtl@testFPisgteq{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@teststring}
+% Command to test if argument is a string. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@teststring}[1]{%
+\DTLifstring{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisstring}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisstring}[1]{%
+\TE@throw\noexpand\dtl@teststring{#1}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testnumerical}
+% Command to test if argument is a numerical. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@testnumerical}[1]{%
+\DTLifnumerical{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisnumerical}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisnumerical}[1]{%
+\TE@throw\noexpand\dtl@testnumerical{#1}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testint}
+% Command to test if argument is an integer. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@testint}[1]{%
+\DTLifint{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisint}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisint}[1]{%
+\TE@throw\noexpand\dtl@testint{#1}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testreal}
+% Command to test if argument is a real. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@testreal}[1]{%
+\DTLifreal{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLisreal}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLisreal}[1]{%
+\TE@throw\noexpand\dtl@testreal{#1}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testcurrency}
+% Command to test if argument is a currency. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@testcurrency}[1]{%
+\DTLifcurrency{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLiscurrency}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLiscurrency}[1]{%
+\TE@throw\noexpand\dtl@testcurrency{#1}\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@testcurrencyunit}
+% Command to test if argument is a currency with given unit. This sets
+% \cs{if@dtl@condition}
+% \begin{macrocode}
+\newcommand*{\dtl@testcurrencyunit}[2]{%
+\DTLifcurrencyunit{#1}{#2}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLiscurrencyunit}
+% Provide conditional command for use in \cs{ifthenelse}
+% \begin{macrocode}
+\newcommand*{\DTLiscurrencyunit}[2]{%
+\TE@throw\noexpand\dtl@testcurrencyunit{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%
+% \subsection{Defining New Databases}
+% A database is stored internally as a list of lists, where each list
+% is a row of data. The data is stored as a comma separated list of
+% \marg{id}\marg{value} pairs, where \meta{id} is an
+% identifier
+% and \meta{value} is the value.
+%
+%\begin{macro}{\DTLnewdb}
+% \cs{DTLnewdb}\marg{name}
+% initialises a database called \meta{name}. The keys associated
+% with this database are stored in \cs{dtlkeys@}\meta{name}
+% A new count register \cs{dtlrows@}\meta{db name} is created.
+% This stores the total number of rows in the data base.
+% \begin{macrocode}
+\newcommand*{\DTLnewdb}[1]{%
+\DTLifdbexists{#1}{%
+\PackageError{datatool}{Database `#1' already exists}{}}{%
+\dtl@message{Creating database `#1'}%
+\expandafter\gdef\csname dtldb@#1\endcsname{}%
+\expandafter\gdef\csname dtlkeys@#1\endcsname{}%
+\expandafter\global\expandafter\newcount\csname dtlrows@#1\endcsname}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLrowcount}
+%\begin{definition}
+% \cs{DTLrowcount}\marg{db name}
+%\end{definition}
+% The number of rows in the database called \meta{db name}.
+% \begin{macrocode}
+\newcommand*{\DTLrowcount}[1]{%
+\expandafter\number\csname dtlrows@#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifdbempty}
+%\begin{definition}
+% \cs{DTLifempty}\marg{name}\marg{true part}\marg{false part}
+%\end{definition}
+% Check if named database is empty (i.e.\ no rows have been added.)
+% \begin{macrocode}
+\newcommand{\DTLifdbempty}[3]{%
+\DTLifdbexists{#1}{%
+\expandafter\ifx\csname dtldb@#1\endcsname\@empty
+ #2%
+\else
+ #3%
+\fi}{%
+\PackageError{Database `#1' doesn't exist}{}{}}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLnewrow}
+%\begin{definition}
+% \cs{DTLnewrow}\marg{db name}
+%\end{definition}
+% Add a new row to named database.
+% \begin{macrocode}
+\newcommand*{\DTLnewrow}[1]{%
+\DTLifdbempty{#1}{%
+ \expandafter\gdef\csname dtldb@#1\endcsname{{}}%
+ \expandafter\global\expandafter\advance
+ \csname dtlrows@#1\endcsname by 1\relax
+ \dtl@message{New row added to database `#1'}%
+}{%
+ \expandafter\let\expandafter\@dtl@olddb\csname dtldb@#1\endcsname%
+ \expandafter\toks@\expandafter{\@dtl@olddb,{}}%
+ \expandafter\xdef\csname dtldb@#1\endcsname{\the\toks@}%
+ \expandafter\global\expandafter\advance
+ \csname dtlrows@#1\endcsname by 1\relax
+ \dtl@message{New row added to database `#1'}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLnewdbentry}
+%\begin{definition}
+% \cs{DTLnewdbentry}\marg{db name}\marg{id}\marg{value}.
+%\end{definition}
+% Adds an entry to the last row (adds new row if database is empty.)
+%
+% When a new entry is added, the control sequence
+% \cs{@dtl@idtype@}\meta{db name}\texttt{@}\meta{id} is checked.
+% This keeps track of the type of all the entries with the given ID
+% for the given database. If this control
+% sequence doesn't exist, a new one is created, and set to the
+% relevant type: 0 (string), 1 (int) or 2 (real). If it exists,
+% then it is set as follows: if has a value of 0 (string), it
+% remains unchanged. If it has another value, then it is set to
+% 2 (real) if it was either 1 or 2 and \meta{value} is 2, it is
+% set to 1 if \meta{value} is 1, otherwise it remains unchanged.
+% \begin{macrocode}
+\newcommand{\DTLnewdbentry}[3]{%
+% \end{macrocode}
+% Set \cs{@dtl@dbvalue} to the value of this entry.
+% \begin{macrocode}
+\@dtl@toks{#3}%
+\edef\@dtl@dbvalue{\the\@dtl@toks}%
+% \end{macrocode}
+% Set \cs{@dtl@dbid} to the entry ID. This uses \cs{edef} to allow
+% for the ID to be stored in a control sequence.
+% \begin{macrocode}
+\edef\@dtl@dbid{#2}%
+% \end{macrocode}
+% Set up the correct entry format:
+% \begin{macrocode}
+\edef\@dtl@dbentry{{\@dtl@dbid}{\the\@dtl@toks}}%
+% \end{macrocode}
+% If database is empty, add new row.
+% \begin{macrocode}
+\DTLifdbempty{#1}{\DTLnewrow{#1}}{}%
+% \end{macrocode}
+% Add the entry to the last row of the database:
+% Split the database into the last row
+% (\cs{@dtl@dblastrow}), and everything except the last row
+% (\cs{@dtl@dbrest}.)
+% \begin{macrocode}
+\expandafter\dtl@choplast\expandafter{%
+\csname dtldb@#1\endcsname}{\@dtl@dbrest}{\@dtl@dblastrow}%
+% \end{macrocode}
+% Check if the last row already contains an entry with this ID.
+% If so, generate an error, otherwise append this entry to the
+% row, and reconstruct database list.
+% \begin{macrocode}
+\dtl@ifrowcontains{#2}{\@dtl@dblastrow}{%
+\PackageError{datatool}{Can't add entry with ID `#2' to current
+row of database `#1'}{There is already an entry with this ID on
+the current row}}{%
+% \end{macrocode}
+% Append entry to last row
+% \begin{macrocode}
+\expandafter\@dtl@toks\expandafter{\@dtl@dbentry}%
+\ifthenelse{\equal{}{\@dtl@dblastrow}}{%
+ \edef\@dtl@dblastrow{\the\@dtl@toks}%
+}{%
+ \expandafter\toks@\expandafter{\@dtl@dblastrow}%
+ \edef\@dtl@dblastrow{\the\toks@,\the\@dtl@toks}%
+}%
+% \end{macrocode}
+% Reconstruct list.
+% \begin{macrocode}
+\expandafter\@dtl@toks\expandafter{\@dtl@dblastrow}%
+\ifthenelse{\equal{}{\@dtl@dbrest}}{%
+ \expandafter\long\expandafter\xdef\csname dtldb@#1\endcsname{%
+ {\the\@dtl@toks}}%
+}{%
+ \expandafter\toks@\expandafter{\@dtl@dbrest}%
+ \expandafter\long\expandafter\xdef\csname dtldb@#1\endcsname{%
+ \the\toks@,{\the\@dtl@toks}}%
+}%
+% \end{macrocode}
+% Set the keys
+% \begin{macrocode}
+\@dtl@setidtype{#1}{#2}{#3}%
+\expandafter\@dtl@setkeys\expandafter{#2}{#1}%
+}%
+\dtl@message{Added #2\space -> #3\space to database `#1'}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@setidtype}
+%\begin{definition}
+% \cs{@dtl@setidtype}\marg{db name}\marg{id}\marg{value}
+%\end{definition}
+% Set the type for \meta{id} according to \meta{value}.
+% If \meta{value} is empty, leave \cs{@dtl@idtype}\meta{id}
+% unchanged (if defined) or define as empty if not defined.
+%\changes{1.01}{2007 Aug 17}{Added currency check}
+%\changes{1.01}{2007 Aug 17}{Fixed bug when setting
+% \cs{@dtl@tmpcount}}
+% \begin{macrocode}
+\newcommand{\@dtl@setidtype}[3]{%
+% \end{macrocode}
+% Check the data type of this value.
+% \begin{macrocode}
+\@dtl@checknumerical{#3}%
+% \end{macrocode}
+% Store value if \cs{@dtl@value} to make it easier to test if it
+% is empty.
+% \begin{macrocode}
+\def\@dtl@value{#3}%
+% \end{macrocode}
+% Determine if this key already has a data type assigned to it.
+% \begin{macrocode}
+\@ifundefined{@dtl@idtype@#1@#2}{%
+% \end{macrocode}
+% This key doesn't have an associated data type, so set it to
+% this value's data type, unless the value is empty.
+% \begin{macrocode}
+\ifx\@dtl@value\@empty
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{}%
+\else
+ \expandafter\xdef\csname @dtl@idtype@#1@#2\endcsname{%
+ \the\@dtl@datatype}%
+\fi
+}{%
+% \end{macrocode}
+% This key already has an associated data type, but may need updating.
+% \begin{macrocode}
+\ifx\@dtl@value\@empty
+% \end{macrocode}
+% The value is empty, so do nothing.
+% \begin{macrocode}
+\else
+ \expandafter\ifx\csname @dtl@idtype@#1@#2\endcsname\@empty
+% \end{macrocode}
+% The data type is currently unset (all previous values for this
+% key were empty) so set the data type for this key to the data type
+% of the given value.
+% \begin{macrocode}
+ \expandafter\xdef\csname @dtl@idtype@#1@#2\endcsname{%
+ \the\@dtl@datatype}%
+ \else
+% \end{macrocode}
+% Store the data type currently associated with this key in
+% \cs{@dtl@tmpcount}.
+% \begin{macrocode}
+ \expandafter\@dtl@tmpcount\expandafter=
+ \csname @dtl@idtype@#1@#2\endcsname\relax
+% \end{macrocode}
+% Determine whether to update the data type associated with this key.
+% \begin{macrocode}
+ \ifcase\@dtl@tmpcount
+% \end{macrocode}
+% The current data type is a string, so leave as it is
+% (string overrides all the other types.)
+% \begin{macrocode}
+ \or
+% \end{macrocode}
+% The current data type is an int, so set the data type of the given
+% value (all other data types override int.)
+% \begin{macrocode}
+ \expandafter\xdef\csname @dtl@idtype@#1@#2\endcsname{%
+ \the\@dtl@datatype}%
+ \or
+% \end{macrocode}
+% The current data type is a real, set to real unless the given value
+% is a string or currency (real overrides int, but not string or
+% currency.)
+% \begin{macrocode}
+ \ifnum\@dtl@datatype=0\relax
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{0}%
+ \else
+ \ifnum\@dtl@datatype=3\relax
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{3}%
+ \else
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{2}%
+ \fi
+ \fi
+ \or
+% \end{macrocode}
+% The current data type is currency, so set to currency unless
+% the given value is a string (currency overrides real and int,
+% but not string.)
+% \begin{macrocode}
+ \ifnum\@dtl@datatype=0\relax
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{0}%
+ \else
+ \expandafter\gdef\csname @dtl@idtype@#1@#2\endcsname{3}%
+ \fi
+ \fi
+ \fi
+\fi
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@setkeys}
+%\begin{definition}
+%\cs{@dtl@setkeys}\marg{key}\marg{db name}
+%\end{definition}
+% Adds \marg{key} to \cs{dtlkeys@}\meta{db name} if not already
+% in it.
+% \begin{macrocode}
+\newcommand*{\@dtl@setkeys}[2]{%
+\edef\@dtl@tmp{\csname dtlkeys@#2\endcsname}%
+\expandafter\@dtl@toks\expandafter{\@dtl@tmp}%
+\expandafter\ifx\csname dtlkeys@#2\endcsname\@empty
+ \expandafter\gdef\csname dtlkeys@#2\endcsname{#1}%
+\else
+ \@for\dtl@key:=\@dtl@tmp\do{%
+ \ifthenelse{\equal{\dtl@key}{#1}}{\@endfortrue}{}%
+ }%
+ \if@endfor
+ \else
+ \expandafter\xdef\csname dtlkeys@#2\endcsname{\the\@dtl@toks,#1}%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@getidtype}
+%\begin{definition}
+% \cs{@dtl@getidtype}\marg{db name}\marg{id}
+%\end{definition}
+% Gets the data type for \meta{id} in given database.
+% \begin{macrocode}
+\newcommand*{\@dtl@getidtype}[2]{%
+\csname @dtl@idtype@#1@#2\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifdbexists}
+%\begin{definition}
+%\cs{DTLifdbexists}\marg{db name}\marg{true part}\marg{false part}
+%\end{definition}
+% Checks if a data base with the given name exists.
+% \begin{macrocode}
+\newcommand{\DTLifdbexists}[3]{%
+\@ifundefined{dtldb@#1}{#3}{#2}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@ifrowcontains}
+%\begin{definition}
+% \cs{dtl@ifrowcontains}\meta{id}\meta{cmd}\meta{true part}\meta{false
+%part}
+%\end{definition}
+% Checks to see if the row given by \meta{cmd} contains an
+% entry with ID given by \meta{id}. If true, do \meta{true part},
+% otherwise do \meta{false part}.
+% \begin{macrocode}
+\newcommand{\dtl@ifrowcontains}[4]{%
+\@for\@dtl@element:=#2\do{%
+\dtl@getentryid{\@dtl@element}{\@dtl@entryid}%
+\ifthenelse{\equal{#1}{\@dtl@entryid}}{\@endfortrue}{}%
+}%
+\if@endfor #3\else #4\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@getentryid}
+%\begin{definition}
+% \cs{dtl@getentryid}\meta{entry cmd}\meta{id cmd}
+%\end{definition}
+% Gets the ID for an entry given by \meta{entry cmd}, and stores in
+% in \meta{id cmd}.
+% \begin{macrocode}
+\newcommand*{\dtl@getentryid}[2]{\expandafter\@dtl@getentryid#1#2}
+\long\def\@dtl@getentryid#1#2#3{\def#3{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@getentryvalue}
+%\begin{definition}
+% \cs{dtl@getentryvalue}\meta{entry cmd}\meta{cmd}
+%\end{definition}
+% Stores the entry value in \meta{cmd} for
+% entry given by \meta{entry cmd}.
+% \begin{macrocode}
+\newcommand*{\dtl@getentryvalue}[2]{%
+\expandafter\@dtl@getentryvalue#1#2}
+\long\def\@dtl@getentryvalue#1#2#3{\gdef#3{#2}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtlforeachlevel}
+%\cs{DTLforeach} can only be nested up to three levels.
+% \cs{dtlforeachlevel} keeps track of the current level.
+% \begin{macrocode}
+\global\newcount\dtlforeachlevel
+% \end{macrocode}
+%\end{macro}
+%
+% The counter DTLrow\meta{n} keeps track of each row of data during
+% the \meta{n} nested \cs{DTLforeach}. It is only incremented in the
+% conditions (given by the optional argument) are met.
+% \begin{macrocode}
+\newcounter{DTLrowi}
+\newcounter{DTLrowii}
+\newcounter{DTLrowiii}
+% \end{macrocode}
+% Keep \sty{hyperref} happy
+% \begin{macrocode}
+\newcounter{DTLrow}
+\def\theHDTLrow{\arabic{DTLrow}}
+\def\theHDTLrowi{\theHDTLrow.\arabic{DTLrowi}}
+\def\theHDTLrowii{\theHDTLrowi.\arabic{DTLrowii}}
+\def\theHDTLrowiii{\theHDTLrowii.\arabic{DTLrowiii}}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLsaverowcount}
+%\begin{definition}
+%\cs{DTLsavelastrowcount}\marg{cmd}
+%\end{definition}
+% Stores the maximum row count for the last \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLsavelastrowcount}[1]{%
+\ifnum\dtlforeachlevel>2\relax
+ \def#1{0}%
+\else
+ \ifnum\dtlforeachlevel<0\relax
+ \def#1{0}%
+ \else
+ \@dtl@tmpcount=\dtlforeachlevel
+ \advance\@dtl@tmpcount by 1\relax
+ \edef#1{\expandafter\number
+ \csname c@DTLrow\romannumeral\@dtl@tmpcount\endcsname}%
+ \fi
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLforeach}
+%\begin{definition}
+% \cs{DTLforeach}\oarg{conditions}\marg{db name}\marg{values}\marg{text}
+%\end{definition}
+% For each row of data in the database given by \meta{db name},
+% do \meta{text}, if the specified conditions are satisfied.
+% The argument \marg{values} is a comma separated list of
+% \meta{cmd}\texttt{=}\meta{key} pairs. At the start of each row,
+% each of the commands in this list are set to the value of the
+% entry with the corresponding key \meta{key}.
+% (\cs{gdef} is used to ensure \cs{DTLforeach} works in a tabular
+% environment.) The database may be edited in the unstarred
+% version, in the starred version the database is read only.
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLforeach}{\@ifstar\@sDTLforeach\@DTLforeach}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@DTLforeach}
+% \cs{@DTLforeach} is the unstarred version of \cs{DTLforeach}.
+% The database is reconstructed to allow for rows to be edited.
+% \begin{macrocode}
+\newcommand{\@DTLforeach}[4][\boolean{true}]{%
+% \end{macrocode}
+% Check database exists
+% \begin{macrocode}
+\DTLifdbexists{#2}{%
+% \end{macrocode}
+% Keep \sty{hyperref} happy
+% \begin{macrocode}
+\refstepcounter{DTLrow}%
+\global\c@DTLrow=\c@DTLrow
+% \end{macrocode}
+% Store database name
+% \begin{macrocode}
+\gdef\@dtl@dbname{#2}%
+% \end{macrocode}
+% Increment level and check not exceeded 3
+% \begin{macrocode}
+\global\advance\dtlforeachlevel by 1\relax
+\ifnum\dtlforeachlevel>3\relax
+ \PackageError{datatool}{\string\DTLforeach\space nested too
+deeply}{}%
+\else
+% \end{macrocode}
+% Set level dependent information (needs to be global to ensure
+% it works in the \env{tabular} environment.) Row counter:
+% \begin{macrocode}
+ \expandafter\global
+ \csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname = 0\relax
+% \end{macrocode}
+% Construct updated database:
+% \begin{macrocode}
+ \expandafter\global\expandafter\let
+ \csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname
+ =\@empty
+% \end{macrocode}
+% Database name:
+% \begin{macrocode}
+ \expandafter\global\expandafter\let
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname
+ =\@dtl@dbname
+% \end{macrocode}
+% Iterate through each row
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@db\csname dtldb@#2\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+% \end{macrocode}
+% Set current row macro for this level
+% \begin{macrocode}
+ \expandafter\global\expandafter
+ \let\csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel
+ \endcsname=\@dtl@currentrow
+% \end{macrocode}
+% Globally assign next element (note that there is no check to
+% determine if the next element will be skipped.)
+%\changes{1.01}{2007 Aug 17}{set \cs{@dtl@nextrow}}
+% \begin{macrocode}
+ \global\let\@dtl@nextrow\@xfor@nextelement
+% \end{macrocode}
+% Assign commands to the required entries
+% \begin{macrocode}
+ \ifx\relax#3\relax
+ \else
+ \@dtl@assign{#3}%
+ \fi
+% \end{macrocode}
+% Do the main body of text if condition is satisfied
+% \begin{macrocode}
+ \ifthenelse{#1}{%
+ \refstepcounter{DTLrow\romannumeral\dtlforeachlevel}%
+ \expandafter\edef\expandafter\DTLcurrentindex\expandafter
+ {\arabic{DTLrow\romannumeral\dtlforeachlevel}}%
+ #4%
+ }{}%
+% \end{macrocode}
+% Reconstruct database
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thiscurrentrow
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Don't add this row if it is now empty
+% \begin{macrocode}
+ \ifx\@dtl@thiscurrentrow\@empty
+ \else
+ \expandafter\@dtl@toks\expandafter{\@dtl@thiscurrentrow}%
+ \expandafter
+ \ifx
+ \csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname
+ \@empty
+ \expandafter
+ \xdef\csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname{%
+ {\the\@dtl@toks}}%
+ \else
+ \expandafter\let\expandafter\@dtl@foreachrows\expandafter
+ =\csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname
+ \expandafter\toks@\expandafter{\@dtl@foreachrows}%
+ \expandafter
+ \xdef\csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname{%
+ \the\toks@,{\the\@dtl@toks}}%
+ \fi
+ \fi
+\@endforfalse
+}%
+\expandafter\let\expandafter\@dtl@foreachrows\expandafter
+ =\csname @dtl@foreachrows@\romannumeral\dtlforeachlevel\endcsname
+\expandafter\global
+ \expandafter\let\csname dtldb@#2\endcsname=\@dtl@foreachrows
+\fi
+\global\advance\dtlforeachlevel by -1\relax
+}{%
+\PackageError{datatool}{Database `#2' doesn't exist}{}}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@sDTLforeach}
+% \cs{@sDTLforeach} is the starred version of \cs{DTLforeach}.
+% The database rows can't be edited.
+% \begin{macrocode}
+\newcommand{\@sDTLforeach}[4][\boolean{true}]{%
+% \end{macrocode}
+% Check database exists
+% \begin{macrocode}
+\DTLifdbexists{#2}{%
+% \end{macrocode}
+% Keep \sty{hyperref} happy
+% \begin{macrocode}
+\refstepcounter{DTLrow}%
+\global\c@DTLrow=\c@DTLrow
+% \end{macrocode}
+% Store database name
+% \begin{macrocode}
+\gdef\@dtl@dbname{#2}%
+% \end{macrocode}
+% Increment level and check not exceeded 3
+% \begin{macrocode}
+\global\advance\dtlforeachlevel by 1\relax
+\ifnum\dtlforeachlevel>3\relax
+ \PackageError{datatool}{\string\DTLforeach\space nested too
+deeply}{}%
+\else
+% \end{macrocode}
+% Set level dependent information (needs to be global to ensure
+% it works in the \env{tabular} environment.) Row counter:
+% \begin{macrocode}
+ \expandafter\global
+ \csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname = 0\relax
+% \end{macrocode}
+% Set database name to \cs{@nnil} to indicate that this is read only:
+% \begin{macrocode}
+ \expandafter\global\expandafter\let
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname
+ =\@nnil
+% \end{macrocode}
+% Iterate through each row
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@db\csname dtldb@#2\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+% \end{macrocode}
+% Set current row macro for this level
+% \begin{macrocode}
+ \expandafter\global\expandafter
+ \let\csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel
+ \endcsname=\@dtl@currentrow
+% \end{macrocode}
+% Globally assign next element (note that there is no check to
+% determine if the next element will be skipped.)
+%\changes{1.01}{2007 Aug 17}{set \cs{@dtl@nextrow}}
+% \begin{macrocode}
+ \global\let\@dtl@nextrow\@xfor@nextelement
+% \end{macrocode}
+% Assign commands to the required entries
+% \begin{macrocode}
+ \ifx\relax#3\relax
+ \else
+ \@dtl@assign{#3}%
+ \fi
+% \end{macrocode}
+% Do the main body of text if condition is satisfied
+% \begin{macrocode}
+ \ifthenelse{#1}{%
+ \refstepcounter{DTLrow\romannumeral\dtlforeachlevel}%
+ \expandafter\edef\expandafter\DTLcurrentindex\expandafter
+ {\arabic{DTLrow\romannumeral\dtlforeachlevel}}%
+ #4%
+ }{}%
+% \end{macrocode}
+% \begin{macrocode}
+\@endforfalse
+}%
+\fi
+\global\advance\dtlforeachlevel by -1\relax
+}{%
+\PackageError{datatool}{Database `#2' doesn't exist}{}}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLappendtorow}
+%\begin{definition}
+%\cs{DTLappendtorow}\marg{key}\marg{value}
+%\end{definition}
+% Appends entry to current row. (The current row is given by
+% \cs{@dtl@thiscurrentrow@}\meta{n} where \meta{n} is roman
+% numeral value of \cs{dtlforeachlevel}.
+% \begin{macrocode}
+\newcommand*{\DTLappendtorow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLappendtorow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+% \end{macrocode}
+% Set \cs{@dtl@thisdb} to the current database name:
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisdb
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check this isn't in \cs{DTLforeach*}
+% \begin{macrocode}
+ \ifx\@dtl@thisdb\@nnil
+ \PackageError{datatool}{\string\DTLappendtorow\space can't
+ be used inside \string\DTLforeach*}{The starred version of
+ \string\DTLforeach\space is read only}%
+ \else
+% \end{macrocode}
+% Set \cs{@dtl@dbvalue} to the value of this entry
+% \begin{macrocode}
+ \expandafter\@dtl@toks\expandafter{#2}%
+ \edef\@dtl@dbvalue{\the\@dtl@toks}%
+% \end{macrocode}
+% Set \cs{@dtl@dbid} to the entry ID. This uses \cs{edef} to allow
+% for the ID to be stored in a control sequence.
+% \begin{macrocode}
+ \edef\@dtl@dbid{#1}%
+% \end{macrocode}
+% Set up the correct entry format:
+% \begin{macrocode}
+ \edef\@dtl@dbentry{{\@dtl@dbid}{\the\@dtl@toks}}%
+% \end{macrocode}
+% Set \cs{@dtl@thisrow} to the current row.
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisrow
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check if there is already an entry with this key
+% \begin{macrocode}
+ \dtl@ifrowcontains{#1}{\@dtl@thisrow}{%
+ \PackageError{datatool}{Can't add entry with ID `#1' to current
+ row of database `\@dtl@thisdb'}{There is already an entry with
+ this ID on the current row}}{%
+% \end{macrocode}
+% Append entry to last row
+% \begin{macrocode}
+ \expandafter\@dtl@toks\expandafter{\@dtl@dbentry}%
+ \ifx\@dtl@thisrow\@empty
+ \expandafter
+ \xdef\csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname{%
+ \the\@dtl@toks}%
+ \else
+ \expandafter\toks@\expandafter{\@dtl@thisrow}%
+ \expandafter
+ \xdef\csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname{%
+ \the\toks@,\the\@dtl@toks}%
+ \fi
+ }
+% \end{macrocode}
+% Update key list
+% \begin{macrocode}
+ \@dtl@setidtype{\@dtl@thisdb}{#1}{#2}%
+ \expandafter\@dtl@setkeys\expandafter{#1}{\@dtl@thisdb}%
+% \end{macrocode}
+% end the \cs{ifx} and \cs{ifnum}
+% \begin{macrocode}
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLremoveentryfromrow}
+%\begin{definition}
+%\cs{DTLremoveentryfromrow}\marg{key}
+%\end{definition}
+% Removes entry given by \meta{key} from current row.
+% (The current row is given by
+% \cs{@dtl@thiscurrentrow@}\meta{n} where \meta{n} is roman
+% numeral value of \cs{dtlforeachlevel}.
+% \begin{macrocode}
+\newcommand*{\DTLremoveentryfromrow}[1]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLremoveentryfromrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+% \end{macrocode}
+% Set \cs{@dtl@thisdb} to the current database name:
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisdb
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check this isn't in \cs{DTLforeach*}
+% \begin{macrocode}
+ \ifx\@dtl@thisdb\@nnil
+ \PackageError{datatool}{\string\DTLremoveentryfromrow\space can't
+ be used inside \string\DTLforeach*}{The starred version of
+ \string\DTLforeach\space is read only}%
+ \else
+% \end{macrocode}
+% Set \cs{@dtl@thisrow} to the current row.
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisrow
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check row contains an entry with this key
+% \begin{macrocode}
+ \dtl@ifrowcontains{#1}{\@dtl@thisrow}{%
+% \end{macrocode}
+% Split row list
+% \begin{macrocode}
+ \let\@dtl@pre=\@empty
+ \@for\dtl@thisentry:=\@dtl@thisrow\do{%
+ \dtl@getentryid\dtl@thisentry\@dtl@id
+ \ifthenelse{\equal{\@dtl@id}{#1}}{%
+ }{%
+ \expandafter\@dtl@toks\expandafter{\dtl@thisentry}%
+ \ifx\@dtl@pre\@empty
+ \edef\@dtl@pre{{\the\@dtl@toks}}%
+ \else
+ \expandafter\toks@\expandafter{\@dtl@pre}%
+ \edef\@dtl@pre{\the\toks@,{\the\@dtl@toks}}%
+ \fi
+ }
+ }%
+ \expandafter\let
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+ =\@dtl@pre
+ }{%
+ \PackageError{datatool}{Can't remove entry given by key `#1'
+ from current row in database `\@dtl@thisdb', no such entry}{}%
+ }%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLreplaceentryforrow}
+%\begin{definition}
+%\cs{DTLreplaceentryforrow}\marg{key}\marg{value}
+%\end{definition}
+% Replaces entry given by \meta{key} in current row with
+% \meta{value}.
+% (The current row is given by
+% \cs{@dtl@thiscurrentrow@}\meta{n} where \meta{n} is roman
+% numeral value of \cs{dtlforeachlevel}.
+% \begin{macrocode}
+\newcommand*{\DTLreplaceentryforrow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLreplaceentryforrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+% \end{macrocode}
+% Set \cs{@dtl@thisdb} to the current database name:
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisdb
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check this isn't in \cs{DTLforeach*}
+% \begin{macrocode}
+ \ifx\@dtl@thisdb\@nnil
+ \PackageError{datatool}{\string\DTLreplaceentryforrow\space can't
+ be used inside \string\DTLforeach*}{The starred version of
+ \string\DTLforeach\space is read only}%
+ \else
+% \end{macrocode}
+% Set \cs{@dtl@dbvalue} to the value of this entry
+% \begin{macrocode}
+ \expandafter\@dtl@toks\expandafter{#2}%
+ \edef\@dtl@dbvalue{\the\@dtl@toks}%
+% \end{macrocode}
+% Set \cs{@dtl@dbid} to the entry ID. This uses \cs{edef} to allow
+% for the ID to be stored in a control sequence.
+% \begin{macrocode}
+ \edef\@dtl@dbid{#1}%
+% \end{macrocode}
+% Set up the correct entry format:
+% \begin{macrocode}
+ \edef\dtl@newentry{{\@dtl@dbid}{\the\@dtl@toks}}%
+% \end{macrocode}
+% Set \cs{@dtl@thisrow} to the current row.
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisrow
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Check row contains an entry with this key
+% \begin{macrocode}
+ \dtl@ifrowcontains{#1}{\@dtl@thisrow}{%
+% \end{macrocode}
+% Split row list
+% \begin{macrocode}
+ \let\@dtl@pre=\@empty
+ \@for\dtl@thisentry:=\@dtl@thisrow\do{%
+ \dtl@getentryid\dtl@thisentry\@dtl@id
+ \ifthenelse{\equal{\@dtl@id}{#1}}{%
+ \expandafter\@dtl@toks\expandafter{\dtl@newentry}%
+ }{%
+ \expandafter\@dtl@toks\expandafter{\dtl@thisentry}%
+ }
+ \ifx\@dtl@pre\@empty
+ \edef\@dtl@pre{{\the\@dtl@toks}}%
+ \else
+ \expandafter\toks@\expandafter{\@dtl@pre}%
+ \edef\@dtl@pre{\the\toks@,{\the\@dtl@toks}}%
+ \fi
+ }%
+ \expandafter\let
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+ =\@dtl@pre
+ }{%
+ \PackageError{datatool}{Can't remove entry given by key `#1'
+ from current row in database `\@dtl@thisdb', no such entry}{}%
+ }%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLremovecurrentrow}
+%\begin{definition}
+%\cs{DTLremovecurrentrow}
+%\end{definition}
+% Removes current row. This just sets the current row to empty
+%\changes{1.01}{2007 Aug 17}{fix bug caused by missing \cs{fi}
+% and unrequired argument}
+% \begin{macrocode}
+\newcommand*{\DTLremovecurrentrow}{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLremovecurrentrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+% \end{macrocode}
+% Check this isn't in \cs{DTLforeach*}
+% \begin{macrocode}
+ \expandafter\ifx
+ \csname @dtl@dbname@\romannumeral\dtlforeachlevel\endcsname\@nnil
+ \PackageError{datatool}{\string\DTLremovecurrentrow\space can't
+ be used inside \string\DTLforeach*}{The starred version of
+ \string\DTLforeach\space is read only}%
+ \else
+% \end{macrocode}
+% Set current row to empty.
+% \begin{macrocode}
+ \expandafter\let
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+ =\@empty
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLforeachkeyinrow}
+%\begin{definition}
+%\cs{DTLforeachkeyinrow}\marg{cmd}\marg{text}
+%\end{definition}
+% Iterates through each key in the current row of \cs{DTLforeach},
+% and does \meta{text}.
+% \begin{macrocode}
+\newcommand*{\DTLforeachkeyinrow}[2]{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datatool}{\string\DTLforeachkeyinrow\space can only
+ be used inside \string\DTLforeach}{}%
+\else
+% \end{macrocode}
+% Set \cs{@dtl@thisrow} to the current row.
+% \begin{macrocode}
+ \expandafter\let\expandafter\@dtl@thisrow
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+% \end{macrocode}
+% Iterate through the row
+% \begin{macrocode}
+ \@for\dtl@thisentry:=\@dtl@thisrow\do{%
+ \dtl@getentryvalue\dtl@thisentry{#1}%
+ #2%
+ }%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLaddentryforrow}
+%\begin{definition}
+%\cs{DTLaddentryforrow}\marg{db name}\marg{assign list}\marg{condition}\marg{key}\marg{value}
+%\end{definition}
+% Adds the entry with key given by \meta{key} and value given by
+% \meta{value} to the first row in the database \meta{db name}
+% which satisfies the condition given by \meta{condition}. The
+% \meta{assign list} is the same as for \cs{DTLforeach} and may
+% be used to set the values which are to be tested in \meta{condition}.
+% \begin{macrocode}
+\newcommand{\DTLaddentryforrow}[5]{%
+\gdef\@dtl@dbname{#1}%
+\DTLifdbexists{#1}{%
+% \end{macrocode}
+% Set \cs{@dtl@dbvalue} to the value of this entry
+% \begin{macrocode}
+ \expandafter\@dtl@toks\expandafter{#5}%
+ \edef\@dtl@dbvalue{\the\@dtl@toks}%
+% \end{macrocode}
+% Set \cs{@dtl@dbid} to the entry ID. This uses \cs{edef} to allow
+% for the ID to be stored in a control sequence.
+% \begin{macrocode}
+ \edef\@dtl@dbid{#4}%
+% \end{macrocode}
+% Set up the correct entry format:
+% \begin{macrocode}
+ \edef\@dtl@dbentry{{\@dtl@dbid}{\the\@dtl@toks}}%
+% \end{macrocode}
+% Store the database in \cs{@dtl@db}
+% \begin{macrocode}
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname%
+ \let\@dtl@prerow=\@empty
+% \end{macrocode}
+% Iterate through each row of the database
+% \begin{macrocode}
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \@dtl@assign{#2}%
+ \ifthenelse{#3}{%
+ \expandafter\@dtl@toks\expandafter{\@dtl@dbentry}%
+ \ifx\@dtl@currentrow\@empty
+ \edef\@dtl@currentrow{{\the\@dtl@toks}}%
+ \else
+ \expandafter\toks@\expandafter{\@dtl@currentrow}%
+ \edef\@dtl@currentrow{\the\toks@,{\the\@dtl@toks}}%
+ \fi
+ \@endfortrue
+ }{%
+ }%
+ \expandafter\@dtl@toks\expandafter{\@dtl@currentrow}%
+ \ifx\@dtl@prerow\@empty
+ \edef\@dtl@prerow{{\the\@dtl@toks}}%
+ \else
+ \expandafter\toks@\expandafter{\@dtl@prerow}%
+ \edef\@dtl@prerow{\the\toks@,{\the\@dtl@toks}}%
+ \fi
+}%
+\if@endfor
+ \expandafter\@dtl@toks\expandafter{\@forremainder}%
+ \expandafter\toks@\expandafter{\@dtl@prerow}%
+ \edef\@dtl@prerow{\the\toks@,{\the\@dtl@toks}}%
+ \expandafter\global\expandafter
+ \let\csname dtldb@\@dtl@dbname\endcsname=\@dtl@prerow
+\else
+ \PackageError{datatool}{Unable to add `#5' for key `#4' - condition
+ not met for any row in database `#1'}{}%
+\fi
+\@endforfalse
+}{%
+\PackageError{datatool}{Database `#1' doesn't exist}{}}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@assign}
+%\begin{definition}
+%\cs{@dtl@assign}\oarg{row}\marg{values}
+%\end{definition}
+% Assigns each command in
+% \meta{values} (see above) to the value of the corresponding
+% ID for the row given by \meta{row} (which defaults to
+% \cs{@dtl@currentrow} if absent.)
+% \begin{macrocode}
+\newcommand*{\@dtl@assign}[2][\@dtl@currentrow]{%
+\@dtl@assigncmd#2,\relax\@@{#1}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@assigncmd}
+%\begin{definition}
+% \cs{\@dtl@assigncmd}\meta{cmd}=\meta{id}\cs{@nil}
+%\end{definition}
+% Assign \meta{cmd} to value given by \meta{id}
+% \begin{macrocode}
+\def\@dtl@assigncmd#1=#2,#3\@@#4{%
+\@for\@dtl@entry:=#4\do{%
+\dtl@getentryid\@dtl@entry\@dtl@id
+\ifthenelse{\equal{\@dtl@id}{#2}}{%
+\dtl@getentryvalue\@dtl@entry#1%
+\@endfortrue}{}%
+}%
+\if@endfor
+\else
+ \@dtl@setnull{#1}{#2}%
+\fi
+\@endforfalse
+\ifx\relax#3%
+ \let\@dtl@next=\@dtl@assigncmdnoop
+\else
+ \let\@dtl@next=\@dtl@assigncmd
+\fi
+\@dtl@next#3\@@{#4}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@assigncmdnoop}
+% End loop
+% \begin{macrocode}
+\def\@dtl@assigncmdnoop#1\@@#2{}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@setnull}
+%\cs{@dtl@setnull}\marg{cmd}\marg{id} sets \meta{cmd} to either
+% \cs{DTLstringnull} or \cs{DTLnumbernull} depending on the data
+% type for \meta{id}. (Database
+% name should be stored in \cs{@dtl@dbname} prior to use.
+% \begin{macrocode}
+\newcommand*{\@dtl@setnull}[2]{%
+\@ifundefined{@dtl@idtype@\@dtl@dbname @#2}{%
+\global\let#1=\DTLstringnull}{%
+\edef\@dtl@tmp{0\@dtl@getidtype{\@dtl@dbname}{#2}}%
+\expandafter\ifnum\@dtl@tmp=0\relax
+ \global\let#1=\DTLstringnull
+\else
+ \global\let#1=\DTLnumbernull
+\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLstringnull}
+% String null value:
+% \begin{macrocode}
+\newcommand*{\DTLstringnull}{NULL}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLnumbernull}
+% Number null value:
+% \begin{macrocode}
+\newcommand*{\DTLnumbernull}{0}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLifnull}
+%\begin{definition}
+%\cs{DTLifnull}\marg{value}\marg{true part}\marg{false part}
+%\end{definition}
+% Checks if \meta{value} is null (either \cs{DTLstringnull} or
+% \cs{DTLnumbernull}) if true, does \meta{true part} otherwise
+% does \meta{false part}.
+% \begin{macrocode}
+\newcommand*{\DTLifnull}[3]{%
+\ifx\DTLstringnull#1\relax
+ #2%
+\else
+ \ifx\DTLnumbernull#1\relax
+ #2%
+ \else
+ #3%
+ \fi
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@gathervalues}
+%\begin{definition}
+%\cs{dtl@gathervalues}\oarg{label}\marg{db name}\marg{row}
+%\end{definition}
+% Stores each element of \meta{row} in \meta{db name} into
+% the command \cs{@dtl@}\meta{label}\texttt{@}\meta{key},
+% where \meta{key} is the
+% key for that element, and \meta{label} defaults to "key".
+% \begin{macrocode}
+\newcommand{\dtl@gathervalues}[3][key]{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname dtlkeys@#2\endcsname%
+\def\@dtl@list{}%
+\@for\dtl@key:=\@dtl@tmp\do{%
+ \expandafter\@dtl@setnull\expandafter{%
+ \csname @dtl@#1@\dtl@key\endcsname}{\dtl@key}%
+ \@for\dtl@thiselement:=#3\do{%
+ \dtl@getentryid\dtl@thiselement\@dtl@id
+ \ifthenelse{\equal{\@dtl@id}{\dtl@key}}{%
+ \dtl@getentryvalue\dtl@thiselement\@dtl@value%
+ \expandafter\toks@\expandafter{\@dtl@value}%
+ \expandafter\edef\csname @dtl@#1@\dtl@key\endcsname{%
+ \the\toks@}%
+ \@endfortrue}{}%
+ }%
+\@endforfalse
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsumforkeys}
+%\begin{definition}
+%\cs{DTLsumforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Sums all entries for key \meta{key} over all databases listed
+% in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLsumforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\def#4{0}%
+\@for\@dtl@dbname:=#2\do{%
+ \DTLifdbexists{\@dtl@dbname}{%
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \dtl@gathervalues{\@dtl@dbname}{\@dtl@currentrow}%
+ \@for\@dtl@key:=#3\do{%
+ \protected@edef\DTLthisval{%
+ \csname @dtl@key@\@dtl@key\endcsname}%
+ \ifthenelse{#1}{\DTLadd{#4}{#4}{\DTLthisval}}{}%
+ }}%
+ }{\PackageError{datatool}{Database `\@dtl@dbname' doesn't exist}{}%
+ }%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmeanforkeys}
+%\begin{definition}
+%\cs{DTLmeanforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Computes the arithmetic mean of all entries for each key in
+% \meta{key list} over all databases in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLmeanforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\def#4{0}%
+\def\dtl@n{0}%
+\@for\@dtl@dbname:=#2\do{%
+\DTLifdbexists{\@dtl@dbname}{%
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \dtl@gathervalues{\@dtl@dbname}{\@dtl@currentrow}%
+ \@for\@dtl@key:=#3\do{%
+ \protected@edef\DTLthisval{%
+ \csname @dtl@key@\@dtl@key\endcsname}%
+ \ifthenelse{#1}{%
+ \DTLadd{#4}{#4}{\DTLthisval}%
+ \DTLadd{\dtl@n}{\dtl@n}{1}%
+ }{}%
+ }}%
+}{\PackageError{datatool}{Database `\@dtl@dbname' doesn't exist}{}}}%
+\ifnum\dtl@n=0\relax
+ \PackageError{datatool}{Can't compute mean, no data!}{}%
+\else
+ \DTLdiv{#4}{#4}{\dtl@n}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLvarianceforkeys}
+%\begin{definition}
+%\cs{DTLvarianceforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Computes the variance of all entries for each key in
+% \meta{key list} over all databases in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLvarianceforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\DTLmeanforkeys[#1]{#2}{#3}{\dtl@mean}%
+\def#4{0}%
+\@for\@dtl@dbname:=#2\do{%
+ \DTLifdbexists{\@dtl@dbname}{%
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \dtl@gathervalues{\@dtl@dbname}{\@dtl@currentrow}%
+ \@for\@dtl@key:=#3\do{%
+ \protected@edef\DTLthisval{%
+ \csname @dtl@key@\@dtl@key\endcsname}%
+ \ifthenelse{#1}{%
+ \DTLsub{\dtl@diff}{\DTLthisval}{\dtl@mean}%
+ \DTLmul{\dtl@diff}{\dtl@diff}{\dtl@diff}%
+ \DTLadd{#4}{#4}{\dtl@diff}%
+ }{}%
+ }}%
+ }{\PackageError{datatool}{Database `\@dtl@dbname' doesn't exist}{}%
+ }%
+}%
+\ifnum\dtl@n=0\relax
+ \PackageError{datatool}{Can't compute variance, no data!}{}%
+\else
+ \DTLdiv{#4}{#4}{\dtl@n}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsdforkeys}
+%\begin{definition}
+%\cs{DTLsdforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Computes the standard deviation of all entries for each key in
+% \meta{key list} over all databases in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLsdforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\DTLvarianceforkeys[#1]{#2}{#3}{#4}%
+\DTLsqrt{#4}{#4}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLminforkeys}
+%\begin{definition}
+%\cs{DTLminforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Determines the minimum over all entries for each key in
+% \meta{key list} over all databases in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLminforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\def#4{}%
+\@for\@dtl@dbname:=#2\do{%
+\DTLifdbexists{\@dtl@dbname}{%
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \dtl@gathervalues{\@dtl@dbname}{\@dtl@currentrow}%
+ \@for\@dtl@key:=#3\do{%
+ \protected@edef\DTLthisval{%
+ \csname @dtl@key@\@dtl@key\endcsname}%
+ \ifthenelse{#1}{%
+ \ifx#4\@empty
+ \let#4=\DTLthisval
+ \else
+ \DTLmin{#4}{#4}{\DTLthisval}%
+ \fi
+ }{}%
+}}%
+ }{\PackageError{datatool}{Database `\@dtl@dbname' doesn't exist}{}%
+ }%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmaxforkeys}
+%\begin{definition}
+%\cs{DTLmaxforkeys}\oarg{condition}\marg{db list}\marg{key list}\marg{cmd}
+%\end{definition}
+% Determines the maximum over all entries for each key in
+% \meta{key list} over all databases in \meta{db list},
+% and stores in \meta{cmd}, which must be a control sequence.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLmaxforkeys}[4][\boolean{true}\and
+\DTLisnumerical{\DTLthisval}]{%
+\def#4{}%
+\@for\@dtl@dbname:=#2\do{%
+\DTLifdbexists{\@dtl@dbname}{%
+ \expandafter
+ \let\expandafter\@dtl@db\csname dtldb@\@dtl@dbname\endcsname%
+ \@for\@dtl@currentrow:=\@dtl@db\do{%
+ \dtl@gathervalues{\@dtl@dbname}{\@dtl@currentrow}%
+ \@for\@dtl@key:=#3\do{%
+ \protected@edef\DTLthisval{%
+ \csname @dtl@key@\@dtl@key\endcsname}%
+ \ifthenelse{#1}{%
+ \ifx#4\@empty
+ \let#4=\DTLthisval
+ \else
+ \DTLmax{#4}{#4}{\DTLthisval}%
+ \fi
+ }{}%
+}}%
+ }{\PackageError{datatool}{Database `\@dtl@dbname' doesn't exist}{}%
+ }%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLcomputebounds}
+%\begin{definition}
+%\cs{DTLcomputebounds}\oarg{condition}\marg{db list}\marg{x key}\marg{y key}\marg{minX cmd}\marg{minY cmd}\marg{maxX cmd}\marg{maxY cmd}
+%\end{definition}
+% Computes the maximum and minimum $x$ and $y$ values over all
+% the databases listed in \meta{db list} where the $x$ value
+% is given by \meta{x key} and the $y$ value is given by
+% \meta{y key}. The results are stored in \meta{minX cmd},
+% \meta{minY cmd}, \meta{maxX cmd} and \meta{maxY cmd} in
+% standard decimal format.
+% \begin{macrocode}
+\newcommand*{\DTLcomputebounds}[8][\boolean{true}]{%
+\let#5=\relax
+\let#6=\relax
+\let#7=\relax
+\let#8=\relax
+\@for\dtl@thisdb:=#2\do{%
+ \@sDTLforeach[#1]{\dtl@thisdb}{\DTLthisX=#3,\DTLthisY=#4}{%
+ \DTLconverttodecimal{\DTLthisX}{\dtl@decx}%
+ \DTLconverttodecimal{\DTLthisY}{\dtl@decy}%
+ \ifx#5\relax
+ \let#5=\dtl@decx
+ \let#6=\dtl@decy
+ \let#7=\dtl@decx
+ \let#8=\dtl@decy
+ \else
+ \FPmin{#5}{#5}{\dtl@decx}%
+ \FPmin{#6}{#6}{\dtl@decy}%
+ \FPmax{#7}{#7}{\dtl@decx}%
+ \FPmax{#8}{#8}{\dtl@decy}%
+ \fi
+ }%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLgetvalueforkey}
+%\begin{definition}
+%\cs{DTLgetvalueforkey}\marg{cmd}\marg{key}\marg{db name}\marg{ref
+% key}\marg{ref value}
+%\end{definition}
+% This (globally) sets \meta{cmd} (a control sequence) to the
+% value of the key specified by \meta{key} in the first row
+% of the database called \meta{db name} which contains the key
+% \meta{ref key} which has the value \meta{value}.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLgetvalueforkey}[5]{%
+{%
+\global\let#1=\DTLstringnull
+\@sDTLforeach{#3}{\dtl@valueA=#2,\dtl@refvalue=#4}{%
+\DTLifnull{\dtl@refvalue}{}{%
+\ifthenelse{\equal{\dtl@refvalue}{#5}}{%
+\global\let#1=\dtl@valueA
+\@endfortrue
+}{}}}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLgetrowforkey}
+%\begin{definition}
+%\cs{DTLgetrowforkey}\marg{cmd}\marg{db name}\marg{ref
+% key}\marg{ref value}
+%\end{definition}
+% This (globally) sets \meta{cmd} (a control sequence) to the
+% first row
+% of the database called \meta{db name} which contains the key
+% \meta{ref key} which has the value \meta{value}.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLgetrowforkey}[4]{%
+{%
+\global\let#1=\@empty
+\@sDTLforeach{#2}{\dtl@refvalue=#3}{%
+\DTLifnull{\dtl@refvalue}{}{%
+\ifthenelse{\equal{\dtl@refvalue}{#4}}{%
+\expandafter\global\expandafter\let\expandafter#1
+ \csname @dtl@thiscurrentrow@\romannumeral\dtlforeachlevel\endcsname
+\@endfortrue
+}{}}}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsort}
+%\begin{definition}
+% \cs{DTLsort}\oarg{replacement keys}\marg{sort criteria}\marg{db name}
+%\end{definition}
+% Sorts database \meta{db name} according to \marg{sort criteria},
+% which must be a comma separated list of keys, and optionally
+% \texttt{=}\meta{order}, where \meta{order} is either
+% "ascending" or "descending". The optional argument is a list of
+% keys to uses if the given key has a null value. The starred
+% version uses a case insensitive string comparison.
+%\changes{1.01}{2007 Aug 17}{added optional argument}
+%\changes{1.01}{2007 Aug 17}{added starred version}
+% \begin{macrocode}
+\newcommand*{\DTLsort}{\@ifstar\@sDTLsort\@DTLsort}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@DTLsort}
+% Unstarred (case sensitive) version.
+% \begin{macrocode}
+\newcommand*{\@DTLsort}[3][]{%
+\edef\@dtl@replacementkeys{#1}%
+\edef\@dtl@sortorder{#2}%
+\edef\@dtl@dbname{#3}%
+\let\@dtl@comparecs=\dtlcompare
+\expandafter\let\expandafter\@dtl@list\csname dtldb@#3\endcsname
+\dtl@sortlist{\@dtl@list}{\@dtl@sortcriteria}%
+\expandafter\global\expandafter
+ \let\csname dtldb@#3\endcsname=\@dtl@list}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@sDTLsort}
+% Starred (case insensitive) version.
+% \begin{macrocode}
+\newcommand*{\@sDTLsort}[3][]{%
+\edef\@dtl@replacementkeys{#1}%
+\edef\@dtl@sortorder{#2}%
+\edef\@dtl@dbname{#3}%
+\let\@dtl@comparecs=\dtlicompare
+\expandafter\let\expandafter\@dtl@list\csname dtldb@#3\endcsname
+\dtl@sortlist{\@dtl@list}{\@dtl@sortcriteria}%
+\expandafter\global\expandafter
+ \let\csname dtldb@#3\endcsname=\@dtl@list}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@sortcriteria}
+%\begin{definition}
+% \cs{@dtl@sortcriteria}\marg{a}\marg{b}
+%\end{definition}
+% Sort criteria. \cs{@dtl@dbname} and
+% \cs{@dtl@sortorder} must be set before use.
+% \begin{macrocode}
+\newcommand{\@dtl@sortcriteria}[2]{%
+\@for\@dtl@level:=\@dtl@sortorder\do{%
+ \expandafter\@dtl@getsortdirection\@dtl@level=\relax%
+ \@ifundefined{@dtl@idtype@\@dtl@dbname @\@dtl@key}{%
+ \ifx\@dtl@replacementkeys\@empty
+ \PackageError{datatool}{Unknown key `\@dtl@key' for database
+ `\@dtl@dbname'}{}%
+ \else
+ \dtl@gathervalues[keya]{\@dtl@dbname}{#1}%
+ \dtl@gathervalues[keyb]{\@dtl@dbname}{#2}%
+ \@ifundefined{@dtl@keya@\@dtl@key}{%
+ \@dtl@setnull{\@dtl@tmpa}{\@dtl@key}%
+ }{%
+ \expandafter\let\expandafter\@dtl@tmpa\expandafter
+ =\csname @dtl@keya@\@dtl@key\endcsname}%
+ \@ifundefined{@dtl@keyb@\@dtl@key}{%
+ \@dtl@setnull{\@dtl@tmpb}{\@dtl@key}%
+ }{%
+ \expandafter\let\expandafter\@dtl@tmpb\expandafter
+ =\csname @dtl@keyb@\@dtl@key\endcsname}%
+ \let\@dtl@keya=\@dtl@key
+ \let\@dtl@keyb=\@dtl@key
+ \DTLifnull{\@dtl@tmpa}{%
+ % find first non null key in list of replacement keys
+ \@for\@dtl@keya:=\@dtl@replacementkeys\do{%
+ \@ifundefined{@dtl@keya@\@dtl@keya}{}{%
+ \expandafter\let\expandafter\@dtl@tmpa\expandafter
+ =\csname @dtl@keya@\@dtl@keya\endcsname
+ \DTLifnull{\@dtl@tmpa}{}{\@endfortrue}}%
+ }%
+ \if@endfor \else\let\@dtl@keya=\@dtl@key \fi
+ \@endforfalse
+ }{}%
+ \DTLifnull{\@dtl@tmpb}{%
+ % find first non null key in list of replacement keys
+ \@for\@dtl@keyb:=\@dtl@replacementkeys\do{%
+ \@ifundefined{@dtl@keyb@\@dtl@keyb}{}{%
+ \expandafter\let\expandafter\@dtl@tmpb\expandafter
+ =\csname @dtl@keyb@\@dtl@keyb\endcsname
+ \DTLifnull{\@dtl@tmpb}{}{\@endfortrue}}%
+ }%
+ \if@endfor \else\let\@dtl@keyb=\@dtl@key \fi
+ \@endforfalse
+ }{}%
+ \@ifundefined{@dtl@idtype@\@dtl@dbname @\@dtl@keya}{%
+ \@ifundefined{@dtl@idtype@\@dtl@dbname @\@dtl@keyb}{%
+ \dtl@sortresult=0\relax}{\dtl@sortresult=-1\relax}%
+ }{%
+ \@ifundefined{@dtl@idtype@\@dtl@dbname @\@dtl@keyb}{%
+ \dtl@sortresult=1\relax}{%
+ \dtl@compare@{\@dtl@keya}{\@dtl@keyb}{#1}{#2}%
+ }%
+ }%
+ \fi
+ }{%
+ \ifx\@dtl@replacementkeys\@empty
+ \dtl@compare{\@dtl@key}{#1}{#2}%
+ \else
+ \dtl@gathervalues[keya]{\@dtl@dbname}{#1}%
+ \dtl@gathervalues[keyb]{\@dtl@dbname}{#2}%
+ \@ifundefined{@dtl@keya@\@dtl@key}{%
+ \@dtl@setnull{\@dtl@tmpa}{\@dtl@key}%
+ }{%
+ \expandafter\let\expandafter\@dtl@tmpa\expandafter
+ =\csname @dtl@keya@\@dtl@key\endcsname}%
+ \@ifundefined{@dtl@keyb@\@dtl@key}{%
+ \@dtl@setnull{\@dtl@tmpb}{\@dtl@key}%
+ }{%
+ \expandafter\let\expandafter\@dtl@tmpb\expandafter
+ =\csname @dtl@keyb@\@dtl@key\endcsname}%
+ \let\@dtl@keya=\@dtl@key
+ \let\@dtl@keyb=\@dtl@key
+ \DTLifnull{\@dtl@tmpa}{%
+ % find first non null key in list of replacement keys
+ \@for\@dtl@keya:=\@dtl@replacementkeys\do{%
+ \@ifundefined{@dtl@keya@\@dtl@keya}{}{%
+ \expandafter\let\expandafter\@dtl@tmpa\expandafter
+ =\csname @dtl@keya@\@dtl@keya\endcsname
+ \DTLifnull{\@dtl@tmpa}{}{\@endfortrue}}%
+ }%
+ \if@endfor \else\let\@dtl@keya=\@dtl@key \fi
+ \@endforfalse
+ }{}%
+ \DTLifnull{\@dtl@tmpb}{%
+ % find first non null key in list of replacement keys
+ \@for\@dtl@keyb:=\@dtl@replacementkeys\do{%
+ \@ifundefined{@dtl@keyb@\@dtl@keyb}{}{%
+ \expandafter\let\expandafter\@dtl@tmpb\expandafter
+ =\csname @dtl@keyb@\@dtl@keyb\endcsname
+ \DTLifnull{\@dtl@tmpb}{}{\@endfortrue}}%
+ }%
+ \if@endfor \else\let\@dtl@keyb=\@dtl@key \fi
+ \@endforfalse
+ }{}%
+ \dtl@compare@{\@dtl@keya}{\@dtl@keyb}{#1}{#2}%
+ \fi
+ \multiply\dtl@sortresult by \@dtl@sortdirection\relax
+ \ifnum\dtl@sortresult=0\relax
+ \else
+ \@endfortrue
+ \fi
+ }%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@getsortdirection}
+% Get the direction from either \meta{key} or
+% \meta{key}=\meta{direction}. Sets \cs{@dtl@sortdirection} to
+% either -1 (ascending) or 1 (descending).
+% \begin{macrocode}
+\def\@dtl@getsortdirection#1=#2\relax{%
+\def\@dtl@key{#1}%
+\def\@dtl@sortdirection{#2}%
+\ifx\@dtl@sortdirection\@empty
+ \def\@dtl@sortdirection{-1}%
+\else
+ \@dtl@get@sortdirection#2%
+ \ifthenelse{\equal{\@dtl@sortdirection}{ascending}}{%
+ \def\@dtl@sortdirection{-1}}{%
+ \ifthenelse{\equal{\@dtl@sortdirection}{descending}}{%
+ \def\@dtl@sortdirection{1}}{%
+ \PackageError{datatool}{Invalid sort direction
+ `\@dtl@sortdirection'}{%
+ The sort direction can only be one of `ascending' or
+ `descending'}\def\@dtl@sortdirection{-1}}}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@get@sortdirection}
+% Get direction
+% \begin{macrocode}
+\def\@dtl@get@sortdirection#1={\def\@dtl@sortdirection{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@compare}
+%\begin{definition}
+%\cs{dtl@compare}\marg{key}\marg{a}\marg{b}
+%\end{definition}
+% Compares \meta{a} and \meta{b} according to \meta{key} of
+% database given by \cs{@dtl@dbname}. Sets \cs{dtl@sortresult}.
+% \cs{@dtl@comparecs} must be set to the required comparison macro.
+% \begin{macrocode}
+\newtoks\@dtl@toksA\newtoks\@dtl@toksB
+\newcommand{\dtl@compare}[3]{%
+\dtl@gathervalues{\@dtl@dbname}{#2}%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\@dtl@toksA\expandafter{\@dtl@tmp}%
+\edef\@dtl@a{\the\@dtl@toksA}%
+\dtl@gathervalues{\@dtl@dbname}{#3}%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\@dtl@toksB\expandafter{\@dtl@tmp}%
+\edef\@dtl@b{\the\@dtl@toksB}%
+\expandafter\@dtl@datatype\expandafter=
+ \csname @dtl@idtype@\@dtl@dbname @#1\endcsname\relax
+\ifnum\@dtl@datatype=0\relax
+ \edef\@dtl@tmpcmp{%
+ \noexpand\@dtl@comparecs{\noexpand\dtl@sortresult}%
+ {\the\@dtl@toksA}{\the\@dtl@toksB}}%
+ \@dtl@tmpcmp
+\else
+ \DTLifnumlt{\@dtl@a}{\@dtl@b}{\dtl@sortresult=-1\relax}{%
+ \DTLifnumgt{\@dtl@a}{\@dtl@b}{\dtl@sortresult=1\relax}{%
+ \dtl@sortresult=0\relax}}%
+\fi
+\ifdtlverbose
+\@onelevel@sanitize\@dtl@a
+\@onelevel@sanitize\@dtl@b
+\fi
+\dtl@message{`\@dtl@a' <=> `\@dtl@b' = \number\dtl@sortresult}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@compare@}
+%\begin{definition}
+%\cs{dtl@compare@}\marg{keya}\marg{keyb}\marg{a}\marg{b}
+%\end{definition}
+% Compare \meta{a} and \meta{b} according to \meta{keya}
+% and \meta{keyb} of
+% database given by \cs{@dtl@dbname}. Sets \cs{dtl@sortresult}.
+% \cs{@dtl@comparecs} must be set.
+% \begin{macrocode}
+\newcommand{\dtl@compare@}[4]{%
+\dtl@gathervalues{\@dtl@dbname}{#3}%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\@dtl@toksA\expandafter{\@dtl@tmp}%
+\edef\@dtl@a{\the\@dtl@toksA}%
+\dtl@gathervalues{\@dtl@dbname}{#4}%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#2\endcsname
+\expandafter\@dtl@toksB\expandafter{\@dtl@tmp}%
+\edef\@dtl@b{\the\@dtl@toksB}%
+\expandafter\@dtl@tmpcount\expandafter=
+ \csname @dtl@idtype@\@dtl@dbname @#1\endcsname\relax
+\expandafter\@dtl@datatype\expandafter=
+ \csname @dtl@idtype@\@dtl@dbname @#2\endcsname\relax
+\multiply\@dtl@datatype by \@dtl@tmpcount\relax
+\ifnum\@dtl@datatype=0\relax
+ \edef\@dtl@tmpcmp{%
+ \noexpand\@dtl@comparecs{\noexpand\dtl@sortresult}%
+ {\the\@dtl@toksA}{\the\@dtl@toksB}}%
+ \@dtl@tmpcmp
+\else
+ \DTLifnumlt{\@dtl@a}{\@dtl@b}{\dtl@sortresult=-1\relax}{%
+ \DTLifnumgt{\@dtl@a}{\@dtl@b}{\dtl@sortresult=1\relax}{%
+ \dtl@sortresult=0\relax}}%
+\fi
+\ifdtlverbose
+\@onelevel@sanitize\@dtl@a
+\@onelevel@sanitize\@dtl@b
+\fi
+\dtl@message{`\@dtl@a' <=> `\@dtl@b' = \number\dtl@sortresult}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{General List Utilities}
+%
+%\begin{macro}{\dtl@choplast}
+%\begin{definition}
+% \cs{dtl@choplast}\marg{list}\marg{rest}\marg{last}
+%\end{definition}
+% Chops the last element off a comma separated list, putting the
+% last element in the control sequence \meta{last} and putting
+% the rest in the control sequence \meta{rest}. The control
+% sequence \meta{list} is unchanged. If the list is empty, both
+% \meta{last} and \meta{rest} will be empty.
+% \begin{macrocode}
+\newcommand*{\dtl@choplast}[3]{%
+% \end{macrocode}
+% Set \meta{rest} to empty:
+% \begin{macrocode}
+\let#2\@empty
+% \end{macrocode}
+% Set \meta{last} to empty:
+% \begin{macrocode}
+\let#3\@empty
+% \end{macrocode}
+% Iterate through \meta{list}:
+% \begin{macrocode}
+\@for\@dtl@element:=#1\do{%
+\ifx#3\@empty
+% \end{macrocode}
+% First iteration, don't set \meta{rest}.
+% \begin{macrocode}
+\else
+ \ifx#2\@empty
+% \end{macrocode}
+% Second iteration, set \meta{rest} to \meta{last} (which is
+% currently set to the previous value:
+% \begin{macrocode}
+ \expandafter\toks@\expandafter{#3}%
+ \edef#2{{\the\toks@}}%
+ \else
+% \end{macrocode}
+% Subsequent iterations, set \meta{rest} to \meta{rest},\meta{last}
+% (\meta{last} is currently set to the previous value):
+% \begin{macrocode}
+ \expandafter\toks@\expandafter{#3}%
+ \expandafter\@dtl@toks\expandafter{#2}%
+ \edef#2{\the\@dtl@toks,{\the\toks@}}%
+ \fi
+\fi
+% \end{macrocode}
+% Now set \meta{last} to current element.
+% \begin{macrocode}
+\let#3=\@dtl@element%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@chopfirst}
+%\begin{definition}
+% \cs{dtl@chopfirst}\marg{list}\marg{first}\marg{rest}
+%\end{definition}
+% Chops first element off \meta{list} and store in \meta{first}.
+% The remainder of the list is stored in \meta{rest}. (\meta{list}
+% remains unchanged.)
+% \begin{macrocode}
+\newcommand*{\dtl@chopfirst}[3]{%
+\let#2=\@empty
+\let#3=\@empty
+\@for\@dtl@element:=#1\do{%
+ \let#2=\@dtl@element
+ \@endfortrue
+}%
+\if@endfor
+ \let#3=\@forremainder
+\fi
+\@endforfalse
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@sortlist}
+%\begin{definition}
+% \cs{dtl@sortlist}\marg{list}\marg{criteria cmd}
+%\end{definition}
+% Performs an insertion sort on \meta{list}, where \meta{criteria cmd}
+% is a macro which takes two arguments \meta{a} and \meta{b}.
+% \meta{criteria cmd} must set the count register \cs{dtl@sortresult}
+% to either -1 (\meta{a} less than \meta{b}), 0 (\meta{a} is
+% equal to \meta{b}) or 1 (\meta{a} is greater than \meta{b}.)
+% \begin{macrocode}
+\newcommand{\dtl@sortlist}[2]{%
+\def\@dtl@sortedlist{}%
+\@for\@dtl@currentrow:=#1\do{%
+\expandafter\dtl@insertinto\expandafter
+ {\@dtl@currentrow}{\@dtl@sortedlist}{#2}%
+\@endforfalse}%
+\let#1=\@dtl@sortedlist
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@insertinto}
+%\begin{definition}
+% \cs{dtl@insertinto}\marg{element}\marg{sorted-list}\marg{criteria cmd}
+%\end{definition}
+% Inserts \meta{element} into the sorted list \meta{sorted-list}
+% according to the criteria given by \meta{criteria cmd} (see above.)
+% \begin{macrocode}
+\newtoks\@dtl@toks
+\newcommand{\dtl@insertinto}[3]{%
+\def\@dtl@newsortedlist{}%
+\@dtl@insertdonefalse
+\@for\dtl@srtelement:=#2\do{%
+\if@dtl@insertdone
+ \expandafter\toks@\expandafter{\dtl@srtelement}%
+ \edef\@dtl@newstuff{{\the\toks@}}%
+\else
+ \expandafter#3\expandafter{\dtl@srtelement}{#1}%
+ \ifnum\dtl@sortresult<0\relax
+ \expandafter\toks@\expandafter{\dtl@srtelement}%
+ \@dtl@toks{#1}%
+ \edef\@dtl@newstuff{{\the\@dtl@toks},{\the\toks@}}%
+ \@dtl@insertdonetrue
+ \else
+ \expandafter\toks@\expandafter{\dtl@srtelement}%
+ \edef\@dtl@newstuff{{\the\toks@}}%
+ \fi
+\fi
+\ifx\@dtl@newsortedlist\@empty
+ \expandafter\toks@\expandafter{\@dtl@newstuff}%
+ \edef\@dtl@newsortedlist{\the\toks@}%
+\else
+ \expandafter\toks@\expandafter{\@dtl@newsortedlist}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@newstuff}%
+ \edef\@dtl@newsortedlist{\the\toks@,\the\@dtl@toks}%
+\fi
+\@endforfalse
+}%
+ \ifx\@dtl@newsortedlist\@empty
+ \@dtl@toks{#1}%
+ \edef\@dtl@newsortedlist{{\the\@dtl@toks}}%
+ \else
+ \if@dtl@insertdone
+ \else
+ \expandafter\toks@\expandafter{\@dtl@newsortedlist}%
+ \@dtl@toks{#1}%
+ \edef\@dtl@newsortedlist{\the\toks@,{\the\@dtl@toks}}%
+ \fi
+ \fi
+\global\let#2=\@dtl@newsortedlist
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\if@dtl@insertdone}
+% Define conditional to indicate whether the new entry has
+% been inserted into the sorted list.
+% \begin{macrocode}
+\newif\if@dtl@insertdone
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@sortresult}
+% Define \cs{dtl@sortresult} to be set by comparision macro.
+% \begin{macrocode}
+\newcount\dtl@sortresult
+% \end{macrocode}
+%\end{macro}
+%
+% \subsection{Floating Point Arithmetic}
+% The commands defined in this section all use the equivalent
+% commands provided by the \sty{fp} package, but first convert
+% the decimal number into the required format.
+%
+%\begin{macro}{\DTLadd}
+%\begin{definition}
+% \cs{DTLadd}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = \meta{num1} + \meta{num2}
+% \begin{macrocode}
+\newcommand*{\DTLadd}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\FPadd{\@dtl@tmp}{\@dtl@numi}{\@dtl@numii}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgadd}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgadd}[3]{%
+\DTLadd{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLaddall}
+%\begin{definition}
+%\cs{DTLaddall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Sums all the values in \meta{num list} and stores in
+% \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLaddall}[2]{%
+\def\@dtl@sum{0}%
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \FPadd{\@dtl@sum}{\@dtl@sum}{\@dtl@num}%
+}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@sum}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@sum}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgaddall}
+%\begin{definition}
+%\cs{DTLgaddall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgaddall}[2]{%
+\DTLaddall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsub}
+%\begin{definition}
+% \cs{DTLsub}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = \meta{num1} - \meta{num2}
+% \begin{macrocode}
+\newcommand*{\DTLsub}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\FPsub{\@dtl@tmp}{\@dtl@numi}{\@dtl@numii}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgsub}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgsub}[3]{%
+\DTLsub{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmul}
+%\begin{definition}
+% \cs{DTLmul}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = \meta{num1} $\times$ \meta{num2}
+% \begin{macrocode}
+\newcommand*{\DTLmul}[3]{%
+\let\@dtl@thisreplaced=\@empty
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\ifx\@dtl@replaced\@empty
+\else
+ \let\@dtl@thisreplaced=\@dtl@replaced
+\fi
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\ifx\@dtl@replaced\@empty
+\else
+ \let\@dtl@thisreplaced=\@dtl@replaced
+\fi
+\FPmul{\@dtl@tmp}{\@dtl@numi}{\@dtl@numii}%
+\ifx\@dtl@thisreplaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgmul}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgmul}[3]{%
+\DTLmul{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdiv}
+%\begin{definition}
+% \cs{DTLdiv}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = \meta{num1} / \meta{num2}
+% \begin{macrocode}
+\newcommand*{\DTLdiv}[3]{%
+\let\@dtl@thisreplaced=\@empty
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\ifx\@dtl@replaced\@empty
+\else
+ \let\@dtl@thisreplaced=\@dtl@replaced
+\fi
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\FPdiv{\@dtl@tmp}{\@dtl@numi}{\@dtl@numii}%
+\ifx\@dtl@thisreplaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \ifx\@dtl@thisreplaced\@dtl@replaced
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+ \else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+ \fi
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgdiv}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgdiv}[3]{%
+\DTLdiv{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLabs}
+%\begin{definition}
+% \cs{DTLabs}\marg{cmd}\marg{num}
+%\end{definition}
+% Sets \meta{cmd} = abs(\meta{num})
+% \begin{macrocode}
+\newcommand*{\DTLabs}[2]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FPabs{\@dtl@tmp}{\@dtl@numi}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgabs}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgabs}[2]{%
+\DTLabs{\@dtl@tmpii}{#2}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLneg}
+%\begin{definition}
+% \cs{DTLneg}\marg{cmd}\marg{num}
+%\end{definition}
+% Sets \meta{cmd} = -\meta{num}
+% \begin{macrocode}
+\newcommand*{\DTLneg}[2]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FPneg{\@dtl@tmp}{\@dtl@numi}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgneg}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgneg}[2]{%
+\DTLneg{\@dtl@tmpii}{#2}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsqrt}
+%\begin{definition}
+% \cs{DTLsqrt}\marg{cmd}\marg{num}
+%\end{definition}
+% Sets \meta{cmd} = sqrt(\meta{num})
+% \begin{macrocode}
+\newcommand*{\DTLsqrt}[2]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FProot{\@dtl@tmpi}{\@dtl@numi}{2}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmpi}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmpi}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgsqrt}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgsqrt}[2]{%
+\DTLsqrt{\@dtl@tmpii}{#2}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmin}
+%\begin{definition}
+% \cs{DTLmin}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = min(\meta{num1}, \meta{num2})
+% \begin{macrocode}
+\newcommand*{\DTLmin}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\FPiflt{\@dtl@numi}{\@dtl@numii}%
+ \dtl@ifsingle{#2}{%
+ \let#1=#2}{%
+ \def#1{#2}}%
+\else
+ \dtl@ifsingle{#3}{%
+ \let#1=#3}{%
+ \def#1{#3}}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgmin}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgmin}[3]{%
+\DTLmin{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLminall}
+%\begin{definition}
+%\cs{DTLminall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Finds the minimum value in \meta{num list} and stores in
+% \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLminall}[2]{%
+\let\@dtl@min=\@empty
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \ifx\@dtl@min\@empty
+ \let\@dtl@min=\@dtl@num
+ \else
+ \FPmin{\@dtl@min}{\@dtl@min}{\@dtl@num}%
+ \fi
+}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@min}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@min}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgminall}
+%\begin{definition}
+%\cs{DTLgminall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgminall}[2]{%
+\DTLminall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmax}
+%\begin{definition}
+% \cs{DTLmax}\marg{cmd}\marg{num1}\marg{num2}
+%\end{definition}
+% Sets \meta{cmd} = max(\meta{num1}, \meta{num2})
+% \begin{macrocode}
+\newcommand*{\DTLmax}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\DTLconverttodecimal{#3}{\@dtl@numii}%
+\FPmax{\@dtl@tmp}{\@dtl@numi}{\@dtl@numii}%
+\FPifgt{\@dtl@numi}{\@dtl@numii}%
+ \dtl@ifsingle{#2}{%
+ \let#1=#2}{%
+ \def#1{#2}}%
+\else
+ \dtl@ifsingle{#3}{%
+ \let#1=#3}{%
+ \def#1{#3}}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgmax}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgmax}[3]{%
+\DTLmax{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmaxall}
+%\begin{definition}
+%\cs{DTLmaxall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Finds the maximum value in \meta{num list} and stores in
+% \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLmaxall}[2]{%
+\let\@dtl@max=\@empty
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \ifx\@dtl@max\@empty
+ \let\@dtl@max\@dtl@num
+ \else
+ \FPmax{\@dtl@max}{\@dtl@max}{\@dtl@num}%
+ \fi
+}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@max}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@max}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgmaxall}
+%\begin{definition}
+%\cs{DTLgmaxall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgmaxall}[2]{%
+\DTLmaxall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmeanforall}
+%\begin{definition}
+%\cs{DTLmeanforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Computes the arithmetic mean of all the values in \meta{num list}
+% and stores in \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLmeanforall}[2]{%
+\def\@dtl@mean{0}%
+\def\@dtl@n{0}%
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \FPadd{\@dtl@mean}{\@dtl@mean}{\@dtl@num}%
+ \FPadd{\@dtl@n}{\@dtl@n}{1}%
+}%
+\FPdiv{\@dtl@mean}{\@dtl@mean}{\@dtl@n}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@mean}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@mean}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgmeanforall}
+%\begin{definition}
+%\cs{DTLgmeanforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgmeanforall}[2]{%
+\DTLmeanforall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLvarianceforall}
+%\begin{definition}
+%\cs{DTLvarianceforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Computes the variance of all the values in \meta{num list}
+% and stores in \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{fixed bug}
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLvarianceforall}[2]{%
+\def\@dtl@mean{0}%
+\def\@dtl@n{0}%
+\let\@dtl@decvals=\@empty
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \ifx\@dtl@decvals\@empty
+ \let\@dtl@decvals=\@dtl@num
+ \else
+ \expandafter\toks@\expandafter{\@dtl@decvals}%
+ \edef\@dtl@decvals{\the\toks@,\@dtl@num}%
+ \fi
+ \FPadd{\@dtl@mean}{\@dtl@mean}{\@dtl@num}%
+ \FPadd{\@dtl@n}{\@dtl@n}{1}%
+}%
+\FPdiv{\@dtl@mean}{\@dtl@mean}{\@dtl@n}%
+\def\@dtl@var{0}%
+\@for\@dtl@num:=\@dtl@decvals\do{%
+ \FPsub{\@dtl@diff}{\@dtl@num}{\@dtl@mean}%
+ \FPmul{\@dtl@diff}{\@dtl@diff}{\@dtl@diff}%
+ \FPadd{\@dtl@var}{\@dtl@var}{\@dtl@diff}%
+}%
+\FPdiv{\@dtl@var}{\@dtl@var}{\@dtl@n}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@var}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@var}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgvarianceforall}
+%\begin{definition}
+%\cs{DTLgvarianceforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgvarianceforall}[2]{%
+\DTLvarianceforall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsdforall}
+%\begin{definition}
+%\cs{DTLsdforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Computes the standard deviation of all the values in \meta{num list}
+% and stores in \meta{cmd} which must be a control sequence.
+%\changes{1.01}{2007 Aug 17}{fixed bug}
+%\changes{1.01}{2007 Aug 17}{removed extraneous space}
+% \begin{macrocode}
+\newcommand*{\DTLsdforall}[2]{%
+\def\@dtl@mean{0}%
+\def\@dtl@n{0}%
+\let\@dtl@decvals=\@empty
+\@for\dtl@thisval:=#2\do{%
+ \DTLconverttodecimal{\dtl@thisval}{\@dtl@num}%
+ \ifx\@dtl@decvals\@empty
+ \let\@dtl@decvals=\@dtl@num
+ \else
+ \expandafter\toks@\expandafter{\@dtl@decvals}%
+ \edef\@dtl@decvals{\the\toks@,\@dtl@num}%
+ \fi
+ \FPadd{\@dtl@mean}{\@dtl@mean}{\@dtl@num}%
+ \FPadd{\@dtl@n}{\@dtl@n}{1}%
+}%
+\FPdiv{\@dtl@mean}{\@dtl@mean}{\@dtl@n}%
+\def\@dtl@sd{0}%
+\@for\@dtl@num:=\@dtl@decvals\do{%
+ \FPsub{\@dtl@diff}{\@dtl@num}{\@dtl@mean}%
+ \FPmul{\@dtl@diff}{\@dtl@diff}{\@dtl@diff}%
+ \FPadd{\@dtl@sd}{\@dtl@sd}{\@dtl@diff}%
+}%
+\FPdiv{\@dtl@sd}{\@dtl@sd}{\@dtl@n}%
+\FProot{\@dtl@sd}{\@dtl@sd}{2}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@sd}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@sd}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgsdforall}
+%\begin{definition}
+%\cs{DTLgsdforall}\marg{cmd}\marg{num list}
+%\end{definition}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgsdforall}[2]{%
+\DTLsdforall{\@dtl@tmpi}{#2}%
+\global\let#1=\@dtl@tmpi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLround}
+%\begin{definition}
+% \cs{DTLround}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+% Sets \meta{cmd} to \meta{num} rounded to \meta{num digits}
+% digits after the decimal character.
+% \begin{macrocode}
+\newcommand*{\DTLround}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FPround{\@dtl@tmp}{\@dtl@numi}{#3}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLground}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLground}[3]{%
+\DTLround{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtrunc}
+%\begin{definition}
+% \cs{DTLtrunc}\marg{cmd}\marg{num}\marg{num digits}
+%\end{definition}
+% Sets \meta{cmd} to \meta{num} truncated to \meta{num digits}
+% digits after the decimal character.
+% \begin{macrocode}
+\newcommand*{\DTLtrunc}[3]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FPtrunc{\@dtl@tmp}{\@dtl@numi}{#3}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgtrunc}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgtrunc}[3]{%
+\DTLtrunc{\@dtl@tmpii}{#2}{#3}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLclip}
+%\begin{definition}
+% \cs{DTLclip}\marg{cmd}\marg{num}
+%\end{definition}
+% Sets \meta{cmd} to \meta{num} with all unnecessary 0's removed.
+% \begin{macrocode}
+\newcommand*{\DTLclip}[2]{%
+\DTLconverttodecimal{#2}{\@dtl@numi}%
+\FPclip{\@dtl@tmp}{\@dtl@numi}%
+\ifx\@dtl@replaced\@empty
+ \DTLdecimaltolocale{\@dtl@tmp}{#1}%
+\else
+ \DTLdecimaltocurrency{\@dtl@tmp}{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLgclip}
+% Global version
+% \begin{macrocode}
+\newcommand*{\DTLgclip}[3]{%
+\DTLclip{\@dtl@tmpii}{#2}%
+\global\let#1=\@dtl@tmpii
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLinitials}
+%\subsection{String Macros}
+%\begin{definition}
+%\cs{DTLinitials}\marg{string}
+%\end{definition}
+% Convert a string into initials.
+% (Any "~" character found is first converted into a space.)
+%\changes{1.01}{2007 Aug 17}{now works with unbreakable space symbol}
+%\changes{1.01}{2007 Aug 17}{now uses \cs{DTLinitialhyphen}}
+% \begin{macrocode}
+\newcommand*\DTLinitials[1]{%
+\def\dtl@initialscmd{}%
+\dtl@subnobrsp{#1}{\dtl@string}%
+\DTLsubstituteall{\dtl@string}{~}{ }%
+\DTLsubstituteall{\dtl@string}{\ }{ }%
+\DTLsubstituteall{\dtl@string}{\space}{ }%
+\expandafter\dtl@initials\dtl@string{} \@nil%
+\dtl@initialscmd}%
+% \end{macrocode}
+%\end{macro}
+% The following substitutes "\protect \nobreakspace {}" with
+% a space. (Note that in this case the space following
+% "\nobreakspace" forms part of the command.)
+% \begin{macrocode}
+\edef\dtl@construct@subnobrsp{%
+\noexpand\def\noexpand\@dtl@subnobrsp##1\noexpand\protect
+\expandafter\noexpand\csname nobreakspace \endcsname ##2{%
+\noexpand\toks@{##1}%
+\noexpand\expandafter\noexpand\@dtl@toks\noexpand\expandafter{%
+\noexpand\@dtl@string}%
+\noexpand\edef\noexpand\@dtl@string{\noexpand\the\noexpand\@dtl@toks
+\noexpand\the\noexpand\toks@}%
+\noexpand\def\noexpand\@dtl@tmp{##2}%
+\noexpand\ifx\noexpand\@dtl@tmp\noexpand\@nnil
+ \noexpand\let\noexpand\@dtl@subnobrspnext=\noexpand\relax
+\noexpand\else
+ \noexpand\toks@{ }%
+ \noexpand\expandafter\noexpand\@dtl@toks\noexpand\expandafter{%
+ \noexpand\@dtl@string}%
+ \noexpand\edef\noexpand\@dtl@string{\noexpand\the\noexpand\@dtl@toks
+ \noexpand\the\noexpand\toks@}%
+ \noexpand\let\noexpand\@dtl@subnobrspnext=\noexpand\@dtl@subnobrsp
+\noexpand\fi
+\noexpand\@dtl@subnobrspnext
+}%
+\noexpand\def\noexpand\dtl@subnobrsp##1##2{%
+\noexpand\def\noexpand\@dtl@string{}%
+\noexpand\@dtl@subnobrsp ##1\noexpand\protect\expandafter\noexpand
+\csname nobreakspace \endcsname \noexpand\@nil
+\noexpand\let##2=\noexpand\@dtl@string
+}}
+\dtl@construct@subnobrsp
+% \end{macrocode}
+%
+%\begin{macro}{\DTLstoreinitials}
+%\begin{definition}
+%\cs{DTLstoreinitials}\marg{string}\marg{cmd}
+%\end{definition}
+% Convert a string into initials and store in \meta{cmd}.
+% (Any "~" character found is first converted into a space.)
+%\changes{1.01}{2007 Aug 17}{now works with unbreakable space symbol}
+%\changes{1.01}{2007 Aug 17}{now uses \cs{DTLinitialhyphen}}
+% \begin{macrocode}
+\newcommand*{\DTLstoreinitials}[2]{%
+\def\dtl@initialscmd{}%
+\dtl@subnobrsp{#1}{\dtl@string}%
+\DTLsubstituteall{\dtl@string}{~}{ }%
+\DTLsubstituteall{\dtl@string}{\ }{ }%
+\DTLsubstituteall{\dtl@string}{\space}{ }%
+\expandafter\dtl@initials\dtl@string{} \@nil
+\let#2=\dtl@initialscmd
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@initials}
+% \begin{macrocode}
+\def\dtl@initials#1#2 #3{%
+\dtl@ifsingle{#1}{%
+\ifcat\noexpand#1\relax\relax
+ \def\@dtl@donextinitials{\@dtl@initials#2 {#3}}%
+\else
+ \def\@dtl@donextinitials{\@dtl@initials#1#2 {#3}}%
+\fi
+}{%
+ \def\@dtl@donextinitials{\@dtl@initials{#1}#2 {#3}}%
+}%
+\@dtl@donextinitials
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@initials}
+% \begin{macrocode}
+\def\@dtl@initials#1#2 #3{%
+\dtl@initialshyphen#2-{}\dtl@endhyp
+\expandafter\@dtl@toks\expandafter{\dtl@initialscmd}%
+\toks@{#1}%
+\ifx\dtl@inithyphen\@empty
+\else
+ \edef\dtl@initialscmd{\the\@dtl@toks\the\toks@}%
+ \expandafter\@dtl@toks\expandafter{\dtl@initialscmd}%
+ \expandafter\toks@\expandafter{\dtl@inithyphen}%
+\fi
+\def\dtl@tmp{#3}%
+\ifx\@nnil\dtl@tmp
+ \edef\dtl@initialscmd{\the\@dtl@toks\the\toks@\DTLafterinitials}%
+ \let\dtl@initialsnext=\@gobble
+\else
+ \edef\dtl@initialscmd{\the\@dtl@toks\the\toks@\DTLbetweeninitials}%
+ \let\dtl@initialsnext=\dtl@initials
+\fi
+\dtl@initialsnext{#3}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@initialshyphen}
+% \begin{macrocode}
+\def\dtl@initialshyphen#1-#2#3\dtl@endhyp{%
+\def\dtl@inithyphen{#2}%
+\ifx\dtl@inithyphen\@empty
+\else
+ \edef\dtl@inithyphen{%
+ \DTLafterinitialbeforehyphen\DTLinitialhyphen#2}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLafterinitials}
+% Defines what to do after the final initial.
+% \begin{macrocode}
+\newcommand*{\DTLafterinitials}{.}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLbetweeninitials}
+% Defines what to do between initials.
+% \begin{macrocode}
+\newcommand*{\DTLbetweeninitials}{.}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLafterinitialbeforehyphen}
+% Defines what to do before a hyphen.
+% \begin{macrocode}
+\newcommand*{\DTLafterinitialbeforehyphen}{.}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLinitialhyphen}
+%Defines what to do at the hyphen
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLinitialhyphen}{-}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifAllUpperCase}
+%\begin{definition}
+%\cs{DTLifAllUpperCase}\marg{string}\marg{true part}\marg{false part}
+%\end{definition}
+% If \meta{string} only contains uppercase characters do \meta{true
+%part}, otherwise do \meta{false part}.
+% \begin{macrocode}
+\newcommand*{\DTLifAllUpperCase}[3]{%
+\protected@edef\dtl@tuc{#1}%
+\expandafter\dtl@testifuppercase\dtl@tuc\@nil\relax
+\if@dtl@condition#2\else#3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testifalluppercase}
+% \begin{macrocode}
+\def\dtl@testifuppercase#1#2{%
+\def\dtl@argi{#1}%
+\def\dtl@argii{#2}%
+\def\dtl@tc@rest{}%
+\ifx\dtl@argi\@nnil
+ \let\dtl@testifuppernext=\@nnil
+\else
+ \ifx#1\protect
+ \let\dtl@testifuppernext=\dtl@testifuppercase
+ \else
+ \ifx\uppercase#1\relax
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testifuppernext=\relax
+ \else
+ \edef\dtl@tc@arg{\string#1}%
+ \expandafter\dtl@test@ifuppercase\dtl@tc@arg\end
+ \ifx\dtl@argii\@nnil
+ \let\dtl@testifuppernext=\@dtl@gobbletonil
+ \fi
+ \fi
+ \fi
+\fi
+\ifx\dtl@testifuppernext\relax
+ \edef\dtl@dotestifuppernext{%
+ \noexpand\dtl@testifuppercase}%
+\else
+ \ifx\dtl@testifuppernext\@nnil
+ \edef\dtl@dotestifuppernext{#2}%
+ \else
+ \expandafter\toks@\expandafter{\dtl@tc@rest}%
+ \@dtl@toks{#2}%
+ \edef\dtl@dotestifuppernext{%
+ \noexpand\dtl@testifuppernext\the\toks@\the\@dtl@toks}%
+ \fi
+\fi
+\dtl@dotestifuppernext
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@test@ifalluppercase}
+% \begin{macrocode}
+\def\dtl@test@ifuppercase#1#2\end{%
+\def\dtl@tc@rest{#2}%
+\IfSubStringInString{\string\MakeUppercase}{#1#2}{%
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testifuppernext=\relax
+}{%
+ \IfSubStringInString{\string\MakeTextUppercase}{#1#2}{%
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testifuppernext=\relax
+ }{%
+ \edef\dtl@uccode{\the\uccode`#1}%
+ \edef\dtl@code{\number`#1}%
+ \ifnum\dtl@code=\dtl@uccode\relax
+ \@dtl@conditiontrue
+ \let\dtl@testifuppernext=\dtl@testifuppercase
+ \else
+ \ifnum\dtl@uccode=0\relax
+ \@dtl@conditiontrue
+ \let\dtl@testifuppernext=\dtl@testifuppercase
+ \else
+ \@dtl@conditionfalse
+ \let\dtl@testifuppernext=\@dtl@gobbletonil
+ \fi
+ \fi
+}}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLifAllLowerCase}
+%\begin{definition}
+%\cs{DTLifAllLowerCase}\marg{string}\marg{true part}\marg{false part}
+%\end{definition}
+% If \meta{string} only contains lowercase characters do \meta{true
+%part}, otherwise do \meta{false part}.
+% \begin{macrocode}
+\newcommand*{\DTLifAllLowerCase}[3]{%
+\protected@edef\dtl@tlc{#1}%
+\expandafter\dtl@testiflowercase\dtl@tlc\@nil\relax
+\if@dtl@condition#2\else#3\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testifalllowercase}
+% \begin{macrocode}
+\def\dtl@testiflowercase#1#2{%
+\def\dtl@argi{#1}%
+\def\dtl@argii{#2}%
+\ifx\dtl@argi\@nnil
+ \let\dtl@testiflowernext=\@nnil
+\else
+ \ifx#1\protect
+ \let\dtl@testiflowernext=\dtl@testiflowercase
+ \else
+ \ifx\lowercase#1\relax
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testiflowernext=\relax
+ \else
+ \edef\dtl@tc@arg{\string#1}%
+ \expandafter\dtl@test@iflowercase\dtl@tc@arg\end
+ \ifx\dtl@argii\@nnil
+ \let\dtl@testiflowernext=\@dtl@gobbletonil
+ \fi
+ \fi
+ \fi
+\fi
+\ifx\dtl@testiflowernext\relax
+ \edef\dtl@dotestiflowernext{%
+ \noexpand\dtl@testiflowercase}%
+\else
+ \ifx\dtl@testiflowernext\@nnil
+ \edef\dtl@dotestiflowernext{#2}%
+ \else
+ \expandafter\toks@\expandafter{\dtl@tc@rest}%
+ \@dtl@toks{#2}%
+ \edef\dtl@dotestiflowernext{%
+ \noexpand\dtl@testiflowernext\the\toks@\the\@dtl@toks}%
+ \fi
+\fi
+\dtl@dotestiflowernext
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@test@ifalllowercase}
+% \begin{macrocode}
+\def\dtl@test@iflowercase#1#2\end{%
+\def\dtl@tc@rest{#2}%
+\IfSubStringInString{\string\MakeLowercase}{#1#2}{%
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testiflowernext=\relax
+}{%
+ \IfSubStringInString{\string\MakeTextLowercase}{#1#2}{%
+ \@dtl@conditiontrue
+ \def\dtl@tc@rest{}%
+ \let\dtl@testiflowernext=\relax
+ }{%
+ \edef\dtl@lccode{\the\lccode`#1}%
+ \edef\dtl@code{\number`#1}%
+ \ifnum\dtl@code=\dtl@lccode\relax
+ \@dtl@conditiontrue
+ \let\dtl@testiflowernext=\dtl@testiflowercase
+ \else
+ \ifnum\dtl@lccode=0\relax
+ \@dtl@conditiontrue
+ \let\dtl@testiflowernext=\dtl@testiflowercase
+ \else
+ \@dtl@conditionfalse
+ \let\dtl@testiflowernext=\@dtl@gobbletonil
+ \fi
+ \fi
+}}}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Saving a database to an external file}
+%
+%\begin{macro}{\@dtl@write}
+% \begin{macrocode}
+\newwrite\@dtl@write
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsavedb}
+%\begin{definition}
+% \cs{DTLsavedb}\marg{db name}\marg{filename}
+%\end{definition}
+% Save a database as an ASCII data file using the separator
+% and delimiter given by \cs{@dtl@separator} and \cs{@dtl@delimiter}.
+% \begin{macrocode}
+\newcommand*{\DTLsavedb}[2]{%
+\DTLifdbexists{#1}{%
+\openout\@dtl@write=#2%
+\edef\@dtl@keys{\csname dtlkeys@#1\endcsname}%
+\def\@dtl@header{}%
+\@for\@dtl@key:=\@dtl@keys\do{%
+\expandafter\@dtl@toks\expandafter{\@dtl@header}%
+\ifx\@dtl@header\@empty
+ \IfSubStringInString{\@dtl@separator}{\@dtl@key}{%
+ \protected@edef\@dtl@header{%
+ \@dtl@delimiter\@dtl@key\@dtl@delimiter}%
+ }{%
+ \protected@edef\@dtl@header{\@dtl@key}%
+ }%
+\else
+ \IfSubStringInString{\@dtl@separator}{\@dtl@key}{%
+ \protected@edef\@dtl@header{\the\@dtl@toks\@dtl@separator
+ \@dtl@delimiter\@dtl@key\@dtl@delimiter}%
+ }{%
+ \protected@edef\@dtl@header{\the\@dtl@toks\@dtl@separator
+ \@dtl@key}%
+ }%
+\fi
+}%
+\protected@write\@dtl@write{}{\@dtl@header}%
+\expandafter\let\expandafter\@dtl@db\csname dtldb@#1\endcsname%
+\@for\@dtl@currentrow:=\@dtl@db\do{%
+\dtl@gathervalues{#1}{\@dtl@currentrow}%
+\def\@dtl@outputrow{}%
+\@for\@dtl@key:=\@dtl@keys\do{%
+\protected@edef\@dtl@element{\csname @dtl@key@\@dtl@key\endcsname}%
+\expandafter\@dtl@toks\expandafter{\@dtl@outputrow}%
+\ifx\@dtl@outputrow\@empty
+ \IfSubStringInString{\@dtl@separator}{\@dtl@element}{%
+ \protected@edef\@dtl@outputrow{%
+ \@dtl@delimiter\@dtl@element\@dtl@delimiter}%
+ }{%
+ \protected@edef\@dtl@outputrow{\@dtl@element}%
+ }%
+\else
+ \IfSubStringInString{\@dtl@separator}{\@dtl@element}{%
+ \protected@edef\@dtl@outputrow{\the\@dtl@toks\@dtl@separator
+ \@dtl@delimiter\@dtl@element\@dtl@delimiter}%
+ }{%
+ \protected@edef\@dtl@outputrow{\the\@dtl@toks\@dtl@separator
+ \@dtl@element}%
+ }%
+\fi
+}%
+\protected@write\@dtl@write{}{\@dtl@outputrow}%
+}%
+\closeout\@dtl@write
+}{%
+\PackageError{datatool}{Database `#1' doesn't exist}{}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsavetexdb}
+%\begin{definition}
+% \cs{DTLsavetexdb}\marg{db name}\marg{filename}
+%\end{definition}
+% Save a database as a \LaTeX\ file.
+% \begin{macrocode}
+\newcommand*{\DTLsavetexdb}[2]{%
+\DTLifdbexists{#1}{%
+\def\@dtl@dbname{#1}%
+\openout\@dtl@write=#2%
+\edef\@dtl@keys{\csname dtlkeys@#1\endcsname}%
+\protected@write\@dtl@write{}{\string\DTLnewdb{#1}}%
+\expandafter\let\expandafter\@dtl@db\csname dtldb@#1\endcsname%
+\@for\@dtl@currentrow:=\@dtl@db\do{%
+\dtl@gathervalues{#1}{\@dtl@currentrow}%
+\protected@write\@dtl@write{}{\string\DTLnewrow{#1}}%
+\@for\@dtl@key:=\@dtl@keys\do{%
+\expandafter\DTLifnull\csname @dtl@key@\@dtl@key\endcsname
+{}{%
+\protected@edef\@dtl@element{\csname @dtl@key@\@dtl@key\endcsname}%
+\protected@write\@dtl@write{}{\string\DTLnewdbentry
+ {#1}{\@dtl@key}{\@dtl@element}}%
+}%
+}%
+}%
+\closeout\@dtl@write
+}{%
+\PackageError{datatool}{Database `#1' doesn't exist}{}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Loading a database from an external file}
+%
+%\begin{macro}{\@dtl@read}
+% \begin{macrocode}
+\newread\@dtl@read
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@entrycr}
+% Keep track of current column in data file
+% \begin{macrocode}
+\newcount\dtl@entrycr
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLloaddb}
+%\begin{definition}
+% \cs{DTLloaddb}\marg{db name}\marg{filename}
+%\end{definition}
+% Creates a new database called \meta{db name}, and load the data in
+% \meta{filename} into it. The separator and delimiter used in
+% the file must match \cs{@dtl@separator} and \cs{@dtl@delimiter}.
+% \begin{macrocode}
+\gdef\DTLloaddb#1#2{%
+\IfFileExists{#2}{%
+\begingroup
+\catcode`\"12\relax
+\openin\@dtl@read=#2%
+\dtl@message{Reading `#2'}%
+\DTLnewdb{#1}%
+\ifeof\@dtl@read
+\else
+ \loop
+ \@dtl@conditionfalse
+ \ifeof\@dtl@read
+ \else
+ \read\@dtl@read to \@dtl@line
+ \dtl@trim\@dtl@line
+ \if\@dtl@line\par
+ \@dtl@conditiontrue
+ \fi
+ \fi
+ \if@dtl@condition
+ \repeat
+ \ifeof\@dtl@read
+ \else
+ \protected@edef\@dtl@lin@{\@dtl@separator\@dtl@line\@dtl@separator}%
+ \@dtl@tmpcount=0\relax
+ \whiledo{\not\equal{\@dtl@lin@}{\@dtl@separator}}{%
+ \expandafter\@dtl@lopoff\@dtl@lin@\to\@dtl@lin@\@dtl@key
+ \advance\@dtl@tmpcount by 1\relax
+ \expandafter\@dtl@toks\expandafter{\@dtl@key}%
+ \expandafter
+ \edef\csname @dtl@inky@\romannumeral\@dtl@tmpcount\endcsname{%
+ \the\@dtl@toks}%
+ }%
+ \ifeof\@dtl@read
+ \else
+ \@dtl@conditiontrue
+ \loop
+ \read\@dtl@read to \@dtl@line
+ \dtl@trim\@dtl@line
+ \ifthenelse{\equal{\@dtl@line}{}}{}%
+ {%
+ \DTLnewrow{#1}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@line}%
+ \edef\@dtl@lin@{\@dtl@separator\the\@dtl@toks
+ \@dtl@separator}%
+ \dtl@entrycr=0\relax
+ \whiledo{\not\equal{\@dtl@lin@}{\@dtl@separator}}{%
+ \expandafter\@dtl@lopoff\@dtl@lin@\to
+ \@dtl@lin@\@dtl@thisentry
+ \advance\dtl@entrycr by 1\relax
+ \edef\@dtl@thiskey{%
+ \csname @dtl@inky@\romannumeral\dtl@entrycr\endcsname}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@thisentry}%
+ \edef\@do@dtlnewentry{\noexpand\DTLnewdbentry
+ {#1}{\@dtl@thiskey}{\the\@dtl@toks}}%
+ \@do@dtlnewentry
+ }%
+ }%
+ \ifeof\@dtl@read \@dtl@conditionfalse\fi
+ \if@dtl@condition
+ \repeat
+ \fi
+ \fi
+\fi
+\closein\@dtl@read
+\endgroup
+}{%
+\PackageError{datatool}{Can't load database `#1' (file `#2'
+doesn't exist)}{}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@trim}
+%\begin{definition}
+%\cs{dtl@trim}\marg{line}
+%\end{definition}
+% Trims the trailing space from \meta{line}.
+% \begin{macrocode}
+\newcommand{\dtl@trim}[1]{%
+\def\@dtl@trmstr{}%
+\expandafter\@dtl@starttrim#1\@nil%
+\let#1=\@dtl@trmstr
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@starttrim}
+% Start trimming
+% \begin{macrocode}
+\long\def\@dtl@starttrim#1#2{%
+\ifx\par#1%
+ \def\@dtl@dotrim{\@dtl@trim{} #2}%
+\else
+ \def\@dtl@dotrim{\@dtl@trim#1#2}%
+\fi
+\@dtl@dotrim%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@trim}
+% \begin{macrocode}
+\long\def\@dtl@trim#1 \@nil{\long\def\@dtl@trmstr{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLloadrawdb}
+%\begin{definition}
+%\cs{DTLloadrawdb}\marg{db name}\marg{filename}
+%\end{definition}
+% Loads a raw database (substitutes "%" $\to$ "\%",
+% "$" $\to$ "\$", "&" $\to$ "\&", "#" $\to$ "\#",
+% "~" $\to$ "\textasciitilde", "_" $\to$ "\_"
+% and "^" $\to$ "\textasciicircum".)
+% \begin{macrocode}
+\gdef\DTLloadrawdb#1#2{%
+\IfFileExists{#2}{%
+\openin\@dtl@read=#2%
+\dtl@message{Reading `#2'}%
+\DTLnewdb{#1}%
+\ifeof\@dtl@read
+\else
+ \loop
+ \@dtl@conditionfalse
+ \ifeof\@dtl@read
+ \else
+ \@dtl@rawread\@dtl@read to\@dtl@line
+ \dtl@trim\@dtl@line
+ \if\@dtl@line\par
+ \@dtl@conditiontrue
+ \fi
+ \fi
+ \if@dtl@condition
+ \repeat
+ \ifeof\@dtl@read
+ \else
+ \dtl@domappings\@dtl@line
+ \protected@edef\@dtl@lin@{\@dtl@separator\@dtl@line\@dtl@separator}%
+ \@dtl@tmpcount=0\relax
+ \whiledo{\not\equal{\@dtl@lin@}{\@dtl@separator}}{%
+ \expandafter\@dtl@lopoff\@dtl@lin@\to\@dtl@lin@\@dtl@key
+ \advance\@dtl@tmpcount by 1\relax
+ \expandafter\@dtl@toks\expandafter{\@dtl@key}%
+ \expandafter
+ \edef\csname @dtl@inky@\romannumeral\@dtl@tmpcount\endcsname{%
+ \the\@dtl@toks}%
+ }%
+ \ifeof\@dtl@read
+ \else
+ \@dtl@conditiontrue
+ \loop
+ \@dtl@rawread\@dtl@read to\@dtl@line
+ \dtl@trim\@dtl@line
+ \ifthenelse{\equal{\@dtl@line}{}}{}%
+ {%
+ \DTLnewrow{#1}%
+ \dtl@domappings\@dtl@line
+ \expandafter\@dtl@toks\expandafter{\@dtl@line}%
+ \edef\@dtl@lin@{\@dtl@separator\the\@dtl@toks
+ \@dtl@separator}%
+ \dtl@entrycr=0\relax
+ \whiledo{\not\equal{\@dtl@lin@}{\@dtl@separator}}{%
+ \expandafter\@dtl@lopoff\@dtl@lin@\to
+ \@dtl@lin@\@dtl@thisentry
+ \advance\dtl@entrycr by 1\relax
+ \edef\@dtl@thiskey{%
+ \csname @dtl@inky@\romannumeral\dtl@entrycr\endcsname}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@thisentry}%
+ \edef\@do@dtlnewentry{\noexpand\DTLnewdbentry
+ {#1}{\@dtl@thiskey}{\the\@dtl@toks}}%
+ \@do@dtlnewentry
+ }%
+ }%
+ \ifeof\@dtl@read \@dtl@conditionfalse\fi
+ \if@dtl@condition
+ \repeat
+ \fi
+ \fi
+\fi
+\closein\@dtl@read
+}{%
+\PackageError{datatool}{Can't load database `#1' (file `#2'
+doesn't exist)}{}%
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@rawread}
+%\begin{definition}
+% \cs{@dtl@rawread}\meta{number}to\meta{cmd}
+%\end{definition}
+% Reads in a raw line from file given by \meta{number}
+% converts special characters and stores in \meta{cmd}
+% \begin{macrocode}
+\begingroup
+\catcode`\%=\active
+\catcode`$=\active
+\catcode`&=\active
+\catcode`~=\active
+\catcode`_=\active
+\catcode`^=\active
+\catcode`#=\active
+\catcode`?=6\relax
+\catcode`<=1\relax
+\catcode`>=2\relax
+\catcode`\{=\active
+\catcode`\}=\active
+\gdef\@dtl@rawread?1to?2<\relax
+<<\catcode`\%=\active
+\catcode`$=\active
+\catcode`&=\active
+\catcode`~=\active
+\catcode`_=\active
+\catcode`^=\active
+\catcode`#=\active
+\catcode`\{=\active
+\catcode`\}=\active
+\def%<\noexpand\%>\relax
+\def$<\noexpand\$>\relax
+\def&<\&>\relax
+\def#<\#>\relax
+\def~<\noexpand\textasciitilde>\relax
+\def_<\noexpand\_>\relax
+\def^<\noexpand\textasciicircum>\relax
+\@dtl@activatebraces
+\@dtl@doreadraw?1?2>>>
+\gdef\@dtl@doreadraw?1?2<\relax
+\read?1 to \tmp
+\xdef?2<\tmp>\relax
+>
+\endgroup
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@activatebraces}
+% \cs{@dtl@activatebraces} resets braces for \cs{@dtl@rawread}
+% \begin{macrocode}
+\begingroup
+\catcode`\{=\active
+\catcode`\}=\active
+\catcode`<=1\relax
+\catcode`>=2\relax
+\gdef\@dtl@activatebraces<%
+ \catcode`\{=\active
+ \catcode`\}=\active
+ \def{<\noexpand\{>%
+ \def}<\noexpand\}>%
+>%
+\endgroup
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLrawmap}
+%\begin{definition}
+%\cs{DTLrawmap}\marg{string}\marg{replacement}
+%\end{definition}
+% Additional mappings to perform when reading a raw data file
+% \begin{macrocode}
+\newcommand*{\DTLrawmap}[2]{%
+\expandafter\@dtl@toks\expandafter{\@dtl@rawmappings}%
+\ifx\@dtl@rawmappings\@empty
+ \def\@dtl@rawmappings{{#1}{#2}}%
+\else
+ \def\@dtl@tmp{{#1}{#2}}
+ \protected@edef\@dtl@rawmappings{\the\@dtl@toks,\@dtl@tmp}
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@rawmappings}
+% List of mappings.
+% \begin{macrocode}
+\newcommand*{\@dtl@rawmappings}{}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@domappings}
+%\begin{definition}
+% \cs{dtl@domappings}\marg{cmd}
+%\end{definition}
+% Do all mappings in string given by \meta{cmd}.
+% \begin{macrocode}
+\newcommand*{\dtl@domappings}[1]{%
+\@for\@dtl@map:=\@dtl@rawmappings\do{%
+ \expandafter\DTLsubstitute\expandafter#1\@dtl@map
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsubstitute}
+%\begin{definition}
+%\cs{DTLsubstitute}\marg{cmd}\marg{original}\marg{replacement}
+%\end{definition}
+% Substitutes first occurence of \meta{original} with
+% \marg{replacement} within the string given by \meta{cmd}
+% \begin{macrocode}
+\newcommand{\DTLsubstitute}[3]{%
+\expandafter\DTLsplitstring\expandafter
+ {#1}{#2}{\@dtl@beforepart}{\@dtl@afterpart}%
+\ifx\@dtl@replaced\@empty
+\else
+ \def#1{}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@beforepart}%
+ \expandafter\toks@\expandafter{#1}%
+ \protected@edef#1{\the\toks@\the\@dtl@toks#3}%
+ \expandafter\@dtl@toks\expandafter{\@dtl@afterpart}%
+ \expandafter\toks@\expandafter{#1}%
+ \edef#1{\the\toks@\the\@dtl@toks}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsplitstring}
+%\begin{definition}
+%\cs{DTLsplitstring}\marg{string}\marg{split text}\marg{before
+%cmd}\marg{after cmd}
+%\end{definition}
+% Splits string at \meta{split text} stores the pre split text
+% in \meta{before cmd} and the post split text in \meta{after cmd}.
+%\changes{1.01}{2007 Aug 17}{new}
+% \begin{macrocode}
+\newcommand*{\DTLsplitstring}[4]{%
+\def\dtl@splitstr##1#2##2\@nil{%
+\def#3{##1}%
+\def#4{##2}%
+\ifx#4\@empty
+ \let\@dtl@replaced=\@empty
+\else
+ \def\@dtl@replaced{#2}%
+ \dtl@split@str##2\@nil
+\fi
+}%
+\def\dtl@split@str##1#2\@nil{%
+\def#4{##1}}%
+\dtl@splitstr#1#2\@nil
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsubstituteall}
+%\begin{definition}
+%\cs{DTLsubstituteall}\marg{cmd}\marg{original}\marg{replacement}
+%\end{definition}
+% Substitutes all occurences of \meta{original} with
+% \marg{replacement} within the string given by \meta{cmd}
+%\changes{1.01}{2007 Aug 17}{fixed bug caused when certain commands
+% occur in the string}
+% \begin{macrocode}
+\newcommand{\DTLsubstituteall}[3]{%
+\def\@dtl@splitsubstr{}%
+\let\@dtl@afterpart=#1\relax
+\@dtl@dosubstitute{#2}{#3}%
+\expandafter\toks@\expandafter{\@dtl@splitsubstr}%
+\expandafter\@dtl@toks\expandafter{\@dtl@afterpart}%
+\edef#1{\the\toks@\the\@dtl@toks}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@dosubstitute}
+% Recursive substitution macro.
+% \begin{macrocode}
+\def\@dtl@dosubstitute#1#2{%
+\expandafter\DTLsplitstring\expandafter
+ {\@dtl@afterpart}{#1}{\@dtl@beforepart}{\@dtl@afterpart}%
+\expandafter\toks@\expandafter{\@dtl@splitsubstr}%
+\expandafter\@dtl@toks\expandafter{\@dtl@beforepart}%
+\edef\@dtl@splitsubstr{\the\toks@\the\@dtl@toks}%
+\ifx\@dtl@replaced\@empty
+ \let\@dtl@dosubstnext=\@dtl@dosubstitutenoop
+\else
+ \expandafter\toks@\expandafter{\@dtl@splitsubstr}%
+ \@dtl@toks{#2}%
+ \edef\@dtl@splitsubstr{\the\toks@\the\@dtl@toks}%
+ \let\@dtl@dosubstnext=\@dtl@dosubstitute
+\fi
+\@dtl@dosubstnext{#1}{#2}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@dosubstitutenoop}
+% Terminates recursive substitution macro.
+% \begin{macrocode}
+\def\@dtl@dosubstitutenoop#1#2{}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Currencies}
+%\begin{macro}{\@dtl@currencies}
+% \cs{@dtl@currencies} stores all known currencies.
+% \begin{macrocode}
+\newcommand*{\@dtl@currencies}{\$,\pounds}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLnewcurrencysymbol}
+%\begin{definition}
+% \cs{DTLaddcurrency}\marg{symbol}
+%\end{definition}
+% Adds \meta{symbol} to the list of known currencies
+% \begin{macrocode}
+\newcommand*{\DTLnewcurrencysymbol}[1]{%
+\expandafter\toks@\expandafter{\@dtl@currencies}%
+\@dtl@toks{#1}%
+\edef\@dtl@currencies{\the\@dtl@toks,\the\toks@}%
+}
+% \end{macrocode}
+%\end{macro}
+% If any of the following currency commands have been defined,
+% add them to the list:
+% \begin{macrocode}
+\AtBeginDocument{%
+\@ifundefined{texteuro}{}{\DTLnewcurrencysymbol{\texteuro}}%
+\@ifundefined{textdollar}{}{\DTLnewcurrencysymbol{\textdollar}}%
+\@ifundefined{textstirling}{}{\DTLnewcurrencysymbol{\textstirling}}%
+\@ifundefined{textyen}{}{\DTLnewcurrencysymbol{\textyen}}%
+\@ifundefined{textwon}{}{\DTLnewcurrencysymbol{\textwon}}%
+\@ifundefined{textcurrency}{}{\DTLnewcurrencysymbol{\textcurrency}}%
+\@ifundefined{euro}{}{\DTLnewcurrencysymbol{\euro}}%
+\@ifundefined{yen}{}{\DTLnewcurrencysymbol{\yen}}%
+}
+% \end{macrocode}
+%\begin{macro}{\@dtl@standardize@currency}
+%\begin{definition}
+%\cs{@dtl@standardize@currency}\marg{cmd}
+%\end{definition}
+% Substitutes the first currency symbol found in \meta{cmd}
+% with "\$". This is used when testing text to determine
+% if it is currency. The original currency symbol is stored
+% in \cs{@dtl@org@currency}, so that it can be replaced later.
+% If no currency symbol is found, \cs{@dtl@org@currency} will
+% be empty.
+% \begin{macrocode}
+\newcommand{\@dtl@standardize@currency}[1]{%
+\def\@dtl@org@currency{}%
+\@for\@dtl@thiscurrency:=\@dtl@currencies\do{%
+ \expandafter\toks@\expandafter{\@dtl@thiscurrency}%
+ \edef\@dtl@dosubs{\noexpand\DTLsubstitute{\noexpand#1}%
+ {\the\toks@}{\noexpand\$}}%
+ \@dtl@dosubs
+ \ifx\@dtl@replaced\@empty
+ \else
+ \let\@dtl@org@currency=\@dtl@replaced
+ \@endfortrue
+ \fi
+}%
+\@endforfalse}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@currency}
+%\cs{@dtl@currency} is set by \cs{DTLlocaltodecimal} and
+%\cs{@dtl@checknumerical}. It is used by \cs{DTLdecimaltocurrency}.
+% Set to "\$" by default.
+% \begin{macrocode}
+\newcommand*{\@dtl@currency}{\$}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLsetdefaultcurrency}
+%\cs{DTLsetdefaultcurrency}\marg{symbol} sets the default currency.
+% \begin{macrocode}
+\newcommand*{\DTLsetdefaultcurrency}[1]{%
+\renewcommand*{\@dtl@currency}{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@ifsingle}
+%\begin{definition}
+%\cs{dtl@ifsingle}\marg{arg}\marg{true part}\marg{false part}
+%\end{definition}
+% If there is only one object in \meta{arg} (without expansion)
+% do \meta{true part}, otherwise do false part.
+% \begin{macrocode}
+\newcommand{\dtl@ifsingle}[3]{%
+\def\@dtl@arg{#1}%
+\ifx\@dtl@arg\@empty
+ #3%
+\else
+ \@dtl@ifsingle#1\@nil{#2}{#3}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@dtl@ifsingle}
+% \begin{macrocode}
+\def\@dtl@ifsingle#1#2\@nil#3#4{%
+\def\dtl@sg@arg{#2}%
+\ifx\dtl@sg@arg\@empty
+ #3%
+\else
+ #4%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Debugging commands}
+% These commands are provided to assist debugging
+%\begin{macro}{\dtlshowdb}
+%\begin{definition}
+%\cs{dtlshowdb}\marg{db name}
+%\end{definition}
+% Shows the database.
+% \begin{macrocode}
+\newcommand*{\dtlshowdb}[1]{%
+\expandafter\show\csname dtldb@#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtlshowdbkeys}
+%\begin{definition}
+%\cs{dtlshowdbkeys}\marg{db name}
+%\end{definition}
+% Shows the key list for the named database.
+% \begin{macrocode}
+\newcommand*{\dtlshowdbkeys}[1]{%
+\expandafter\show\csname dtlkeys@#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtlshowtype}
+%\begin{definition}
+%\cs{dtlshowtype}\marg{db name}\marg{key}
+%\end{definition}
+% Show the data type for given key in the named database.
+% This should be an integer from 0 to 3.
+% \begin{macrocode}
+\newcommand*{\dtlshowtype}[2]{%
+\expandafter\show\csname @dtl@idtype@#1@#2\endcsname}
+% \end{macrocode}
+%\end{macro}
+%\iffalse
+% \begin{macrocode}
+%</datatool.sty>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%<*datapie.sty>
+% \end{macrocode}
+%\fi
+%\section{datapie.sty}
+% Declare package:
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{datapie}[2007/08/17 v1.01 (NLCT)]
+% \end{macrocode}
+% Require \sty{xkeyval} package
+% \begin{macrocode}
+\RequirePackage{xkeyval}
+% \end{macrocode}
+%\begin{macro}{\ifDTLcolorpiechart}
+% The conditional \cs{ifDTLcolorpiechart} is to determine
+% whether to use colour or grey scale.
+% \begin{macrocode}
+\newif\ifDTLcolorpiechart
+\DTLcolorpiecharttrue
+% \end{macrocode}
+%\end{macro}
+% Package options to change the conditional:
+% \begin{macrocode}
+\DeclareOption{color}{\DTLcolorpiecharttrue}
+\DeclareOption{gray}{\DTLcolorpiechartfalse}
+% \end{macrocode}
+%\begin{macro}{\ifDTLrotateinner}
+% Define boolean keys to govern label rotations.
+% \begin{macrocode}
+\define@boolkey{datapie}[DTL]{rotateinner}[true]{}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLrotateouter}
+% \begin{macrocode}
+\define@boolkey{datapie}[DTL]{rotateouter}[true]{}
+% \end{macrocode}
+%\end{macro}
+% Set defaults:
+% \begin{macrocode}
+\DTLrotateinnerfalse
+\DTLrotateouterfalse
+% \end{macrocode}
+% Package options to change \cs{DTLrotateinner}
+% \begin{macrocode}
+\DeclareOption{rotateinner}{\DTLrotateinnertrue}
+\DeclareOption{norotateinner}{\DTLrotateinnerfalse}
+% \end{macrocode}
+% Package options to change \cs{DTLrotateouter}
+% \begin{macrocode}
+\DeclareOption{rotateouter}{\DTLrotateoutertrue}
+\DeclareOption{norotateouter}{\DTLrotateouterfalse}
+% \end{macrocode}
+% Process options:
+% \begin{macrocode}
+\ProcessOptions
+% \end{macrocode}
+% Required packages:
+% \begin{macrocode}
+\RequirePackage{datatool}
+\RequirePackage{tikz}
+% \end{macrocode}
+% Define some variables that govern the appearance of the pie
+% chart.
+%
+%\begin{macro}{\DTLradius}
+% The radius of the pie chart is given by \cs{DTLradius}.
+% \begin{macrocode}
+\newlength\DTLradius
+\DTLradius=2cm
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLinnerratio}
+% The inner label offset ratio is given by \cs{DTLinnerratio}
+% \begin{macrocode}
+\newcommand*{\DTLinnerratio}{0.5}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLouterratio}
+% The outer label offset ratio is given by \cs{DTLouterratio}.
+% \begin{macrocode}
+\newcommand*{\DTLouterratio}{1.25}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLcutawayratio}
+% The cutaway offset ratio is given by \cs{DTLcutawayratio}.
+% \begin{macrocode}
+\newcommand*\DTLcutawayratio{0.2}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLstartangle}
+% The angle of the first segment is given by \cs{DTLstartangle}.
+% \begin{macrocode}
+\newcommand*{\DTLstartangle}{0}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@inneroffset}
+% \begin{macrocode}
+\newlength\dtl@inneroffset
+\dtl@inneroffset=\DTLinnerratio\DTLradius
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@outeroffset}
+% \begin{macrocode}
+\newlength\dtl@outeroffset
+\dtl@outeroffset=\DTLouterratio\DTLradius
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@cutawayoffset}
+% \begin{macrocode}
+\newlength\dtl@cutawayoffset
+\dtl@cutawayoffset=\DTLcutawayratio\DTLradius
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@piecutaways}
+% \cs{dtl@piecutaways} is a comma separated list of segments that
+% need to be cut away from the pie chart.
+% \begin{macrocode}
+\newcommand*{\dtl@piecutaways}{}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@innerlabel}
+% \cs{dtl@innerlabel} specifies the label to appear inside
+% the segment. By default this is the variable used to create
+% the pie chart.
+% \begin{macrocode}
+\def\dtl@innerlabel{\DTLpievariable}%
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@outerlabel}
+% \begin{macrocode}
+\def\dtl@outerlabel{}%
+% \end{macrocode}
+%\end{macro}
+% \counterfmt{DTLpieroundvar} is a counter governing the number of digits
+% to round to when using \cs{FPround}.
+% \begin{macrocode}
+\newcounter{DTLpieroundvar}
+\setcounter{DTLpieroundvar}{1}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLdisplayinnerlabel}
+%\begin{definition}
+%\cs{DTLdisplayinnerlabel}\marg{label}
+%\end{definition}
+% This is used to format the inner label. This just does the
+% label by default.
+% \begin{macrocode}
+\newcommand*{\DTLdisplayinnerlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdisplayouterlabel}
+%\begin{definition}
+%\cs{DTLdisplayouterlabel}\marg{label}
+%\end{definition}
+% This is used to format the outer label. This just does the
+% label by default.
+% \begin{macrocode}
+\newcommand*{\DTLdisplayouterlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLpiepercent}
+%\cs{DTLpiepercent}
+% returns the percentage value of the current segment.
+% \begin{macrocode}
+\newcommand*{\DTLpiepercent}{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datapie}{Can't use
+ \string\DTLpiepercent\space outside
+ \string\DTLpiechart}{}%
+\else
+ \csname dtl@piepercent@\romannumeral\@dtl@seg\endcsname
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLpieatbegintikz}
+% \cs{DTLpieatbegintikz} specifies any commands
+% to apply at the start of the \env{tikzpicture} environment.
+% By default it does nothing.
+% \begin{macrocode}
+\newcommand*{\DTLpieatbegintikz}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLpieatendtikz}
+% \cs{DTLpieatendtikz} specifies any commands
+% to apply at the end of the \env{tikzpicture} environment.
+% By default it does nothing.
+% \begin{macrocode}
+\newcommand*{\DTLpieatendtikz}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsetpiesegmentcolor}
+%\begin{definition}
+% \cs{DTLsetpiesegmentcolor}\marg{n}\marg{color}
+%\end{definition}
+% Assign colour name \meta{color} to the \meta{n}th segment.
+% \begin{macrocode}
+\newcommand*{\DTLsetpiesegmentcolor}[2]{%
+\expandafter\def\csname dtlpie@segcol\romannumeral#1\endcsname{#2}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLgetpiesegmentcolor}
+%\begin{definition}
+%\cs{DTLgetpiesegmentcolor}\marg{n}
+%\end{definition}
+% Get the colour specification for segment \meta{n}
+% \begin{macrocode}
+\newcommand*{\DTLgetpiesegmentcolor}[1]{%
+\csname dtlpie@segcol\romannumeral#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdopiesegmentcolor}
+%\begin{definition}
+%\cs{DTLdopiesegmentcolor}\marg{n}
+%\end{definition}
+% Set the colour to that for segment \meta{n}
+% \begin{macrocode}
+\newcommand*{\DTLdopiesegmentcolor}[1]{%
+\expandafter\color\expandafter
+{\csname dtlpie@segcol\romannumeral#1\endcsname}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLdocurrentpiesegmentcolor}
+%\cs{DTLdocurrentpiesegmentcolor}
+% sets the colour to that of the current segment.
+% \begin{macrocode}
+\newcommand*{\DTLdocurrentpiesegmentcolor}{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{datapie}{Can't use
+ \string\DTLdocurrentpiesegmentcolor\space outside
+ \string\DTLpiechart}{}%
+\else
+ \expandafter\DTLdopiesegmentcolor\expandafter{%
+ \csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname}%
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLpieoutlinecolor}
+%\cs{DTLpieoutlinecolor} specifies what colour to draw the
+% outline.
+% \begin{macrocode}
+\newcommand*{\DTLpieoutlinecolor}{black}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLpieoutlinewidth}
+%\cs{DTLpieoutlinewidth} specifies the line width of the outline:
+% Outline is only drawn if the linewidth is greater than 0pt.
+% \begin{macrocode}
+\newlength\DTLpieoutlinewidth
+\DTLpieoutlinewidth=0pt
+% \end{macrocode}
+%\end{macro}
+%
+% Set the default colours. If there are more than eight segments,
+% more colours will need to be defined.
+% \begin{macrocode}
+\ifDTLcolorpiechart
+ \DTLsetpiesegmentcolor{1}{red}
+ \DTLsetpiesegmentcolor{2}{green}
+ \DTLsetpiesegmentcolor{3}{blue}
+ \DTLsetpiesegmentcolor{4}{yellow}
+ \DTLsetpiesegmentcolor{5}{magenta}
+ \DTLsetpiesegmentcolor{6}{cyan}
+ \DTLsetpiesegmentcolor{7}{orange}
+ \DTLsetpiesegmentcolor{8}{white}
+\else
+ \DTLsetpiesegmentcolor{1}{black!15}
+ \DTLsetpiesegmentcolor{2}{black!25}
+ \DTLsetpiesegmentcolor{3}{black!35}
+ \DTLsetpiesegmentcolor{4}{black!45}
+ \DTLsetpiesegmentcolor{5}{black!55}
+ \DTLsetpiesegmentcolor{6}{black!65}
+ \DTLsetpiesegmentcolor{7}{black!75}
+ \DTLsetpiesegmentcolor{8}{black!85}
+\fi
+% \end{macrocode}
+% Define keys for \cs{DTLpiechart} optional argument.
+% Set the starting angle of the first segment.
+% \begin{macrocode}
+\define@key{datapie}{start}{\def\DTLstartangle{#1}}
+% \end{macrocode}
+% Set the radius of the pie chart (must be set prior to
+% inneroffset and outeroffset keys.)
+% \begin{macrocode}
+\define@key{datapie}{radius}{\DTLradius=#1\relax
+\dtl@inneroffset=\DTLinnerratio\DTLradius
+\dtl@outeroffset=\DTLouterratio\DTLradius
+\dtl@cutawayoffset=\DTLcutawayratio\DTLradius}
+% \end{macrocode}
+% Set the inner ratio.
+% \begin{macrocode}
+\define@key{datapie}{innerratio}{%
+\def\DTLinnerratio{#1}%
+\dtl@inneroffset=\DTLinnerratio\DTLradius}
+% \end{macrocode}
+% Set the outer ratio
+% \begin{macrocode}
+\define@key{datapie}{outerratio}{%
+\def\DTLouterratio{#1}%
+\dtl@outeroffset=\DTLouterratio\DTLradius}
+% \end{macrocode}
+% The cutaway offset ratio
+% \begin{macrocode}
+\define@key{datapie}{cutawayratio}{%
+\def\DTLcutawayratio{#1}%
+\dtl@cutawayoffset=\DTLcutawayratio\DTLradius}
+% \end{macrocode}
+% Set the inner offset as an absolute value (not dependent
+% on the radius.)
+% \begin{macrocode}
+\define@key{datapie}{inneroffset}{%
+\dtl@inneroffset=#1}
+% \end{macrocode}
+% Set the outer offset as an absolute value (not dependent
+% on the radius.)
+% \begin{macrocode}
+\define@key{datapie}{outeroffset}{%
+\dtl@outeroffset=#1}
+% \end{macrocode}
+% Set the cutaway offset as an absolute value (not dependent
+% on the radius.)
+% \begin{macrocode}
+\define@key{datapie}{cutawayoffset}{%
+\dtl@cutawayoffset=#1}
+% \end{macrocode}
+% List of cut away segments.
+% \begin{macrocode}
+\define@key{datapie}{cutaway}{%
+\renewcommand*{\dtl@piecutaways}{#1}}
+% \end{macrocode}
+% Variable used to create the pie chart. (Must be a control
+% sequence.)
+% \begin{macrocode}
+\define@key{datapie}{variable}{%
+\def\DTLpievariable{#1}}
+% \end{macrocode}
+% Inner label
+% \begin{macrocode}
+\define@key{datapie}{innerlabel}{%
+\def\dtl@innerlabel{#1}}
+% \end{macrocode}
+% Outer label
+% \begin{macrocode}
+\define@key{datapie}{outerlabel}{%
+\def\dtl@outerlabel{#1}}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLpiechart}
+%\begin{definition}
+% \cs{DTLpiechart}\oarg{conditions}\marg{option list}\marg{db name}\marg{assign list}
+%\end{definition}
+% Make a pie chart from data given in data base \meta{db name},
+% where \meta{assign list} is a comma-separated list of
+% \meta{cmd}\texttt{=}\meta{key} pairs. \meta{option list} must
+% include \texttt{variable}\texttt{=}\meta{cmd}, where \meta{cmd}
+% is included in \meta{assign list}. The optional argument
+% \meta{conditions} is the same as that for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLpiechart}[4][\boolean{true}]{%
+{\let\DTLpievariable=\relax
+\setkeys{datapie}{#2}%
+\ifx\DTLpievariable\relax
+ \PackageError{datapie}{\string\DTLpiechart\space missing variable}{}%
+\else
+% \end{macrocode}
+% Compute the total.
+%\changes{1.01}{2007 Aug 17}{uses \cs{@sDTLforeach} instead of
+%\cs{DTLforeach}}
+% \begin{macrocode}
+\def\dtl@total{0}%
+\@sDTLforeach[#1]{#3}{#4}{%
+\let\dtl@oldtotal=\dtl@total
+\expandafter\DTLconverttodecimal\expandafter
+ {\DTLpievariable}{\dtl@variable}%
+\FPadd{\dtl@total}{\dtl@variable}{\dtl@total}%
+}%
+% \end{macrocode}
+% Compute the angles
+% \begin{macrocode}
+\expandafter\DTLconverttodecimal\expandafter
+ {\DTLstartangle}{\@dtl@start}%
+\@sDTLforeach[#1]{#3}{#4}{%
+\expandafter\DTLconverttodecimal\expandafter
+ {\DTLpievariable}{\dtl@variable}%
+\dtl@computeangles{%
+\csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname}{%
+\dtl@variable}%
+\expandafter\@dtl@seg\expandafter=
+\csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname%
+\FPmul{\dtl@tmp}{\dtl@variable}{100}%
+\let\dtl@old=\dtl@tmp
+\FPdiv{\dtl@tmp}{\dtl@old}{\dtl@total}%
+\expandafter\FPround
+\csname dtl@piepercent@\romannumeral\@dtl@seg\endcsname\dtl@tmp
+\c@DTLpieroundvar
+}%
+% \end{macrocode}
+% Compute the offsets for each cut away segment
+% \begin{macrocode}
+\@for\dtl@row:=\dtl@piecutaways\do{%
+\expandafter\@dtl@set@off\dtl@row-\relax
+}%
+% \end{macrocode}
+% Set the starting angle
+% \begin{macrocode}
+\let\dtl@start=\DTLstartangle
+% \end{macrocode}
+% Do the pie chart
+% \begin{macrocode}
+\begin{tikzpicture}
+\DTLpieatbegintikz
+\@sDTLforeach[#1]{#3}{#4}{%
+% \end{macrocode}
+% Store the segment number in \cs{@dtl@seg}
+% \begin{macrocode}
+\expandafter\@dtl@seg\expandafter=
+\csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname%
+% \end{macrocode}
+% Set the start angle.
+% \begin{macrocode}
+\edef\dtl@start{\csname dtl@sang@\romannumeral\@dtl@seg\endcsname}%
+% \end{macrocode}
+% Set the extent
+% \begin{macrocode}
+\edef\dtl@extent{\csname dtl@angle@\romannumeral\@dtl@seg\endcsname}%
+% \end{macrocode}
+% Compute the end angle
+% \begin{macrocode}
+\FPadd{\dtl@endangle}{\dtl@start}{\dtl@extent}%
+% \end{macrocode}
+% Compute the shift.
+% \begin{macrocode}
+\edef\dtl@angle{\csname dtl@cut@angle@\romannumeral\@dtl@seg\endcsname}%
+\let\dtl@old=\dtl@angle
+\dtl@truncatedecimal\dtl@angle
+\ifnum\dtl@angle>180
+ \FPsub{\dtl@angle}{\dtl@old}{360}%
+ \dtl@truncatedecimal\dtl@angle
+\fi
+\edef\dtl@cutlen{%
+\csname dtl@cut@len@\romannumeral\@dtl@seg\endcsname}
+\edef\@dtl@shift{(\dtl@angle:\dtl@cutlen)}%
+% \end{macrocode}
+% Compute the mid way angle.
+% \begin{macrocode}
+\FPmul{\dtl@angle}{\dtl@extent}{0.5}%
+\FPadd{\dtl@midangle}{\dtl@angle}{\dtl@start}%
+% \end{macrocode}
+% Draw the segment.
+% \begin{macrocode}
+\begin{scope}[shift={\@dtl@shift}]%
+\dtl@truncatedecimal\dtl@start
+\dtl@truncatedecimal\dtl@endangle
+\fill[color=\DTLgetpiesegmentcolor\@dtl@seg] (0,0) --
+(\dtl@start:\DTLradius)
+arc (\dtl@start:\dtl@endangle:\DTLradius) -- cycle;
+% \end{macrocode}
+% Draw the outline if required:
+% \begin{macrocode}
+\ifdim\DTLpieoutlinewidth>0pt\relax
+\draw[color=\DTLpieoutlinecolor,line width=\DTLpieoutlinewidth]
+(0,0) -- (\dtl@start:\DTLradius)
+arc (\dtl@start:\dtl@endangle:\DTLradius) -- cycle;
+\fi
+% \end{macrocode}
+% Convert decimal to an integer
+% \begin{macrocode}
+\dtl@truncatedecimal\dtl@midangle
+% \end{macrocode}
+% Determine whether to rotate inner labels
+% \begin{macrocode}
+\ifDTLrotateinner
+% \end{macrocode}
+% If the mid way angle is between 90 and 270, the text will look
+% upside-down, so adjust accordingly.
+% \begin{macrocode}
+\ifthenelse{\(\dtl@midangle > 90 \and \dtl@midangle < 270\)
+\TE@or \dtl@midangle < -90}{%
+ \FPsub{\dtl@labelangle}{\dtl@midangle}{180}%
+ \dtl@truncatedecimal\dtl@labelangle
+ \edef\dtl@innernodeopt{anchor=east,rotate=\dtl@labelangle}%
+}{%
+ \edef\dtl@innernodeopt{anchor=west,rotate=\dtl@midangle}%
+}%
+% \end{macrocode}
+% Don't rotate inner labels
+% \begin{macrocode}
+\else
+ \edef\dtl@innernodeopt{anchor=center}%
+\fi
+% \end{macrocode}
+% Determine whether to rotate outer labels
+% \begin{macrocode}
+\ifDTLrotateouter
+% \end{macrocode}
+% If the mid way angle is between 90 and 270, the text will look
+% upside-down, so adjust accordingly.
+% \begin{macrocode}
+\ifthenelse{\(\dtl@midangle > 90 \and \dtl@midangle < 270\)
+\TE@or \dtl@midangle < -90}{%
+ \FPsub{\dtl@labelangle}{\dtl@midangle}{180}%
+ \dtl@truncatedecimal\dtl@labelangle
+ \edef\dtl@outernodeopt{anchor=east,rotate=\dtl@labelangle}%
+}{%
+ \edef\dtl@outernodeopt{anchor=west,rotate=\dtl@midangle}%
+}%
+% \end{macrocode}
+% Don't rotate outer labels
+% \begin{macrocode}
+\else
+ \ifthenelse{\(\dtl@midangle<45\and\dtl@midangle>-45\)
+ \TE@or \dtl@midangle=45
+ \TE@or \dtl@midangle>315}{%
+ % east quadrant
+ \edef\dtl@outernodeopt{anchor=west}%
+ }{%
+ \ifthenelse{\(\dtl@midangle<135\and\dtl@midangle>45\)
+ \TE@or \dtl@midangle=135}{%
+ % north quadrant
+ \edef\dtl@outernodeopt{anchor=south}%
+ }{%
+ \ifthenelse{\(\dtl@midangle<225\and\dtl@midangle>135\)
+ \TE@or \dtl@midangle=225
+ \TE@or \dtl@midangle=-135
+ \TE@or \dtl@midangle<-135}{%
+ % west quadrant
+ \edef\dtl@outernodeopt{anchor=east}%
+ }{%
+ \edef\dtl@outernodeopt{anchor=north}%
+ }%
+ }
+ }
+\fi
+% \end{macrocode}
+% Draw inner and outer labels
+% \begin{macrocode}
+\edef\@dtl@dolabel{%
+\noexpand\draw (\dtl@midangle:\the\dtl@inneroffset)
+node[\dtl@innernodeopt]{%
+\noexpand\DTLdisplayinnerlabel{\noexpand\dtl@innerlabel}};}%
+\@dtl@dolabel
+\edef\@dtl@dolabel{%
+\noexpand\draw (\dtl@midangle:\the\dtl@outeroffset)
+node[\dtl@outernodeopt]{%
+\noexpand\DTLdisplayouterlabel{\noexpand\dtl@outerlabel}};}%
+\@dtl@dolabel
+\end{scope}
+}%
+\DTLpieatendtikz
+\end{tikzpicture}
+\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@computeangles}
+%\begin{definition}
+%\cs{dtl@computeangles}\marg{n}\marg{variable}
+%\end{definition}
+% Compute the angles for segment \meta{n}. This sets
+% \cs{dtl@sang@}\meta{n} (start angle),
+% \cs{dtl@angle@}\meta{n} (extent angle),
+% \cs{dtl@cut@angle@}\meta{n} (cut away angle) and
+% \cs{dtl@cut@len@}\meta{n} (cut away length).
+% \begin{macrocode}
+\newcommand*{\dtl@computeangles}[2]{%
+\FPifgt{\@dtl@start}{180}%
+% if startangle > 180
+ \let\dtl@old=\@dtl@start
+% startangle = startangle - 360
+ \FPsub{\@dtl@start}{\dtl@old}{360}%
+\fi
+\FPiflt{\@dtl@start}{-180}%
+% if startangle < -180
+ \let\dtl@old=\@dtl@start
+% startangle = startangle + 360
+ \FPadd{\@dtl@start}{\dtl@old}{360}%
+\fi
+\expandafter\edef\csname dtl@sang@\romannumeral#1\endcsname{%
+\@dtl@start}%
+\FPmul{\dtl@angle}{360}{#2}%
+\let\dtl@old=\dtl@angle
+\FPdiv{\dtl@angle}{\dtl@old}{\dtl@total}%
+\expandafter\let\csname dtl@angle@\romannumeral#1\endcsname=\dtl@angle
+\let\dtl@old=\@dtl@start
+\FPadd{\@dtl@start}{\dtl@old}{\dtl@angle}%
+\expandafter\def\csname dtl@cut@angle@\romannumeral#1\endcsname{0}%
+\expandafter\def\csname dtl@cut@len@\romannumeral#1\endcsname{0cm}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+% Set the offset angles.
+%\begin{macro}{\@dtl@set@off}
+% \begin{macrocode}
+\def\@dtl@set@off#1-#2\relax{%
+\ifthenelse{\equal{#2}{}}{%
+\@@dtl@set@off{#1}}{%
+\@@dtl@set@offr#1-#2\relax}%
+}
+% \end{macrocode}
+%\end{macro}
+% Set offset for individual segment:
+%\begin{macro}{\@@dtl@set@off}
+% \begin{macrocode}
+\newcommand*{\@@dtl@set@off}[1]{%
+\edef\dtl@old{\csname dtl@angle@\romannumeral#1\endcsname}%
+\FPmul{\dtl@angle}{\dtl@old}{0.5}%
+\let\dtl@old=\dtl@angle
+\edef\dtl@sang{\csname dtl@sang@\romannumeral#1\endcsname}%
+\FPadd{\dtl@angle}{\dtl@old}{\dtl@sang}%
+\expandafter\edef\csname dtl@cut@angle@\romannumeral#1\endcsname{%
+\dtl@angle}%
+\expandafter\edef\csname dtl@cut@len@\romannumeral#1\endcsname{%
+ \the\dtl@cutawayoffset}
+}
+% \end{macrocode}
+%\end{macro}
+% Define count register to keep track of segments
+%\begin{macro}{\@dtl@seg}
+% \begin{macrocode}
+\newcount\@dtl@seg
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@@dtl@setoffr}
+% Set offset for a range of segments
+% \begin{macrocode}
+\def\@@dtl@set@offr#1-#2-\relax{%
+\ifnum#1>#2\relax
+ \PackageError{datapie}{Segment ranges must go in ascending order}{%
+Try #2-#1 instead of #1-#2}%
+\else
+ \def\dtl@angle{0}%
+ \@dtl@seg=#1\relax
+ \whiledo{\not\(\@dtl@seg > #2\)}{%
+ \let\dtl@old=\dtl@angle
+ \edef\dtl@segang{\csname dtl@angle@\romannumeral\@dtl@seg\endcsname}%
+ \FPadd{\dtl@angle}{\dtl@old}{\dtl@segang}%
+ \advance\@dtl@seg by 1\relax
+ }%
+ \let\dtl@old=\dtl@angle
+ \FPmul{\dtl@angle}{\dtl@old}{0.5}%
+ \edef\dtl@sang{\csname dtl@sang@\romannumeral#1\endcsname}%
+ \let\dtl@old=\dtl@angle
+ \FPadd{\dtl@angle}{\dtl@old}{\dtl@sang}%
+ \@dtl@seg=#1\relax
+ \whiledo{\not\(\@dtl@seg > #2\)}{%
+ \expandafter
+ \let\csname dtl@cut@angle@\romannumeral\@dtl@seg\endcsname
+ =\dtl@angle
+ \expandafter
+ \edef\csname dtl@cut@len@\romannumeral\@dtl@seg\endcsname{%
+ \the\dtl@cutawayoffset}
+ \advance\@dtl@seg by 1\relax
+ }%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\iffalse
+% \begin{macrocode}
+%</datapie.sty>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%<*dataplot.sty>
+% \end{macrocode}
+%\fi
+%\section{dataplot.sty}
+% Declare package:
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{dataplot}[2007/08/17 v1.01 (NLCT)]
+% \end{macrocode}
+% Required packages
+% \begin{macrocode}
+\RequirePackage{xkeyval}
+\RequirePackage{tikz}
+\RequirePackage{datatool}
+% \end{macrocode}
+% Load TikZ plot libraries
+% \begin{macrocode}
+\usetikzlibrary{plotmarks}
+\usetikzlibrary{plothandlers}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLplotstream}
+%\begin{definition}
+%\cs{DTLplotstream}\oarg{condition}\marg{db name}\marg{x key}\marg{y key}
+%\end{definition}
+% Add points to a stream from the database called \meta{db name}
+% where the $x$ co-ordinates are given by the key \meta{x key}
+% and the $y$ co-ordinates are given by the key \meta{y key}.
+% The optional argument \meta{condition} is the same as that
+% for \cs{DTLforeach}
+%\changes{1.01}{2007 Aug 17}{uses \cs{@sDTLforeach} instead of
+%\cs{DTLforeach}}
+% \begin{macrocode}
+\newcommand*{\DTLplotstream}[4][\boolean{true}]{%
+\@sDTLforeach[#1]{#2}{\dtl@x=#3,\dtl@y=#4}{%
+\DTLconverttodecimal{\dtl@x}{\dtl@decx}%
+\DTLconverttodecimal{\dtl@y}{\dtl@decy}%
+\pgfplotstreampoint{\pgfpointxy{\dtl@decx}{\dtl@decy}}}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLplotmarks}
+%\cs{DTLplotmarks} contains a list of plot marks used by
+%\cs{DTLplot}.
+% \begin{macrocode}
+\newcommand*{\DTLplotmarks}{%
+\pgfuseplotmark{o},%
+\pgfuseplotmark{x},%
+\pgfuseplotmark{+},%
+\pgfuseplotmark{square},%
+\pgfuseplotmark{triangle},%
+\pgfuseplotmark{diamond},%
+\pgfuseplotmark{pentagon},%
+\pgfuseplotmark{asterisk},%
+\pgfuseplotmark{star}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLplotmarkcolors}
+%\cs{DTLplotmarkcolors} contains a list of the plot mark colours.
+% \begin{macrocode}
+\newcommand*{\DTLplotmarkcolors}{%
+red,%
+green,%
+blue,%
+yellow,%
+magenta,%
+cyan,%
+orange,%
+black,%
+gray}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLplotlines}
+%\cs{DTLplotlines} contains a list of dash patterns used by
+%\cs{DLTplot}.
+% \begin{macrocode}
+\newcommand*{\DTLplotlines}{%
+\pgfsetdash{}{{0pt}},% solid line
+\pgfsetdash{{10pt}{5pt}}{0pt},%
+\pgfsetdash{{5pt}{5pt}}{0pt},%
+\pgfsetdash{{1pt}{5pt}}{0pt},%
+\pgfsetdash{{5pt}{5pt}{1pt}{5pt}}{0pt},%
+\pgfsetdash{{1pt}{3pt}}{0pt},%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLplotlinecolors}
+%\cs{DTLplotlinecolors} contains a list of the plot line colours.
+% \begin{macrocode}
+\newcommand*{\DTLplotlinecolors}{%
+red,%
+green,%
+blue,%
+yellow,%
+magenta,%
+cyan,%
+orange,%
+black,%
+gray}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLplotwidth}
+% The default total plot width is stored in the length
+% \cs{dtlplotwidth}
+% \begin{macrocode}
+\newlength\DTLplotwidth
+\setlength\DTLplotwidth{4in}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLplotheight}
+% The default total plot height is stored in the length
+% \cs{dtlplotheight}
+% \begin{macrocode}
+\newlength\DTLplotheight
+\setlength\DTLplotheight{4in}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLticklength}
+% The length of the tick marks is given by \cs{DTLticklength}
+% \begin{macrocode}
+\newlength\DTLticklength
+\setlength\DTLticklength{5pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLminorticklength}
+% The length of the minor tick marks is given by
+% \cs{DTLminorticklength}.
+% \begin{macrocode}
+\newlength\DTLminorticklength
+\setlength\DTLminorticklength{2pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLticklabeloffset}
+% The offset from the axis to the tick label is given by
+% \cs{DTLticklabeloffset}.
+% \begin{macrocode}
+\newlength\DTLticklabeloffset
+\setlength\DTLticklabeloffset{8pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@xticlabelheight}
+% \cs{dtl@xticlabelheight} is used to store the height of
+% the $x$ tick labels.
+% \begin{macrocode}
+\newlength\dtl@xticlabelheight
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@yticlabelwidth}
+% \cs{dtl@yticlabelwidth} is used to store the width of
+% the $y$ tick labels.
+% \begin{macrocode}
+\newlength\dtl@yticlabelwidth
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLmintickgap}
+% \cs{DTLmintickgap} stores the suggested minimum distance between
+% tick marks where the gap is not specified.
+% \begin{macrocode}
+\newlength\DTLmintickgap
+\setlength\DTLmintickgap{20pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLminminortickgap}
+% The suggested minimum distance between minor tick marks where the
+% gap is not specified is given by \cs{DTLminminortickgap}.
+% \begin{macrocode}
+\newlength\DTLminminortickgap
+\setlength\DTLminminortickgap{5pt}
+% \end{macrocode}
+%\end{macro}
+% Round $x$ tick labels to the number of digits given by
+% the counter \counterfmt{DTLplotroundXvar}.
+% \begin{macrocode}
+\newcounter{DTLplotroundXvar}
+\setcounter{DTLplotroundXvar}{2}
+% \end{macrocode}
+% Round $y$ tick labels to the number of digits given by
+% the counter \counterfmt{DTLplotroundYvar}.
+% \begin{macrocode}
+\newcounter{DTLplotroundYvar}
+\setcounter{DTLplotroundYvar}{2}
+% \end{macrocode}
+%\begin{macro}{\ifDTLxaxis}
+% The conditional \cs {ifDTLxaxis} is used to determine whether or
+% not to display the $x$ axis.
+% \begin{macrocode}
+\newif\ifDTLxaxis
+\DTLxaxistrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLXAxisStyle}
+% The style of the $x$ axis is given by \cs{DTLXAxisStyle}. This
+% is just a solid line by default.
+% \begin{macrocode}
+\newcommand*{\DTLXAxisStyle}{-}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\ifDTLyaxis}
+% The conditional \cs{ifDTLyaxis} is used to determine whether or
+% not to display the $y$ axis
+% \begin{macrocode}
+\newif\ifDTLyaxis
+\DTLyaxistrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLYAxisStyle}
+% The style of the $y$ axis is given by \cs{DTLYAxisStyle}. This
+% is just a solid line by default.
+% \begin{macrocode}
+\newcommand*{\DTLYAxisStyle}{-}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLmajorgridstyle}
+% The style of the major grid lines is given by
+% \cs{DTLmajorgridstyle}.
+% \begin{macrocode}
+\newcommand*{\DTLmajorgridstyle}{color=gray,-}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLminorgridstyle}
+% The style of the minor grid lines is given by
+% \cs{DTLminorgridstyle}.
+% \begin{macrocode}
+\newcommand*{\DTLminorgridstyle}{color=gray,loosely dotted}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\ifDTLxticsin}
+% The conditional \cs{ifDTLxticsin} is used to determine whether
+% the $x$ tics should point in or out.
+% \begin{macrocode}
+\newif\ifDTLxticsin
+\DTLxticsintrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLyticsin}
+% The conditional \cs{ifDTLyticsin} is used to determine whether
+% the $y$ tics should point in or out.
+% \begin{macrocode}
+\newif\ifDTLyticsin
+\DTLyticsintrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@legendsetting}
+% The legend setting is stored in the count register
+% \cs{dtl@legendsetting}.
+% \begin{macrocode}
+\newcount\dtl@legendsetting
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLlegendxoffset}
+% The gap between the border of plot and legend is given by the
+% lengths \cs{DTLlegendxoffset} and \cs{DTLlegendyoffset}
+% \begin{macrocode}
+\newlength\DTLlegendxoffset
+\setlength\DTLlegendxoffset{10pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLlegendyoffset}
+% \begin{macrocode}
+\newlength\DTLlegendyoffset
+\setlength\DTLlegendyoffset{10pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLformatlegend}
+%\begin{definition}
+%\cs{DTLformatlegend}\marg{legend}
+%\end{definition}
+% This formats the legend.
+% \begin{macrocode}
+\newcommand*{\DTLformatlegend}[1]{%
+\setlength{\fboxrule}{1.1pt}%
+\fcolorbox{black}{white}{#1}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLshowmarkers}
+% The conditional \cs{ifDTLshowmarkers} is used to specify
+% whether or not to use markers.
+% \begin{macrocode}
+\newif\ifDTLshowmarkers
+\DTLshowmarkerstrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLshowlines}
+% The conditional \cs{ifDTLshowlines} is used to specify
+% whether or not to use lines.
+% \begin{macrocode}
+\newif\ifDTLshowlines
+\DTLshowlinesfalse
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLplotatbegintikz}
+% \cs{DTLplotatbegintikz} is a hook to insert stuff at the
+% start of the \env{tikzpicture}
+% environment (after the unit vectors have been set).
+% \begin{macrocode}
+\newcommand*{\DTLplotatbegintikz}{}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLplotatendtikz}
+% \cs{DTLplotatendtikz} is a hook to insert stuff at the end
+% of the \env{tikzpicture} environment.
+% \begin{macrocode}
+\newcommand*{\DTLplotatendtikz}{}
+% \end{macrocode}
+%\end{macro}
+%
+% Plot settings. The database key for the $x$ value is
+% given by the "x" setting:
+% \begin{macrocode}
+\define@key{dataplot}{x}{%
+\def\dtl@xkey{#1}}
+% \end{macrocode}
+% The database key for the $y$ value is given by the "y" setting:
+% \begin{macrocode}
+\define@key{dataplot}{y}{%
+\def\dtl@ykey{#1}}
+% \end{macrocode}
+% The list of plot mark colours is given by the "markcolors" setting.
+% (This should be a comma separated list of colour names.)
+% \begin{macrocode}
+\define@key{dataplot}{markcolors}{%
+\def\DTLplotmarkcolors{#1}}
+% \end{macrocode}
+% The list of plot line colours is given by the "linecolors" setting.
+% (This should be a comma separated list of colour names.)
+% \begin{macrocode}
+\define@key{dataplot}{linecolors}{%
+\def\DTLplotlinecolors{#1}}
+% \end{macrocode}
+% The list of plot mark and line colours is given by the "colors"
+% setting. (This should be a comma separated list of colour names.)
+% \begin{macrocode}
+\define@key{dataplot}{colors}{%
+\def\DTLplotmarkcolors{#1}%
+\def\DTLplotlinecolors{#1}}
+% \end{macrocode}
+% The list of plot marks is given by the "marks" setting. (This
+% should be a comma separated list of code that generates
+% pgf plot marks.)
+% \begin{macrocode}
+\define@key{dataplot}{marks}{%
+\def\DTLplotmarks{#1}}
+% \end{macrocode}
+% The list of plot line styles is given by the "lines" setting. (This
+% should be a comma separated list of code that sets the line
+% style.) An empty set will create solid lines.
+% \begin{macrocode}
+\define@key{dataplot}{lines}{%
+\def\DTLplotlines{#1}}
+% \end{macrocode}
+% The total width of the plot is given by the "width" setting.
+% \begin{macrocode}
+\define@key{dataplot}{width}{%
+\setlength\DTLplotwidth{#1}}
+% \end{macrocode}
+% The total height of the plot is given by the "height" setting.
+% \begin{macrocode}
+\define@key{dataplot}{height}{%
+\setlength\DTLplotheight{#1}}
+% \end{macrocode}
+% Determine whether to show lines, markers or both
+% \begin{macrocode}
+\define@choicekey{dataplot}{style}[\val\nr]{both,lines,markers}{%
+\ifcase\nr\relax
+ \DTLshowlinestrue
+ \DTLshowmarkerstrue
+\or
+ \DTLshowlinestrue
+ \DTLshowmarkersfalse
+\or
+ \DTLshowmarkerstrue
+ \DTLshowlinesfalse
+\fi}
+% \end{macrocode}
+% Determine whether or not to display the axes
+% \begin{macrocode}
+\define@choicekey{dataplot}{axes}[\val\nr]{both,x,y,none}[both]{%
+\ifcase\nr\relax
+ % both
+ \DTLxaxistrue
+ \DTLxticstrue
+ \DTLyaxistrue
+ \DTLyticstrue
+\or % x
+ \DTLxaxistrue
+ \DTLxticstrue
+ \DTLyaxisfalse
+ \DTLyticsfalse
+\or % y
+ \DTLxaxisfalse
+ \DTLxticsfalse
+ \DTLyaxistrue
+ \DTLyticstrue
+\or % none
+ \DTLxaxisfalse
+ \DTLxticsfalse
+ \DTLyaxisfalse
+ \DTLyticsfalse
+\fi
+}
+% \end{macrocode}
+%\begin{macro}{\ifDTLbox}
+% Enclose plot in a box
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{box}[true]{}
+\DTLboxfalse
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLxticstrue}
+% Condition to determine whether to show the $x$ tick marks
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{xtics}[true]{}
+\DTLxticstrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLyticstrue}
+% Condition to determine whether to show the $y$ tick marks
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{ytics}[true]{}
+\DTLyticstrue
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLxminortics}
+% Condition to determine whether to show the $x$ minor tick marks
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{xminortics}[true]{%
+\ifDTLxminortics \DTLxticstrue\fi}
+\DTLxminorticsfalse
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLyminortics}
+% Condition to determine whether to show the $y$ minor tick marks
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{yminortics}[true]{%
+\ifDTLyminortics \DTLyticstrue\fi}
+\DTLyminorticsfalse
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLgrid}
+% Determine whether to draw the grid
+% \begin{macrocode}
+\define@boolkey{dataplot}[DTL]{grid}[true]{}
+% \end{macrocode}
+%\end{macro}
+% Determine whether the $x$ tick marks should point
+% in or out:
+% \begin{macrocode}
+\define@choicekey{dataplot}{xticdir}[\val\nr]{in,out}{%
+\ifcase\nr\relax
+ \DTLxticsintrue
+\or
+ \DTLxticsinfalse
+\fi
+}
+% \end{macrocode}
+% Determine whether the $y$ tick marks should point
+% in or out:
+% \begin{macrocode}
+\define@choicekey{dataplot}{yticdir}[\val\nr]{in,out}{%
+\ifcase\nr\relax
+ \DTLyticsintrue
+\or
+ \DTLyticsinfalse
+\fi
+}
+% \end{macrocode}
+% Determine whether the $x$ and $y$ tick marks should point
+% in or out;
+% \begin{macrocode}
+\define@choicekey{dataplot}{ticdir}[\val\nr]{in,out}{%
+\ifcase\nr\relax
+ \DTLxticsintrue
+ \DTLyticsintrue
+\or
+ \DTLxticsinfalse
+ \DTLyticsinfalse
+\fi
+}
+% \end{macrocode}
+% Set the bounds of the graph (value must be in the form
+% \meta{min x}","\meta{min y}","\meta{max x}","\meta{max y}
+% (bounds overrides minx, miny, maxx and maxy settings.)
+% \begin{macrocode}
+\define@key{dataplot}{bounds}{%
+\def\dtl@bounds{#1}}
+\let\dtl@bounds=\relax
+% \end{macrocode}
+% Set only the lower $x$ bound
+% \begin{macrocode}
+\define@key{dataplot}{minx}{%
+\def\dtl@minx{#1}}
+\let\dtl@minx=\relax
+% \end{macrocode}
+% Set only the upper $x$ bound:
+% \begin{macrocode}
+\define@key{dataplot}{maxx}{%
+\def\dtl@maxx{#1}}
+\let\dtl@maxx=\relax
+% \end{macrocode}
+% Set only the lower $y$ bound:
+% \begin{macrocode}
+\define@key{dataplot}{miny}{%
+\def\dtl@miny{#1}}
+\let\dtl@miny=\relax
+% \end{macrocode}
+% Set only the upper $y$ bound:
+% \begin{macrocode}
+\define@key{dataplot}{maxy}{%
+\def\dtl@maxy{#1}}
+\let\dtl@maxy=\relax
+% \end{macrocode}
+% Define list of points for $x$ ticks. (Must be a comma separated
+% list of decimal numbers.)
+% \begin{macrocode}
+\define@key{dataplot}{xticpoints}{%
+\def\dtl@xticlist{#1}\DTLxticstrue\DTLxaxistrue}
+\let\dtl@xticlist=\relax
+% \end{macrocode}
+% Define list of points for $y$ ticks. (Must be a comma separated
+% list of decimal numbers.)
+% \begin{macrocode}
+\define@key{dataplot}{yticpoints}{%
+\def\dtl@yticlist{#1}\DTLyticstrue\DTLyaxistrue}
+\let\dtl@yticlist=\relax
+% \end{macrocode}
+% Define a the gap between $x$ tick marks (xticpoints overrides
+% xticgap)
+% \begin{macrocode}
+\define@key{dataplot}{xticgap}{\def\dtl@xticgap{#1}%
+\DTLxticstrue\DTLxaxistrue}
+\let\dtl@xticgap=\relax
+% \end{macrocode}
+% Define a the gap between $y$ tick marks (yticpoints overrides
+% yticgap)
+% \begin{macrocode}
+\define@key{dataplot}{yticgap}{\def\dtl@yticgap{#1}%
+\DTLyticstrue\DTLyaxistrue}
+\let\dtl@yticgap=\relax
+% \end{macrocode}
+% Define comma separated list of labels for $x$ ticks.
+% \begin{macrocode}
+\define@key{dataplot}{xticlabels}{%
+\def\dtl@xticlabels{#1}\DTLxticstrue\DTLxaxistrue}
+\let\dtl@xticlabels=\relax
+% \end{macrocode}
+% Define comma separated list of labels for $y$ ticks.
+% \begin{macrocode}
+\define@key{dataplot}{yticlabels}{%
+\def\dtl@yticlabels{#1}\DTLyticstrue\DTLyaxistrue}
+\let\dtl@yticlabels=\relax
+% \end{macrocode}
+% Define $x$ axis label
+% \begin{macrocode}
+\define@key{dataplot}{xlabel}{%
+\def\dtl@xlabel{#1}}
+\let\dtl@xlabel=\relax
+% \end{macrocode}
+% Define $y$ axis label
+% \begin{macrocode}
+\define@key{dataplot}{ylabel}{%
+\def\dtl@ylabel{#1}}
+\let\dtl@ylabel=\relax
+% \end{macrocode}
+% The legend setting may be one of: "none" (don't show it),
+% "north", "northeast", "east", "southeast", "south", "southwest",
+% "west", or "northwest". These set the count register
+% \cs{dtl@legendsetting}.
+% \begin{macrocode}
+\define@choicekey{dataplot}{legend}[\val\nr]{none,north,northeast,%
+east,southeast,south,southwest,west,northwest}[northeast]{%
+\dtl@legendsetting=\nr\relax
+}
+% \end{macrocode}
+% Legend labels (comma separated list). If omitted, the database
+% name is used.
+% \begin{macrocode}
+\define@key{dataplot}{legendlabels}{\def\dtl@legendlabels{#1}}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLplot}
+%\begin{definition}
+%\cs{DTLplot}\oarg{condition}\marg{db list}\marg{settings}
+%\end{definition}
+% Creates a plot (inside a \env{tikzpicture} environment) of all
+% the data given in the databases listed in \meta{db list}.
+% \begin{macrocode}
+\newcommand*{\DTLplot}[3][\boolean{true}]{{%
+\let\dtl@xkey=\relax
+\let\dtl@ykey=\relax
+\let\dtl@legendlabels=\relax
+\setkeys{dataplot}{#3}%
+\let\dtl@plotmarklist=\DTLplotmarks
+\let\dtl@plotlinelist=\DTLplotlines
+\let\dtl@plotmarkcolorlist=\DTLplotmarkcolors
+\let\dtl@plotlinecolorlist=\DTLplotlinecolors
+\def\dtl@legend{}%
+\ifx\dtl@legendlabels\relax
+ \edef\dtl@legendlabels{#2}%
+\fi
+\ifx\dtl@xkey\relax
+ \PackageError{dataplot}{Missing x setting for
+ \string\DTLplot}{}%
+\else
+ \ifx\dtl@ykey\relax
+ \PackageError{dataplot}{Missing y setting for
+ \string\DTLplot}{}%
+ \else
+% \end{macrocode}
+% If user didn't specified bounds,
+% compute the maximum and minimum $x$ and $y$ values over
+% all the databases listed.
+% \begin{macrocode}
+ \ifx\dtl@bounds\relax
+ \DTLcomputebounds[#1]{#2}{\dtl@xkey}{\dtl@ykey}
+ {\DTLminX}{\DTLminY}{\DTLmaxX}{\DTLmaxY}%
+ \ifx\dtl@minx\relax
+ \else
+ \let\DTLminX=\dtl@minx
+ \fi
+ \ifx\dtl@maxx\relax
+ \else
+ \let\DTLmaxX=\dtl@maxx
+ \fi
+ \ifx\dtl@miny\relax
+ \else
+ \let\DTLminY=\dtl@miny
+ \fi
+ \ifx\dtl@maxy\relax
+ \else
+ \let\DTLmaxY=\dtl@maxy
+ \fi
+% \end{macrocode}
+% Otherwise extract information from \cs{dtl@bounds}
+% \begin{macrocode}
+ \else
+ \expandafter\dtl@getbounds\dtl@bounds\@nil
+ \fi
+% \end{macrocode}
+% Determine scaling factors.
+% \begin{macrocode}
+ \@dtl@tmpcount=\DTLplotwidth
+ \FPsub{\dtl@dx}{\DTLmaxX}{\DTLminX}%
+ \FPdiv{\dtl@unit@x}{\number\@dtl@tmpcount}{\dtl@dx}%
+ \@dtl@tmpcount=\DTLplotheight
+ \FPsub{\dtl@dy}{\DTLmaxY}{\DTLminY}%
+ \FPdiv{\dtl@unit@y}{\number\@dtl@tmpcount}{\dtl@dy}%
+% \end{macrocode}
+% If x tics specified, construct a list of x tic points if not
+% already specified.
+% \begin{macrocode}
+ \ifDTLxtics
+ \ifx\dtl@xticlist\relax
+ \ifx\dtl@xticgap\relax
+ \dtl@constructticklist\DTLminX\DTLmaxX
+ \dtl@unit@x\dtl@xticlist
+ \else
+ \DTLifFPopenbetween{0}{\DTLminX}{\DTLmaxX}{%
+ \dtl@constructticklistwithgapz
+ \DTLminX\DTLmaxX\dtl@xticlist\dtl@xticgap}{%
+ \dtl@constructticklistwithgap
+ \DTLminX\DTLmaxX\dtl@xticlist\dtl@xticgap}%
+ \fi
+ \fi
+% \end{macrocode}
+% Construct a list of $x$ minor tick points if required
+% \begin{macrocode}
+ \let\dtl@xminorticlist\@empty
+ \ifDTLxminortics
+ \let\dtl@prevtick=\relax
+ \@for\dtl@nexttick:=\dtl@xticlist\do{%
+ \ifx\dtl@prevtick\relax
+ \else
+ \dtl@constructminorticklist
+ \dtl@prevtick\dtl@nexttick\dtl@unit@x\dtl@xminorticlist
+ \fi
+ \let\dtl@prevtick=\dtl@nexttick
+ }%
+ \fi
+% \end{macrocode}
+% Determine the height of the $x$ tick labels.
+% \begin{macrocode}
+ \ifx\dtl@xticlabels\relax
+ \settoheight{\dtl@xticlabelheight}{\dtl@xticlist}%
+ \else
+ \settoheight{\dtl@xticlabelheight}{\dtl@xticlabels}%
+ \fi
+ \else
+ \setlength{\dtl@xticlabelheight}{0pt}%
+ \fi
+% \end{macrocode}
+% If y tics specified, construct a list of y tic points if not
+% already specified.
+% \begin{macrocode}
+ \setlength{\dtl@yticlabelwidth}{0pt}%
+ \ifDTLytics
+ \ifx\dtl@yticlist\relax
+ \ifx\dtl@yticgap\relax
+ \dtl@constructticklist\DTLminY\DTLmaxY
+ \dtl@unit@y\dtl@yticlist
+ \else
+ \DTLifFPopenbetween{0}{\DTLminY}{\DTLmaxY}{%
+ \dtl@constructticklistwithgapz
+ \DTLminY\DTLmaxY\dtl@yticlist\dtl@yticgap}{%
+ \dtl@constructticklistwithgap
+ \DTLminY\DTLmaxY\dtl@yticlist\dtl@yticgap}%
+ \fi
+ \fi
+% \end{macrocode}
+% Construct a list of $y$ minor tick points if required
+% \begin{macrocode}
+ \let\dtl@yminorticlist\@empty
+ \ifDTLyminortics
+ \let\dtl@prevtick=\relax
+ \@for\dtl@nexttick:=\dtl@yticlist\do{%
+ \ifx\dtl@prevtick\relax
+ \else
+ \dtl@constructminorticklist
+ \dtl@prevtick\dtl@nexttick\dtl@unit@y\dtl@yminorticlist
+ \fi
+ \let\dtl@prevtick=\dtl@nexttick
+ }%
+ \fi
+% \end{macrocode}
+% Determine the width of the $y$ tick labels.
+% \begin{macrocode}
+ \ifx\dtl@ylabel\relax
+ \else
+ \ifx\dtl@yticlabels\relax
+ \@for\dtl@thislabel:=\dtl@yticlist\do{%
+ \FPround{\dtl@thislabel}{\dtl@thislabel}
+ {\c@DTLplotroundYvar}%
+ \settowidth{\dtl@tmplength}{\dtl@thislabel}%
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \else
+ \@for\dtl@thislabel:=\dtl@yticlabels\do{%
+ \settowidth{\dtl@tmplength}{\dtl@thislabel}%
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \fi
+ \fi
+% \end{macrocode}
+% Start the picture.
+% \begin{macrocode}
+ \begin{tikzpicture}
+% \end{macrocode}
+% Set the $x$ and $y$ unit vectors.
+% \begin{macrocode}
+ \pgfsetxvec{\pgfpoint{\dtl@unit@x sp}{0pt}}%
+ \pgfsetyvec{\pgfpoint{0pt}{\dtl@unit@y sp}}%
+% \end{macrocode}
+% Add any extra information the user requires
+% \begin{macrocode}
+ \DTLplotatbegintikz
+% \end{macrocode}
+% Determine whether to put a box around the plot
+% \begin{macrocode}
+ \ifDTLbox
+ \draw (\DTLminX,\DTLminY) -- (\DTLmaxX,\DTLminY) --
+ (\DTLmaxX,\DTLmaxY) -- (\DTLminX,\DTLmaxY) --
+ cycle;
+ \else
+% \end{macrocode}
+% Plot $x$ axis if required.
+% \begin{macrocode}
+ \ifDTLxaxis
+ \expandafter\draw\expandafter[\DTLXAxisStyle]
+ (\DTLminX,\DTLminY) -- (\DTLmaxX,\DTLminY);
+ \fi
+% \end{macrocode}
+% Plot $y$ axis if required.
+% \begin{macrocode}
+ \ifDTLyaxis
+ \expandafter\draw\expandafter[\DTLYAxisStyle]
+ (\DTLminX,\DTLminY) -- (\DTLminX,\DTLmaxY);
+ \fi
+ \fi
+% \end{macrocode}
+% Plot grid if required
+% \begin{macrocode}
+ \ifDTLgrid
+ \ifDTLxminortics
+ \@for\dtl@thistick:=\dtl@xminorticlist\do{%
+ \expandafter\draw\expandafter[\DTLminorgridstyle]
+ (\dtl@thistick,\DTLminY) -- (\dtl@thistick,\DTLmaxY);
+ }%
+ \fi
+ \ifDTLyminortics
+ \@for\dtl@thistick:=\dtl@yminorticlist\do{%
+ \expandafter\draw\expandafter[\DTLminorgridstyle]
+ (\DTLminX,\dtl@thistick) -- (\DTLmaxX,\dtl@thistick);
+ }%
+ \fi
+ \@for\dtl@thistick:=\dtl@xticlist\do{%
+ \expandafter\draw\expandafter[\DTLmajorgridstyle]
+ (\dtl@thistick,\DTLminY) -- (\dtl@thistick,\DTLmaxY);
+ }%
+ \@for\dtl@thistick:=\dtl@yticlist\do{%
+ \expandafter\draw\expandafter[\DTLmajorgridstyle]
+ (\DTLminX,\dtl@thistick) -- (\DTLmaxX,\dtl@thistick);
+ }%
+ \fi
+% \end{macrocode}
+% Plot $x$ tics if required.
+% \begin{macrocode}
+ \ifDTLxtics
+ \addtolength\dtl@xticlabelheight{\DTLticklabeloffset}%
+ \@for\dtl@thistick:=\dtl@xticlist\do{%
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ \ifDTLxticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ {\pgfpoint{0pt}{\DTLticklength}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ {\pgfpoint{0pt}{-\DTLticklength}}}
+ \fi
+ \ifDTLbox
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ \ifDTLxticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ {\pgfpoint{0pt}{-\DTLticklength}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ {\pgfpoint{0pt}{\DTLticklength}}}
+ \fi
+ \fi
+ \pgfusepath{stroke}%
+% \end{macrocode}
+% Plot the tick labels
+% \begin{macrocode}
+ \ifx\dtl@xticlabels\relax
+ \FPround{\dtl@thislabel}{\dtl@thistick}
+ {\c@DTLplotroundXvar}%
+ \else
+ \dtl@chopfirst\dtl@xticlabels\dtl@thislabel\dtl@rest
+ \let\dtl@xticlabels=\dtl@rest
+ \fi
+ \pgftext[base,center,at={\pgfpointadd
+ {\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ {\pgfpoint{0pt}{-\dtl@xticlabelheight}}}]
+ {\dtl@thislabel}
+ }%
+ \fi
+% \end{macrocode}
+% Plot $x$ label if required.
+% \begin{macrocode}
+ \ifx\dtl@xlabel\relax
+ \else
+ \addtolength{\dtl@xticlabelheight}{\baselineskip}%
+ \setlength{\dtl@tmplength}{0.5\DTLplotwidth}
+ \pgftext[base,center,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLminY}}%
+ {\pgfpoint{\dtl@tmplength}{-\dtl@xticlabelheight}}}]{%
+ \dtl@xlabel}
+ \fi
+% \end{macrocode}
+% Plot the $x$ minor ticks if required
+% \begin{macrocode}
+ \ifDTLxminortics
+ \@for\dtl@thistick:=\dtl@xminorticlist\do{%
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ \ifDTLxticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ {\pgfpoint{0pt}{\DTLminorticklength}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLminY}}
+ {\pgfpoint{0pt}{-\DTLminorticklength}}}
+ \fi
+ \ifDTLbox
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ \ifDTLxticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ {\pgfpoint{0pt}{-\DTLminorticklength}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{\DTLmaxY}}
+ {\pgfpoint{0pt}{\DTLminorticklength}}}
+ \fi
+ \fi
+ }%
+ \fi
+% \end{macrocode}
+% Plot $y$ tics if required.
+% \begin{macrocode}
+ \ifDTLytics
+ \@for\dtl@thistick:=\dtl@yticlist\do{%
+ \pgfpathmoveto{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ \ifDTLyticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ {\pgfpoint{\DTLticklength}{0pt}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ {\pgfpoint{-\DTLticklength}{0pt}}}
+ \fi
+ \ifDTLbox
+ \pgfpathmoveto{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ \ifDTLyticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ {\pgfpoint{-\DTLticklength}{0pt}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ {\pgfpoint{\DTLticklength}{0pt}}}
+ \fi
+ \fi
+ \pgfusepath{stroke}
+% \end{macrocode}
+% Plot the $y$ tick labels if required
+% \begin{macrocode}
+ \ifx\dtl@yticlabels\relax
+ \FPround{\dtl@thislabel}{\dtl@thistick}
+ {\c@DTLplotroundYvar}%
+ \else
+ \dtl@chopfirst\dtl@yticlabels\dtl@thislabel\dtl@rest
+ \let\dtl@yticlabels=\dtl@rest
+ \fi
+ \pgftext[right,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ {\pgfpoint{-\DTLticklabeloffset}{0pt}}}]
+ {\dtl@thislabel}
+ }%
+ \fi
+% \end{macrocode}
+% Plot $y$ label if required.
+% \begin{macrocode}
+ \ifx\dtl@ylabel\relax
+ \else
+ \addtolength{\dtl@yticlabelwidth}{\baselineskip}%
+ \setlength{\dtl@tmplength}{0.5\DTLplotheight}
+ \pgftext[bottom,center,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLminY}}%
+ {\pgfpoint{-\dtl@yticlabelwidth}{\dtl@tmplength}}},
+ rotate=90]{%
+ \dtl@ylabel}
+ \fi
+% \end{macrocode}
+% Plot the $y$ minor ticks if required
+% \begin{macrocode}
+ \ifDTLyminortics
+ \@for\dtl@thistick:=\dtl@yminorticlist\do{%
+ \pgfpathmoveto{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ \ifDTLyticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ {\pgfpoint{\DTLminorticklength}{0pt}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLminX}{\dtl@thistick}}
+ {\pgfpoint{-\DTLminorticklength}{0pt}}}
+ \fi
+ \ifDTLbox
+ \pgfpathmoveto{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ \ifDTLyticsin
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ {\pgfpoint{-\DTLminorticklength}{0pt}}}
+ \else
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\DTLmaxX}{\dtl@thistick}}
+ {\pgfpoint{\DTLminorticklength}{0pt}}}
+ \fi
+ \fi
+ \pgfusepath{stroke}
+ }%
+ \fi
+% \end{macrocode}
+% Iterate through each database
+% \begin{macrocode}
+ \@for\dtl@thisdb:=#2\do{%
+% \end{macrocode}
+% Get the current plot mark colour.
+% \begin{macrocode}
+ \ifx\dtl@plotmarkcolorlist\@empty
+ \let\dtl@plotmarkcolorlist=\DTLplotmarkcolors
+ \fi
+ \dtl@chopfirst\dtl@plotmarkcolorlist\dtl@thisplotmarkcolor
+ \dtl@remainder
+ \let\dtl@plotmarkcolorlist=\dtl@remainder
+% \end{macrocode}
+% Get the current plot mark, and store in \cs{dtl@mark}
+% \begin{macrocode}
+ \ifDTLshowmarkers
+ \ifx\dtl@plotmarklist\@empty
+ \let\dtl@plotmarklist=\DTLplotmarks
+ \fi
+ \dtl@chopfirst\dtl@plotmarklist\dtl@thisplotmark
+ \dtl@remainder
+ \let\dtl@plotmarklist=\dtl@remainder
+ \ifx\dtl@thisplotmark\relax
+ \let\dtl@mark=\relax
+ \else
+ \expandafter\toks@\expandafter{\dtl@thisplotmark}%
+ \ifx\dtl@thisplotmarkcolor\@empty
+ \edef\dtl@mark{\the\toks@}%
+ \else
+ \edef\dtl@mark{%
+ \noexpand\color{\dtl@thisplotmarkcolor}%
+ \the\toks@}%
+ \fi
+ \fi
+ \else
+ \let\dtl@mark=\relax
+ \fi
+% \end{macrocode}
+% Get the current plot line colour.
+% \begin{macrocode}
+ \ifx\dtl@plotlinecolorlist\@empty
+ \let\dtl@plotlinecolorlist=\DTLplotlinecolors
+ \fi
+ \dtl@chopfirst\dtl@plotlinecolorlist\dtl@thisplotlinecolor
+ \dtl@remainder
+ \let\dtl@plotlinecolorlist=\dtl@remainder
+% \end{macrocode}
+% Get the current line style, and store in \cs{dtl@linestyle}
+% \begin{macrocode}
+ \ifDTLshowlines
+ \ifx\dtl@plotlinelist\@empty
+ \let\dtl@plotlinelist=\DTLplotlines
+ \fi
+ \dtl@chopfirst\dtl@plotlinelist\dtl@thisplotline
+ \dtl@remainder
+ \let\dtl@plotlinelist=\dtl@remainder
+ \expandafter\ifx\dtl@thisplotline\relax
+ \let\dtl@linestyle=\relax
+ \else
+ \expandafter\toks@\expandafter{\dtl@thisplotline}%
+ \ifx\dtl@thisplotlinecolor\@empty
+ \edef\dtl@linestyle{\the\toks@}%
+ \else
+ \edef\dtl@linestyle{%
+ \noexpand\color{\dtl@thisplotlinecolor}%
+ \the\toks@}%
+ \fi
+ \fi
+ \else
+ \let\dtl@linestyle=\relax
+ \fi
+% \end{macrocode}
+% Append this plot setting to the legend.
+% \begin{macrocode}
+ \ifnum\dtl@legendsetting>0\relax
+ \dtl@chopfirst\dtl@legendlabels\dtl@thislabel\dtl@rest
+ \let\dtl@legendlabels=\dtl@rest
+ \expandafter\toks@\expandafter{\dtl@mark}%
+ \expandafter\@dtl@toks\expandafter{\dtl@linestyle}%
+ \edef\dtl@addtolegend{\noexpand\DTLaddtoplotlegend
+ {\the\toks@}{\the\@dtl@toks}{\dtl@thislabel}}%
+ \dtl@addtolegend
+ \fi
+% \end{macrocode}
+% Store stream in \cs{dtl@stream}
+% \begin{macrocode}
+ \def\dtl@stream{\pgfplotstreamstart}%
+% \end{macrocode}
+% Only plot points that lie inside bounds.
+%\changes{1.01}{2007 Aug 17}{uses \cs{@sDTLforeach} instead of
+%\cs{DTLforeach}}
+% \begin{macrocode}
+ \@sDTLforeach[#1]{\dtl@thisdb}{\dtl@x=\dtl@xkey,%
+ \dtl@y=\dtl@ykey}{%
+ \DTLconverttodecimal{\dtl@x}{\dtl@decx}%
+ \DTLconverttodecimal{\dtl@y}{\dtl@decy}%
+ \ifthenelse{%
+ \DTLisclosedbetween{\dtl@x}{\DTLminX}{\DTLmaxX}%
+ \and
+ \DTLisclosedbetween{\dtl@y}{\DTLminY}{\DTLmaxY}%
+ }{%
+ \expandafter\toks@\expandafter{\dtl@stream}%
+ \edef\dtl@stream{\the\toks@
+ \noexpand\pgfplotstreampoint
+ {\noexpand\pgfpointxy{\dtl@decx}{\dtl@decy}}}%
+ }{}%
+ }%
+ \expandafter\toks@\expandafter{\dtl@stream}%
+ \edef\dtl@stream{\the\toks@\noexpand\pgfplotstreamend}%
+% \end{macrocode}
+% End plot stream and draw path.
+% \begin{macrocode}
+ \ifx\dtl@linestyle\relax
+ \else
+ \begin{scope}
+ \dtl@linestyle
+ \pgfplothandlerlineto
+ \dtl@stream
+ \pgfusepath{stroke}
+ \end{scope}
+ \fi
+ \ifx\dtl@mark\relax
+ \else
+ \begin{scope}
+ \pgfplothandlermark{\dtl@mark}%
+ \dtl@stream
+ \pgfusepath{stroke}
+ \end{scope}
+ \fi
+ }%
+% \end{macrocode}
+% Plot legend if required.
+% \begin{macrocode}
+ \ifcase\dtl@legendsetting
+ % none
+ \or % north
+ \pgftext[top,center,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLmaxY}}
+ {\pgfpoint{0.5\DTLplotwidth}{-\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % north east
+ \pgftext[top,right,at={\pgfpointadd
+ {\pgfpointxy{\DTLmaxX}{\DTLmaxY}}
+ {\pgfpoint{-\DTLlegendxoffset}{-\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % east
+ \pgftext[center,right,at={\pgfpointadd
+ {\pgfpointxy{\DTLmaxX}{\DTLminY}}
+ {\pgfpoint{-\DTLlegendxoffset}{0.5\DTLplotheight}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % south east
+ \pgftext[bottom,right,at={\pgfpointadd
+ {\pgfpointxy{\DTLmaxX}{\DTLminY}}
+ {\pgfpoint{-\DTLlegendxoffset}{\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % south
+ \pgftext[center,bottom,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLminY}}
+ {\pgfpoint{0.5\DTLplotwidth}{\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % south west
+ \pgftext[bottom,left,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLminY}}
+ {\pgfpoint{\DTLlegendxoffset}{\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % west
+ \pgftext[center,left,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLminY}}
+ {\pgfpoint{\DTLlegendxoffset}{0.5\DTLplotheight}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \or % north west
+ \pgftext[top,left,at={\pgfpointadd
+ {\pgfpointxy{\DTLminX}{\DTLmaxY}}
+ {\pgfpoint{\DTLlegendxoffset}{-\DTLlegendyoffset}}}]
+ {\DTLformatlegend
+ {\begin{tabular}{cl}\dtl@legend\end{tabular}}}
+ \fi
+ \DTLplotatendtikz
+ \end{tikzpicture}
+ \fi
+ \fi
+\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@getbounds}
+% Extract bounds:
+% \begin{macrocode}
+\def\dtl@getbounds#1,#2,#3,#4\@nil{%
+\def\DTLminX{#1}%
+\def\DTLminY{#2}%
+\def\DTLmaxX{#3}%
+\def\DTLmaxY{#4}%
+\FPifgt{\DTLminX}{\DTLmaxX}
+ \PackageError{dataplot}{Min X > Max X in bounds #1,#2,#3,#4}{%
+ The bounds must be specified as minX,minY,maxX,maxY}%
+\fi
+\FPifgt{\DTLminY}{\DTLmaxY}
+ \PackageError{dataplot}{Min Y > Max Y in bounds #1,#2,#3,#4}{%
+ The bounds must be specified as minX,minY,maxX,maxY}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@constructticklist}
+%\begin{definition}
+%\cs{dtl@constructticklist}\marg{min}\marg{max}\marg{scale factor}\marg{list}
+%\end{definition}
+% Constructs a list of tick points between \meta{min} and \meta{max}
+% and store in \meta{list} (a control sequence.)
+% \begin{macrocode}
+\newcommand*{\dtl@constructticklist}[4]{%
+\DTLifFPopenbetween{0}{#1}{#2}{%
+ \FPsub{\@dtl@width}{0}{#1}%
+ \FPmul{\@dtl@width}{\@dtl@width}{#3}%
+ \FPdiv{\@dtl@neggap}{\@dtl@width}{10}%
+ \setlength\dtl@tmplength{\@dtl@neggap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@neggap}{\@dtl@width}{4}%
+ \setlength\dtl@tmplength{\@dtl@neggap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@neggap}{\@dtl@width}{2}%
+ \setlength\dtl@tmplength{\@dtl@neggap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \let\@dtl@neggap=\@dtl@width
+ \fi
+ \fi
+ \fi
+ \FPmul{\@dtl@width}{#2}{#3}%
+ \FPdiv{\@dtl@posgap}{\@dtl@width}{10}%
+ \setlength\dtl@tmplength{\@dtl@posgap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@posgap}{\@dtl@width}{4}%
+ \setlength\dtl@tmplength{\@dtl@posgap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@posgap}{\@dtl@width}{2}%
+ \setlength\dtl@tmplength{\@dtl@posgap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \let\@dtl@posgap=\@dtl@width
+ \fi
+ \fi
+ \fi
+ \FPmax{\@dtl@gap}{\@dtl@neggap}{\@dtl@posgap}%
+ \FPdiv{\@dtl@gap}{\@dtl@gap}{#3}%
+ \dtl@constructticklistwithgapz{#1}{#2}{#4}{\@dtl@gap}%
+}{%
+ \FPsub{\@dtl@width}{#2}{#1}%
+ \FPmul{\@dtl@width}{\@dtl@width}{#3}%
+ \FPdiv{\@dtl@gap}{\@dtl@width}{10}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@gap}{\@dtl@width}{4}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \FPdiv{\@dtl@gap}{\@dtl@width}{2}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLmintickgap
+ \let\@dtl@gap=\@dtl@width
+ \fi
+ \fi
+ \fi
+ \FPdiv{\@dtl@gap}{\@dtl@gap}{#3}%
+ \dtl@constructticklistwithgap{#1}{#2}{#4}{\@dtl@gap}%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@constructticklistwithgap}
+%\begin{definition}
+%\cs{dtl@constructticklistwithgap}\marg{min}\marg{max}\marg{list}\marg{gap}
+%\end{definition}
+% Constructs a list of tick points between \meta{min} and \meta{max}
+% and store in \meta{list} (a control sequence) using the gap given
+% by \meta{gap} where the gap is given in user co-ordinates.
+% \begin{macrocode}
+\newcommand*{\dtl@constructticklistwithgap}[4]{%
+\edef\@dtl@thistick{#1}%
+\edef#3{#1}%
+\FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+\whiledo{\DTLisFPopenbetween{\@dtl@thistick}{#1}{#2}}{%
+ \expandafter\toks@\expandafter{\@dtl@thistick}%
+ \edef#3{#3,\the\toks@}%
+ \FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+}%
+\expandafter\toks@\expandafter{#2}%
+\edef#3{#3,\the\toks@}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@constructticklistwithgapz}
+%\begin{definition}
+%\cs{dtl@constructticklistwithgapz}\marg{min}\marg{max}\marg{list}\marg{gap}
+%\end{definition}
+% Constructs a list of tick points between \meta{min} and \meta{max}
+% and store in \meta{list} (a control sequence) using the gap given
+% by \meta{gap} where the tick list straddles zero.
+% \begin{macrocode}
+\newcommand*{\dtl@constructticklistwithgapz}[4]{%
+\edef\@dtl@thistick{0}%
+\edef#3{0}%
+\FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+\whiledo{\DTLisFPopenbetween{\@dtl@thistick}{0}{#2}}{%
+ \expandafter\toks@\expandafter{\@dtl@thistick}%
+ \edef#3{#3,\the\toks@}%
+ \FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+}%
+\expandafter\toks@\expandafter{#2}%
+\edef#3{#3,\the\toks@}%
+\FPifeq{#1}{0}%
+\else
+\edef\@dtl@thistick{0}%
+ \FPsub{\@dtl@thistick}{\@dtl@thistick}{#4}%
+ \whiledo{\DTLisFPopenbetween{\@dtl@thistick}{#1}{0}}{%
+ \expandafter\toks@\expandafter{\@dtl@thistick}%
+ \edef#3{\the\toks@,#3}%
+ \FPsub{\@dtl@thistick}{\@dtl@thistick}{#4}%
+ }%
+ \expandafter\toks@\expandafter{#1}%
+ \edef#3{\the\toks@,#3}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@constructminorticklist}
+%\begin{definition}
+%\cs{dtl@constructminorticklist}\marg{min}\marg{max}\marg{scale factor}\marg{list}
+%\end{definition}
+% Constructs a list of minor tick points between \meta{min} and \meta{max}
+% and append to \meta{list} (a control sequence.)
+% \begin{macrocode}
+\newcommand*{\dtl@constructminorticklist}[4]{%
+ \FPsub{\@dtl@width}{#2}{#1}%
+ \FPmul{\@dtl@width}{\@dtl@width}{#3}%
+ \FPdiv{\@dtl@gap}{\@dtl@width}{10}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLminminortickgap
+ \FPdiv{\@dtl@gap}{\@dtl@width}{4}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLminminortickgap
+ \FPdiv{\@dtl@gap}{\@dtl@width}{2}%
+ \setlength\dtl@tmplength{\@dtl@gap sp}%
+ \ifdim\dtl@tmplength<\DTLminminortickgap
+ \let\@dtl@gap=\@dtl@width
+ \fi
+ \fi
+ \fi
+ \FPdiv{\@dtl@gap}{\@dtl@gap}{#3}%
+ \dtl@constructticklistwithgapex{#1}{#2}{\dtl@tmp}{\@dtl@gap}%
+ \ifx#4\@empty
+ \let#4=\dtl@tmp
+ \else
+ \expandafter\toks@\expandafter{#4}%
+ \edef#4{#4,\dtl@tmp}%
+ \fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@constructticklistwithgapex}
+%\begin{definition}
+%\cs{dtl@constructticklistwithgapex}\marg{min}\marg{max}\marg{list}\marg{gap}
+%\end{definition}
+% Constructs a list of tick points between \meta{min} and \meta{max}
+% and store in \meta{list} (a control sequence) using the gap given
+% by \meta{gap} where the gap is given in user co-ordinates.
+% The end points are excluded from the list.
+% \begin{macrocode}
+\newcommand*{\dtl@constructticklistwithgapex}[4]{%
+\edef\@dtl@thistick{#1}%
+\let#3=\@empty
+\FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+\whiledo{\DTLisFPopenbetween{\@dtl@thistick}{#1}{#2}}{%
+ \expandafter\toks@\expandafter{\@dtl@thistick}%
+ \ifx#3\@empty
+ \edef#3{\the\toks@}%
+ \else
+ \edef#3{#3,\the\toks@}%
+ \fi
+ \FPadd{\@dtl@thistick}{\@dtl@thistick}{#4}%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLaddtoplotlegend}
+%\begin{definition}
+%\cs{DTLaddtoplotlegend}\marg{marker}\marg{line style}\marg{label}
+%\end{definition}
+% Adds entry to legend.
+% \begin{macrocode}
+\newcommand*{\DTLaddtoplotlegend}[3]{%
+\def\dtl@legendline{}%
+\ifx\relax#2\relax
+\else
+ \toks@{#2%
+ \pgfpathmoveto{\pgfpoint{-10pt}{0pt}}%
+ \pgfpathlineto{\pgfpoint{10pt}{0pt}}%
+ \pgfusepath{stroke}}%
+ \edef\dtl@legendline{\the\toks@}%
+\fi
+\ifx\relax#1\relax
+\else
+ \toks@{#1}%
+ \expandafter\@dtl@toks\expandafter{\dtl@legendline}%
+ \edef\dtl@legendline{\the\@dtl@toks\the\toks@}%
+\fi
+\expandafter\toks@\expandafter{\dtl@legendline}%
+\ifx\dtl@legend\@empty
+ \edef\dtl@legend{\noexpand\tikz\the\toks@; \noexpand& #3}%
+\else
+ \expandafter\@dtl@toks\expandafter{\dtl@legend}%
+ \edef\dtl@legend{\the\@dtl@toks\noexpand\\%
+ \noexpand\tikz\the\toks@; \noexpand& #3}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%\iffalse
+% \begin{macrocode}
+%</dataplot.sty>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%<*databar.sty>
+% \end{macrocode}
+%\fi
+%\section{databar.sty}
+% Declare package:
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{databar}[2007/08/17 v1.01 (NLCT)]
+% \end{macrocode}
+% Require \sty{xkeyval} package
+% \begin{macrocode}
+\RequirePackage{xkeyval}
+% \end{macrocode}
+% Require \sty{dataplot} package
+% \begin{macrocode}
+\RequirePackage{dataplot}
+% \end{macrocode}
+%\begin{macro}{\ifDTLcolorbarchart}
+% The conditional \cs{ifDTLcolorbarchart} is used to determine
+% whether to use colour or grey scale.
+% \begin{macrocode}
+\newif\ifDTLcolorbarchart
+\DTLcolorbarcharttrue
+% \end{macrocode}
+%\end{macro}
+% Package options to change the conditional:
+% \begin{macrocode}
+\DeclareOption{color}{\DTLcolorbarcharttrue}
+\DeclareOption{gray}{\DTLcolorbarchartfalse}
+% \end{macrocode}
+%\cs{DTLbarXlabelalign} specifies the alignment
+% for the $x$ axis labels.
+% \begin{macrocode}
+\newcommand*{\DTLbarXlabelalign}{left,rotate=-90}
+% \end{macrocode}
+%\cs{DTLbarYticklabelalign} specifies the alignment
+% for the $x$ axis labels.
+% \begin{macrocode}
+\newcommand*{\DTLbarYticklabelalign}{right}
+% \end{macrocode}
+%\begin{macro}{\ifDTLverticalbars}
+% Define boolean keys to govern bar chart orientation.
+% \begin{macrocode}
+\define@boolkey{databar}[DTL]{verticalbars}[true]{%
+\ifDTLverticalbars
+ \def\DTLbarXlabelalign{left,rotate=-90}%
+ \def\DTLbarYticklabelalign{right}
+\else
+ \def\DTLbarXlabelalign{right}%
+ \def\DTLbarYticklabelalign{center}
+\fi}
+% \end{macrocode}
+%\end{macro}
+% Set defaults:
+% \begin{macrocode}
+\DTLverticalbarstrue
+% \end{macrocode}
+% Package options to change \cs{ifDTLverticalbars}
+% \begin{macrocode}
+\DeclareOption{vertical}{\DTLverticalbarstrue
+ \def\DTLbarXlabelalign{left,rotate=-90}%
+ \def\DTLbarYticklabelalign{right}
+}
+\DeclareOption{horizontal}{\DTLverticalbarsfalse
+ \def\DTLbarXlabelalign{right}%
+ \def\DTLbarYticklabelalign{center}
+}
+% \end{macrocode}
+% Process options:
+% \begin{macrocode}
+\ProcessOptions
+% \end{macrocode}
+% Required packages:
+% \begin{macrocode}
+\RequirePackage{datatool}
+\RequirePackage{tikz}
+% \end{macrocode}
+% Define some variables that govern the appearance of the bar
+% chart.
+%
+%\begin{macro}{\DTLbarchartlength}
+% The total height of the bar chart is given by \cs{DTLbarchartheight}
+% \begin{macrocode}
+\newlength\DTLbarchartlength
+\DTLbarchartlength=3in
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbarwidth}
+% The width of each bar is given by \cs{DTLbarwidth}.
+% \begin{macrocode}
+\newlength\DTLbarwidth
+\DTLbarwidth=1cm
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbarlabeloffset}
+% The offset from the $x$ axis to the bar label if given by
+% \cs{DTLbarlabeloffset}.
+% \begin{macrocode}
+\newlength\DTLbarlabeloffset
+\setlength\DTLbarlabeloffset{10pt}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLBarXAxisStyle}
+% The style of the $x$ axis is given by \cs{DTLBarXAxisStyle}
+% \begin{macrocode}
+\newcommand*{\DTLBarXAxisStyle}{-}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLBarYAxisStyle}
+% The style of the $y$ axis is given by \cs{DTLBarYAxisStyle}.
+% \begin{macrocode}
+\newcommand*{\DTLBarYAxisStyle}{-}
+% \end{macrocode}
+%\end{macro}
+%
+% \counterfmt{DTLbarroundvar} is a counter governing the number of digits
+% to round to when using \cs{FPround}.
+% \begin{macrocode}
+\newcounter{DTLbarroundvar}
+\setcounter{DTLbarroundvar}{1}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLbardisplayYticklabel}
+%\cs{DTLbardisplayYticklabel} governs how the $y$ tick labels appear.
+% \begin{macrocode}
+\newcommand*{\DTLbardisplayYticklabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLdisplaylowerbarlabel}
+%\cs{DTLdisplaylowerbarlabel} governs how the lower bar labels appear.
+% \begin{macrocode}
+\newcommand*{\DTLdisplaylowerbarlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLdisplaylowermultibarlabel}
+%\cs{DTLdisplaylowermultibarlabel} governs how the lower multi bar labels appear.
+% \begin{macrocode}
+\newcommand*{\DTLdisplaylowermultibarlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLdisplayupperbarlabel}
+%\cs{DTLdisplayupperbarlabel} governs how the upper bar labels
+% appear.
+% \begin{macrocode}
+\newcommand*{\DTLdisplayupperbarlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLdisplayuppermultibarlabel}
+%\cs{DTLdisplayuppermultibarlabel} governs how the upper multi bar
+% labels appear.
+% \begin{macrocode}
+\newcommand*{\DTLdisplayuppermultibarlabel}[1]{#1}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbaratbegintikz}
+% \cs{DTLbaratbegintikz} specifies any commands
+% to apply at the start of the \env{tikzpicture} environment.
+% By default it does nothing.
+% \begin{macrocode}
+\newcommand*{\DTLbaratbegintikz}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbaratendtikz}
+% \cs{DTLbaratendtikz} specifies any commands
+% to apply at the end of the \env{tikzpicture} environment.
+% By default it does nothing.
+% \begin{macrocode}
+\newcommand*{\DTLbaratendtikz}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\ifDTLbarxaxis}
+% The conditional \cs{ifDTLbarxaxis} is used to determine
+% whether or not to display the $x$ axis
+% \begin{macrocode}
+\newif\ifDTLbarxaxis
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLbaryaxis}
+% The conditional \cs{ifDTLbaryaxis} is used to determine
+% whether or not to display the $y$ axis.
+% \begin{macrocode}
+\newif\ifDTLbaryaxis
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLbarytics}
+% The conditional \cs{ifDTLbarytics} to determine whether
+% or not to display the $y$ tick marks.
+% \begin{macrocode}
+\newif\ifDTLbarytics
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\@dtl@barcount}
+% The count register \cs{@dtl@barcount} is used to store
+% the current bar index.
+% \begin{macrocode}
+\newcount\@dtl@barcount
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsetbarcolor}
+%\begin{definition}
+% \cs{DTLsetbarcolor}\marg{n}\marg{color}
+%\end{definition}
+% Assigns colour name \meta{color} to the \meta{n}th bar.
+% \begin{macrocode}
+\newcommand*{\DTLsetbarcolor}[2]{%
+\expandafter\def\csname dtlbar@segcol\romannumeral#1\endcsname{#2}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLgetbarcolor}
+%\begin{definition}
+%\cs{DTLgetbarcolor}\marg{n}
+%\end{definition}
+% Gets the colour specification for the \meta{n}th bar.
+% \begin{macrocode}
+\newcommand*{\DTLgetbarcolor}[1]{%
+\csname dtlbar@segcol\romannumeral#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdobarcolor}
+%\begin{definition}
+%\cs{DTLdobarcolor}\marg{n}
+%\end{definition}
+% Sets the colour to that for the \meta{n}th bar.
+% \begin{macrocode}
+\newcommand*{\DTLdobarcolor}[1]{%
+\expandafter\color\expandafter
+{\csname dtlbar@segcol\romannumeral#1\endcsname}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLdocurrentbarcolor}
+%\cs{DTLdocurrentbarcolor}
+% sets the colour to that of the current bar.
+% \begin{macrocode}
+\newcommand*{\DTLdocurrentbarcolor}{%
+\ifnum\dtlforeachlevel=0\relax
+ \PackageError{databar}{Can't use
+ \string\DTLdocurrentbarcolor\space outside
+ \string\DTLbarchart}{}%
+\else
+ \expandafter\DTLdobarcolor\expandafter{%
+ \csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname}%
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbaroutlinecolor}
+%\cs{DTLbaroutlinecolor} specifies what colour to draw the
+% outline.
+% \begin{macrocode}
+\newcommand*{\DTLbaroutlinecolor}{black}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbaroutlinewidth}
+%\cs{DTLbaroutlinewidth} specifies the line width of the outline:
+% Outline is only drawn if the linewidth is greater than 0pt.
+% \begin{macrocode}
+\newlength\DTLbaroutlinewidth
+\DTLbaroutlinewidth=0pt
+% \end{macrocode}
+%\end{macro}
+%
+% Set the default colours. If there are more than eight bars,
+% more colours will need to be defined.
+% \begin{macrocode}
+\ifDTLcolorbarchart
+ \DTLsetbarcolor{1}{red}
+ \DTLsetbarcolor{2}{green}
+ \DTLsetbarcolor{3}{blue}
+ \DTLsetbarcolor{4}{yellow}
+ \DTLsetbarcolor{5}{magenta}
+ \DTLsetbarcolor{6}{cyan}
+ \DTLsetbarcolor{7}{orange}
+ \DTLsetbarcolor{8}{white}
+\else
+ \DTLsetbarcolor{1}{black!15}
+ \DTLsetbarcolor{2}{black!25}
+ \DTLsetbarcolor{3}{black!35}
+ \DTLsetbarcolor{4}{black!45}
+ \DTLsetbarcolor{5}{black!55}
+ \DTLsetbarcolor{6}{black!65}
+ \DTLsetbarcolor{7}{black!75}
+ \DTLsetbarcolor{8}{black!85}
+\fi
+% \end{macrocode}
+%
+% Define keys for \cs{DTLbarchart} optional argument.
+% Set the maximum value of the $y$ axis.
+% \begin{macrocode}
+\define@key{databar}{max}{\def\DTLbarmax{#1}}
+% \end{macrocode}
+% Set the total length of the bar chart
+% \begin{macrocode}
+\define@key{databar}{length}{\DTLbarchartlength=#1\relax
+}
+% \end{macrocode}
+% Set the maximum depth (negative extent)
+% \begin{macrocode}
+\define@key{databar}{maxdepth}{%
+\ifnum#1>0\relax
+ \PackageError{databar}{depth must be zero or negative}{}%
+\else
+ \def\DTLnegextent{#1}%
+\fi}
+% \end{macrocode}
+% Determine which axes should be shown
+% \begin{macrocode}
+\define@choicekey{databar}{axes}[\var\nr]{both,x,y,none}{%
+\ifcase\nr\relax
+ % both
+ \DTLbarxaxistrue
+ \DTLbaryaxistrue
+ \DTLbaryticstrue
+\or
+ % x only
+ \DTLbarxaxistrue
+ \DTLbaryaxisfalse
+ \DTLbaryticsfalse
+\or
+ % y only
+ \DTLbarxaxisfalse
+ \DTLbaryaxistrue
+ \DTLbaryticstrue
+\or
+ % neither
+ \DTLbarxaxisfalse
+ \DTLbaryaxisfalse
+ \DTLbaryticsfalse
+\fi
+}
+% \end{macrocode}
+% Variable used to create the bar chart. (Must be a control
+% sequence.)
+% \begin{macrocode}
+\define@key{databar}{variable}{%
+\def\DTLbarvariable{#1}}
+% \end{macrocode}
+% Variables used to create the multi bar chart. (Must be a
+% comma separated list of control sequences.)
+% \begin{macrocode}
+\define@key{databar}{variables}{%
+\def\dtlbar@variables{#1}}
+% \end{macrocode}
+% Bar width
+% \begin{macrocode}
+\define@key{databar}{barwidth}{\setlength{\DTLbarwidth}{#1}}
+% \end{macrocode}
+% Lower bar labels
+% \begin{macrocode}
+\define@key{databar}{barlabel}{%
+\def\dtl@barlabel{#1}}
+\def\dtl@barlabel{}
+% \end{macrocode}
+% Lower bar labels for multi-bar charts
+% \begin{macrocode}
+\define@key{databar}{multibarlabels}{%
+\def\dtl@multibarlabels{#1}}
+\def\dtl@multibarlabels{}
+% \end{macrocode}
+% Gap between groups in multi-bar charts (This should be in $x$ units
+% where 1 $x$ unit is the width of a bar.)
+% \begin{macrocode}
+\define@key{databar}{groupgap}{\def\dtlbar@groupgap{#1}}
+\def\dtlbar@groupgap{1}
+% \end{macrocode}
+% Upper bar labels
+% \begin{macrocode}
+\define@key{databar}{upperbarlabel}{%
+\def\dtl@upperbarlabel{#1}}
+\def\dtl@upperbarlabel{}
+% \end{macrocode}
+% Upper bar labels for multi-bar charts
+% \begin{macrocode}
+\define@key{databar}{uppermultibarlabels}{%
+\def\dtl@uppermultibarlabels{#1}}
+\def\dtl@uppermultibarlabels{}
+% \end{macrocode}
+% Define list of points for $y$ tics. (Must be a comma separated list
+% of decimal numbers.)
+% \begin{macrocode}
+\define@key{databar}{yticpoints}{%
+\def\dtlbar@yticlist{#1}\DTLbaryticstrue\DTLbaryaxistrue}
+\let\dtlbar@yticlist=\relax
+% \end{macrocode}
+% Set the $y$ tick gap:
+% \begin{macrocode}
+\define@key{databar}{yticgap}{%
+\def\dtlbar@yticgap{#1}\DTLbaryticstrue\DTLbaryaxistrue}
+\let\dtlbar@yticgap=\relax
+% \end{macrocode}
+% Define list of labels for $y$ tics.
+% \begin{macrocode}
+\define@key{databar}{yticlabels}{%
+\def\dtlbar@yticlabels{#1}\DTLbaryticstrue\DTLbaryaxistrue}
+\let\dtlbar@yticlabels=\relax
+% \end{macrocode}
+% Define $y$ axis label.
+% \begin{macrocode}
+\define@key{databar}{ylabel}{%
+\def\dtlbar@ylabel{#1}}
+\let\dtlbar@ylabel=\relax
+% \end{macrocode}
+%
+%\begin{macro}{\DTLbarchart}
+%\begin{definition}
+% \cs{DTLbarchart}\oarg{conditions}\marg{option list}\marg{db name}\marg{assign list}
+%\end{definition}
+% Make a bar chart from data given in data base \meta{db name},
+% where \meta{assign list} is a comma-separated list of
+% \meta{cmd}\texttt{=}\meta{key} pairs. \meta{option list} must
+% include \texttt{variable}\texttt{=}\meta{cmd}, where \meta{cmd}
+% is included in \meta{assign list}. The optional argument
+% \meta{conditions} is the same as that for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLbarchart}[4][\boolean{true}]{%
+{\let\DTLbarvariable=\relax
+\let\DTLbarmax=\relax
+\let\DTLnegextent=\relax
+\disable@keys{databar}{variables,multibarlabels,%
+uppermultibarlabels,groupgap}%
+\setkeys{databar}{#2}%
+\ifx\DTLbarvariable\relax
+ \PackageError{databar}{\string\DTLbarchart\space missing variable}{}%
+\else
+% \end{macrocode}
+% Compute the maximum bar height, unless \cs{DTLbarmax} has been
+% set.
+%\changes{1.01}{2007 Aug 17}{uses \cs{@sDTLforeach} instead of
+%\cs{DTLforeach}}
+% \begin{macrocode}
+ \ifx\DTLbarmax\relax
+ \@sDTLforeach[#1]{#3}{#4}{%
+ \expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@barvar}%
+ \ifx\DTLbarmax\relax
+ \let\DTLbarmax=\dtl@barvar
+ \else
+ \let\dtl@old=\DTLbarmax
+ \FPmax{\DTLbarmax}{\dtl@old}{\dtl@barvar}%
+ \fi
+ }%
+ \ifx\dtlbar@yticgap\relax
+ \else
+ \let\dtl@thistick=\dtlbar@yticgap%
+ \whiledo{\DTLisFPopenbetween{\dtl@thistick}{0}{\DTLbarmax}}{%
+ \FPadd{\dtl@thistick}{\dtl@thistick}{\dtlbar@yticgap}%
+ }%
+ \let\DTLbarmax=\dtl@thistick
+ \fi
+ \fi
+% \end{macrocode}
+% Compute the bar depth, unless \cs{DTLnegextent} has been
+% set.
+% \begin{macrocode}
+ \ifx\DTLnegextent\relax
+ \def\DTLnegextent{0}%
+ \@sDTLforeach[#1]{#3}{#4}{%
+ \expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@barvar}%
+ \let\dtl@old=\DTLnegextent
+ \DTLmin{\DTLnegextent}{\dtl@old}{\dtl@barvar}%
+ }%
+ \ifx\dtlbar@yticgap\relax
+ \else
+ \ifthenelse{\DTLisFPlt{\DTLnegextent}{0}}{%
+ \edef\dtl@thistick{0}%
+ \whiledo{\DTLisFPclosedbetween{\dtl@thistick}{\DTLnegextent}{0}}{%
+ \FPsub{\dtl@thistick}{\dtl@thistick}{\dtlbar@yticgap}%
+ }%
+ \let\DTLnegextent=\dtl@thistick
+ }{}%
+ \fi
+ \fi
+% \end{macrocode}
+% Determine scaling factor
+% \begin{macrocode}
+ \@dtl@tmpcount=\DTLbarchartlength
+ \FPsub{\dtl@extent}{\DTLbarmax}{\DTLnegextent}%
+ \FPdiv{\dtl@unit}{\number\@dtl@tmpcount}{\dtl@extent}%
+% \end{macrocode}
+% Construct $y$ tick list if required
+% \begin{macrocode}
+ \setlength{\dtl@yticlabelwidth}{0pt}%
+ \ifDTLbarytics
+ \ifx\dtlbar@yticlist\relax
+ \ifx\dtlbar@yticgap\relax
+ \dtl@constructticklist\DTLnegextent\DTLbarmax
+ \dtl@unit\dtlbar@yticlist
+ \else
+ \dtl@constructticklistwithgapz
+ \DTLnegextent\DTLbarmax\dtlbar@yticlist\dtlbar@yticgap
+ \fi
+ \fi
+ \ifx\dtlbar@ylabel\relax
+ \else
+ \ifx\dtlbar@yticlabels\relax
+ \@for\dtl@thislabel:=\dtlbar@yticlist\do{%
+ \FPround{\dtl@thislabel}{\dtl@thislabel}
+ {\c@DTLbarroundvar}%
+ \ifDTLverticalbars
+ \settowidth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \else
+ \settoheight{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \edef\@dtl@h{\the\dtl@tmplength}%
+ \settodepth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \addtolength{\dtl@tmplength}{\@dtl@h}%
+ \addtolength{\dtl@tmplength}{\baselineskip}%
+ \fi
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \else
+ \@for\dtl@thislabel:=\dtlbar@yticlabels\do{%
+ \ifDTLverticalbars
+ \settowidth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \else
+ \settoheight{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \edef\@dtl@h{\the\dtl@tmplength}%
+ \settodepth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \addtolength{\dtl@tmplength}{\@dtl@h}%
+ \addtolength{\dtl@tmplength}{\baselineskip}%
+ \fi
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \fi
+ \fi
+ \fi
+% \end{macrocode}
+% Store the width of the bar chart in \cs{DTLbarchartwidth}
+% \begin{macrocode}
+\edef\DTLbarchartwidth{\expandafter\number\csname dtlrows@#3\endcsname}
+% \end{macrocode}
+% Do the bar chart
+% \begin{macrocode}
+\begin{tikzpicture}
+% \end{macrocode}
+% Set unit vectors
+% \begin{macrocode}
+\ifDTLverticalbars
+ \pgfsetyvec{\pgfpoint{0pt}{\dtl@unit sp}}%
+ \pgfsetxvec{\pgfpoint{\DTLbarwidth}{0pt}}%
+\else
+ \pgfsetxvec{\pgfpoint{\dtl@unit sp}{0pt}}%
+ \pgfsetyvec{\pgfpoint{0pt}{\DTLbarwidth}}%
+\fi
+% \end{macrocode}
+% Begin hook
+% \begin{macrocode}
+\DTLbaratbegintikz
+% \end{macrocode}
+% Initialise
+% \begin{macrocode}
+\def\@dtl@start{0}%
+% \end{macrocode}
+% Iterate through data
+% \begin{macrocode}
+\@sDTLforeach[#1]{#3}{#4}{%
+% \end{macrocode}
+% Store the bar number in \cs{@dtl@bar}
+% \begin{macrocode}
+\expandafter\let\expandafter\@dtl@bar
+ \csname c@DTLrow\romannumeral\dtlforeachlevel\endcsname%
+% \end{macrocode}
+% Convert variable to decimal
+% \begin{macrocode}
+\expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@variable}%
+% \end{macrocode}
+% Draw bars
+% \begin{macrocode}
+\begin{scope}
+ \DTLdocurrentbarcolor
+ \ifDTLverticalbars
+ \fill (\@dtl@start,0) -- (\@dtl@start,\dtl@variable)
+ -- (\@dtl@bar,\dtl@variable) -- (\@dtl@bar,0) -- cycle;
+ \else
+ \fill (0,\@dtl@start) -- (\dtl@variable,\@dtl@start)
+ -- (\dtl@variable,\@dtl@bar) -- (0,\@dtl@bar) -- cycle;
+ \fi
+\end{scope}
+% \end{macrocode}
+% Draw outline
+% \begin{macrocode}
+\begin{scope}
+\ifdim\DTLbaroutlinewidth>0pt
+ \expandafter\color\expandafter{\DTLbaroutlinecolor}
+ \ifDTLverticalbars
+ \draw (\@dtl@start,0) -- (\@dtl@start,\dtl@variable)
+ -- (\@dtl@bar,\dtl@variable) -- (\@dtl@bar,0) -- cycle;
+ \else
+ \draw (0,\@dtl@start) -- (\dtl@variable,\@dtl@start)
+ -- (\dtl@variable,\@dtl@bar) -- (0,\@dtl@bar) -- cycle;
+ \fi
+\fi
+\end{scope}
+% \end{macrocode}
+% Draw lower $x$ labels
+% \begin{macrocode}
+\ifDTLverticalbars
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@start.5}{0}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLbarlabeloffset}}},
+ \DTLbarXlabelalign
+ }%
+\else
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{0}{\@dtl@start.5}}
+ {\noexpand\pgfpoint{-\noexpand\DTLbarlabeloffset}{0pt}}},
+ \DTLbarXlabelalign
+ }%
+\fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLdisplaylowerbarlabel{\dtl@barlabel}}
+% \end{macrocode}
+% Draw upper $x$ labels
+% \begin{macrocode}
+\ifDTLverticalbars
+ \expandafter\DTLifnumlt\expandafter{\DTLbarvariable}{0}
+ {
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@start.5}{\dtl@variable}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLbarlabeloffset}}}
+ }%
+ }{%
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@start.5}{\dtl@variable}}
+ {\noexpand\pgfpoint{0pt}{\noexpand\DTLbarlabeloffset}}}
+ }%
+ }
+\else
+ \expandafter\DTLifnumlt\expandafter{\DTLbarvariable}{0}
+ {
+ \edef\dtl@textopt{right,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@variable}{\@dtl@start.5}}
+ {\noexpand\pgfpoint{-\noexpand\DTLbarlabeloffset}{0pt}}}
+ }%
+ }{%
+ \edef\dtl@textopt{left,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@variable}{\@dtl@start.5}}
+ {\noexpand\pgfpoint{\noexpand\DTLbarlabeloffset}{0pt}}}
+ }%
+ }
+\fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLdisplayupperbarlabel{\dtl@upperbarlabel}}
+% \end{macrocode}
+% End of loop
+% \begin{macrocode}
+ \edef\@dtl@start{\number\@dtl@bar}%
+}
+% \end{macrocode}
+% Draw $x$ axis
+% \begin{macrocode}
+\ifDTLbarxaxis
+ \ifDTLverticalbars
+ \expandafter\draw\expandafter[\DTLBarXAxisStyle]
+ (0,0) -- (\DTLbarchartwidth,0);
+ \else
+ \expandafter\draw\expandafter[\DTLBarXAxisStyle]
+ (0,0) -- (0,\DTLbarchartwidth);
+ \fi
+\fi
+% \end{macrocode}
+% Draw $y$ axis
+% \begin{macrocode}
+\ifDTLbaryaxis
+ \ifDTLverticalbars
+ \expandafter\draw\expandafter[\DTLBarYAxisStyle]
+ (0,\DTLnegextent) -- (0,\DTLbarmax);
+ \else
+ \expandafter\draw\expandafter[\DTLBarYAxisStyle]
+ (\DTLnegextent,0) -- (\DTLbarmax,0);
+ \fi
+\fi
+% \end{macrocode}
+% Plot $y$ tick marks if required
+% \begin{macrocode}
+\ifx\dtlbar@yticlist\relax
+\else
+ \@for\dtl@thistick:=\dtlbar@yticlist\do{%
+ \ifDTLverticalbars
+ \pgfpathmoveto{\pgfpointxy{0}{\dtl@thistick}}
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{0}{\dtl@thistick}}
+ {\pgfpoint{-\DTLticklength}{0pt}}}
+ \else
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{0}}
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{0}}
+ {\pgfpoint{0pt}{-\DTLticklength}}}
+ \fi
+ \pgfusepath{stroke}
+ \ifx\dtlbar@yticlabels\relax
+ \FPround{\dtl@thislabel}{\dtl@thistick}
+ {\c@DTLbarroundvar}%
+ \else
+ \dtl@chopfirst\dtlbar@yticlabels\dtl@thislabel\dtl@rest
+ \let\dtlbar@yticlabels=\dtl@rest
+ \fi
+ \ifDTLverticalbars
+ \edef\dtl@textopt{\DTLbarYticklabelalign,%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{0}{\dtl@thistick}}
+ {\noexpand\pgfpoint{-\noexpand\DTLticklabeloffset}{0pt}},
+ }}%
+ \else
+ \edef\dtl@textopt{\DTLbarYticklabelalign,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@thistick}{0}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLticklabeloffset}}
+ }}%
+ \fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}
+ }%
+\fi
+% \end{macrocode}
+% Plot the $y$ label if required
+% \begin{macrocode}
+\ifx\dtlbar@ylabel\relax
+\else
+ \addtolength{\dtl@yticlabelwidth}{\baselineskip}%
+ \setlength{\dtl@tmplength}{0.5\DTLbarchartlength}
+ \ifDTLverticalbars
+ \pgftext[bottom,center,at={\pgfpointadd
+ {\pgfpointxy{0}{\DTLnegextent}}%
+ {\pgfpoint{-\dtl@yticlabelwidth}{\dtl@tmplength}}},
+ rotate=90]{%
+ \dtlbar@ylabel}
+ \else
+ \pgftext[bottom,center,at={\pgfpointadd
+ {\pgfpointxy{\DTLnegextent}{0}}%
+ {\pgfpoint{\dtl@tmplength}{-\dtl@yticlabelwidth}}}]{%
+ \dtlbar@ylabel}
+ \fi
+\fi
+% \end{macrocode}
+% Finish bar chart
+% \begin{macrocode}
+\DTLbaratendtikz
+\end{tikzpicture}
+\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLmultibarchart}
+%\begin{definition}
+% \cs{DTLmultibarchart}\oarg{conditions}\marg{option list}\marg{db name}\marg{assign list}
+%\end{definition}
+% Make a multi-bar chart from data given in data base \meta{db name},
+% where \meta{assign list} is a comma-separated list of
+% \meta{cmd}\texttt{=}\meta{key} pairs. \meta{option list} must
+% include the \texttt{variables} key which must be a comma separated
+% list of commands, where each command
+% is included in \meta{assign list}. The optional argument
+% \meta{conditions} is the same as that for \cs{DTLforeach}.
+% \begin{macrocode}
+\newcommand*{\DTLmultibarchart}[4][\boolean{true}]{%
+{\let\dtlbar@variables=\relax
+\let\DTLbarmax=\relax
+\let\DTLnegextent=\relax
+\disable@keys{databar}{variable,upperbarlabel}%
+\setkeys{databar}{#2}%
+\ifx\dtlbar@variables\relax
+ \PackageError{databar}{\string\DTLmultibarchart\space missing variables setting}{}%
+\else
+% \end{macrocode}
+% Compute the maximum bar height, unless \cs{DTLbarmax} has been
+% set.
+%\changes{1.01}{2007 Aug 17}{uses \cs{@sDTLforeach} instead of
+%\cs{DTLforeach}}
+% \begin{macrocode}
+ \ifx\DTLbarmax\relax
+ \@sDTLforeach[#1]{#3}{#4}{%
+ \@for\DTLbarvariable:=\dtlbar@variables\do{%
+ \expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@barvar}%
+ \ifx\DTLbarmax\relax
+ \let\DTLbarmax=\dtl@barvar
+ \else
+ \let\dtl@old=\DTLbarmax
+ \FPmax{\DTLbarmax}{\dtl@old}{\dtl@barvar}%
+ \fi
+ }%
+ }%
+ \ifx\dtlbar@yticgap\relax
+ \else
+ \let\dtl@thistick=\dtlbar@yticgap%
+ \whiledo{\DTLisFPopenbetween{\dtl@thistick}{0}{\DTLbarmax}}{%
+ \FPadd{\dtl@thistick}{\dtl@thistick}{\dtlbar@yticgap}%
+ }%
+ \let\DTLbarmax=\dtl@thistick
+ \fi
+ \fi
+% \end{macrocode}
+% Compute the bar depth, unless \cs{DTLnegextent} has been
+% set.
+% \begin{macrocode}
+ \ifx\DTLnegextent\relax
+ \def\DTLnegextent{0}%
+ \@sDTLforeach[#1]{#3}{#4}{%
+ \@for\DTLbarvariable:=\dtlbar@variables\do{%
+ \expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@barvar}%
+ \let\dtl@old=\DTLnegextent
+ \DTLmin{\DTLnegextent}{\dtl@old}{\dtl@barvar}%
+ }%
+ }%
+ \ifx\dtlbar@yticgap\relax
+ \else
+ \ifthenelse{\DTLisFPlt{\DTLnegextent}{0}}{%
+ \edef\dtl@thistick{0}%
+ \whiledo{\DTLisFPclosedbetween{\dtl@thistick}{\DTLnegextent}{0}}{%
+ \FPsub{\dtl@thistick}{\dtl@thistick}{\dtlbar@yticgap}%
+ }%
+ \let\DTLnegextent=\dtl@thistick
+ }{}%
+ \fi
+ \fi
+% \end{macrocode}
+% Determine scaling factor
+% \begin{macrocode}
+ \@dtl@tmpcount=\DTLbarchartlength
+ \FPsub{\dtl@extent}{\DTLbarmax}{\DTLnegextent}%
+ \FPdiv{\dtl@unit}{\number\@dtl@tmpcount}{\dtl@extent}%
+% \end{macrocode}
+% Construct $y$ tick list if required
+% \begin{macrocode}
+ \setlength{\dtl@yticlabelwidth}{0pt}%
+ \ifDTLbarytics
+ \ifx\dtlbar@yticlist\relax
+ \ifx\dtlbar@yticgap\relax
+ \dtl@constructticklist\DTLnegextent\DTLbarmax
+ \dtl@unit\dtlbar@yticlist
+ \else
+ \dtl@constructticklistwithgapz
+ \DTLnegextent\DTLbarmax\dtlbar@yticlist\dtlbar@yticgap
+ \fi
+ \fi
+ \ifx\dtlbar@ylabel\relax
+ \else
+ \ifx\dtlbar@yticlabels\relax
+ \@for\dtl@thislabel:=\dtlbar@yticlist\do{%
+ \FPround{\dtl@thislabel}{\dtl@thislabel}
+ {\c@DTLbarroundvar}%
+ \ifDTLverticalbars
+ \settowidth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \else
+ \settoheight{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \edef\@dtl@h{\the\dtl@tmplength}%
+ \settodepth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \addtolength{\dtl@tmplength}{\@dtl@h}%
+ \addtolength{\dtl@tmplength}{\baselineskip}%
+ \fi
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \else
+ \@for\dtl@thislabel:=\dtlbar@yticlabels\do{%
+ \ifDTLverticalbars
+ \settowidth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \else
+ \settoheight{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \edef\@dtl@h{\the\dtl@tmplength}%
+ \settodepth{\dtl@tmplength}{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}%
+ \addtolength{\dtl@tmplength}{\@dtl@h}%
+ \addtolength{\dtl@tmplength}{\baselineskip}%
+ \fi
+ \ifdim\dtl@tmplength>\dtl@yticlabelwidth
+ \setlength{\dtl@yticlabelwidth}{\dtl@tmplength}%
+ \fi
+ }%
+ \fi
+ \fi
+ \fi
+% \end{macrocode}
+% Calculate the offset for the lower label and number of labels
+% \begin{macrocode}
+\dtl@xticlabelheight=0pt\relax
+\@dtl@tmpcount=0\relax
+\@for\dtl@thislabel:=\dtl@multibarlabels\do{%
+ \advance\@dtl@tmpcount by 1\relax
+ \settoheight{\dtl@tmplength}{\tikz\expandafter\pgftext\expandafter
+ [\DTLbarXlabelalign]{\DTLdisplaylowerbarlabel{\dtl@thislabel}};}%
+ \edef\@dtl@h{\the\dtl@tmplength}%
+ \settodepth{\dtl@tmplength}{\tikz\expandafter\pgftext\expandafter
+ [\DTLbarXlabelalign]{\DTLdisplaylowerbarlabel{\dtl@thislabel}};}%
+ \addtolength{\dtl@tmplength}{\@dtl@h}%
+ \addtolength{\dtl@tmplength}{\baselineskip}%
+ \ifdim\dtl@tmplength>\dtl@xticlabelheight
+ \setlength{\dtl@xticlabelheight}{\dtl@tmplength}%
+ \fi
+}
+% \end{macrocode}
+% Calculate number of bars per group
+% \begin{macrocode}
+\@dtl@tmpcount=0\relax
+\@for\dtl@this:=\dtlbar@variables\do{%
+ \advance\@dtl@tmpcount by 1\relax
+}%
+\edef\DTLbargroupwidth{\number\@dtl@tmpcount}%
+% \end{macrocode}
+% Compute the total width of the bar chart (in terms of
+% the $x$ unit vector.)
+% \begin{macrocode}
+\edef\dtl@n{\expandafter\number\csname dtlrows@#3\endcsname}
+\FPmul{\dtl@tmpi}{\dtl@n}{\DTLbargroupwidth}
+\FPsub{\dtl@tmpii}{\dtl@n}{1}%
+\FPmul{\dtl@tmpii}{\dtl@tmpii}{\dtlbar@groupgap}%
+\FPadd{\DTLbarchartwidth}{\dtl@tmpi}{\dtl@tmpii}
+% \end{macrocode}
+% Do the bar chart
+% \begin{macrocode}
+\begin{tikzpicture}
+% \end{macrocode}
+% Set unit vectors
+% \begin{macrocode}
+\ifDTLverticalbars
+ \pgfsetyvec{\pgfpoint{0pt}{\dtl@unit sp}}%
+ \pgfsetxvec{\pgfpoint{\DTLbarwidth}{0pt}}%
+\else
+ \pgfsetxvec{\pgfpoint{\dtl@unit sp}{0pt}}%
+ \pgfsetyvec{\pgfpoint{0pt}{\DTLbarwidth}}%
+\fi
+% \end{macrocode}
+% Begin hook
+% \begin{macrocode}
+\DTLbaratbegintikz
+% \end{macrocode}
+% Initialise
+% \begin{macrocode}
+\def\@dtl@start{0}%
+% \end{macrocode}
+% Iterate through data
+% \begin{macrocode}
+\@sDTLforeach[#1]{#3}{#4}{%
+% \end{macrocode}
+% Store the bar number in \cs{@dtl@bar}
+% \begin{macrocode}
+\@dtl@barcount = 1\relax
+% \end{macrocode}
+% Set the multibar label lists
+% \begin{macrocode}
+\let\dtl@multibar@labels=\dtl@multibarlabels
+\let\dtl@uppermultibar@labels=\dtl@uppermultibarlabels
+% \end{macrocode}
+% Compute mid point over group
+% \begin{macrocode}
+\FPmul{\dtl@multimidpt}{\DTLbargroupwidth}{0.5}%
+\FPadd{\dtl@multimidpt}{\dtl@multimidpt}{\@dtl@start}%
+% \end{macrocode}
+% Iterate through each variable
+% \begin{macrocode}
+\@for\DTLbarvariable:=\dtlbar@variables\do{%
+% \end{macrocode}
+% Set end point
+% \begin{macrocode}
+\FPadd{\@dtl@endpt}{\@dtl@start}{1}%
+% \end{macrocode}
+% Convert variable to decimal
+% \begin{macrocode}
+\expandafter\DTLconverttodecimal\expandafter
+ {\DTLbarvariable}{\dtl@variable}%
+% \end{macrocode}
+% Get the current lower label:
+% \begin{macrocode}
+\dtl@chopfirst\dtl@multibar@labels\dtl@thisbarlabel\dtl@rest
+\let\dtl@multibar@labels=\dtl@rest
+% \end{macrocode}
+% Get the current upper label:
+% \begin{macrocode}
+\dtl@chopfirst\dtl@uppermultibar@labels\dtl@thisupperbarlabel\dtl@rest
+\let\dtl@uppermultibar@labels=\dtl@rest
+% \end{macrocode}
+% Draw bars
+% \begin{macrocode}
+\begin{scope}
+ \expandafter\color\expandafter{\DTLgetbarcolor{\@dtl@barcount}}%
+ \ifDTLverticalbars
+ \fill (\@dtl@start,0) -- (\@dtl@start,\dtl@variable)
+ -- (\@dtl@endpt,\dtl@variable) -- (\@dtl@endpt,0) -- cycle;
+ \else
+ \fill (0,\@dtl@start) -- (\dtl@variable,\@dtl@start)
+ -- (\dtl@variable,\@dtl@endpt) -- (0,\@dtl@endpt) -- cycle;
+ \fi
+\end{scope}
+% \end{macrocode}
+% Draw outline
+% \begin{macrocode}
+\begin{scope}
+\ifdim\DTLbaroutlinewidth>0pt
+ \expandafter\color\expandafter{\DTLbaroutlinecolor}
+ \ifDTLverticalbars
+ \draw (\@dtl@start,0) -- (\@dtl@start,\dtl@variable)
+ -- (\@dtl@endpt,\dtl@variable) -- (\@dtl@endpt,0) -- cycle;
+ \else
+ \draw (0,\@dtl@start) -- (\dtl@variable,\@dtl@start)
+ -- (\dtl@variable,\@dtl@endpt) -- (0,\@dtl@endpt) -- cycle;
+ \fi
+\fi
+\end{scope}
+% \end{macrocode}
+% Calculate mid point
+% \begin{macrocode}
+\FPadd{\@dtl@midpt}{\@dtl@start}{0.5}%
+% \end{macrocode}
+% Draw lower $x$ labels
+% \begin{macrocode}
+\ifDTLverticalbars
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@midpt}{0}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLbarlabeloffset}}},
+ \DTLbarXlabelalign
+ }%
+\else
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{0}{\@dtl@midpt}}
+ {\noexpand\pgfpoint{-\noexpand\DTLbarlabeloffset}{0pt}}},
+ \DTLbarXlabelalign
+ }%
+\fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLdisplaylowermultibarlabel{\dtl@thisbarlabel}}
+% \end{macrocode}
+% Draw upper $x$ labels
+% \begin{macrocode}
+\ifDTLverticalbars
+ \expandafter\DTLifnumlt\expandafter{\DTLbarvariable}{0}
+ {
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@midpt}{\dtl@variable}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLbarlabeloffset}}}
+ }%
+ }{%
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\@dtl@midpt}{\dtl@variable}}
+ {\noexpand\pgfpoint{0pt}{\noexpand\DTLbarlabeloffset}}}
+ }%
+ }
+\else
+ \expandafter\DTLifnumlt\expandafter{\DTLbarvariable}{0}
+ {
+ \edef\dtl@textopt{right,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@variable}{\@dtl@midpt}}
+ {\noexpand\pgfpoint{-\noexpand\DTLbarlabeloffset}{0pt}}}
+ }%
+ }{%
+ \edef\dtl@textopt{left,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@variable}{\@dtl@midpt}}
+ {\noexpand\pgfpoint{\noexpand\DTLbarlabeloffset}{0pt}}}
+ }%
+ }
+\fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLdisplayuppermultibarlabel{\dtl@thisupperbarlabel}}
+% \end{macrocode}
+% End of loop increment loop variables
+% \begin{macrocode}
+ \FPadd{\@dtl@start}{\@dtl@start}{1}%
+ \advance\@dtl@barcount by 1\relax
+}%
+% Draw lower group $x$ labels
+% \begin{macrocode}
+\setlength{\dtl@tmplength}{\DTLbarlabeloffset}%
+\addtolength{\dtl@tmplength}{\dtl@xticlabelheight}%
+\ifDTLverticalbars
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@multimidpt}{0}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\dtl@tmplength}}},
+ \DTLbarXlabelalign
+ }%
+\else
+ \edef\dtl@textopt{%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{0}{\dtl@multimidpt}}
+ {\noexpand\pgfpoint{-\noexpand\dtl@tmplength}{0pt}}},
+ \DTLbarXlabelalign
+ }%
+\fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLdisplaylowerbarlabel{\dtl@barlabel}}
+% \end{macrocode}
+% Increment starting position by \cs{dtlbar@groupgap}
+% \begin{macrocode}
+ \FPadd{\@dtl@start}{\@dtl@start}{\dtlbar@groupgap}%
+}
+% \end{macrocode}
+% Draw $x$ axis
+% \begin{macrocode}
+\ifDTLbarxaxis
+ \ifDTLverticalbars
+ \expandafter\draw\expandafter[\DTLBarXAxisStyle]
+ (0,0) -- (\DTLbarchartwidth,0);
+ \else
+ \expandafter\draw\expandafter[\DTLBarXAxisStyle]
+ (0,0) -- (0,\DTLbarchartwidth);
+ \fi
+\fi
+% \end{macrocode}
+% Draw $y$ axis
+% \begin{macrocode}
+\ifDTLbaryaxis
+ \ifDTLverticalbars
+ \expandafter\draw\expandafter[\DTLBarYAxisStyle]
+ (0,\DTLnegextent) -- (0,\DTLbarmax);
+ \else
+ \expandafter\draw\expandafter[\DTLBarYAxisStyle]
+ (\DTLnegextent,0) -- (\DTLbarmax,0);
+ \fi
+\fi
+% \end{macrocode}
+% Plot $y$ tick marks if required
+% \begin{macrocode}
+\ifx\dtlbar@yticlist\relax
+\else
+ \@for\dtl@thistick:=\dtlbar@yticlist\do{%
+ \ifDTLverticalbars
+ \pgfpathmoveto{\pgfpointxy{0}{\dtl@thistick}}
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{0}{\dtl@thistick}}
+ {\pgfpoint{-\DTLticklength}{0pt}}}
+ \else
+ \pgfpathmoveto{\pgfpointxy{\dtl@thistick}{0}}
+ \pgfpathlineto{
+ \pgfpointadd{\pgfpointxy{\dtl@thistick}{0}}
+ {\pgfpoint{0pt}{-\DTLticklength}}}
+ \fi
+ \pgfusepath{stroke}
+ \ifx\dtlbar@yticlabels\relax
+ \FPround{\dtl@thislabel}{\dtl@thistick}
+ {\c@DTLbarroundvar}%
+ \else
+ \dtl@chopfirst\dtlbar@yticlabels\dtl@thislabel\dtl@rest
+ \let\dtlbar@yticlabels=\dtl@rest
+ \fi
+ \ifDTLverticalbars
+ \edef\dtl@textopt{\DTLbarYticklabelalign,%
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{0}{\dtl@thistick}}
+ {\noexpand\pgfpoint{-\noexpand\DTLticklabeloffset}{0pt}},
+ }}%
+ \else
+ \edef\dtl@textopt{\DTLbarYticklabelalign,
+ at={\noexpand\pgfpointadd
+ {\noexpand\pgfpointxy{\dtl@thistick}{0}}
+ {\noexpand\pgfpoint{0pt}{-\noexpand\DTLticklabeloffset}}
+ }}%
+ \fi
+ \expandafter\pgftext\expandafter[\dtl@textopt]{%
+ \DTLbardisplayYticklabel{\dtl@thislabel}}
+ }%
+\fi
+% \end{macrocode}
+% Plot the $y$ label if required
+% \begin{macrocode}
+\ifx\dtlbar@ylabel\relax
+\else
+ \addtolength{\dtl@yticlabelwidth}{\baselineskip}%
+ \setlength{\dtl@tmplength}{0.5\DTLbarchartlength}
+ \ifDTLverticalbars
+ \pgftext[bottom,center,at={\pgfpointadd
+ {\pgfpointxy{0}{\DTLnegextent}}%
+ {\pgfpoint{-\dtl@yticlabelwidth}{\dtl@tmplength}}},
+ rotate=90]{%
+ \dtlbar@ylabel}
+ \else
+ \pgftext[bottom,center,at={\pgfpointadd
+ {\pgfpointxy{\DTLnegextent}{0}}%
+ {\pgfpoint{\dtl@tmplength}{-\dtl@yticlabelwidth}}}]{%
+ \dtlbar@ylabel}
+ \fi
+\fi
+% \end{macrocode}
+% Finish bar chart
+% \begin{macrocode}
+\DTLbaratendtikz
+\end{tikzpicture}
+\fi
+}}
+% \end{macrocode}
+%\end{macro}
+%\iffalse
+% \begin{macrocode}
+%</databar.sty>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%<*databib.sty>
+% \end{macrocode}
+%\fi
+%\section{databib.sty}
+%\label{sec:src:databib}
+%\subsection{Package Declaration}
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{databib}[2007/08/17 v1.0 (NLCT)]
+% \end{macrocode}
+% Load required packages:
+% \begin{macrocode}
+\RequirePackage{datatool}
+% \end{macrocode}
+%\subsection{Package Options}
+%\begin{macro}{\dtlbib@style}
+%The default bib style is stored in \cs{dtlbib@style}.
+% \begin{macrocode}
+\newcommand*{\dtlbib@style}{plain}
+% \end{macrocode}
+%\end{macro}
+% The \pkgopt[databib]{style} package option sets \cs{dtlbib@style}.
+% \begin{macrocode}
+\define@choicekey{databib.sty}{style}{plain,abbrv,alpha}{%
+\def\dtlbib@style{#1}}
+% \end{macrocode}
+% Process package options:
+% \begin{macrocode}
+\ProcessOptionsX
+% \end{macrocode}
+%\subsection{Loading BBL file}
+%\begin{macro}{\DTLloadbbl}
+%\begin{definition}
+%\cs{DTLloadbib}\oarg{bbl file}\marg{db name}\marg{bib list}
+%\end{definition}
+% \begin{macrocode}
+\newcommand*{\DTLloadbbl}[3][\jobname.bbl]{%
+\bibliographystyle{databib}%
+\if@filesw
+ \immediate\write\@auxout{\string\bibdata{#3}}%
+\fi
+\DTLnewdb{#2}%
+\edef\DTLBIBdbname{#2}%
+\@input@{#1}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLnewbibrow}
+% \cs{DTLnewbibrow} adds a new row to the bibliography database.
+% (\cs{DTLBIBdbname} must be set prior to use to the name
+% of the \sty{datatool} database.)
+% \begin{macrocode}
+\newcommand*{\DTLnewbibrow}{\DTLnewrow{\DTLBIBdbname}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLnewbibitem}
+%\begin{definition}
+%\cs{DTLnewbibitem}\marg{key}\marg{value}
+%\end{definition}
+% Adds a new database entry with the given key and value.
+% \begin{macrocode}
+\newcommand*{\DTLnewbibitem}[2]{%
+\DTLnewdbentry{\DTLBIBdbname}{#1}{#2}}
+% \end{macrocode}
+%\end{macro}
+%\subsection{Predefined text}
+%\label{sec:src:bibnames}
+%\begin{macro}{\andname}
+% \begin{macrocode}
+\providecommand*{\andname}{and}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ofname}
+% \begin{macrocode}
+\providecommand*{\ofname}{of}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\inname}
+% \begin{macrocode}
+\providecommand*{\inname}{in}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\etalname}
+% \begin{macrocode}
+\providecommand*{\etalname}{et al.}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\editorname}
+% \begin{macrocode}
+\providecommand*{\editorname}{editor}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\editorsname}
+% \begin{macrocode}
+\providecommand*{\editorsname}{editors}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\volumename}
+% \begin{macrocode}
+\providecommand*{\volumename}{volume}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\numbername}
+% \begin{macrocode}
+\providecommand*{\numbername}{number}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\pagesname}
+% \begin{macrocode}
+\providecommand*{\pagesname}{pages}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\pagename}
+% \begin{macrocode}
+\providecommand*{\pagename}{page}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\editionname}
+% \begin{macrocode}
+\providecommand*{\editionname}{edition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\techreportname}
+% \begin{macrocode}
+\providecommand*{\techreportname}{Technical report}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\mscthesisname}
+% \begin{macrocode}
+\providecommand*{\mscthesisname}{Master's thesis}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\phdthesisname}
+% \begin{macrocode}
+\providecommand*{\phdthesisname}{PhD thesis}
+% \end{macrocode}
+%\end{macro}
+%
+%
+%\subsection{Displaying the bibliography}
+%\label{sec:src:displaybib}
+%\begin{definition}
+%\cs{DTLbibliography}\marg{bib dbname}
+%\end{definition}
+% Displays the bibliography for the database \meta{bib dbname}
+% which must have previously been loaded using
+% \cs{DTLloadbbl}.
+%\begin{macro}{\DTLbibliography}
+% \begin{macrocode}
+\newcommand*{\DTLbibliography}[2][\boolean{true}]{%
+\begin{DTLthebibliography}[#1]{#2}%
+\DTLforeachbibentry[#1]{#2}{%
+\DTLbibitem \DTLformatbibentry \DTLendbibitem
+}%
+\end{DTLthebibliography}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatbibentry}
+%\begin{definition}
+%\cs{DTLformatbibentry}
+%\end{definition}
+% Formats the current bib entry.
+% \begin{macrocode}
+\newcommand*{\DTLformatbibentry}{%
+\@ifundefined{DTLformat\DBIBentrytype}{%
+\PackageError{databib}{Don't know how to format bibliography entries
+of type `\DBIBentrytype'}{}}{%
+\dtl@message{[\DBIBcitekey]}%
+\DTLstartsentencefalse\DTLmidsentencefalse\DTLperiodfalse
+\csname DTLformat\DBIBentrytype\endcsname}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLendbibitem}
+% Hook to add extra information at the end of a bibliography item.
+% This does nothing by default.
+% \begin{macrocode}
+\newcommand*{\DTLendbibitem}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLwidest}
+%Define a length to store the widest bib entry label
+% \begin{macrocode}
+\newlength\dtl@widest
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLcomputewidestbibentry}
+%\begin{definition}
+%\cs{DTLcomputewidestbibentry}\marg{conditions}\marg{db
+%name}\marg{bib label}\marg{cmd}
+%\end{definition}
+%Computes the widest bibliography entry over all entries satisfying
+%\meta{condition} for the database called \meta{db name}, where
+% the bibliography label is formated according to \meta{bib label} and
+% stores the result in \meta{cmd} which must be a command name.
+% \begin{macrocode}
+\newcommand*{\DTLcomputewidestbibentry}[4]{%
+\dtl@widest=0pt\relax
+\let#4=\@empty
+\DTLforeachbibentry[#1]{#2}{%
+\settowidth{\dtl@tmplength}{#3}%
+\ifdim\dtl@tmplength>\dtl@widest\relax
+ \dtl@widest=\dtl@tmplength
+ \protected@edef#4{#3}%
+\fi
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLforeachbibentry}
+%\begin{definition}
+%\cs{DTLforeachbibentry}\oarg{condition}\marg{db name}\marg{text}
+%\end{definition}
+%\begin{definition}
+%\cs{DTLforeachbibentry*}\oarg{condition}\marg{db name}\marg{text}
+%\end{definition}
+% Iterates through the database called \meta{db name} and does
+% \meta{text} if \meta{condition} is met. As with
+% \cs{DTLforeach}, the starred version is read only.
+% \begin{macrocode}
+\newcommand*{\DTLforeachbibentry}{%
+\@ifstar\@DTLforeachbibentry\@DTLforeachbibentry}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@DTLforeachbibentry}
+% Unstarred version
+% \begin{macrocode}
+\newcommand*{\@DTLforeachbibentry}[3][\boolean{true}]{%
+\edef\DBIBname{#2}\setcounter{DTLbibrow}{0}%
+\@DTLforeach{#2}{\DBIBcitekey=CiteKey,\DBIBentrytype
+=EntryType}{\dtl@gathervalues{#2}{\@dtl@currentrow}%
+\ifthenelse{#1}{\refstepcounter{DTLbibrow}#3}{}}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\@sDTLforeachbibentry}
+% Starred version
+% \begin{macrocode}
+\newcommand*{\@sDTLforeachbibentry}[3][\boolean{true}]{%
+\edef\DBIBname{#2}\setcounter{DTLbibrow}{0}%
+\@sDTLforeach{#2}{\DBIBcitekey=CiteKey,\DBIBentrytype
+=EntryType}{\dtl@gathervalues{#2}{\@dtl@currentrow}%
+\ifthenelse{#1}{\refstepcounter{DTLbibrow}#3}{}}}
+% \end{macrocode}
+%\end{macro}
+%
+%The counter \counterfmt{DTLbibrow} keeps track of the current
+%row in the body of \cs{DTLforeachbibentry}. (You can't rely on
+%\counterfmt{DTLrowi}, \counterfmt{DTLrowii} and
+% \counterfmt{DTLrowiii}, as \cs{DTLforeachbibentry} pass the
+% conditions to the optional argument of \cs{DTLforeach}, but
+% instead uses \cs{ifthenelse}, which means that \counterfmt{DTLrowi}
+% etc will be incremented, even when the given condition is not met.)
+% \begin{macrocode}
+\newcounter{DTLbibrow}
+% \end{macrocode}
+% Keep \sty{hyperref} happy:
+% \begin{macrocode}
+\def\theHDTLbibrow{\theHDTLrow.bib.\arabic{DTLbibrow}}%
+% \end{macrocode}
+%
+%\begin{macro}{\DTLbibfield}
+%\begin{definition}
+%\cs{DTLbibfield}\marg{field name}
+%\end{definition}
+% Gets the value assigned to the field \meta{field name} for
+% the current row of \cs{DTLforeachbibentry}. (Doesn't check if
+% the field exists, or if it is being used within
+% \cs{DTLforeachbibentry}.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfield}[1]{\csname @dtl@key@#1\endcsname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifbibfieldexists}
+%\begin{definition}
+%\cs{DTLifbibfieldexists}\marg{field name}\marg{true part}\marg{false
+%part}
+%\end{definition}
+%Determines whether the given field name exists for the current
+% row of \cs{DTLforeachbibentry}.
+% \begin{macrocode}
+\newcommand*{\DTLifbibfieldexists}[3]{%
+\@ifundefined{@dtl@key@#1}{#3}{%
+\expandafter\DTLifnull\csname @dtl@key@#1\endcsname
+{#3}{#2}}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLifanybibfieldexists}
+%\begin{definition}
+%\cs{DTLifanybibfieldexists}\marg{list of field name}\marg{true part}\marg{false
+%part}
+%\end{definition}
+% Determines whether any of the listed fields exist for the current
+% row of \cs{DTLforeachbibentry}.
+% \begin{macrocode}
+\newcommand*{\DTLifanybibfieldexists}[3]{%
+\@for\dtl@thisfield:=#1\do{%
+\@ifundefined{@dtl@key@\dtl@thisfield}{}{%
+\expandafter\DTLifnull\csname @dtl@key@\dtl@thisfield\endcsname
+{}{%
+\@endfortrue}}}%
+\if@endfor
+ #2%
+\else
+ #3%
+\fi
+\@endforfalse
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\ifDTLperiod}
+% The conditional \cs{ifDTLperiod} is used to keep track of any
+% abbreviations ending with a period, this is to ensure that
+% abbreviations aren't followed by a full stop if they already
+% have a full stop terminating the abbreviation.
+% \begin{macrocode}
+\newif\ifDTLperiod
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLcheckendsperiod}
+%\begin{definition}
+%\cs{DTLcheckendperiod}\marg{string}
+%\end{definition}
+% Checks if \meta{string} ends with a full stop. This sets
+% \cs{ifDTLperiod}.
+% \begin{macrocode}
+\newcommand*{\DTLcheckendsperiod}[1]{%
+\dtl@checkendsperiod#1\@nil\relax}
+% \end{macrocode}
+% \begin{macrocode}
+\def\dtl@checkendsperiod#1#2{%
+\def\@dtl@argi{#1}\def\@dtl@argii{#2}%
+\def\@dtl@period{.}%
+\ifx\@dtl@argi\@nnil
+ \global\DTLperiodfalse
+ \let\@dtl@donext=\relax
+\else
+ \ifx\@dtl@argii\@nnil
+ \ifx\@dtl@argi\@dtl@period
+ \global\DTLperiodtrue
+ \else
+ \global\DTLperiodfalse
+ \fi
+ \let\@dtl@donext=\@gobble
+ \else
+ \let\@dtl@donext=\dtl@checkendsperiod
+ \fi
+\fi
+\@dtl@donext{#2}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLcheckbibfieldendsperiod}
+%\begin{definition}
+%\cs{DTLcheckbibfieldendperiod}\marg{label}
+%\end{definition}
+% Checks if the bib field \meta{label} ends with a full stop.
+% This sets \cs{ifDTLperiod}.
+% \begin{macrocode}
+\newcommand*{\DTLcheckbibfieldendsperiod}[1]{%
+\protected@edef\@dtl@tmp{\DTLbibfield{#1}}%
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\ifDTLmidsentence}
+%\begin{definition}
+%\cs{ifDTLmidsentence}
+%\end{definition}
+% Determine whether we are in the middle
+% of a sentence.
+% \begin{macrocode}
+\newif\ifDTLmidsentence
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\ifDTLstartsentence}
+%\begin{definition}
+%\cs{ifDTLstartsentence}
+%\end{definition}
+% Determine whether we are at the start
+% of a sentence.
+% \begin{macrocode}
+\newif\ifDTLstartsentence
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLaddperiod}
+%\begin{definition}
+%\cs{DTLaddperiod}
+%\end{definition}
+%Adds a full stop and sets \cs{DTLmidsentencefalse},
+%\cs{DTLstartsentencetrue} and
+%\cs{DTLperiodfalse}.
+% \begin{macrocode}
+\newcommand*{\DTLaddperiod}{\DTLmidsentencefalse\DTLperiodfalse
+\DTLstartsentencetrue
+\ifDTLperiod\else.\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLaddcomma}
+%\begin{definition}
+%\cs{DTLaddcomma}
+%\end{definition}
+%Adds a comma and sets \cs{DTLmidsentencetrue}, \cs{DTLperiodfalse}
+%and \cs{DTLstartsentencefalse}
+% \begin{macrocode}
+\newcommand*{\DTLaddcomma}{, \DTLmidsentencetrue
+\DTLperiodfalse\DTLstartsentencefalse}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLstartsentencespace}
+%Adds a space if at the start of the sentence, otherwise does
+% nothing. (The space between sentences is added this way, rather
+% than in \cs{DTLaddperiod} otherwise spurious extra space can
+% occur at the end of the bib item. The spacefactor needs to be
+% set manually, because there's stuff in the way of the previous
+% sentence's full stop and this space which confuses the inter
+% sentence spacing (and, of course, the previous sentence could
+% have ended with a capital letter.)
+% \begin{macrocode}
+\newcommand*{\DTLstartsentencespace}{%
+\ifDTLstartsentence\spacefactor=\sfcode`\.\relax\space
+\fi\DTLstartsentencefalse}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtwoand}
+% In a list of only two author (or editor) names, the text between the
+% two names is given by \cs{DTLtwoand}:
+% \begin{macrocode}
+\newcommand*{\DTLtwoand}{\ \andname\ }
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLandlast}
+% In a list of author (or editor) names, the text between the
+% penultimate and last name is given by \cs{DTLandlast}:
+% \begin{macrocode}
+\newcommand*{\DTLandlast}{, \andname\ }
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLandnotlast}
+% In a list of author (or editor) names, the text between the
+% names (except the penultimate and last name) is given by
+% \cs{DTLandnotlast}:
+% \begin{macrocode}
+\newcommand*{\DTLandnotlast}{, }
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@authorcount}
+% Define a count register to keep track of the number of authors:
+% \begin{macrocode}
+\newcount\@dtl@authorcount
+% \end{macrocode}
+%\end{macro}
+% The counter \counterfmt{DTLmaxauthors} indicates the maximum number of
+% author names to display, if there are more than that number,
+% \cs{etalname} is used.
+% \begin{macrocode}
+\newcounter{DTLmaxauthors}
+\setcounter{DTLmaxauthors}{10}
+% \end{macrocode}
+%\begin{macro}{\DTLformatauthorlist}
+% Format a list of author names (the list is stored in
+% \cs{@dtl@key@Author}):
+% \begin{macrocode}
+\newcommand*{\DTLformatauthorlist}{%
+\DTLifbibfieldexists{Author}{%
+\DTLstartsentencespace
+\@dtl@authorcount=0\relax
+\@for\@dtl@author:=\@dtl@key@Author\do{%
+\advance\@dtl@authorcount by 1\relax}%
+\@dtl@tmpcount=0\relax
+\ifnum\@dtl@authorcount>\c@DTLmaxauthors
+{%
+ \@for\@dtl@author:=\@dtl@key@Author\do{%
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount=1\relax
+ \expandafter\DTLformatauthor\@dtl@author
+ \else
+ \ifnum\@dtl@tmpcount>\c@DTLmaxauthors
+ \DTLandnotlast \etalname
+ \expandafter\DTLcheckendsperiod\expandafter{\etalname}%
+ \@endfortrue
+ \else
+ \DTLandnotlast \expandafter\DTLformatauthor\@dtl@author
+ \fi
+ \fi
+ }%
+}%
+\else
+ \@for\@dtl@author:=\@dtl@key@Author\do{%
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount=1\relax
+ \expandafter\DTLformatauthor\@dtl@author
+ \else
+ \ifnum\@dtl@tmpcount=\@dtl@authorcount
+ \ifnum\@dtl@authorcount=2\relax
+ \DTLtwoand
+ \else
+ \DTLandlast
+ \fi
+ \expandafter\DTLformatauthor\@dtl@author
+ \else
+ \DTLandnotlast \expandafter\DTLformatauthor\@dtl@author
+ \fi
+ \fi
+ }%
+\fi
+}{}%
+}
+% \end{macrocode}
+%\end{macro}
+% The counter \counterfmt{DTLmaxeditors} indicates the maximum number of
+% editor names to display, if there are more than that number,
+% \cs{etalname} is used.
+% \begin{macrocode}
+\newcounter{DTLmaxeditors}
+\setcounter{DTLmaxeditors}{10}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLformateditorlist}
+% Format a list of editor names (the list is stored in
+% \cs{@dtl@key@Editor}):
+% \begin{macrocode}
+\newcommand*{\DTLformateditorlist}{%
+\DTLifbibfieldexists{Editor}{%
+\DTLstartsentencespace
+\@dtl@authorcount=0\relax
+\@for\@dtl@author:=\@dtl@key@Editor\do{%
+\advance\@dtl@authorcount by 1\relax}%
+\@dtl@tmpcount=0\relax
+\ifnum\@dtl@authorcount>\c@DTLmaxeditors
+{%
+ \@for\@dtl@author:=\@dtl@key@Editor\do{%
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount=1\relax
+ \expandafter\DTLformateditor\@dtl@author
+ \else
+ \ifnum\@dtl@tmpcount>\c@DTLmaxeditors
+ \DTLandnotlast \etalname
+ \expandafter\DTLcheckendsperiod\expandafter{\etalname}%
+ \@endfortrue
+ \else
+ \DTLandnotlast \expandafter\DTLformateditor\@dtl@author
+ \fi
+ \fi
+ }%
+}%
+\else
+\@for\@dtl@author:=\@dtl@key@Editor\do{%
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount=1\relax
+ \expandafter\DTLformateditor\@dtl@author
+ \else
+ \ifnum\@dtl@tmpcount=\@dtl@authorcount
+ \ifnum\@dtl@authorcount=2\relax
+ \DTLtwoand
+ \else
+ \DTLandlast
+ \fi
+ \expandafter\DTLformateditor\@dtl@author
+ \else
+ \DTLandnotlast \expandafter\DTLformateditor\@dtl@author
+ \fi
+ \fi
+ }%
+\fi
+,
+\ifnum\@dtl@authorcount=1\relax
+ \editorname
+ \expandafter\DTLcheckendsperiod\expandafter{\editorname}%
+\else
+ \editorsname
+ \expandafter\DTLcheckendsperiod\expandafter{\editorsname}%
+\fi
+}{}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLformatsurnameonly}
+%\begin{definition}
+%\cs{DTLformatsurnameonly}\marg{von part}\marg{surname}\marg{jr
+%part}\marg{forenames}
+%\end{definition}
+% This is used when only the surname should be displayed. (The
+% final argument, \meta{forenames}, is ignored.)
+% \begin{macrocode}
+\newcommand*{\DTLformatsurnameonly}[4]{%
+\DTLstartsentencespace
+\def\@dtl@tmp{#1}%
+\ifx\@dtl@tmp\@empty\else#1~\fi
+#2%
+\def\@dtl@tmp{#3}%
+\ifx\@dtl@tmp\@empty
+ \DTLcheckendsperiod{#2}%
+\else
+ , #3%
+ \DTLcheckendsperiod{#3}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatforenames}
+%\begin{definition}
+%\cs{DTLformatforenames}\marg{forenames}
+%\end{definition}
+% The format of an author/editor's forenames. If the forenames
+% occur at the start of sentence, a new sentence space is added.
+% The argument is checked to determine whether it ends with a
+% full stop (sometimes the forenames may include initials.)
+% \begin{macrocode}
+\newcommand*{\DTLformatforenames}[1]{%
+\DTLstartsentencespace
+#1%
+\DTLcheckendsperiod{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatabbrvforenames}
+%\begin{definition}
+%\cs{DTLformatabbrvforenames}\marg{forenames}
+%\end{definition}
+% The format of an author/editor's abbreviated forenames. The initials
+% may or may not end in a full stop depending on the commands
+% governing the format of \cs{DTLstoreinitials}, so the initials
+% need to be check using \cs{DTLcheckendsperiod}.
+% \begin{macrocode}
+\newcommand*{\DTLformatabbrvforenames}[1]{%
+\DTLstartsentencespace
+\DTLstoreinitials{#1}{\@dtl@tmp}\@dtl@tmp
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatvon}
+%\begin{definition}
+%\cs{DTLformatvon}\marg{von part}
+%\end{definition}
+% The format of the ``von'' part. This does nothing if the argument
+% is empty, otherwise it does the argument followed by a
+% non-breakable space.
+% \begin{macrocode}
+\newcommand*{\DTLformatvon}[1]{%
+\DTLstartsentencespace
+\def\@dtl@tmp{#1}%
+\ifx\@dtl@tmp\@empty
+\else
+ #1~%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatsurname}
+%\begin{definition}
+%\cs{DTLformatsurname}\marg{surname}
+%\end{definition}
+% The format of an author/editor's surname.
+% \begin{macrocode}
+\newcommand*{\DTLformatsurname}[1]{%
+\DTLstartsentencespace
+#1\DTLcheckendsperiod{#1}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatjr}
+%\begin{definition}
+%\cs{DTLformatjr}\marg{jr part}
+%\end{definition}
+% The format of the ``jr'' part. This does nothing if the
+% argument is empty.
+% \begin{macrocode}
+\newcommand*{\DTLformatjr}[1]{%
+\DTLstartsentencespace
+\def\@dtl@tmp{#1}%
+\ifx\@dtl@tmp\@empty
+\else
+ , #1\DTLcheckendsperiod{#1}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatcrossrefeditor}
+% Format cross reference editors:
+% \begin{macrocode}
+\newcommand*{\DTLformatcrossrefeditor}{%
+\DTLifbibfieldexists{Editor}{%
+\DTLstartsentencespace
+\@dtl@authorcount=0\relax
+\@for\@dtl@author:=\@dtl@key@Editor\do{%
+\advance\@dtl@authorcount by 1\relax}%
+{\@dtl@tmpcount=0\relax
+\@for\@dtl@author:=\@dtl@key@Editor\do{%
+\ifnum\@dtl@authorcount=1\relax
+ \expandafter\DTLformatsurnameonly\@dtl@author
+\else
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount=1\relax
+ \expandafter\DTLformatsurnameonly\@dtl@author
+ \else
+ \ifnum\@dtl@authorcount=2\relax
+ \ \andname\ \expandafter\DTLformatsurnameonly\@dtl@author
+ \else
+ \ \etalname
+ \expandafter\DTLcheckendsperiod\expandafter{\etalname}
+ \fi
+ \@endfortrue
+ \fi
+\fi
+}}%
+}{}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatvolnumpages}
+% Format volume, number and pages (of an article).
+% \begin{macrocode}
+\newcommand*{\DTLformatvolnumpages}{%
+\DTLifbibfieldexists{Volume}{%
+\DTLstartsentencespace
+\DTLbibfield{Volume}\DTLperiodfalse}{}%
+\DTLifbibfieldexists{Number}{%
+\DTLstartsentencespace
+(\DTLbibfield{Number})\DTLperiodfalse}{}%
+\DTLifbibfieldexists{Pages}{%
+\DTLifanybibfieldexists{Volume,Number}{:}{%
+\DTLstartsentencespace
+\protected@edef\@dtl@pages{0\DTLbibfield{Pages}}%
+\DTLifnumerical{\@dtl@pages}{\pagename}{\pagesname}~}%
+\DTLbibfield{Pages}\DTLperiodfalse}{}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatbvolume}
+% Format book volume.
+% \begin{macrocode}
+\newcommand*{\DTLformatbvolume}{%
+\DTLifbibfieldexists{Volume}{%
+\ifDTLmidsentence
+ \volumename
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\volumename
+\fi
+~\DTLbibfield{Volume}%
+\DTLifbibfieldexists{Series}{\ \ofname\
+{\em\DTLbibfield{Series}}\DTLcheckbibfieldendsperiod{Series}}{%
+\DTLcheckbibfieldendsperiod{Volume}}%
+}{}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatchapterpages}
+% Format chapter and pages:
+% \begin{macrocode}
+\newcommand*{\DTLformatchapterpages}{%
+\DTLifbibfieldexists{Chapter}{%
+\DTLifbibfieldexists{Type}{%
+\DTLstartsentencespace
+\DTLbibfield{Type}}{%
+\DTLstartsentencespace
+\chaptername}~\DTLbibfield{Chapter}%
+\DTLifbibfieldexists{Pages}{\DTLaddcomma}{%
+\DTLcheckbibfieldendsperiod{Chapter}}}{}%
+\DTLstartsentencespace
+\DTLformatpages}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatpages}
+% Format pages:
+% \begin{macrocode}
+\newcommand*{\DTLformatpages}{%
+\DTLifbibfieldexists{Pages}{%
+\DTLstartsentencespace
+\protected@edef\@dtl@pages{0\DTLbibfield{Pages}}%
+\DTLifnumerical{\@dtl@pages}{\pagename}{\pagesname}~%
+\DTLbibfield{Pages}\DTLcheckbibfieldendsperiod{Pages}}{}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatnumberseries}
+% Format number and series (of book)
+% \begin{macrocode}
+\newcommand*{\DTLformatnumberseries}{%
+\DTLifbibfieldexists{Volume}{}{%
+\DTLifbibfieldexists{Number}{%
+\ifDTLmidsentence
+ \numbername
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\numbername
+\fi~\DTLbibfield{Number}%
+\DTLifbibfieldexists{Series}{\ \inname\ \DTLbibfield{Series}%
+\DTLcheckbibfieldendsperiod{Series}}{%
+\DTLcheckbibfieldendsperiod{Number}}%
+}{%
+\DTLifbibfieldexists{Series}{%
+\DTLstartsentencespace
+\DTLbibfield{Series}%
+\DTLcheckbibfieldendsperiod{Series}}{}}%
+}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLformatbookcrossref}
+% Format a book cross reference.
+% \begin{macrocode}
+\newcommand*{\DTLformatbookcrossref}{%
+\DTLifbibfieldexists{Volume}{%
+\ifDTLmidsentence
+ \volumename
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\volumename
+\fi
+~\DTLbibfield{Volume}\ \ofname\
+}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi\ }%
+\DTLifbibfieldexists{Editor}{\DTLformatcrossrefeditor}{%
+\DTLifbibfieldexists{Key}{%
+\DTLbibfield{Key}}{%
+\DTLifbibfieldexists{Series}{%
+{\em\DTLbibfield{Series}}}{}%
+}%
+}%
+\edef\@dtl@tmp{\DTLbibfield{CrossRef}}%
+~\cite{\@dtl@tmp}%
+}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLformatincollproccrossref}
+% Format `incollections' cross reference.
+% \begin{macrocode}
+\newcommand*{\DTLformatincollproccrossref}{%
+\DTLifbibfieldexists{Editor}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi\
+\DTLformatcrossrefeditor
+}{%
+\DTLifbibfieldexists{Key}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi\ \DTLbibfield{Key}%
+}{%
+\DTLifbibfieldexists{BookTitle}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi\ {\em\DTLbibfield{BookTitle}}}{}%
+}}%
+\edef\@dtl@tmp{\DTLbibfield{CrossRef}}%
+~\cite{\@dtl@tmp}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatinedbooktitle}
+%Format editor and booktitle:
+% \begin{macrocode}
+\newcommand*{\DTLformatinedbooktitle}{%
+\DTLifbibfieldexists{BookTitle}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi\
+\DTLifbibfieldexists{Editor}{%
+\DTLformateditorlist\DTLaddcomma {\em\DTLbibfield{BookTitle}}%
+\DTLcheckbibfieldendsperiod{BookTitle}%
+}{{\em\DTLbibfield{BookTitle}}%
+\DTLcheckbibfieldendsperiod{BookTitle}%
+}}{}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatdate}
+%Format date.
+% \begin{macrocode}
+\newcommand*{\DTLformatdate}{%
+\DTLifbibfieldexists{Year}{%
+\DTLifbibfieldexists{Month}{%
+\protected@edef\@dtl@tmp{\DTLbibfield{Month}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\@dtl@tmp
+\fi\
+\DTLmidsentencefalse}{}%
+\DTLstartsentencespace
+\DTLbibfield{Year}}{%
+\DTLifbibfieldexists{Month}{%
+\protected@edef\@dtl@tmp{\DTLbibfield{Month}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\@dtl@tmp
+\fi
+\DTLcheckbibfieldendsperiod{Month}%
+}{}}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\DTLformatarticlecrossref}
+% Format article cross reference.
+% \begin{macrocode}
+\newcommand*{\DTLformatarticlecrossref}{%
+\DTLifbibfieldexists{Key}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi
+\ {\em\DTLbibfield{Key}}}{%
+\DTLifbibfieldexists{Journal}{%
+\ifDTLmidsentence
+ \inname
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\inname
+\fi
+\ {\em\DTLbibfield{Journal}}}{}}%
+\edef\@dtl@tmp{\DTLbibfield{CrossRef}}%
+~\cite{\@dtl@tmp}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsubsection{ifthen conditionals}
+% The conditionals defined in this section may be used in the
+% optional argument of \cs{DTLforeachbib}. They may also be
+% used in the first argument of \cs{ifthenelse}, but only if the
+% command occurs within the body of \cs{DTLforeachbib}.
+%
+%\begin{macro}{\DTLbibfieldexists}
+%\begin{definition}
+%\cs{DTLbibfieldexists}\marg{field label}
+%\end{definition}
+% Checks if named bib field exists for current entry
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldexists}[1]{%
+\TE@throw\noexpand\dtl@testbibfieldexists{#1}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldexists}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldexists}[1]{%
+\DTLifbibfieldexists{#1}{\@dtl@conditiontrue}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldiseq}
+%\begin{definition}
+%\cs{DTLbibfieldiseq}\marg{field label}\marg{value}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% is equal to \meta{value}. (Uses \cs{dtlcompare} to determine if
+% the values are equal. If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldiseq}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldiseq{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldiseq}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldiseq}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\toks@\expandafter{\@dtl@tmp}%
+\@dtl@toks{#2}%
+\edef\@dtl@docompare{\noexpand\dtlcompare{\noexpand\@dtl@tmpcount}%
+{\the\toks@}{\the\@dtl@toks}}%
+\@dtl@docompare
+\ifnum\@dtl@tmpcount=0\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}{%
+\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldislt}
+%\begin{definition}
+%\cs{DTLbibfieldislt}\marg{field label}\marg{value}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% is less than \meta{value}. (If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldislt}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldislt{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldislt}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldislt}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\toks@\expandafter{\@dtl@tmp}%
+\@dtl@toks{#2}%
+\edef\@dtl@docompare{\noexpand\dtlcompare{\noexpand\@dtl@tmpcount}%
+{\the\toks@}{\the\@dtl@toks}}%
+\@dtl@docompare
+\ifnum\@dtl@tmpcount=-1\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}{%
+\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldisle}
+%\begin{definition}
+%\cs{DTLbibfieldisle}\marg{field label}\marg{value}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% is less than or equal to \meta{value}.
+% (If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldisle}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldisle{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldisle}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldisle}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\toks@\expandafter{\@dtl@tmp}%
+\@dtl@toks{#2}%
+\edef\@dtl@docompare{\noexpand\dtlcompare{\noexpand\@dtl@tmpcount}%
+{\the\toks@}{\the\@dtl@toks}}%
+\@dtl@docompare
+\ifnum\@dtl@tmpcount<1\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}{%
+\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldisgt}
+%\begin{definition}
+%\cs{DTLbibfieldisgt}\marg{field label}\marg{value}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% is greater than \meta{value}. (If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldisgt}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldisgt{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldisgt}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldisgt}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\toks@\expandafter{\@dtl@tmp}%
+\@dtl@toks{#2}%
+\edef\@dtl@docompare{\noexpand\dtlcompare{\noexpand\@dtl@tmpcount}%
+{\the\toks@}{\the\@dtl@toks}}%
+\@dtl@docompare
+\ifnum\@dtl@tmpcount=1\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}{%
+\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldisge}
+%\begin{definition}
+%\cs{DTLbibfieldisge}\marg{field label}\marg{value}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% is less than or equal to \meta{value}.
+% (If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldisge}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldisge{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldisge}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldisge}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\toks@\expandafter{\@dtl@tmp}%
+\@dtl@toks{#2}%
+\edef\@dtl@docompare{\noexpand\dtlcompare{\noexpand\@dtl@tmpcount}%
+{\the\toks@}{\the\@dtl@toks}}%
+\@dtl@docompare
+\ifnum\@dtl@tmpcount>-1\relax
+ \@dtl@conditiontrue
+\else
+ \@dtl@conditionfalse
+\fi
+}{%
+\@dtl@conditionfalse}%
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibfieldcontains}
+%\begin{definition}
+%\cs{DTLbibfieldcontains}\marg{field label}\marg{sub string}
+%\end{definition}
+% Checks if the value of the bib field given by \meta{field label}
+% contains \meta{sub string}.
+% (If the bib field doesn't exist, the
+% condition is false.)
+% \begin{macrocode}
+\newcommand*{\DTLbibfieldcontains}[2]{%
+\TE@throw\noexpand\dtl@testbibfieldcontains{#1}{#2}%
+\noexpand\if@dtl@condition}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@testbibfieldcontains}
+% \begin{macrocode}
+\newcommand*{\dtl@testbibfieldcontains}[2]{%
+\DTLifbibfieldexists{#1}{%
+\expandafter\let\expandafter\@dtl@tmp\expandafter
+ =\csname @dtl@key@#1\endcsname
+\expandafter\dtl@testifsubstring\expandafter{\@dtl@tmp}{#2}%
+}{\@dtl@conditionfalse}}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Bibliography Style Macros}
+%\label{sec:src:bibstyle}
+% The macros defined in this section should be redefined by
+% bibliography styles.
+%
+%\begin{environment}{DTLthebibliography}
+% How to format the entire bibliography:
+% \begin{macrocode}
+\newenvironment{DTLthebibliography}[2][\boolean{true}]{%
+\@dtl@tmpcount=0\relax
+\@sDTLforeach[#1]{#2}{}{\advance\@dtl@tmpcount by 1\relax}%
+\begin{thebibliography}{\number\@dtl@tmpcount}
+}{\end{thebibliography}}
+% \end{macrocode}
+%\end{environment}
+%\begin{macro}{\DTLmonthname}
+% The monthname style. The argument must be a number from~1
+% to~12. By default, uses \cs{dtl@monthname}.
+% \begin{macrocode}
+\newcommand*{\DTLmonthname}[1]{%
+\dtl@monthname{#1}}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@monthname}
+% Full month names:
+% \begin{macrocode}
+\newcommand*{\dtl@monthname}[1]{%
+\ifcase#1%
+\or January%
+\or February%
+\or March%
+\or April%
+\or May%
+\or June%
+\or July%
+\or August%
+\or September%
+\or October%
+\or November%
+\or December%
+\fi}
+% \end{macrocode}
+%\end{macro}
+%\begin{macro}{\dtl@abbrvmonthname}
+% Abbreviated months:
+% \begin{macrocode}
+\newcommand*{\dtl@abbrvmonthname}[1]{%
+\ifcase#1%
+\or Jan.%
+\or Feb.%
+\or Mar.%
+\or Apr.%
+\or May%
+\or June%
+\or July%
+\or Aug.%
+\or Sept.%
+\or Oct.%
+\or Nov.%
+\or Dec.%
+\fi}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLbibitem}
+% Define how to start a new bibitem:
+% \begin{macrocode}
+\newcommand*{\DTLbibitem}{\bibitem{\DBIBcitekey}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatauthor}
+%\begin{definition}
+%\cs{DTLformatauthor}\marg{von part}\marg{surname}\marg{junior
+%part}\marg{forenames}
+%\end{definition}
+% The format of an author's name.
+% \begin{macrocode}
+\newcommand*{\DTLformatauthor}[4]{%
+\DTLformatforenames{#4}
+\DTLformatvon{#1}%
+\DTLformatsurname{#2}%
+\DTLformatjr{#3}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformateditor}
+% The format of an editor's name.
+% \begin{macrocode}
+\newcommand*{\DTLformateditor}[4]{%
+\DTLformatforenames{#4}
+\DTLformatvon{#1}%
+\DTLformatsurname{#2}%
+\DTLformatjr{#3}}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatedition}
+% The format of an edition:
+% \begin{macrocode}
+\newcommand*{\DTLformatedition}[1]{#1 \editionname}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatarticle}
+% The format of an article:
+% \begin{macrocode}
+\newcommand{\DTLformatarticle}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatbook}
+% The format of a book:
+% \begin{macrocode}
+\newcommand{\DTLformatbook}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatbooklet}
+% The format of a booklet:
+% \begin{macrocode}
+\newcommand{\DTLformatbooklet}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatinbook}
+% The format of an ``inbook'' type:
+% \begin{macrocode}
+\newcommand{\DTLformatinbook}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatincollection}
+% The format of an ``incollection'' type:
+% \begin{macrocode}
+\newcommand{\DTLformatincollection}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatinproceedings}
+% The format of an ``inproceedings'' type:
+% \begin{macrocode}
+\newcommand{\DTLformatinproceedings}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatmanual}
+% The format of a manual:
+% \begin{macrocode}
+\newcommand{\DTLformatmanual}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatmastersthesis}
+% The format of a master's thesis:
+% \begin{macrocode}
+\newcommand{\DTLformatmastersthesis}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatmisc}
+% The format of a miscellaneous entry:
+% \begin{macrocode}
+\newcommand{\DTLformatmisc}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatphdthesis}
+% The format of a Ph.D. thesis:
+% \begin{macrocode}
+\newcommand{\DTLformatphdthesis}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatproceedings}
+% The format of a proceedings:
+% \begin{macrocode}
+\newcommand{\DTLformatproceedings}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformattechreport}
+% The format of a technical report:
+% \begin{macrocode}
+\newcommand{\DTLformattechreport}{}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLformatunpublished}
+% The format of an unpublished work:
+% \begin{macrocode}
+\newcommand{\DTLformatunpublished}{}
+% \end{macrocode}
+%\end{macro}
+%
+% Predefined names (these correspond to the standard \BibTeX\
+% predefined strings of the same name without the leading
+% \cs{DTL}):
+%\begin{macro}{\DTLacmcs}
+% \begin{macrocode}
+\newcommand*{\DTLacmcs}{ACM Computing Surveys}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLacta}
+% \begin{macrocode}
+\newcommand*{\DTLacta}{Acta Informatica}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLcacm}
+% \begin{macrocode}
+\newcommand*{\DTLcacm}{Communications of the ACM}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLibmjrd}
+% \begin{macrocode}
+\newcommand*{\DTLibmjrd}{IBM Journal of Research and Development}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLibmsj}
+% \begin{macrocode}
+\newcommand*{\DTLibmsj}{IBM Systems Journal}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLieeese}
+% \begin{macrocode}
+\newcommand*{\DTLieeese}{IEEE Transactions on Software Engineering}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLieeetc}
+% \begin{macrocode}
+\newcommand*{\DTLieeetc}{IEEE Transactions on Computers}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLieeetcad}
+% \begin{macrocode}
+\newcommand*{\DTLieeetcad}{IEEE Transactions on Computer-Aided Design
+of Integrated Circuits}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLipl}
+% \begin{macrocode}
+\newcommand*{\DTLipl}{Information Processing Letters}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLjacm}
+% \begin{macrocode}
+\newcommand*{\DTLjacm}{Journal of the ACM}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLjcss}
+% \begin{macrocode}
+\newcommand*{\DTLjcss}{Journal of Computer and System Sciences}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLscp}
+% \begin{macrocode}
+\newcommand*{\DTLscp}{Science of Computer Programming}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLsicomp}
+% \begin{macrocode}
+\newcommand*{\DTLsicomp}{SIAM Journal on Computing}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtocs}
+% \begin{macrocode}
+\newcommand*{\DTLtocs}{ACM Transactions on Computer Systems}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtods}
+% \begin{macrocode}
+\newcommand*{\DTLtods}{ACM Transactions on Database Systems}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtog}
+% \begin{macrocode}
+\newcommand*{\DTLtog}{ACM Transactions on Graphics}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtoms}
+% \begin{macrocode}
+\newcommand*{\DTLtoms}{ACM Transactions on Mathematical Software}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtoois}
+% \begin{macrocode}
+\newcommand*{\DTLtoois}{ACM Transactions on Office Information
+Systems}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtoplas}
+% \begin{macrocode}
+\newcommand*{\DTLtoplas}{ACM Transactions on Programming Languages
+and Systems}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\DTLtcs}
+% \begin{macrocode}
+\newcommand*{\DTLtcs}{Theoretical Computer Science}
+% \end{macrocode}
+%\end{macro}
+%
+%\subsection{Bibliography Styles}
+% Each bibliography style is set by the command
+% \cs{dtlbst@}\meta{style}, where \meta{style} is the name
+% of the bibliography style.
+%
+%\begin{macro}{\dtlbst@plain}
+% The `plain' style:
+% \begin{macrocode}
+\newcommand{\dtlbst@plain}{%
+% \end{macrocode}
+% Set how to format the entire bibliography:
+% \begin{macrocode}
+\renewenvironment{DTLthebibliography}[2][\boolean{true}]{%
+\@dtl@tmpcount=0\relax
+\@sDTLforeach[##1]{##2}{}{\advance\@dtl@tmpcount by 1\relax}%
+\begin{thebibliography}{\number\@dtl@tmpcount}%
+}{\end{thebibliography}}%
+% \end{macrocode}
+% Set how to start the bibliography entry:
+% \begin{macrocode}
+\renewcommand*{\DTLbibitem}{\bibitem{\DBIBcitekey}}%
+% \end{macrocode}
+% Sets the author name format.
+% \begin{macrocode}
+\renewcommand*{\DTLformatauthor}[4]{%
+\DTLformatforenames{##4}
+\DTLformatvon{##1}%
+\DTLformatsurname{##2}%
+\DTLformatjr{##3}}
+% \end{macrocode}
+% Sets the editor name format.
+% \begin{macrocode}
+\renewcommand*{\DTLformateditor}[4]{%
+\DTLformatforenames{##4}
+\DTLformatvon{##1}%
+\DTLformatsurname{##2}%
+\DTLformatjr{##3}}
+% \end{macrocode}
+% Sets the edition format.
+% \begin{macrocode}
+\renewcommand*{\DTLformatedition}[1]{##1 \editionname}%
+% \end{macrocode}
+% Sets the monthname format.
+% \begin{macrocode}
+\let\DTLmonthname\dtl@monthname
+% \end{macrocode}
+% Sets other predefined names:
+% \begin{macrocode}
+\renewcommand*{\DTLacmcs}{ACM Computing Surveys}
+\renewcommand*{\DTLacta}{Acta Informatica}
+\renewcommand*{\DTLcacm}{Communications of the ACM}
+\renewcommand*{\DTLibmjrd}{IBM Journal of Research and Development}
+\renewcommand*{\DTLibmsj}{IBM Systems Journal}
+\renewcommand*{\DTLieeese}{IEEE Transactions on Software Engineering}
+\renewcommand*{\DTLieeetc}{IEEE Transactions on Computers}
+\renewcommand*{\DTLieeetcad}{IEEE Transactions on Computer-Aided Design
+of Integrated Circuits}
+\renewcommand*{\DTLipl}{Information Processing Letters}
+\renewcommand*{\DTLjacm}{Journal of the ACM}
+\renewcommand*{\DTLjcss}{Journal of Computer and System Sciences}
+\renewcommand*{\DTLscp}{Science of Computer Programming}
+\renewcommand*{\DTLsicomp}{SIAM Journal on Computing}
+\renewcommand*{\DTLtocs}{ACM Transactions on Computer Systems}
+\renewcommand*{\DTLtods}{ACM Transactions on Database Systems}
+\renewcommand*{\DTLtog}{ACM Transactions on Graphics}
+\renewcommand*{\DTLtoms}{ACM Transactions on Mathematical Software}
+\renewcommand*{\DTLtoois}{ACM Transactions on Office Information
+Systems}
+\renewcommand*{\DTLtoplas}{ACM Transactions on Programming Languages
+and Systems}
+\renewcommand*{\DTLtcs}{Theoretical Computer Science}
+% \end{macrocode}
+% The format of an article.
+% \begin{macrocode}
+\renewcommand*{\DTLformatarticle}{%
+\DTLformatauthorlist
+\DTLifbibfieldexists{Author}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{CrossRef}{%
+% cross ref field
+\DTLformatarticlecrossref
+\DTLifbibfieldexists{Pages}{\DTLaddcomma}{}%
+\DTLformatpages
+\DTLaddperiod
+}{% no cross ref field
+\DTLifbibfieldexists{Journal}{\DTLstartsentencespace
+{\em\DTLbibfield{Journal}}%
+\DTLcheckbibfieldendsperiod{Journal}%
+\DTLifanybibfieldexists{Number,Volume,Pages,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatvolnumpages
+\DTLifanybibfieldexists{Volume,Number,Pages}{%
+\DTLifanybibfieldexists{Year,Month}{\DTLaddcomma}{%
+\DTLaddperiod}%
+\DTLmidsentencefalse}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Year,Month}{\DTLaddperiod}{}%
+}%
+\DTLifbibfieldexists{Note}{\DTLstartsentencespace\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}
+% \end{macrocode}
+% The format of a book.
+% \begin{macrocode}
+\renewcommand*{\DTLformatbook}{%
+\DTLifbibfieldexists{Author}{%
+\DTLformatauthorlist\DTLaddperiod
+}{\DTLformateditorlist\DTLifbibfieldexists{Editor}{%
+\DTLaddperiod}{}}%
+\DTLifbibfieldexists{Title}{\DTLstartsentencespace
+{\em\DTLbibfield{Title}}%
+\DTLcheckbibfieldendsperiod{Title}}{}%
+\DTLifbibfieldexists{CrossRef}{%
+% cross ref field
+\DTLifbibfieldexists{Title}{\DTLaddperiod}{}%
+\DTLformatbookcrossref
+\DTLifanybibfieldexists{Edition,Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}%
+}{% no cross ref field
+\DTLifbibfieldexists{Title}{%
+\DTLifbibfieldexists{Volume}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatbvolume
+\DTLformatnumberseries
+\DTLifanybibfieldexists{Number,Series,Volume}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Publisher}{\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLifbibfieldexists{Address}{\DTLaddcomma}{%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}%
+}}{}%
+\DTLifbibfieldexists{Address}{\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+}%
+\DTLifbibfieldexists{Edition}{%
+\protected@edef\@dtl@tmp{\DTLformatedition{\DTLbibfield{Edition}}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace\expandafter\MakeUppercase\@dtl@tmp
+\fi
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}%
+}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Year,Month}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a booklet.
+% \begin{macrocode}
+\renewcommand*{\DTLformatbooklet}{%
+\DTLifbibfieldexists{Author}{%
+\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{HowPublished}{%
+\DTLstartsentencespace\DTLbibfield{HowPublished}%
+\DTLcheckbibfieldendsperiod{HowPublished}%
+\DTLifanybibfieldexists{Address,Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Year,Month}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{\DTLstartsentencespace\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of an `inbook' entry.
+% \begin{macrocode}
+\renewcommand*{\DTLformatinbook}{%
+\DTLifbibfieldexists{Author}{%
+\DTLformatauthorlist\DTLaddperiod}{%
+\DTLifbibfieldexists{Editor}{\DTLformateditorlist\DTLaddperiod}{}}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+{\em\DTLbibfield{Title}}%
+\DTLcheckbibfieldendsperiod{Title}%
+}{}%
+\DTLifbibfieldexists{CrossRef}{%
+% Cross ref entry
+\DTLifbibfieldexists{Title}{%
+\DTLifbibfieldexists{Chapter}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatchapterpages
+\DTLifanybibfieldexists{Chapter,Pages}{\DTLaddperiod}{}%
+\DTLformatbookcrossref
+}{% no cross ref
+\DTLifbibfieldexists{Title}{%
+\DTLifanybibfieldexists{Chapter,Volume}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLformatbvolume
+\DTLifanybibfieldexists{Volume,Series}{%
+\DTLifanybibfieldexists{Chapter,Pages}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatchapterpages
+\DTLifanybibfieldexists{Chapter,Pages}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLifbibfieldexists{Address}{\DTLaddcomma}{}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}}{}%
+}%
+\DTLifanybibfieldexists{Edition,Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}%
+\DTLifbibfieldexists{Edition}{%
+\protected@edef\@dtl@tmp{\DTLformatedition{\DTLbibfield{Edition}}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\@dtl@tmp
+\fi
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}%
+}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of an `incollection' entry.
+% \begin{macrocode}
+\renewcommand*{\DTLformatincollection}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{CrossRef}{%
+% cross ref entry
+\DTLformatincollproccrossref
+\DTLifanybibfieldexists{Chapter,Pages}{\DTLaddcomma}{}%
+\DTLformatchapterpages\DTLaddperiod
+}{% no cross ref entry
+\DTLformatinedbooktitle
+\DTLifbibfieldexists{BookTitle}{%
+\DTLifanybibfieldexists{Volume,Series,Chapter,Pages,Number}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatbvolume
+\DTLifbibfieldexists{Volume}{%
+\DTLifanybibfieldexists{Number,Series,Chapter,Pages}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatnumberseries
+\DTLifanybibfieldexists{Number,Series}{%
+\DTLifanybibfieldexists{Chapter,Pages}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLformatchapterpages
+\DTLifanybibfieldexists{Chapter,Pages}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLifanybibfieldexists{Address,Edition,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Edition,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Edition}{%
+\protected@edef\@dtl@tmp{\DTLformatedition{\DTLbibfield{Edition}}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\@dtl@tmp
+\fi
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}%
+}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of an `inproceedings' entry.
+% \begin{macrocode}
+\renewcommand*{\DTLformatinproceedings}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{CrossRef}{%
+% cross ref entry
+\DTLformatincollproccrossref
+\DTLifbibfieldexists{Pages}{\DTLaddcomma}{%
+\DTLaddperiod}%
+\DTLformatpages
+\DTLifbibfieldexists{Pages}{\DTLaddperiod}{}%
+}{% no cross ref
+\DTLformatinedbooktitle
+\DTLifbibfieldexists{BookTitle}{%
+\DTLifanybibfieldexists{Volume,Series,Pages,Number,Address,%
+Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatbvolume
+\DTLifbibfieldexists{Volume}{%
+\DTLifanybibfieldexists{Number,Series,Pages,Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatnumberseries
+\DTLifanybibfieldexists{Number,Series}{%
+\DTLifanybibfieldexists{Pages,Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatpages
+\DTLifbibfieldexists{Pages}{%
+\DTLifanybibfieldexists{Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifbibfieldexists{Publisher}{\DTLaddcomma}{%
+\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLaddperiod}{}%
+}{%
+\DTLifanybibfieldexists{Publisher,Organization}{%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifanybibfieldexists{Publisher,Month,Year}{%
+\DTLaddcomma}{}}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+}%
+}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a manual.
+% \begin{macrocode}
+\renewcommand*{\DTLformatmanual}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist
+\DTLaddperiod}{%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifbibfieldexists{Address}{\DTLaddcomma \DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+}{}%
+\DTLaddperiod}{}%
+}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+{\em\DTLbibfield{Title}}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLifbibfieldexists{Author}{%
+\DTLifanybibfieldexists{Organization,Address}{%
+\DTLaddperiod}{\DTLaddcomma}}{%
+\DTLifanybibfieldexists{Organization,Address,Edition,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}}{}%
+\DTLifbibfieldexists{Author}{%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifanybibfieldexists{Address,Edition,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Edition,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+}{%
+\DTLifbibfieldexists{Organization}{}{%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Edition,Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}}{}}%
+}%
+\DTLifbibfieldexists{Edition}{%
+\protected@edef\@dtl@tmp{\DTLformatedition{\DTLbibfield{Edition}}}%
+\ifDTLmidsentence
+ \@dtl@tmp
+\else
+ \DTLstartsentencespace
+ \expandafter\MakeUppercase\@dtl@tmp
+\fi
+\expandafter\DTLcheckendsperiod\expandafter{\@dtl@tmp}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a master's thesis.
+% \begin{macrocode}
+\renewcommand*{\DTLformatmastersthesis}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Type}{%
+\DTLstartsentencespace
+\DTLbibfield{Type}%
+\DTLcheckbibfieldendsperiod{Type}%
+\DTLifanybibfieldexists{School,Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{School}{%
+\DTLstartsentencespace
+\DTLbibfield{School}%
+\DTLcheckbibfieldendsperiod{School}%
+\DTLifanybibfieldexists{Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a miscellaneous entry.
+% \begin{macrocode}
+\renewcommand*{\DTLformatmisc}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLifbibfieldexists{HowPublished}{\DTLaddperiod}{%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}%
+}%
+\DTLmidsentencefalse}{}%
+\DTLifbibfieldexists{HowPublished}{%
+\DTLstartsentencespace
+\DTLbibfield{HowPublished}%
+\DTLcheckbibfieldendsperiod{HowPublished}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{%
+\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a PhD thesis.
+% \begin{macrocode}
+\renewcommand*{\DTLformatphdthesis}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+{\em\DTLbibfield{Title}}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Type}{%
+\DTLstartsentencespace
+\DTLbibfield{Type}%
+\DTLcheckbibfieldendsperiod{Type}%
+\DTLifanybibfieldexists{School,Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{School}{%
+\DTLstartsentencespace
+\DTLbibfield{School}%
+\DTLcheckbibfieldendsperiod{School}%
+\DTLifanybibfieldexists{Address,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a proceedings.
+% \begin{macrocode}
+\renewcommand*{\DTLformatproceedings}{%
+\DTLifbibfieldexists{Editor}{%
+\DTLformateditorlist\DTLaddperiod}{%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLaddperiod}{}}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+{\em\DTLbibfield{Title}}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLifanybibfieldexists{Volume,Number,Address,Editor,Publisher,%
+Month,Year}{\DTLaddcomma}{\DTLaddperiod}%
+}{}%
+\DTLformatbvolume
+\DTLifbibfieldexists{Volume}{%
+\DTLifanybibfieldexists{Number,Address,Editor,Publisher,%
+Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatnumberseries
+\DTLifbibfieldexists{Number}{%
+\DTLifanybibfieldexists{Address,Editor,Publisher,%
+Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Editor}{\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLaddcomma}{\DTLaddperiod}}{}}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLaddperiod
+}{}%
+}{% no address
+\DTLifbibfieldexists{Editor}{%
+\DTLifbibfieldexists{Organization}{%
+\DTLstartsentencespace
+\DTLbibfield{Organization}%
+\DTLcheckbibfieldendsperiod{Organization}%
+\DTLifanybibfieldexists{Publisher,Month,Year}{%
+\DTLaddcomma}{\DTLaddperiod}}{}%
+}{}%
+\DTLifbibfieldexists{Publisher}{%
+\DTLstartsentencespace
+\DTLbibfield{Publisher}%
+\DTLcheckbibfieldendsperiod{Publisher}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of a technical report.
+% \begin{macrocode}
+\renewcommand*{\DTLformattechreport}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Type}{%
+\DTLstartsentencespace
+\DTLbibfield{Type}%
+\DTLcheckbibfieldendsperiod{Type}%
+\DTLifbibfieldexists{Number}{~}{}}{}%
+\DTLifbibfieldexists{Number}{%
+\DTLstartsentencespace
+\DTLbibfield{Number}%
+\DTLcheckbibfieldendsperiod{Number}%
+}{}%
+\DTLifanybibfieldexists{Type,Number}{%
+\DTLifanybibfieldexists{Institution,Address,Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Institution}{%
+\DTLstartsentencespace
+\DTLbibfield{Institution}%
+\DTLcheckbibfieldendsperiod{Institution}%
+\DTLifanybibfieldexists{Address,Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLifbibfieldexists{Address}{%
+\DTLstartsentencespace
+\DTLbibfield{Address}%
+\DTLcheckbibfieldendsperiod{Address}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma
+}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% The format of an unpublished work.
+% \begin{macrocode}
+\renewcommand*{\DTLformatunpublished}{%
+\DTLifbibfieldexists{Author}{\DTLformatauthorlist\DTLaddperiod}{}%
+\DTLifbibfieldexists{Title}{%
+\DTLstartsentencespace
+\DTLbibfield{Title}%
+\DTLcheckbibfieldendsperiod{Title}%
+\DTLaddperiod}{}%
+\DTLifbibfieldexists{Note}{%
+\DTLstartsentencespace
+\DTLbibfield{Note}%
+\DTLcheckbibfieldendsperiod{Note}%
+\DTLifanybibfieldexists{Month,Year}{\DTLaddcomma}{\DTLaddperiod}}{}%
+\DTLformatdate
+\DTLifanybibfieldexists{Month,Year}{\DTLaddperiod}{}%
+}%
+% \end{macrocode}
+% End of `plain' style.
+% \begin{macrocode}
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtlbst@abbrv}
+% Define `abbrv' style. This is similar to `plain' except that
+% some of the values are abbreviated
+% \begin{macrocode}
+\newcommand{\dtlbst@abbrv}{%
+% \end{macrocode}
+% Base this style on `plain':
+% \begin{macrocode}
+\dtlbst@plain
+% \end{macrocode}
+% Sets the author name format.
+% \begin{macrocode}
+\renewcommand*{\DTLformatauthor}[4]{%
+\DTLformatabbrvforenames{##4}
+\DTLformatvon{##1}%
+\DTLformatsurname{##2}%
+\DTLformatjr{##3}}
+% \end{macrocode}
+% Sets the editor name format.
+% \begin{macrocode}
+\renewcommand*{\DTLformateditor}[4]{%
+\DTLformatabbrvforenames{##4}
+\DTLformatvon{##1}%
+\DTLformatsurname{##2}%
+\DTLformatjr{##3}}
+% \end{macrocode}
+% Sets the monthname format.
+% \begin{macrocode}
+\let\DTLmonthname\dtl@abbrvmonthname
+% \end{macrocode}
+% Sets other predefined names:
+% \begin{macrocode}
+\renewcommand*{\DTLacmcs}{ACM Comput.\ Surv.}
+\renewcommand*{\DTLacta}{Acta Inf.}
+\renewcommand*{\DTLcacm}{Commun.\ ACM}
+\renewcommand*{\DTLibmjrd}{IBM J.\ Res.\ Dev.}
+\renewcommand*{\DTLibmsj}{IBM Syst.~J.}
+\renewcommand*{\DTLieeese}{IEEE Trans. Softw.\ Eng.}
+\renewcommand*{\DTLieeetc}{IEEE Trans.\ Comput.}
+\renewcommand*{\DTLieeetcad}{IEEE Trans.\ Comput.-Aided Design
+Integrated Circuits}
+\renewcommand*{\DTLipl}{Inf.\ Process.\ Lett.}
+\renewcommand*{\DTLjacm}{J.~ACM}
+\renewcommand*{\DTLjcss}{J.~Comput.\ Syst.\ Sci.}
+\renewcommand*{\DTLscp}{Sci.\ Comput.\ Programming}
+\renewcommand*{\DTLsicomp}{SIAM J.~Comput.}
+\renewcommand*{\DTLtocs}{ACM Trans.\ Comput.\ Syst.}
+\renewcommand*{\DTLtods}{ACM Trans.\ Database Syst.}
+\renewcommand*{\DTLtog}{ACM Trans.\ Gr.}
+\renewcommand*{\DTLtoms}{ACM Trans.\ Math. Softw.}
+\renewcommand*{\DTLtoois}{ACM Trans. Office Inf.\ Syst.}
+\renewcommand*{\DTLtoplas}{ACM Trans.\ Prog. Lang.\ Syst.}
+\renewcommand*{\DTLtcs}{Theoretical Comput.\ Sci.}
+% \end{macrocode}
+% End of `abbrv' style.
+% \begin{macrocode}
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtlbst@alpha}
+% Define `alpha' style. This is similar to `plain' except that
+% the labels are strings rather than numerical.
+% \begin{macrocode}
+\newcommand{\dtlbst@alpha}{%
+% \end{macrocode}
+% Base this style on `plain':
+% \begin{macrocode}
+\dtlbst@plain
+% \end{macrocode}
+% Set how to format the entire bibliography:
+% \begin{macrocode}
+\renewenvironment{DTLthebibliography}[2][\boolean{true}]{%
+\dtl@createalphabiblabels{##1}{##2}%
+\begin{thebibliography}{\@dtl@widestlabel}%
+}{\end{thebibliography}}%
+% \end{macrocode}
+% Set how to start the bibliography entry:
+% \begin{macrocode}
+\renewcommand*{\DTLbibitem}{%
+\expandafter\bibitem\expandafter
+ [\csname dtl@biblabel@\DBIBcitekey\endcsname]{\DBIBcitekey}}%
+% \end{macrocode}
+% \begin{macrocode}
+% \end{macrocode}
+% End of `alpha' style.
+% \begin{macrocode}
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{dtl@createalphabiblabels}
+%\begin{definition}
+%\cs{dtl@createalphabiblabels}\marg{condition}\marg{db name}
+%\end{definition}
+% Constructs the alpha style bib labels for the given database.
+% (Labels are stored in the control sequence
+%\cs{dtl@biblabel@}\meta{citekey}.) This also sets
+% \cs{@dtl@widestlabel} to the widest label.
+% \begin{macrocode}
+\newcommand*{\dtl@createalphabiblabels}[2]{%
+\dtl@message{Creating bib labels}%
+\begingroup
+\gdef\@dtl@widestlabel{}%
+\dtl@widest=0pt\relax
+\DTLforeachbibentry[#1]{#2}{%
+\dtl@message{\DBIBcitekey}%
+\DTLifbibfieldexists{Author}{%
+ \dtl@listgetalphalabel{\@dtl@thislabel}{\@dtl@key@Author}%
+}{%
+\DTLifbibfieldexists{Editor}{%
+ \dtl@listgetalphalabel{\@dtl@thislabel}{\@dtl@key@Editor}%
+ }{%
+ \DTLifbibfieldexists{Key}{%
+ \expandafter\dtl@get@firstthree\expandafter
+ {\@dtl@key@Key}{\@dtl@thislabel}%
+ }{%
+ \DTLifbibfieldexists{Organization}{%
+ \expandafter\dtl@get@firstthree\expandafter
+ {\@dtl@key@Organization}{\@dtl@thislabel}%
+ }{%
+ \expandafter\dtl@get@firstthree\expandafter
+ {\DBIBentrytype}{\@dtl@thislabel}%
+ }%
+ }}}%
+\DTLifbibfieldexists{Year}{}{\DTLifbibfieldexists{CrossRef}{%
+\DTLgetvalueforkey{\@dtl@key@Year}{Year}{#2}{CiteKey}{%
+\@dtl@key@CrossRef}}{}}%
+\DTLifbibfieldexists{Year}{%
+\expandafter\dtl@get@yearsuffix\expandafter{\@dtl@key@Year}%
+\expandafter\toks@\expandafter{\@dtl@thislabel}%
+\expandafter\@dtl@toks\expandafter{\@dtl@year}%
+\edef\@dtl@thislabel{\the\toks@\the\@dtl@toks}%
+}{}%
+\let\@dtl@s@thislabel=\@dtl@thislabel
+\@onelevel@sanitize\@dtl@s@thislabel
+\@ifundefined{c@biblabel@\@dtl@s@thislabel}{%
+\newcounter{biblabel@\@dtl@s@thislabel}%
+\setcounter{biblabel@\@dtl@s@thislabel}{1}%
+\expandafter\edef\csname @dtl@bibfirst@\@dtl@s@thislabel\endcsname{%
+\DBIBcitekey}%
+\expandafter\global
+\expandafter\let\csname dtl@biblabel@\DBIBcitekey\endcsname=
+ \@dtl@thislabel
+}{%
+\expandafter\ifnum\csname c@biblabel@\@dtl@s@thislabel\endcsname=1\relax
+ \expandafter\let\expandafter\@dtl@tmp
+ \csname @dtl@bibfirst@\@dtl@s@thislabel\endcsname
+ \expandafter\protected@xdef\csname dtl@biblabel@\@dtl@tmp\endcsname{%
+ \@dtl@thislabel a}%
+\fi
+\stepcounter{biblabel@\@dtl@s@thislabel}%
+\expandafter\protected@xdef\csname dtl@biblabel@\DBIBcitekey\endcsname{%
+ \@dtl@thislabel\alph{biblabel@\@dtl@s@thislabel}}%
+}%
+\settowidth{\dtl@tmplength}{%
+ \csname dtl@biblabel@\DBIBcitekey\endcsname}%
+\ifdim\dtl@tmplength>\dtl@widest
+ \dtl@widest=\dtl@tmplength
+ \expandafter\global\expandafter\let\expandafter\@dtl@widestlabel
+ \expandafter=\csname dtl@biblabel@\DBIBcitekey\endcsname
+\fi
+}%
+\endgroup
+}
+% \end{macrocode}
+%\end{macro}
+%
+%\begin{macro}{\dtl@listgetalphalabel}
+% Determine the alpha style label from a list of authors/editors
+% (the first argument must be a control sequence (in which the
+% label is stored), the second argument must be the list of names.)
+% \begin{macrocode}
+\newcommand*{\dtl@listgetalphalabel}[2]{%
+\@dtl@authorcount=0\relax
+\@for\@dtl@author:=#2\do{%
+\advance\@dtl@authorcount by 1\relax}%
+\ifnum\@dtl@authorcount=1\relax
+ \expandafter\dtl@getsinglealphalabel#2{#1}\relax
+\else
+ {%
+ \xdef#1{}%
+ \@dtl@tmpcount=0\relax
+ \def\DTLafterinitials{}\def\DTLbetweeninitials{}%
+ \def\DTLafterinitialbeforehyphen{}\def\DTLinitialhyphen{}%
+ \@for\@dtl@author:=#2\do{%
+ \expandafter\dtl@getauthorinitial\@dtl@author
+ \expandafter\toks@\expandafter{\@dtl@tmp}%
+ \expandafter\@dtl@toks\expandafter{#1}%
+ \xdef#1{\the\@dtl@toks\the\toks@}%
+ \advance\@dtl@tmpcount by 1\relax
+ \ifnum\@dtl@tmpcount>2\relax\@endfortrue\fi
+ }}%
+\fi
+}
+% \end{macrocode}
+%\end{macro}
+% Get author's initial (stores in \cs{@dtl@tmp}):
+% \begin{macrocode}
+\newcommand*{\dtl@getauthorinitial}[4]{%
+\def\@dtl@vonpart{#1}%
+\ifx\@dtl@vonpart\@empty
+ \DTLstoreinitials{#2}{\@dtl@tmp}%
+\else
+ \DTLstoreinitials{#1 #2}{\@dtl@tmp}%
+\fi}
+% \end{macrocode}
+% Get label for single author (last argument is control sequence
+% in which to store the label):
+% \begin{macrocode}
+\newcommand*{\dtl@getsinglealphalabel}[5]{%
+\def\@dtl@vonpart{#1}%
+\ifx\@dtl@vonpart\@empty
+ \DTLifSubString{#2}{-}{%
+ {\def\DTLafterinitials{}\def\DTLbetweeninitials{}%
+ \def\DTLafterinitialbeforehyphen{}%
+ \def\DTLinitialhyphen{}%
+ \DTLstoreinitials{#2}{\@dtl@tmp}\global\let#5=\@dtl@tmp}%
+ }{%
+ \dtl@getfirstthree{#5}#2{}{}{}{}\@nil
+ }
+\else
+ {\def\DTLafterinitials{}\def\DTLbetweeninitials{}%
+ \def\DTLafterinitialbeforehyphen{}%
+ \def\DTLinitialhyphen{}%
+ \DTLstoreinitials{#1 #2}{\@dtl@tmp}\global\let#5=\@dtl@tmp}%
+\fi
+}
+% \end{macrocode}
+%Get first three letters from the given string:
+% \begin{macrocode}
+\def\dtl@getfirstthree#1#2#3#4#5\@nil{%
+ \def#1{#2#3#4}%
+}
+\newcommand*{\dtl@get@firstthree}[2]{%
+\dtl@getfirstthree#2#1{}{}{}{}{}\@nil}
+% \end{macrocode}
+%Get year suffix:
+% \begin{macrocode}
+\newcommand*{\dtl@get@yearsuffix}[1]{%
+\dtl@getyearsuffix#1\@nil\relax\relax}
+
+\def\dtl@getyearsuffix#1#2#3{%
+\def\@dtl@argi{#1}\def\@dtl@argii{#2}%
+\def\@dtl@argiii{#3}%
+\ifx\@dtl@argi\@nnil
+ \def\@dtl@year{}%
+ \let\@dtl@donext=\relax
+\else
+ \ifx\@dtl@argii\@nnil
+ \dtl@ifsingle{#1}{%
+ \def\@dtl@year{#1}%
+ \let\@dtl@donext=\relax
+ }{%
+ \def\@dtl@donext{\dtl@getyearsuffix#1#2#3}%
+ }%
+ \else
+ \ifx\@dtl@argiii\@nnil
+ \dtl@ifsingle{#1}{%
+ \dtl@ifsingle{#2}{%
+ \def\@dtl@year{#1#2}%
+ \let\@dtl@donext=\relax
+ }{%
+ \def\@dtl@donext{\dtl@getyearsuffix#2#3}%
+ }%
+ }{%
+ \def\@dtl@donext{\dtl@getyearsuffix#2#3}%
+ }%
+ \else
+ \def\@dtl@donext{\dtl@getyearsuffix{#2}{#3}}%
+ \fi
+ \fi
+\fi
+\@dtl@donext
+}
+% \end{macrocode}
+%
+%\begin{macro}{\DTLbibliographystyle}
+%\begin{definition}
+%\cs{DTLbibliographystyle}\marg{style}
+%\end{definition}
+% Sets the bibliography style.
+% \begin{macrocode}
+\newcommand*{\DTLbibliographystyle}[1]{%
+\@ifundefined{dtlbst@#1}{\PackageError{databib}{Unknown
+bibliography style `#1'}{}}{\csname dtlbst@#1\endcsname}}
+% \end{macrocode}
+%\end{macro}
+%Set the default bibliography style:
+% \begin{macrocode}
+\DTLbibliographystyle{\dtlbib@style}
+% \end{macrocode}
+%\iffalse
+% \begin{macrocode}
+%</databib.sty>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%<*databib.bst>
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+% \begin{macrocode}
+% Bibliography style `databib'
+% This style is provided for use with the databib package.
+
+ENTRY
+ { address
+ author
+ booktitle
+ chapter
+ edition
+ editor
+ howpublished
+ institution
+ journal
+ key
+ month
+ note
+ number
+ organization
+ pages
+ publisher
+ school
+ series
+ title
+ type
+ volume
+ year
+ isbn
+ doi
+ pubmed
+ url
+ abstract
+ }
+ {}
+ { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+ #1 'mid.sentence :=
+ #2 'after.sentence :=
+ #3 'after.block :=
+}
+
+STRINGS { s t }
+
+FUNCTION {output.nonnull}
+{ 's :=
+% output.state mid.sentence =
+% { "%" * write$
+% newline$
+% }
+% { output.state after.block =
+% { add.period$ write$
+% newline$
+% }
+ %{
+ output.state before.all =
+ {
+ "%" * write$
+ newline$
+ }
+ { newline$
+ %add.period$ " " * write$
+ }
+ if$
+% }
+ % if$
+ % mid.sentence 'output.state :=
+ % }
+ %if$
+ s
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+ 'pop$
+ 'output.nonnull
+ if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+ duplicate$ empty$
+ { pop$ "empty " t * " in " * cite$ * warning$ }
+ {
+ output.nonnull
+ }
+ if$
+}
+
+FUNCTION {output.bibitem}
+{ "\DTLnewbibrow" write$
+ newline$
+ "\DTLnewbibitem {CiteKey}{" write$
+ cite$ write$
+ "}%" write$
+ newline$
+ ""
+ before.all 'output.state :=
+}
+
+FUNCTION {fin.entry}
+{ "%" *
+ write$
+ newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+ 'skip$
+ { after.block 'output.state := }
+ if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+ 'skip$
+ { output.state before.all =
+ 'skip$
+ { after.sentence 'output.state := }
+ if$
+ }
+ if$
+}
+
+FUNCTION {not}
+{ { #0 }
+ { #1 }
+ if$
+}
+
+FUNCTION {and}
+{ 'skip$
+ { pop$ #0 }
+ if$
+}
+
+FUNCTION {or}
+{ { pop$ #1 }
+ 'skip$
+ if$
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+ 'skip$
+ 'new.block
+ if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+ swap$ empty$
+ and
+ 'skip$
+ 'new.block
+ if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+ 'skip$
+ 'new.sentence
+ if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+ swap$ empty$
+ and
+ 'skip$
+ 'new.sentence
+ if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+ { pop$ "" }
+ 'skip$
+ if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "{\em " swap$ * "}" * }
+ if$
+}
+
+FUNCTION {group}
+{ duplicate$ empty$
+ { pop$ "" }
+ { "{" swap$ * "}" * }
+ if$
+}
+
+INTEGERS { nameptr namesleft numnames }
+
+FUNCTION {format.names}
+{
+ 's :=
+ #1 'nameptr :=
+ s num.names$ 'numnames :=
+ numnames 'namesleft :=
+ { namesleft #0 > }
+ {
+ %s nameptr "{vv,}{ll,}{jj,}{ff}" format.name$ 't :=
+ "{" *
+ s nameptr "{vv}" format.name$ 't :=
+ t * "}" *
+ "{" *
+ s nameptr "{ll}" format.name$ 't :=
+ t * "}{" *
+ s nameptr "{jj}" format.name$ 't :=
+ t * "}" *
+ "{" *
+ s nameptr "{ff}" format.name$ 't :=
+ t * "}" *
+ s nameptr "" format.name$ 't :=
+ namesleft #1 >
+ { "," * }
+ { }
+ if$
+ nameptr #1 >
+ {
+ t *
+ }
+ 't
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
+ while$
+ "}" *
+}
+
+FUNCTION {format.authors}
+{
+ author empty$
+ { "" }
+ { author
+ "\DTLnewbibitem {Author}{" write$
+ format.names }
+ if$
+}
+
+FUNCTION {format.editors}
+{ editor empty$
+ { "" }
+ { editor
+ "\DTLnewbibitem {Editor}{" write$
+ format.names
+ }
+ if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+ { "" }
+ {
+ "\DTLnewbibitem {Title}"
+ title "t" change.case$ group *
+ }
+ if$
+}
+
+FUNCTION {format.howpublished}
+{ howpublished empty$
+ { "" }
+ {
+ howpublished
+ "\DTLnewbibitem {HowPublished}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.organization}
+{ organization empty$
+ { "" }
+ {
+ organization
+ "\DTLnewbibitem {Organization}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.institution}
+{ institution empty$
+ { "" }
+ {
+ institution
+ "\DTLnewbibitem {Institution}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.key}
+{ key empty$
+ { "" }
+ {
+ key
+ "\DTLnewbibitem {Key}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.note}
+{ note empty$
+ { "" }
+ {
+ note
+ "\DTLnewbibitem {Note}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.isbn}
+{ isbn empty$
+ { "" }
+ {
+ isbn
+ "\DTLnewbibitem {ISBN}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.doi}
+{ doi empty$
+ { "" }
+ {
+ doi
+ "\DTLnewbibitem {DOI}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.pubmed}
+{ pubmed empty$
+ { "" }
+ {
+ pubmed
+ "\DTLnewbibitem {PubMed}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.abstract}
+{ abstract empty$
+ { "" }
+ {
+ abstract
+ "\DTLnewbibitem {Abstract}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+ { "" }
+ {
+ url
+ "\DTLnewbibitem {Url}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.address}
+{ address empty$
+ { "" }
+ {
+ address
+ "\DTLnewbibitem {Address}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.school}
+{ school empty$
+ { "" }
+ {
+ school
+ "\DTLnewbibitem {School}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.publisher}
+{ publisher empty$
+ { "" }
+ {
+ publisher
+ "\DTLnewbibitem {Publisher}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+ ""
+ { t empty$ not }
+ { t #1 #1 substring$ "-" =
+ { t #1 #2 substring$ "--" = not
+ { "--" *
+ t #2 global.max$ substring$ 't :=
+ }
+ { { t #1 #1 substring$ "-" = }
+ { "-" *
+ t #2 global.max$ substring$ 't :=
+ }
+ while$
+ }
+ if$
+ }
+ { t #1 #1 substring$ *
+ t #2 global.max$ substring$ 't :=
+ }
+ if$
+ }
+ while$
+}
+
+FUNCTION {format.date}
+{ year empty$
+ { month empty$
+ { "" }
+ { "there's a month but no year in " cite$ * warning$
+ "\DTLnewbibitem {Month}" *
+ month group
+ }
+ if$
+ }
+ { month empty$
+ { }
+ { "\DTLnewbibitem {Month}{" * month * "}" * }
+ if$
+ "\DTLnewbibitem {Year}{" * year * "}"
+ }
+ if$
+}
+
+FUNCTION {format.btitle}
+{ title
+ "\DTLnewbibitem {Title}{" swap$ *
+ "}" *
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+ { "~" }
+ { " " }
+ if$
+ swap$ * *
+}
+
+FUNCTION {either.or.check}
+{ empty$
+ 'pop$
+ { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+ if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+ { "" }
+ {
+ "\DTLnewbibitem {Volume}{" volume * "}" *
+ series empty$
+ 'skip$
+ {
+ "\DTLnewbibitem {Series}" * series group *
+ }
+ if$
+ "volume and number" number either.or.check
+ }
+ if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+ { number empty$
+ {
+ %series field.or.null group
+ series empty$
+ { "" }
+ { "\DTLnewbibitem {Series}" * series group }
+ if$
+ }
+ {
+ "\DTLnewbibitem {Number}" number group *
+ series empty$
+ { "there's a number but no series in " cite$ * warning$ }
+ { "\DTLnewbibitem {Series}{" * series * "}" * }
+ if$
+ }
+ if$
+ }
+ { "" }
+ if$
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+ { "" }
+ {
+ "\DTLnewbibitem {Edition}"
+ edition "l" change.case$ group *
+ }
+ if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+ #0 'multiresult :=
+ { multiresult not
+ t empty$ not
+ and
+ }
+ { t #1 #1 substring$
+ duplicate$ "-" =
+ swap$ duplicate$ "," =
+ swap$ "+" =
+ or or
+ { #1 'multiresult := }
+ { t #2 global.max$ substring$ 't := }
+ if$
+ }
+ while$
+ multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+ { "" }
+ { pages multi.page.check
+ { "\DTLnewbibitem {Pages}" pages n.dashify
+ group * }
+ { "\DTLnewbibitem {Pages}" pages
+ group *}
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.vol.num.pages}
+{
+ volume empty$
+ { "" }
+ {
+ "\DTLnewbibitem {Volume}{" volume * "}" *
+ }
+ if$
+ number empty$
+ 'skip$
+ { "\DTLnewbibitem {Number}{" number * "}\relax " * *
+ volume empty$
+ { "there's a number but no volume in " cite$ * warning$ }
+ 'skip$
+ if$
+ }
+ if$
+ pages empty$
+ 'skip$
+ { duplicate$ empty$
+ { pop$ format.pages }
+ { "\DTLnewbibitem {Pages}" * pages n.dashify group * }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.chapter.pages}
+{ chapter empty$
+ 'format.pages
+ { type empty$
+ { "\DTLnewbibitem {Type}{chapter}" }
+ { "\DTLnewbibitem {Type}" type "l" change.case$ group *}
+ if$
+ "\DTLnewbibitem {Chapter}{" * chapter * "}" *
+ pages empty$
+ 'skip$
+ { format.pages * }
+ if$
+ }
+ if$
+}
+
+FUNCTION {format.in.ed.booktitle}
+{ booktitle empty$
+ { "" }
+ {
+ "\DTLnewbibitem {BookTitle}" booktitle group *
+ editor empty$
+ {}
+ {
+ "\DTLnewbibitem {Editor}{" *
+ editor format.names *
+ }
+ if$
+ }
+ if$
+}
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+ month empty$ year empty$ note empty$
+ and and and and and
+ { "all relevant fields are empty in " cite$ * warning$ }
+ 'skip$
+ if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+ 'skip$
+ { pop$
+ type "t" change.case$
+ "\DTLnewbibitem {Type}" swap$ group *
+ }
+ if$
+}
+
+FUNCTION {format.tr.number}
+{
+ type empty$
+ { "\techreportname " }
+ 'type
+ if$
+ number empty$
+ { "t" change.case$ "\DTLnewbibitem {Type}" swap$ group *}
+ { "\DTLnewbibitem {Type}" swap$ group *
+ "\DTLnewbibitem {Number}" *
+ number group * }
+ if$
+}
+
+FUNCTION {format.article.crossref}
+{ key empty$
+ { journal empty$
+ { "need key or journal for " cite$ * " to crossref " * crossref *
+ warning$
+ ""
+ }
+ {
+ "\DTLnewbibitem {Journal}" journal group *
+ }
+ if$
+ }
+ {
+ ""
+ }
+ if$
+ "\DTLnewbibitem {CrossRef}{" * crossref * "}" *
+}
+
+FUNCTION {format.crossref.editor}
+{ format.editors
+% editor #1 "{vv~}{ll}" format.name$
+% editor num.names$ duplicate$
+% #2 >
+% { pop$ " et~al." * }
+% { #2 <
+% 'skip$
+% { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+% { " et~al." * }
+% { " and " * editor #2 "{vv~}{ll}" format.name$ * }
+% if$
+% }
+% if$
+% }
+% if$
+}
+
+FUNCTION {format.book.crossref}
+{ volume empty$
+ { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
+ }
+ {
+ "\DTLnewbibitem {Volume}"
+ volume group *
+ }
+ if$
+ editor empty$
+ editor field.or.null author field.or.null =
+ or
+ { key empty$
+ { series empty$
+ { "need editor, key, or series for " cite$ * " to crossref " *
+ crossref * warning$
+ "" *
+ }
+ {
+ "\DTLnewbibitem {Series}{" * series *
+ "}" *
+ }
+ if$
+ }
+ { ""
+ }
+ if$
+ }
+ {
+ format.crossref.editor *
+ }
+ if$
+ "\DTLnewbibitem {CrossRef}{" * crossref * "}" *
+}
+
+FUNCTION {format.incoll.inproc.crossref}
+{ editor empty$
+ editor field.or.null author field.or.null =
+ or
+ { key empty$
+ { booktitle empty$
+ { "need editor, key, or booktitle for " cite$ * " to crossref " *
+ crossref * warning$
+ ""
+ }
+ { "\DTLnewbibitem {BookTitle}{" booktitle * "}" * }
+ if$
+ }
+ { "" }
+ if$
+ }
+ {
+ "\DTLnewbibitem {Editor}{" *
+ editor format.names
+ }
+ if$
+ "\DTLnewbibitem {CrossRef}{" * crossref * "}" *
+}
+
+FUNCTION {article}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{article}%" write$
+ newline$
+ format.authors "author"
+ output.check
+ format.title "title" output.check
+ new.block
+ crossref missing$
+ {
+ "\DTLnewbibitem {Journal}" *
+ journal group "journal" output.check
+ format.vol.num.pages output
+ format.date "year" output.check
+ }
+ { format.article.crossref output.nonnull
+ format.pages output
+ }
+ if$
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {book}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{book}%" write$
+ newline$
+ author empty$
+ { format.editors "author and editor" output.check }
+ { format.authors output.nonnull
+ crossref missing$
+ { "author and editor" editor either.or.check
+ }
+ 'skip$
+ if$
+ }
+ if$
+ new.block
+ format.btitle "title" output.check
+ crossref missing$
+ { format.bvolume output
+ new.block
+ format.number.series output
+ %new.sentence
+ format.publisher "publisher" output.check
+ format.address output
+ }
+ { new.block
+ format.book.crossref output.nonnull
+ }
+ if$
+ format.edition output
+ format.date "year" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {booklet}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{booklet}%" write$
+ newline$
+ format.authors output
+ new.block
+ format.title "title" output.check
+ howpublished address new.block.checkb
+ format.howpublished output
+ format.address output
+ format.date output
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {inbook}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{inbook}%" write$
+ newline$
+ author empty$
+ { format.editors "author and editor" output.check }
+ { format.authors output.nonnull
+ crossref missing$
+ { "author and editor" editor either.or.check }
+ 'skip$
+ if$
+ }
+ if$
+ new.block
+ format.btitle "title" output.check
+ crossref missing$
+ { format.bvolume output
+ format.chapter.pages "chapter and pages" output.check
+ new.block
+ format.number.series output
+ new.sentence
+ format.publisher "publisher" output.check
+ format.address output
+ }
+ { format.chapter.pages "chapter and pages" output.check
+ new.block
+ format.book.crossref output.nonnull
+ }
+ if$
+ format.edition output
+ format.date "year" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {incollection}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{incollection}%" write$
+ newline$
+ format.authors "author" output.check
+ format.title "title" output.check
+ crossref missing$
+ { format.in.ed.booktitle "booktitle" output.check
+ format.bvolume output
+ format.number.series output
+ format.chapter.pages output
+ new.sentence
+ format.publisher "publisher" output.check
+ format.address output
+ format.edition output
+ format.date "year" output.check
+ }
+ { format.incoll.inproc.crossref output.nonnull
+ format.chapter.pages output
+ }
+ if$
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{inproceedings}%" write$
+ newline$
+ format.authors "author" output.check
+ format.title "title" output.check
+ crossref missing$
+ { format.in.ed.booktitle "booktitle" output.check
+ format.bvolume output
+ format.number.series output
+ format.pages output
+ address empty$
+ { %organization publisher new.sentence.checkb
+ format.organization write$
+ format.publisher output
+ }
+ { format.address write$
+ new.sentence
+ format.organization output
+ format.publisher output
+ }
+ if$
+ format.date "year" output.check
+ }
+ {
+ format.incoll.inproc.crossref output.nonnull
+ format.pages output
+ }
+ if$
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+FUNCTION {manual}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{manual}%" write$
+ newline$
+ author empty$
+ { organization empty$
+ 'skip$
+ { format.organization output
+ format.address output
+ }
+ if$
+ }
+ { format.authors output }
+ if$
+ new.block
+ format.btitle "title" output.check
+ author empty$
+ { organization empty$
+ { address new.block.checka
+ address output
+ }
+ 'skip$
+ if$
+ }
+ { %organization address new.block.checkb
+ format.organization output
+ format.address output
+ }
+ if$
+ format.edition output
+ format.date output
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {mastersthesis}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{mastersthesis}%" write$
+ newline$
+ format.authors "author" output.check
+ new.block
+ format.title "title" output.check
+ new.block
+ "\DTLnewbibitem {Type}{\mscthesisname }"
+ format.thesis.type output.nonnull
+ format.school "school" output.check
+ format.address output
+ format.date "year" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{misc}%" write$
+ newline$
+ format.authors output
+ title howpublished new.block.checkb
+ format.title output
+ %howpublished new.block.checka
+ format.howpublished output
+ format.date output
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+ empty.misc.check
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{phdthesis}%" write$
+ newline$
+ format.authors "author" output.check
+ new.block
+ format.btitle "title" output.check
+ new.block
+ "\DTLnewbibitem {Type}{\phdthesisname }"
+ format.thesis.type output.nonnull
+ format.school "school" output.check
+ format.address output
+ format.date "year" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {proceedings}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{proceedings}%" write$
+ newline$
+ editor empty$
+ { format.organization output }
+ { format.editors output.nonnull }
+ if$
+ new.block
+ format.btitle "title" output.check
+ format.bvolume output
+ format.number.series output
+ address empty$
+ { editor empty$
+ { publisher new.sentence.checka }
+ { organization publisher new.sentence.checkb
+ format.organization output
+ }
+ if$
+ format.publisher output
+ format.date "year" output.check
+ }
+ { format.address output
+ format.date "year" output.check
+ new.sentence
+ editor empty$
+ 'skip$
+ { format.organization output }
+ if$
+ format.publisher output
+ }
+ if$
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {techreport}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{techreport}%" write$
+ newline$
+ format.authors "author" output.check
+ new.block
+ format.title "title" output.check
+ new.block
+ format.tr.number output.nonnull
+ format.institution "institution" output.check
+ format.address output
+ format.date "year" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+ "\DTLnewbibitem {EntryType}{unpublished}%" write$
+ newline$
+ format.authors "author" output.check
+ new.block
+ format.title "title" output.check
+ new.block
+ format.key output
+ format.note output
+ format.isbn output
+ format.doi output
+ format.pubmed output
+ format.url output
+ format.abstract output
+ format.date output
+ fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\DTLmonthname{01}"}
+
+MACRO {feb} {"\DTLmonthname{02}"}
+
+MACRO {mar} {"\DTLmonthname{03}"}
+
+MACRO {apr} {"\DTLmonthname{04}"}
+
+MACRO {may} {"\DTLmonthname{05}"}
+
+MACRO {jun} {"\DTLmonthname{06}"}
+
+MACRO {jul} {"\DTLmonthname{07}"}
+
+MACRO {aug} {"\DTLmonthname{08}"}
+
+MACRO {sep} {"\DTLmonthname{09}"}
+
+MACRO {oct} {"\DTLmonthname{10}"}
+
+MACRO {nov} {"\DTLmonthname{11}"}
+
+MACRO {dec} {"\DTLmonthname{12}"}
+
+MACRO {acmcs} {"\DTLacmcs "}
+
+MACRO {acta} {"\DTLacta "}
+
+MACRO {cacm} {"\DTLcacm "}
+
+MACRO {ibmjrd} {"\DTLibmjrd "}
+
+MACRO {ibmsj} {"\DTLibmsj "}
+
+MACRO {ieeese} {"\DTLieeese "}
+
+MACRO {ieeetc} {"\DTLieeetc "}
+
+MACRO {ieeetcad} {"\DTLieeetcad "}
+
+MACRO {ipl} {"\DTLipl "}
+
+MACRO {jacm} {"\DTLjacm "}
+
+MACRO {jcss} {"\DTLjcss "}
+
+MACRO {scp} {"\DTLscp "}
+
+MACRO {sicomp} {"\DTLsicomp "}
+
+MACRO {tocs} {"\DTLtocs "}
+
+MACRO {tods} {"\DTLtods "}
+
+MACRO {tog} {"\DTLtog "}
+
+MACRO {toms} {"\DTLtoms "}
+
+MACRO {toois} {"\DTLtoois "}
+
+MACRO {toplas} {"\DTLtoplas "}
+
+MACRO {tcs} {"\DTLtcs "}
+
+READ
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+ #1 'number.label :=
+ #0 'longest.label.width :=
+}
+
+FUNCTION {longest.label.pass}
+{ number.label int.to.str$ 'label :=
+ number.label #1 + 'number.label :=
+ label width$ longest.label.width >
+ { label 'longest.label :=
+ label width$ 'longest.label.width :=
+ }
+ 'skip$
+ if$
+}
+
+EXECUTE {initialize.longest.label}
+
+ITERATE {longest.label.pass}
+
+FUNCTION {begin.bib}
+{ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{
+}
+
+EXECUTE {end.bib}
+% \end{macrocode}
+% \end{macrocode}
+%\fi
+%\iffalse
+% \begin{macrocode}
+%</databib.bst>
+% \end{macrocode}
+%\fi
+%\Finale
+\endinput
diff --git a/Master/texmf-dist/source/latex/datatool/datatool.ins b/Master/texmf-dist/source/latex/datatool/datatool.ins
new file mode 100644
index 00000000000..87c233613df
--- /dev/null
+++ b/Master/texmf-dist/source/latex/datatool/datatool.ins
@@ -0,0 +1,40 @@
+% datatool.ins generated using makedtx version 0.94b 2007/8/19 14:27
+\input docstrip
+
+\preamble
+
+ datatool.dtx
+ Copyright 2007 Nicola Talbot
+
+ This work may be distributed and/or modified under the
+ conditions of the LaTeX Project Public License, either version 1.3
+ of this license of (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'.
+
+ The Current Maintainer of this work is Nicola Talbot.
+
+ This work consists of the files datatool.dtx and datatool.ins and the derived files datatool.sty, datapie.sty, dataplot.sty, databar.sty, databib.sty, databib.bst.
+
+\endpreamble
+
+\askforoverwritefalse
+
+\generate{\file{datatool.sty}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{datatool.dtx}{datatool.sty,package}}
+\file{datapie.sty}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{datatool.dtx}{datapie.sty,package}}
+\file{dataplot.sty}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{datatool.dtx}{dataplot.sty,package}}
+\file{databar.sty}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{datatool.dtx}{databar.sty,package}}
+\file{databib.sty}{\usepreamble\defaultpreamble
+\usepostamble\defaultpostamble\from{datatool.dtx}{databib.sty,package}}
+\file{databib.bst}{\nopreamble\usepreamble\defaultpreamble\nopostamble\from{datatool.dtx}{databib.bst}}
+}
+
+\endbatchfile