datalog 2.03 (15nov09)

git-svn-id: svn://tug.org/texlive/trunk@16023 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 638 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/datatool/person.sty b/Master/texmf-dist/tex/latex/datatool/person.sty
new file mode 100644
index 00000000000..3a6ea1b6d27
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/datatool/person.sty
@@ -0,0 +1,638 @@
+%%
+%% This is file `person.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% datatool.dtx  (with options: `person.sty,package')
+%% 
+%%  datatool.dtx
+%%  Copyright 2009 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, person.sty.
+%% 
+%% \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         \~}
+%% load student information from file "students.csv"
+%% Iterate through the student database:
+%% Define "anon":
+%% Do the letter:
+%% Undefine "anon":
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{person}[2009/11/15 v1.01 (NLCT)]
+\RequirePackage{ifthen}
+\RequirePackage{datatool}
+\newcounter{people}
+\newcounter{person}
+\newcommand*{\@people@list}{,}
+\newcommand*{\@get@firstperson}[1]{%
+  \expandafter\@@get@firstperson\@people@list,\@nil{#1}}
+  \def\@@get@firstperson,#1,#2\@nil#3{%
+  \def#3{#1}%
+}
+\newcommand*{\malelabels}{male,Male,MALE,M,m}
+\newcommand*{\addmalelabel}[1]{%
+  \expandafter\@dtl@toksA\expandafter{\malelabels}%
+  \expandafter\@dtl@toksB\expandafter{#1}%
+  \edef\malelabels{\the\@dtl@toksA,\the\@dtl@toksB}%
+}
+\newcommand*{\addfemalelabel}[1]{%
+  \expandafter\@dtl@toksA\expandafter{\femalelabels}%
+  \expandafter\@dtl@toksB\expandafter{#1}%
+  \edef\femalelabels{\the\@dtl@toksA,\the\@dtl@toksB}%
+}
+\newcommand*{\femalelabels}{female,Female,FEMALE,F,f}
+\newcommand{\ifmalelabel}[3]{%
+   \expandafter\DTLifinlist\expandafter{#1}{\malelabels}{#2}{#3}%
+}
+\newcommand{\iffemalelabel}[3]{%
+   \expandafter\DTLifinlist\expandafter{#1}{\femalelabels}{#2}{#3}%
+}
+\newcommand*{\newperson}[4][anon]{%
+  \@ifundefined{person@#1@name}%
+  {%
+    \ifmalelabel{#4}%
+    {%
+      \expandafter\gdef\csname person@#1@gender\endcsname{male}%
+    }%
+    {%
+      \iffemalelabel{#4}%
+      {%
+        \expandafter\gdef\csname person@#1@gender\endcsname{female}%
+      }%
+      {%
+         \PackageError{person}{Unknown gender `#4' for person
+         `#1'}{Allowed gender labels are: \malelabels\space or
+         \femalelabels}%
+         \@namedef{person@#1@gender}{other}%
+      }%
+    }%
+    \expandafter
+      \protected@xdef\csname person@#1@fullname\endcsname{#2}%
+    \expandafter
+      \protected@xdef\csname person@#1@name\endcsname{#3}%
+    \protected@xdef\@people@list{\@people@list#1,}%
+    \stepcounter{people}%
+  }%
+  {%
+    \PackageError{person}{Person `#1' has already been defined}{}%
+  }%
+}
+\newcommand*{\removeperson}[1][anon]{%
+  \edef\@person@label{#1}%
+  \expandafter\@removeperson\expandafter{\@person@label}%
+}
+\newcommand*{\@removeperson}[1]{%
+   \ifpersonexists{#1}%
+   {%
+     \def\@remove@person##1,#1,##2\@nil{%
+       \def\@prsn@pre{##1}\def\@prsn@post{##2}}%
+     \expandafter\@remove@person\@people@list\@nil
+     \xdef\@people@list{\@prsn@pre,\@prsn@post}%
+     \addtocounter{people}{-1}%
+     \expandafter\global\expandafter
+       \let\csname person@#1@name\endcsname\undefined
+     \expandafter\global\expandafter
+       \let\csname person@#1@fullname\endcsname\undefined
+     \expandafter\global\expandafter
+       \let\csname person@#1@gender\endcsname\undefined
+   }%
+   {%
+     \PackageError{person}{Can't remove person `#1': no such
+     person}{}%
+   }%
+}
+\newcommand*{\removepeople}[1]{%
+  \@for\@thisperson:=#1\do{%
+    \ifx\@thisperson\@empty
+    \else
+      \expandafter\removeperson\expandafter[\@thisperson]%
+    \fi
+  }%
+}
+\newcommand*{\removeallpeople}{%
+  \@for\@thisperson:=\@people@list\do{%
+    \expandafter\global\expandafter
+      \let\csname person@\@thisperson @name\endcsname\undefined
+    \expandafter\global\expandafter
+      \let\csname person@\@thisperson @fullname\endcsname\undefined
+    \expandafter\global\expandafter
+      \let\csname person@\@thisperson @gender\endcsname\undefined
+  }%
+  \setcounter{people}{0}%
+  \gdef\@people@list{,}%
+}
+\newcommand{\ifpersonexists}[3]{%
+  \@ifundefined{person@#1@name}{#3}{#2}%
+}
+\newcommand{\ifmale}[3]{%
+   \ifpersonexists{#1}%
+   {%
+      \edef\@gender{\csname person@\@thisperson @gender\endcsname}%
+      \ifx\@gender\@male@label
+        #2%
+      \else
+        #3%
+      \fi
+   }%
+   {%
+      \PackageError{person}{Person `#1' doesn't exist.}{}%
+   }%
+}
+\def\@male@label{male}
+\newcommand{\ifallmale}[3][\@people@list]{%
+  \@for\@thisperson:=#1\do{%
+    \ifpersonexists{\@thisperson}%
+    {%
+      \edef\@gender{\csname person@\@thisperson @gender\endcsname}%
+      \ifx\@gender\@male@label
+      \else
+        \@endfortrue
+      \fi
+    }%
+    {%
+      \PackageError{person}{Person `#1' doesn't exist.}{}%
+    }%
+  }%
+  \if@endfor
+    #3%
+  \else
+    #2%
+  \fi
+}
+\newcommand{\iffemale}[3]{%
+   \ifpersonexists{#1}%
+   {%
+      \edef\@gender{\csname person@\@thisperson @gender\endcsname}%
+      \ifx\@gender\@female@label
+        #2%
+      \else
+        #3%
+      \fi
+   }%
+   {%
+      \PackageError{person}{Person `#1' doesn't exist.}{}%
+   }%
+}
+\def\@female@label{female}
+\newcommand{\ifallfemale}[3][\@people@list]{%
+  \@for\@thisperson:=#1\do{%
+    \edef\@gender{\csname person@\@thisperson @gender\endcsname}%
+    \ifx\@gender\@female@label
+    \else
+      \@endfortrue
+    \fi
+  }%
+  \if@endfor
+    #3%
+  \else
+    #2%
+  \fi
+}
+\def\foreachperson(#1,#2,#3,#4)#5{%
+  \ifx#5\in
+    \def\@do@foreachperson{\@foreachperson(#1,#2,#3,#4)#5}%
+  \else
+    \def\@do@foreachperson{%
+      \@foreachperson(#1,#2,#3,#4)\in\@people@list#5}%
+  \fi
+  \@do@foreachperson
+}
+\long\def\@foreachperson(#1,#2,#3,#4)\in#5\do#6{%
+  \@for#4:=#5\do{%
+    \ifx#4\@empty
+    \else
+       \ifpersonexists{#4}%
+       {%
+         \expandafter
+           \let\expandafter#1\csname person@#4@name\endcsname
+         \expandafter
+           \let\expandafter#2\csname person@#4@fullname\endcsname
+         \expandafter
+           \let\expandafter#3\csname person@#4@gender\endcsname
+         \ifx#3\@male@label
+           \let#3\malename
+         \else
+           \ifx#3\@female@label
+             \let#3\femalename
+           \fi
+         \fi
+         #6%
+       }%
+       {%
+         \PackageError{person}{Person `#4' doesn't exist}{}%
+       }%
+     \fi
+  }%
+}
+\newcommand*{\malepronoun}{he}
+\newcommand*{\femalepronoun}{she}
+\newcommand*{\pluralpronoun}{they}
+\newcommand*{\maleobjpronoun}{him}
+\newcommand*{\femaleobjpronoun}{her}
+\newcommand*{\pluralobjpronoun}{them}
+\newcommand*{\malepossadj}{his}
+\newcommand*{\femalepossadj}{her}
+\newcommand*{\pluralpossadj}{their}
+\newcommand*{\maleposspronoun}{his}
+\newcommand*{\femaleposspronoun}{hers}
+\newcommand*{\pluralposspronoun}{theirs}
+\newcommand*{\malechild}{son}
+\newcommand*{\femalechild}{daughter}
+\newcommand*{\pluralchild}{children}
+\newcommand*{\malechildren}{sons}
+\newcommand*{\femalechildren}{daughters}
+\newcommand*{\maleparent}{father}
+\newcommand*{\femaleparent}{mother}
+\newcommand*{\pluralparent}{parents}
+\newcommand*{\malesibling}{brother}
+\newcommand*{\femalesibling}{sister}
+\newcommand*{\pluralsibling}{siblings}
+\newcommand*{\malesiblings}{brothers}
+\newcommand*{\femalesiblings}{sisters}
+\providecommand*{\andname}{and}
+\newcommand*{\malename}{male}
+\newcommand*{\femalename}{female}
+\newcommand*{\personsep}{, }
+\newcommand*{\personlastsep}{\space\andname\space}
+\newcommand*{\twopeoplesep}{\space\andname\space}
+\newcommand*{\personfullname}[1][anon]{%
+  \@ifundefined{person@#1@fullname}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \csname person@#1@fullname\endcsname
+  }%
+}
+\newcommand*{\peoplefullname}{%
+  \setcounter{person}{1}%
+  \@for\@thisperson:=\@people@list\do{%
+    \ifthenelse{\equal{\@thisperson}{}}%
+    {}%
+    {%
+      \personfullname[\@thisperson]%
+      \stepcounter{person}%
+      \ifnum\c@people=1\relax
+      \else
+        \ifnum\c@person=\c@people
+          \ifnum\c@people=2\relax
+            \twopeoplesep
+          \else
+            \personlastsep
+          \fi
+        \else
+           \ifnum\c@person<\c@people
+             \personsep
+           \fi
+        \fi
+      \fi
+    }%
+  }%
+}
+\newcommand*{\personname}[1][anon]{%
+  \@ifundefined{person@#1@name}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \csname person@#1@name\endcsname
+  }%
+}
+\newcommand*{\peoplename}{%
+  \setcounter{person}{1}%
+  \@for\@thisperson:=\@people@list\do{%
+    \ifthenelse{\equal{\@thisperson}{}}%
+    {}%
+    {%
+      \personname[\@thisperson]%
+      \stepcounter{person}%
+      \ifnum\c@people=1\relax
+      \else
+        \ifnum\c@person=\c@people
+          \ifnum\c@people=2\relax
+            \twopeoplesep
+          \else
+            \personlastsep
+          \fi
+        \else
+           \ifnum\c@person<\c@people
+             \personsep
+           \fi
+        \fi
+      \fi
+    }%
+  }%
+}
+\newcommand*{\personpronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender pronoun\endcsname
+  }%
+}
+\newcommand*{\Personpronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter
+    \MakeUppercase\csname\@gender pronoun\endcsname
+  }%
+}
+\newcommand*{\peoplepronoun}{%
+  \ifnum\c@people>1\relax
+     \pluralpronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \personpronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\Peoplepronoun}{%
+  \ifnum\c@people>1\relax
+     \expandafter\MakeUppercase\pluralpronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \Personpronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\personobjpronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender objpronoun\endcsname
+  }%
+}
+\newcommand*{\Personobjpronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter
+    \MakeUppercase\csname\@gender objpronoun\endcsname
+  }%
+}
+\newcommand*{\peopleobjpronoun}{%
+  \ifnum\c@people>1\relax
+     \pluralobjpronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \personobjpronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\Peopleobjpronoun}{%
+  \ifnum\c@people>1\relax
+     \expandafter\MakeUppercase\pluralobjpronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \Personobjpronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\personpossadj}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender possadj\endcsname
+  }%
+}
+\newcommand*{\Personpossadj}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter
+    \MakeUppercase\csname\@gender possadj\endcsname
+  }%
+}
+\newcommand*{\peoplepossadj}{%
+  \ifnum\c@people>1\relax
+     \pluralpossadj
+  \else
+     \@get@firstperson{\@thisperson}%
+     \personpossadj[\@thisperson]%
+  \fi
+}
+\newcommand*{\Peoplepossadj}{%
+  \ifnum\c@people>1\relax
+     \expandafter\MakeUppercase\pluralpossadj
+  \else
+     \@get@firstperson{\@thisperson}%
+     \Personpossadj[\@thisperson]%
+  \fi
+}
+\newcommand*{\personposspronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender posspronoun\endcsname
+  }%
+}
+\newcommand*{\Personposspronoun}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter
+    \MakeUppercase\csname\@gender posspronoun\endcsname
+  }%
+}
+\newcommand*{\peopleposspronoun}{%
+  \ifnum\c@people>1\relax
+     \pluralposspronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \personposspronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\Peopleposspronoun}{%
+  \ifnum\c@people>1\relax
+     \expandafter\MakeUppercase\pluralposspronoun
+  \else
+     \@get@firstperson{\@thisperson}%
+     \Personposspronoun[\@thisperson]%
+  \fi
+}
+\newcommand*{\personchild}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender child\endcsname
+  }%
+}
+\newcommand*{\Personchild}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter\MakeUppercase
+      \csname\@gender child\endcsname
+  }%
+}
+\newcommand*{\peoplechild}{%
+  \ifnum\c@people>1\relax
+    \ifallmale
+      {\malechildren}%
+      {\ifallfemale{\femalechildren}{\pluralchild}}%
+  \else
+    \@get@firstperson{\@thisperson}%
+    \personchild[\@thisperson]%
+ \fi
+}
+\newcommand*{\Peoplechild}{%
+  \ifnum\c@people>1\relax
+    \ifallmale
+      {\expandafter\MakeUppercase\malechildren}%
+      {\ifallfemale
+        {\expandafter\MakeUppercase\femalechildren}
+        {\expandafter\MakeUppercase\pluralchild}}%
+  \else
+    \@get@firstperson{\@thisperson}%
+    \Personchild[\@thisperson]%
+ \fi
+}
+\newcommand*{\personparent}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender parent\endcsname
+  }%
+}
+\newcommand*{\Personparent}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter\MakeUppercase
+       \csname\@gender parent\endcsname
+  }%
+}
+\newcommand*{\peopleparent}{%
+  \ifnum\c@people>1\relax
+     \pluralparent
+  \else
+     \@get@firstperson{\@thisperson}%
+     \personparent[\@thisperson]%
+  \fi
+}
+\newcommand*{\Peopleparent}{%
+  \ifnum\c@people>1\relax
+     \expandafter\MakeUppercase\pluralparent
+  \else
+     \@get@firstperson{\@thisperson}%
+     \Personparent[\@thisperson]%
+  \fi
+}
+\newcommand*{\personsibling}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \csname\@gender sibling\endcsname
+  }%
+}
+\newcommand*{\Personsibling}[1][anon]{%
+  \@ifundefined{person@#1@gender}%
+  {%
+    \PackageError{person}{Person `#1' has not been defined}{}%
+  }%
+  {%
+    \edef\@gender{\csname person@#1@gender\endcsname}%
+    \expandafter\expandafter\expandafter\MakeUppercase
+      \csname\@gender sibling\endcsname
+  }%
+}
+\newcommand*{\peoplesibling}{%
+  \ifnum\c@people>1\relax
+    \ifallmale
+      {\malesiblings}%
+      {\ifallfemale{\femalesiblings}{\pluralsibling}}%
+  \else
+    \@get@firstperson{\@thisperson}%
+    \personsibling[\@thisperson]%
+ \fi
+}
+\newcommand*{\persongender}[1]{%
+   \ifpersonmale{#1}{\malename}{\femalename}%
+}
+\newcommand*{\getpersongender}[2]{%
+   \ifpersonmale{#2}{\let#1\malename}{\let#1\femalename}%
+}
+\newcommand*{\getpersonname}[2]{%
+   \ifpersonexists{#2}%
+   {%
+     \expandafter\let\expandafter#1\csname person@#2@name\endcsname
+   }%
+   {%
+      \PackageError{person}{Person `#2' doesn't exist}{}%
+   }%
+}
+\newcommand*{\getpersonfullname}[2]{%
+   \ifpersonexists{#2}%
+   {%
+     \expandafter
+       \let\expandafter#1\csname person@#2@fullname\endcsname
+   }%
+   {%
+      \PackageError{person}{Person `#2' doesn't exist}{}%
+   }%
+}
+\endinput
+%%
+%% End of file `person.sty'.