diff options
| author | Karl Berry <karl@freefriends.org> | 2015-03-29 20:33:25 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-03-29 20:33:25 +0000 |
| commit | f89210e4bfe23e19b776261dcabb9292f457e972 (patch) | |
| tree | 2a77faa4a4af998f2cf6b4b70e161c5997ffe076 /Master/texmf-dist/doc | |
| parent | b80af2581687d9eec04d7e035c53431701307476 (diff) | |
rm csvtools, replaced by datatools
git-svn-id: svn://tug.org/texlive/trunk@36672 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc')
| -rw-r--r-- | Master/texmf-dist/doc/latex/csvtools/CHANGES | 29 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/csvtools/README | 39 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/csvtools/csvtools.pdf | bin | 225188 -> 0 bytes | |||
| -rwxr-xr-x | Master/texmf-dist/doc/latex/csvtools/csvtools.pl | 1995 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/csvtools/manual.html | 1615 |
5 files changed, 0 insertions, 3678 deletions
diff --git a/Master/texmf-dist/doc/latex/csvtools/CHANGES b/Master/texmf-dist/doc/latex/csvtools/CHANGES deleted file mode 100644 index 9e3d1a52846..00000000000 --- a/Master/texmf-dist/doc/latex/csvtools/CHANGES +++ /dev/null @@ -1,29 +0,0 @@ -Version 1.24: -Added csvsort.sty (requires xfor package and \'Eamonn McManus' -compare.tex) - -Version 1.23: -\par can now be used in entries (but all entries for a given -row must be on the same line, so you can't use a blank line -to indicate a paragraph break.) - -Version 1.22: -\applyCSVfile now resets each field to nothing before scanning each -row so that if a column is missing for a given row, that entry will -be blank. (Note that this does not apply to the starred version, as -the header row is used to determine the maximum number of columns.) -\csvSaveEntry has an additional optional argument to supply text if -that entry is omitted. - -Version 1.21: - Fixed problem caused when first field starts with repeated -character - -Version 1.2: - added csvpie.sty - data separator can now be user defined - entries enclosed within double quotes are now parsed correctly - -Version 1.1 has the new command \CSVtolongtable (analogous to \CSVtotabular) -and a Perl script. See documentation for details. - diff --git a/Master/texmf-dist/doc/latex/csvtools/README b/Master/texmf-dist/doc/latex/csvtools/README deleted file mode 100644 index d0e9175ea0c..00000000000 --- a/Master/texmf-dist/doc/latex/csvtools/README +++ /dev/null @@ -1,39 +0,0 @@ -LaTeX Package : csvtools v 1.24 - -Last Modified : 3 July 2007 - -Author : Nicola Talbot - -Files : csvtools.dtx - documented source file - csvtools.ins - installation script - csvtools.pl - Perl script - -The csvtools package allows you to repeatedly perform -a set of LaTeX commands on data in each row -of a comma separated variable (CSV) file. -This can be used for mail merging, generating -tables etc. Examples given in documentation. - -To extract the code, do: - -latex csvtools.ins - -This will create the files csvtools.sty, csvpie.sty and csvsort.sty. -These files should be place somewhere on TeX's search path. - -To extract the documentation, do: - -latex csvtools.dtx -latex csvtools.dtx - -(If you want the documented source code as well, remove the command -\OnlyDescription from csvtools.dtx) - -Alternatively, if you use pdflatex instead of latex, the documentation will -have hyperlinks. - -This material is subject to the LaTeX Project Public License. -See http://www.ctan.org/tex-archive/help/Catalogue/licenses.lppl.html for -details of that license. - -http://theoval.cmp.uea.ac.uk/~nlct diff --git a/Master/texmf-dist/doc/latex/csvtools/csvtools.pdf b/Master/texmf-dist/doc/latex/csvtools/csvtools.pdf Binary files differdeleted file mode 100644 index 3e05495d31e..00000000000 --- a/Master/texmf-dist/doc/latex/csvtools/csvtools.pdf +++ /dev/null diff --git a/Master/texmf-dist/doc/latex/csvtools/csvtools.pl b/Master/texmf-dist/doc/latex/csvtools/csvtools.pl deleted file mode 100755 index 131134124e7..00000000000 --- a/Master/texmf-dist/doc/latex/csvtools/csvtools.pl +++ /dev/null @@ -1,1995 +0,0 @@ -#!/usr/bin/perl -w - -# File : csvtools.pl -# Author : Dr Nicola Talbot -# Date : 26 June 2007 -# Description : Perl script to accompany csvtools.sty -# : Allows you to substitute \CSVtotabular, \CSVtolongtable and \applyCSVfile commands with the appropriate LaTeX code -# Version : 0.6b (1 September 2006). - -# usage : csvtools <in-file> <out-file> - -if ($#ARGV != 1) -{ - die "Syntax : $0 <in-file> <out-file>\n"; -} - -($FILENAME,$OUTPUT) = @ARGV; - -open FILENAME or die "Can't open '$FILENAME'\n"; - -$ext = substr($FILENAME, -4); - -if (($ext eq ".tex") or ($ext eq ".dtx") or ($ext eq ".ltx")) -{ - $LOGFILE = substr($FILENAME,0,length($FILENAME)-4) . ".log"; -} -else -{ - $LOGFILE = $FILENAME . ".log"; -} - -open LOGFILE or die "Can't open log file '$LOGFILE'. Make sure you run LaTeX before using $0\n"; - -while (<LOGFILE>) -{ - if (/\\c@([a-zA-Z]+)=\\count/) - { - $counter{$1} = 0; - } -} - -$counter{'csvrownumber'} = 0; - -close LOGFILE; - -open OUTPUT, ">$OUTPUT" or die; - -# global csvsort options - -$globalsort{'verbose'}=1; -$globalsort{'sort'}='alphabetical ascending'; -$globalsort{'variable'}='\field{1}'; -$globalsort{'sfirstdataline'}=1; -$globalsort{'firstdataline'}=2; - -$keyvaldefaults{'verbose'}='true'; - -$csvpieouterlabel="\\field{1}"; -$csvpieinnerlabel="\\field{2}\\%"; -$separator=","; - -while (<FILENAME>) -{ - $restofline = $_; - local($comment) = ""; - - if ($restofline=~m/(\\*)%/) - { - $n = length($1); - - if ($n%2 == 0) - { - $restofline = "$`$1"; - $comment = "%$'"; - $_ = $restofline; - } - } - - if ($restofline=~/\\setcsvseparator\s*{([^}]*)}/) - { - $separator=$1 if defined($1); - } - - if ($restofline=~/\\renewcommand\*?\s*{?\\csvpieinnerlabel}?/) - { - print OUTPUT $`; - - $restofline=$'; - $lineno=$.; - - ($csvpieinnerlabel,$restofline,$done)=&getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $restofline .= $nextline; - ($csvpieinnerlabel,$restofline,$done)=&getnextgroup($restofline); - } - else - { - die "Unexpected EOF while parsing \\renewcommand on line $lineno\n"; - } - } - - $_ = $restofline; - } - - if ($restofline=~/\\renewcommand\*?\s*{?\\csvpieouterlabel}?/) - { - print OUTPUT $`; - - $restofline=$'; - $lineno=$.; - - ($csvpieouterlabel,$restofline,$done)=&getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $restofline .= $nextline; - ($csvpieouterlabel,$restofline,$done)=&getnextgroup($restofline); - } - else - { - die "Unexpected EOF while parsing \\renewcommand on line $lineno\n"; - } - } - - $_ = $restofline; - } - - while ($restofline=~/\\stepcounter(.*)/) - { - $line = $_; - - ($ctr,$restofline,$done) = &getnextgroup($1); - - $startline=$.; - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\stepcounter on line $startline\n"; - } - } - - $counter{$ctr}++; - - $_ = $line; - } - - $restofline = $_; - - while ($restofline=~/\\refstepcounter(.*)/) - { - $line = $_; - - ($ctr,$restofline,$done) = &getnextgroup($1); - - $startline=$.; - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\stepcounter on line $startline\n"; - } - } - - $counter{$ctr}++; - - $_ = $line; - } - - $restofline = $_; - - while ($restofline=~/\\setcounter(.*)/) - { - $line = $_; - - ($ctr,$restofline,$done) = &getnextgroup($1); - - $startline=$.; - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\stepcounter on line $startline\n"; - } - } - - ($num,$restofline,$done) = &getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($num,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning second argument to \\stepcounter on line $startline\n"; - } - } - - $num=~s/\\value{(.+)}/$counter{$1}/; - - $counter{$ctr} = $num; - - $_ = $line; - } - - $restofline = $_; - - while ($restofline=~/\\addtocounter(.*)/) - { - $line = $_; - - ($ctr,$restofline,$done) = &getnextgroup($1); - - $startline=$.; - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\stepcounter on line $startline\n"; - } - } - - ($num,$restofline,$done) = &getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($num,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning second argument to \\stepcounter on line $startline\n"; - } - } - - $num=~s/\\value{(.+)}/$counter{$1}/; - - $counter{$ctr} = $counter{$ctr} + $num; - - $_ = $line; - } - - $restofline = $_; - - while ($restofline=~/^(.*)\\csvGetEntry(.*)$/) - { - $start = $1; - $restofline = $2; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - - $startline=$.; - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $restofline = $restofline . $nextline; - - ($ctr,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\csvGetEntry on line $startline\n"; - } - } - - ($entry,$restofline,$done) = &getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $restofline = $restofline . $nextline; - - ($entry,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning first argument to \\csvGetEntry on line $startline\n"; - } - } - $_ = $start . "\\csname $entry\\roman{$ctr}\\endcsname" . $restofline; - #$_ = $start. $data{$entry}[$counter{$ctr}] . $restofline; - } - - $restofline = $_; - - while ($restofline=~/\\usepackage(.*)/) - { - $line = $_; - - $startline=$.; - - $restofline = $1; - - $options = ''; - - if ($restofline=~/^\s*\[/) - { - ($options,$restofline,$done) = &getnextoptionalgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($options,$restofline,$done) = &getnextoptionalgroup($restofline); - } - else - { - die "EOF found whilst scanning optional argument to \\usepackage on line $startline\n"; - } - } - } - - - ($package,$restofline,$done) = &getnextgroup($restofline); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - $restofline = $restofline . $nextline; - - ($package,$restofline,$done) = &getnextgroup($restofline); - } - else - { - die "EOF found whilst scanning argument to \\usepackage on line $startline\n"; - } - } - - if ($package eq 'csvsort' and $options) - { - %hash = &getKeyValues($options,%keyvaldefaults); - - foreach $key (keys(%hash)) - { - $globalsort{$key}=$hash{$key}; - } - } - - $_ = $line; - } - - $restofline = $_; - - if (/^(.*)\\CSVtotabular(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $line = $2; - $lineno = $.; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for CVS filename on line $lineno\n"; - } - } - - $csvname=~s/\\csname (.*)\\roman{(.*)}\\endcsname/$data{$1}[$counter{$2}]/; - - $line = $restofline; - - ($alignment,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($alignment,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for CVS column alignment on line $lineno\n"; - } - } - - $line = $restofline; - - ($FIRST,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($FIRST,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtotabular third argument on line $lineno\n"; - } - } - - $line = $restofline; - - ($MIDDLE,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($MIDDLE,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtotabular fourth argument on line $lineno\n"; - } - } - - $line = $restofline; - - ($LAST,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($LAST,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtotabular fifth argument on line $lineno\n"; - } - } - - &csvtotabular($csvname, $alignment, $FIRST, $MIDDLE, $LAST, - "tabular"); - - print OUTPUT "$restofline\n"; - } - elsif (/^(.*)\\CSVtolongtable(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $line = $2; - $lineno = $.; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $line . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for CVS filename on line $lineno\n"; - } - } - - $csvname=~s/\\csname (.*)\\roman{(.*)}\\endcsname/$data{$1}[$counter{$2}]/; - - $line = $restofline; - - ($alignment,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($alignment,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for CVS column alignment on line $.\n"; - } - } - - $line = $restofline; - - ($FIRST,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($FIRST,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtolongtable third argument on line $.\n"; - } - } - - $line = $restofline; - - ($MIDDLE,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($MIDDLE,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtolongtable fourth argument on line $.\n"; - } - } - - $line = $restofline; - - ($LAST,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline = <FILENAME>) - { - $line = $restofline . $nextline; - - ($LAST,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\CSVtolongtable fifth argument on line $.\n"; - } - } - - &csvtotabular($csvname, $alignment, $FIRST, $MIDDLE, $LAST, - "longtable"); - - print OUTPUT "$restofline\n"; - } - elsif (/^(.*)\\applyCSVfile(\*)?(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $starred = defined($2); - - $restofline = $3; - $lineno = $.; - - $restofline = &eatinitialspaces($restofline); - $restofline = &eatcomments($restofline); - - $startrow = $starred ? 1 : 2; - - if (/^\[([0-9]+)\](.*)/) - { - $startrow = $1; - - $restofline = $2; - } - - $line=$restofline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\applyCSVfile*[$startrow] first argument on line $lineno\n"; - } - } - - $csvname=~s/\\csname (.*)\\roman{(.*)}\\endcsname/$data{$1}[$counter{$2}]/; - - $line=$restofline; - - ($body,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($body,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\applyCSVfile*[$startrow] second argument on line $lineno\n"; - } - } - - if ($starred) - { - &applyCSVfilestar($csvname, $body, $startrow); - } - else - { - &applyCSVfile($csvname, $body, $startrow); - } - - print OUTPUT "$restofline\n"; - } - elsif (/^(.*)\\sortapplyCSVfile(\*)?(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $starred = defined($2); - - $restofline = $3; - $lineno = $.; - - $restofline = &eatinitialspaces($restofline); - $restofline = &eatcomments($restofline); - - $line=$restofline; - - $options = ''; - - if ($restofline=~/^\s*\[/) - { - ($options,$restofline,$done) = &getnextoptionalgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($options,$restofline,$done) = &getnextoptionalgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortapplyCSVfile optional argument on line $lineno\n"; - } - } - } - - $line=$restofline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortapplyCSVfile argument on line $lineno\n"; - } - } - - $csvname=~s/\\csname (.*)\\roman{(.*)}\\endcsname/$data{$1}[$counter{$2}]/; - - $line=$restofline; - - ($body,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($body,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortapplyCSVfile argument on line $lineno\n"; - } - } - - if ($starred) - { - &sortapplyCSVfilestar($csvname, $body, $options); - } - else - { - &sortapplyCSVfile($csvname, $body, $options); - } - - print OUTPUT "$restofline\n"; - } - elsif (/^(.*)\\sortCSVto(tabular|longtable)(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $envname = $2; - $restofline = $3; - $lineno = $.; - - $restofline = &eatinitialspaces($restofline); - $restofline = &eatcomments($restofline); - - $line=$restofline; - - $options = ''; - - if ($restofline=~/^\s*\[/) - { - ($options,$restofline,$done) = &getnextoptionalgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($options,$restofline,$done) = &getnextoptionalgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname first argument on line $lineno\n"; - } - } - } - - $line=$restofline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname argument on line $lineno\n"; - } - } - - $csvname=~s/\\csname (.*)\\roman{(.*)}\\endcsname/$data{$1}[$counter{$2}]/; - - $line=$restofline; - - ($align,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($align,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname argument on line $lineno\n"; - } - } - - $line=$restofline; - - ($headrow,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($headrow,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname argument on line $lineno\n"; - } - } - - $line=$restofline; - - ($midrows,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($midrows,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname argument on line $lineno\n"; - } - } - - $line=$restofline; - - ($lastrow,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($lastrow,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\sortCSVto$envname argument on line $lineno\n"; - } - } - - &sortCSVtotabular($csvname,$align,$headrow,$midrows,$lastrow, - $envname,$options); - - print OUTPUT "$restofline\n"; - } - elsif (/^(.*)\\csvpiechart(\*)?(.*)$/) - { - print OUTPUT "$1$comment"; - $comment=""; - - $lineno = $.; - - $starred = defined($2); - - $restofline = $3; - - $restofline = &eatinitialspaces($restofline); - $restofline = &eatcomments($restofline); - - $startrow= $starred ? 1 : 2; - - $line=$restofline; - - ($options,$restofline,$done) = &getnextoptionalgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($options,$restofline,$done) = &getnextoptionalgroup($line); - } - else - { - die "EOF found whilst scanning for \\csvpiechart optional argument on line $lineno\n"; - } - } - - $line=$restofline; - - ($label,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($label,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\csvpiechart second argument on line $lineno\n"; - } - } - - $line=$restofline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - - while (!$done) - { - if ($nextline= <FILENAME>) - { - $line = $restofline . $nextline; - - ($csvname,$restofline,$done) = &getnextgroup($line); - } - else - { - die "EOF found whilst scanning for \\csvpiechart second argument on line $lineno\n"; - } - } - - print OUTPUT "\\csvpiesetkeys{$options}%\n"; - - if ($options=~m/firstrow\s*=\s*(\d+)/) - { - $startrow=$1; - } - - if ($starred) - { - &csvpiechartstar($label, $csvname, $startrow); - } - else - { - &csvpiechart($label, $csvname, $startrow); - } - - print OUTPUT "$restofline\n"; - } - else - { - print OUTPUT "$_$comment"; - } -} - -sub doapplyCSV{ - local($csvrow, $body, @idx, %HoH) = @_; - local($row, $entry); - - $counter{'csvrownumber'} = 0; - print OUTPUT "\\setcounter{csvrownumber}{0}\\relax\n"; - - foreach ($row=1; $row <= $csvrow; $row++) - { - print "."; - - local($THISROW) = $body; - - $THISROW = &csvSaveEntry($THISROW,$row,%HoH); - - foreach $entry ( keys %{$HoH[$row]}) - { - $replacementval=$HoH[$row]{$entry}; - - $THISROW =~ s/\\insertbyname{$entry}/$replacementval/g; - - $THISROW =~ s/\\insert$entry/$replacementval/g; - - local($column) = $idx{$entry}+1; - - $THISROW =~ s/\\field{(\d+)}/$1eq$column?$replacementval:$&/emg; - - $THISROW = &ifnextrowlast($THISROW, ($row==$csvrow-1)); - } - - print OUTPUT "\\refstepcounter{csvrownumber}\\relax\n$THISROW"; - $counter{'csvrownumber'}++; - } -} - -sub doapplyCSVstar{ - local($body, $csvrow, $numcols, @entry) = @_; - local($row,$column); - - print OUTPUT "\\setcounter{csvrownumber}{0}\\relax\n"; - $counter{'csvrownumber'} = 0; - - for ($row=0; $row < $csvrow; $row++) - { - print "."; - - $THISROW = $body; - - for ($column=0; $column < $numcols; $column++) - { - $replacementval=$entry[$row][$column]; - - $THISROW =~ s/\\field{(\d+)}/$1eq$column+1?$replacementval:$&/emg; - - $THISROW = &ifnextrowlast($THISROW, ($row==$csvrow-1)); - } - - print OUTPUT "\\refstepcounter{csvrownumber}$THISROW"; - $counter{'csvrownumber'}++; - } - -} - -sub getCSVvalues{ - local($CSVFILE, $startrow) = @_; - local(@idx, %HoH, @fields); - - open FH, $CSVFILE or die "Can't open file '$CSVFILE'\n"; - - local ($csvrow)=0; - - while (<FH>) - { - if ($. == 1) - { - # get header row - - chop; - - @fields = &getEntries($_); - - local($numcols) = 0; - - foreach $field (@fields) - { - $idx{$field} = $numcols; - - $numcols++; - } - } - elsif ($. >= $startrow) - { - next unless /$separator/; - - chop; - - $csvrow++; - $rec = {}; - - $HoH[$csvrow] = $rec; - - local(@entries) = &getEntries($_); - - local ($i) = 0; - - foreach $e (@entries) - { - $rec->{$fields[$i]} = $e; - $i++; - } - } - } - - close FH; - - return ($csvrow, @idx, %HoH); -} - -sub getCSVvaluesstar -{ - local($CSVFILE, $startrow) = @_; - open FH, $CSVFILE or die "Can't open file '$CSVFILE'\n"; - - $csvrow=0; - - while (<FH>) - { - if ($. >= $startrow) - { - chop; - - @fields = &getEntries($_); - - $numcols = 0; - - foreach $field (@fields) - { - $entry[$csvrow][$numcols] = $field; - - $numcols++; - } - - $csvrow++; - } - } - - close FH; - - return ($csvrow, $numcols, @entry); -} - -sub csvpiechart -{ - local($value, $CSVFILE, $startrow) = @_; - - print "Converting \\csvpiechart[$options]{$label}{$csvname}\n"; - print OUTPUT "% \\csvpiechart[$options]{$label}{$csvname} converted using csvtools.pl\n"; - print OUTPUT "%>> START INSERT\n"; - - # read in data from CSV file - local($csvrow, @idx, %HoH) = &getCSVvalues($CSVFILE,$startrow); - - # first compute parameters - - print OUTPUT "\\edef\\csvstartang{\\thecsvstartangle}\\relax\n"; - $body = "\\csvsetsegmentparams{\\thecsvrownumber}{$value}\\relax\n"; - - &doapplyCSV($csvrow, $body, @idx, %HoH); - - print OUTPUT "\\setcounter{csvstartangle}{\\csvstartang}\\relax\n"; - - # compute offsets for cutaway segments - - print OUTPUT "\\ifthenelse{\\equal{\\csvpiecutaways}{}}{}{\\csvcomputeoffsets}\\relax\n"; - - # now do the pie chart - - print OUTPUT "\\begin{tikzpicture}\n"; - - $body = "\\renewcommand*{\\csvpieinnerlabel}{$csvpieinnerlabel}\n"; - $body .= "\\renewcommand*{\\csvpieouterlabel}{$csvpieouterlabel}\n"; - $body .= "\\csvpiesegment{$value}\n"; - - &doapplyCSV($csvrow, $body, %HoH); - - print OUTPUT "\\end{tikzpicture}"; - print OUTPUT "%<< END INSERT\n"; - print "\n"; -} - -sub csvpiechartstar -{ - local($value, $CSVFILE, $startrow) = @_; - - print "Converting \\csvpiechart*[$options]{$label}{$csvname}\n"; - print OUTPUT "% \\csvpiechart*[$options]{$label}{$csvname} converted using csvtools.pl\n"; - print OUTPUT "%>> START INSERT\n"; - - local($csvrow, $numcols, @entry) = &getCSVvaluesstar($CSVFILE, $startrow); - - # first compute parameters - - print OUTPUT "\\edef\\csvstartang{\\thecsvstartangle}\\relax\n"; - $body = "\\csvsetsegmentparams{\\thecsvrownumber}{$value}\\relax\n"; - - &doapplyCSVstar($body, $csvrow, $numcols, @entry); - - print OUTPUT "\\setcounter{csvstartangle}{\\csvstartang}\\relax\n"; - - # compute offsets for cutaway segments - - print OUTPUT "\\ifthenelse{\\equal{\\csvpiecutaways}{}}{}{\\csvcomputeoffsets}\\relax\n"; - - $body = "\\renewcommand*{\\csvpieinnerlabel}{$csvpieinnerlabel}\\relax\n"; - $body .= "\\renewcommand*{\\csvpieouterlabel}{$csvpieouterlabel}\\relax\n"; - $body .= "\\csvpiesegment{$value}\\relax\n"; - - print OUTPUT "\\begin{tikzpicture}\n"; - - &doapplyCSVstar($body, $csvrow, $numcols, @entry); - - print OUTPUT "\\end{tikzpicture}"; - print OUTPUT "%<< END INSERT\n"; - print "\n"; -} - -sub applyCSVfile -{ - my ($CSVFILE,$body,$startrow) = @_; - - print "Converting \\applyCSVfile{$CSVFILE}"; - print OUTPUT "\% \\applyCSVfile{$CSVFILE}... converted using csvtools.pl\n"; - print OUTPUT "\%>> START INSERT\n"; - - # read in data from CSV file - local($csvrow, @idx, %HoH) = &getCSVvalues($CSVFILE,$startrow); - - # apply data - - &doapplyCSV($csvrow, $body, @idx, %HoH); - - print "\n"; - - print OUTPUT "\%<< END INSERT\n"; -} - -sub sortapplyCSVfile -{ - my ($CSVFILE,$body,$options) = @_; - - print "Converting \\sortapplyCSVfile{$CSVFILE}"; - print OUTPUT "\% \\sortapplyCSVfile{$CSVFILE}... converted using csvtools.pl\n"; - print OUTPUT "\%>> START INSERT\n"; - - # get options - %hash = &getKeyValues($options) if $options; - - local($startrow) = defined($hash{'firstdataline'}) - ? $hash{'firstdataline'} - : $globalsort{'firstdataline'}; - - local ($sortorder) = $hash{'sort'}; - - # read in data from CSV file - local($csvrow, @idx, %HoH) = &getCSVvalues($CSVFILE,$startrow); - - # get sort variable - - local($variable) = defined($hash{'variable'}) - ? $hash{'variable'} - : $globalsort{'variable'}; - - local(@rowdata)=(); - - print OUTPUT "\\bgroup\n"; - - # set field labels - - foreach $entry (keys %{$HoH[1]}) - { - print OUTPUT "\\setcsvfieldlabel{"; - print OUTPUT ($idx{$entry}+1).'}{'; - print OUTPUT "$entry}%\n"; - } - - print OUTPUT "\\def\\csvsortlist{%\n"; - - # construct list - - foreach ($row=1; $row <= $csvrow; $row++) - { - print "."; - - local($sortkey) = $variable; - - $sortkey = &csvSaveEntry($sortkey,$row,%HoH); - - foreach $entry ( keys %{$HoH[$row]}) - { - $replacementval=$HoH[$row]{$entry}; - - $sortkey =~ s/\\insertbyname{$entry}/$replacementval/g; - - $sortkey =~ s/\\insert$entry/$replacementval/g; - - local($column) = $idx{$entry}+1; - - $rowdata[$idx{$entry}] = $replacementval; - - $sortkey =~ s/\\field{(\d+)}/$1eq$column?$replacementval:$&/emg; - } - - print OUTPUT "{$sortkey}{".join($separator,@rowdata)."}"; - - print OUTPUT ($row == $csvrow ? "%\n" : ",%\n"); - } - - print OUTPUT "}%\n"; - - print OUTPUT "\\sortapplyCSVdata"; - - if (defined($sortorder)) - { - print OUTPUT "[$sortorder]"; - } - - print OUTPUT "{\\csvsortlist}{%\n"; - - print OUTPUT "$body}%\n"; - - print OUTPUT "\\egroup\n"; - print OUTPUT "\%<< END INSERT\n"; - - print "\n"; -} - -sub sortapplyCSVfilestar -{ - my ($CSVFILE,$body,$options) = @_; - - print "Converting \\sortapplyCSVfile*{$CSVFILE}"; - print OUTPUT "\% \\sortapplyCSVfile*{$CSVFILE}... converted using csvtools.pl\n"; - print OUTPUT "\%>> START INSERT\n"; - - # get options - %hash = &getKeyValues($options) if $options; - - local($startrow) = defined($hash{'sfirstdataline'}) - ? $hash{'sfirstdataline'} - : $globalsort{'sfirstdataline'}; - - local ($sortorder) = $hash{'sort'}; - - local($csvrow, $numcols, @entry) = &getCSVvaluesstar($CSVFILE, $startrow); - - # get sort variable - - local($variable) = defined($hash{'variable'}) - ? $hash{'variable'} - : $globalsort{'variable'}; - - local(@rowdata)=(); - - print OUTPUT "\\bgroup\n"; - - print OUTPUT "\\def\\csvsortlist{%\n"; - - # construct list - - for ($row=0; $row < $csvrow; $row++) - { - print "."; - - local($sortkey) = $variable; - - for ($column=0; $column < $numcols; $column++) - { - $replacementval=$entry[$row][$column]; - - $sortkey =~ s/\\field{(\d+)}/$1eq$column+1?$replacementval:$&/emg; - $rowdata[$column] = $replacementval; - } - - print OUTPUT "{$sortkey}{".join($separator,@rowdata)."}"; - - print OUTPUT ($row == $csvrow-1 ? "%\n" : ",%\n"); - } - - print OUTPUT "}%\n"; - - print OUTPUT "\\sortapplyCSVdata*"; - - if (defined($sortorder)) - { - print OUTPUT "[$sortorder]"; - } - - print OUTPUT "{\\csvsortlist}{%\n"; - - print OUTPUT "$body}%\n"; - - print OUTPUT "\\egroup\n"; - - print "\n"; - - print OUTPUT "\%<< END INSERT\n"; -} - -sub sortCSVtotabular -{ - my ($CSVFILE,$align,$headrow,$midrows,$lastrow,$envname,$options) = @_; - - print "Converting \\sortCSVto${envname}{$CSVFILE}"; - print OUTPUT "\% \\sortCSVto${envname}{$CSVFILE}... converted using csvtools.pl\n"; - print OUTPUT "\%>> START INSERT\n"; - - # get options - %hash = &getKeyValues($options) if $options; - - local($startrow) = defined($hash{'firstdataline'}) - ? $hash{'firstdataline'} - : $globalsort{'firstdataline'}; - - local ($sortorder) = $hash{'sort'}; - - # read in data from CSV file - local($csvrow, @idx, %HoH) = &getCSVvalues($CSVFILE,$startrow); - - # get sort variable - - local($variable) = defined($hash{'variable'}) - ? $hash{'variable'} - : $globalsort{'variable'}; - - local(@rowdata)=(); - - print OUTPUT "\\bgroup\n"; - - # set field labels - - foreach $entry (keys %{$HoH[1]}) - { - print OUTPUT "\\setcsvfieldlabel{"; - print OUTPUT ($idx{$entry}+1).'}{'; - print OUTPUT "$entry}%\n"; - } - - print OUTPUT "\\def\\csvsortlist{%\n"; - - # construct list - - foreach ($row=1; $row <= $csvrow; $row++) - { - print "."; - - local($sortkey) = $variable; - - $sortkey = &csvSaveEntry($sortkey,$row,%HoH); - - foreach $entry ( keys %{$HoH[$row]}) - { - $replacementval=$HoH[$row]{$entry}; - - $sortkey =~ s/\\insertbyname{$entry}/$replacementval/g; - - $sortkey =~ s/\\insert$entry/$replacementval/g; - - local($column) = $idx{$entry}+1; - - $rowdata[$idx{$entry}] = $replacementval; - - $sortkey =~ s/\\field{(\d+)}/$1eq$column?$replacementval:$&/emg; - } - - print OUTPUT "{$sortkey}{".join($separator,@rowdata)."}"; - - print OUTPUT ($row == $csvrow ? "%\n" : ",%\n"); - } - - print OUTPUT "}%\n"; - - if (defined($sortorder)) - { - print OUTPUT "\\setkeys{csvsort.sty}{sort=$sortorder}"; - } - - print OUTPUT "\\sortCSVdatatotabular"; - - print OUTPUT "{$csvrow}{\\csvsortlist}{$align}%\n"; - print OUTPUT "{$headrow}%\n"; - print OUTPUT "{$midrows}%\n"; - print OUTPUT "{$lastrow}%\n"; - print OUTPUT "{$envname}%\n"; - - print OUTPUT "\\egroup\n"; - print OUTPUT "\%<< END INSERT\n"; - - print "\n"; -} - -sub csvSaveEntry -{ - my ($STR,$row,%HoH) = @_; - - $rowctr = "csvrownumber"; - - while (($pos = index($STR, "\\csvSaveEntry")) > -1) - { - $start = substr($STR,0,$pos); - $restofline = substr($STR,$pos+13); - - $restofline = &eatcomments($restofline); - $restofline = &eatinitialspaces($restofline); - - if (substr($restofline,0,1) eq "[") - { - if (($i = index($restofline,"]")) > -1) - { - $rowctr = substr($restofline, 1, $i-1); - - $restofline = substr($restofline, $i+1); - } - else - { - die "unmatched [ in \\csvSaveEntry\n"; - } - - $row = $counter{$rowctr}; - } - - ($group,$restofline,$done) = &getnextgroup($restofline); - - if (!$done) - { - die "argument to \\csvSaveEntry[$rowctr] not found in >>$restofline<<\n"; - } - - $val = $HoH[$row]{$group}; - - $STR = $start . "\\expandafter\\gdef\\csname $group\\roman{$rowctr}\\endcsname{$val}" . $restofline; - - $data{$group}[$row] = $HoH[$row]{$group}; - } - - return $STR; -} - -sub applyCSVfilestar -{ - my ($CSVFILE,$body,$startrow) = @_; - - print "Converting \\applyCSVfile*{$CSVFILE}"; - - $counter{'csvrownumber'} = 0; - local($csvrow, $numcols, @entry) = &getCSVvaluesstar($CSVFILE, $startrow); - - &doapplyCSVstar($body, $csvrow, $numcols, @entry); - - print "\n"; - - print OUTPUT "\%<< END INSERT\n"; -} - -sub csvtotabular -{ - my ($CSVFILE,$ALIGN,$START,$MID,$END,$environment) = @_; - - print "Converting \\CSVtotabular{$CSVFILE}"; - - print OUTPUT "\% \\CSVtotabular{$CSVFILE}... converted using $0\n"; - print OUTPUT "\%>> START INSERT\n"; - - # read in data from CSV file - local($csvrow, @idx, %HoH) = &getCSVvalues($CSVFILE,2); - - print OUTPUT "\\setcounter{csvrownumber}{0}%\n"; - $counter{csvrownumber} = 0; - print OUTPUT "\\begin{$environment}{$ALIGN}\n"; - - print OUTPUT "$START"; - - foreach ($row=1; $row <= $csvrow; $row++ ) - { - print "."; - - if ($row == $csvrow) - { - $THISROW=$END; - } - else - { - $THISROW=$MID; - } - - foreach $entry ( keys %{$HoH[$row]}) - { - $replacementval=$HoH[$row]{$entry}; - - $THISROW =~ s/\\insertbyname{$entry}/$replacementval/g; - - $THISROW =~ s/\\insert$entry/$replacementval/g; - - $column = $idx{$entry}; - - $THISROW =~ s/\\field{$column}/$replacementval/g; - - $THISROW = &ifnextrowlast($THISROW, ($row==$csvrow-1)); - } - - print OUTPUT "\\refstepcounter{csvrownumber}$THISROW"; - $counter{csvrownumber}++; - } - - print OUTPUT "\\end{$environment}"; - print OUTPUT "\%<< END INSERT\n"; - - print "\n"; -} - -sub ifnextrowlast -{ - my ($STR, $nextislast) = @_; - - if (($pos = index($STR, "\\ifnextrowlast")) > -1) - { - $strbegin = substr($STR,0,$pos); - $strend = substr($STR,$pos+14); - - ($firstarg,$strend,$done) = &getnextgroup($strend); - - if (!$done) - { - die "Can't find first argument to \\ifnextrowlast\n"; - } - - ($secondarg,$strend,$done) = &getnextgroup($strend); - - if (!$done) - { - die "Can't find second argument to \\ifnextrowlast\n"; - } - - if ($nextislast) - { - $STR = $strbegin . $firstarg . $strend; - } - else - { - $STR = $strbegin . $secondarg . $strend; - } - } - - return $STR; -} - -sub eatcomments -{ - local ($_) = @_; - - if (m/(\\{1}%[^%]*)*(\\*)%/) - { - $pre = $`; - $pre .= $1 if defined($1); - $pre .= $2; - - local($n) = length($2); - - if ($n%2 == 0) - { - $_ = $pre; - } - } - - return $_; -} - -sub eatinitialspaces -{ - local ($_) = @_; - -# while (substr($STR,0,1) eq " " or substr($STR,0,1) eq "\n" -# or substr($STR,0,1) eq "\r" or substr($STR,0,1) eq "\t") -# { -# $STR = substr($STR,1); -# } - - s/^(\s)*//sg; - - return $_; -} - -sub getnextgroup -{ - my($curline) = @_; - - $curline = &eatcomments($curline); - - $curline = &eatinitialspaces($curline); - - # check to see if current string is blank - - if ($curline!~/[^\s]+/m) - { - return ("",$curline,0); - } - - if (($group = substr($curline,0,1)) ne "{") - { - # next group hasn't been delimited with braces - # return first non-whitespace character - - $curline = substr($curline,1); - - # unless it's a backslash, in which case get command name - - if ($group eq "\\") - { - if ($curline=~/([a-zA-Z]+)(^[a-zA-Z].*)/m) - { - $group = $1; - - $curline = $2; - } - else - { - # command is made up of backslash followed by symbol - - $curline=~/([\W_0-9\s\\])(.*)/m; - - $group = $1; - - $curline = $2; - } - } - - return ($group,$curline,1); - } - - my $pos=index($curline, "{"); - my $startpos=$pos; - my $posopen=0; - my $posclose=0; - - my $bracelevel = 1; - - my $done=0; - - while (!$done) - { - $pos++; - - $posopen = index($curline, "{", $pos); - - # check to make sure it's not a \{ - - while ((substr($curline, $posopen-1,1) eq "\\") and ($posopen > 0)) - { - # count how many backlashes come before it. - - $i = $posopen-1; - - $numbs = 1; - - while ((substr($curline, $i-1,1) eq "\\") and ($i > 0)) - { - $numbs++; - $i--; - } - - # is $numbs is odd, we have a \{, otherwise we have \\{ - - if ($numbs%2 == 0) - { - last; - } - else - { - $posopen = index($curline, "{", $posopen+1); - } - } - - $posclose= index($curline, "}", $pos); - - # check to make sure it's not a \} - - while ((substr($curline, $posclose-1,1) eq "\\") and ($posclose > 0)) - { - # count how many backlashes come before it. - - $i = $posclose-1; - - $numbs = 1; - - while ((substr($curline, $i-1,1) eq "\\") and ($i > 0)) - { - $numbs++; - $i--; - } - - # is $numbs is odd, we have a \}, otherwise we have \\} - - if ($numbs%2 == 0) - { - last; - } - else - { - $posclose = index($curline, "}", $posclose+1); - } - } - - if (($posopen==-1) and ($posclose==-1)) - { - $done=1; - } - elsif ($posopen==-1) - { - $pos=$posclose; - - $bracelevel--; - - if ($bracelevel==0) - { - $group = substr($curline, $startpos+1, $pos-$startpos-1); - - $curline = substr($curline, $pos+1); - - return ($group,$curline,1); - } - } - elsif ($posclose==-1) - { - $pos=$posopen; - - $bracelevel++; - } - elsif ($posopen<$posclose) - { - $pos=$posopen; - - $bracelevel++; - } - elsif ($posclose<$posopen) - { - $pos=$posclose; - - $bracelevel--; - - if ($bracelevel==0) - { - $group = substr($curline, $startpos+1, $pos-$startpos-1); - - $curline = substr($curline, $pos+1); - - return ($group,$curline,1); - } - } - } - - # closing brace must be on another line - - return ("", $curline, 0); -} - -sub getnextoptionalgroup -{ - my($curline) = @_; - - $curline = &eatcomments($curline); - - $curline = &eatinitialspaces($curline); - - # check to see if current string is blank - - if ($curline!~/[^\s]+/m) - { - return ("","",0); - } - - if (($group = substr($curline,0,1)) ne "[") - { - # no optional argument present - return ("", $curline, 1); - } - - $posopen = index($curline, "["); - - # search for first occurance of ] - - $posclose = index($curline, "]"); - - if ($posclose < 0) - { - # closing bracket not on this line - return ("", $curline, 0); - } - - # is there a { in the substring? - - $group = substr($curline, $posopen, $posclose+1); - $contents = $group; - $restofline = substr($curline, $posclose+$posopen+1); - - while (($idx=index($group, "{")) > 0) - { - $post = substr($group, $idx); - - $subgroup=""; - ($subgroup,$remainder,$done) = &getnextgroup($post); - - if ($done) - { - $group = $remainder; - } - else - { - # ] is in a group, so look for next one - $posclose = index($restofline, "]"); - - if ($posclose < 0) - { - # closing bracket not on this line - return ("", $curline, 0); - } - else - { - $contents .= substr($restofline,0,$posclose); - $group = $contents; - } - } - } - - $contents=~s/^\[(.*)\]$/$1/; - - return ($contents, $restofline, 1); -} - -# get all entries in a row -# modified version of code given in Perl FAQ - -sub getEntries{ - local($row)=@_; - - @entries = (); - push(@entries, $+) while $row =~ m{ - "([^\"\\]*(?:\\.[^\"\\]*)*)"$separator? # groups the phrase inside the quotes - | ([^$separator]+)$separator? - | $separator - }gx; - push(@entries, undef) if substr($row,-1,1) eq $separator; - - @entries; -} - -# extract key=value pairs from list - -sub getKeyValues{ - local($list,%defaults)=@_; - local(%hash)=(); - - # remove leading commas and spaces - - $list=~s/^[\s,]*//; - - while ($list=~/^\s*([^,=]+)\s*/) - { - $key=$1; - - $value = ''; - - if ($list=~s/^\s*$key\s*=\s*{/{/) - { - ($value,$list,$done) = &getnextgroup($list); - } - elsif ($list=~s/^\s*$key\s*=\s*([^,]*)\s*//) - { - $value = $1; - } - elsif ($list=~s/^\s*$key\s*(,|$)//) - { - if (defined($defaults{$key})) - { - $value = $defaults{$key}; - } - else - { - print "don't know default value for $key key\n"; - } - } - - $hash{$key} = $value; - - # remove trailing commas - - $list=~s/^[\s,]*//; - } - - %hash; -} - -1; diff --git a/Master/texmf-dist/doc/latex/csvtools/manual.html b/Master/texmf-dist/doc/latex/csvtools/manual.html deleted file mode 100644 index ad8a6fe9396..00000000000 --- a/Master/texmf-dist/doc/latex/csvtools/manual.html +++ /dev/null @@ -1,1615 +0,0 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> - -<!--Converted with LaTeX2HTML 2002 (1.67) -original version by: Nikos Drakos, CBLU, University of Leeds -* revised and updated by: Marcus Hennecke, Ross Moore, Herb Swan -* with significant contributions from: - Jens Lippmann, Marek Rouchal, Martin Wilck and others --> -<HTML> -<HEAD> -<TITLE>csvtools v1.24 : A LaTeX2e Package Providing Access to Data Saved in a CSV File</TITLE> -<META NAME="description" CONTENT="csvtools v1.24 : A LaTeX2e Package Providing Access to Data Saved in a CSV File"> -<META NAME="keywords" CONTENT="manual"> -<META NAME="resource-type" CONTENT="document"> -<META NAME="distribution" CONTENT="global"> - -<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> -<META NAME="Generator" CONTENT="LaTeX2HTML v2002"> -<META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css"> - - -</HEAD> - -<BODY > - - - <H1 ALIGN="CENTER">csvtools v1.24 : A LaTeX2e Package Providing Access to Data Saved in a CSV File</H1> -<P ALIGN="CENTER"><STRONG>Nicola Talbot</STRONG></P> -<P ALIGN="CENTER"><STRONG>26th June 2007</STRONG></P> - <BR> - -<H2><A NAME="SECTION00010000000000000000"> -Contents</A> -</H2> -<!--Table of Contents--> - -<UL> -<LI><A NAME="tex2html49" - HREF="manual.html#SECTION00030000000000000000">Introduction</A> -<LI><A NAME="tex2html50" - HREF="manual.html#SECTION00040000000000000000">Mail Merging and Similar Applications</A> -<LI><A NAME="tex2html51" - HREF="manual.html#SECTION00050000000000000000">Converting data in a CSV file into a tabular environment</A> -<LI><A NAME="tex2html52" - HREF="manual.html#SECTION00060000000000000000">Converting CSV file into longtable environment</A> -<LI><A NAME="tex2html53" - HREF="manual.html#SECTION00070000000000000000">Associated Counters</A> -<LI><A NAME="tex2html54" - HREF="manual.html#SECTION00080000000000000000">Cross-Referencing</A> -<LI><A NAME="tex2html55" - HREF="manual.html#SECTION00090000000000000000">Saving Entries</A> -<LI><A NAME="tex2html56" - HREF="manual.html#SECTION000100000000000000000">Pie Charts (csvpie.sty)</A> -<LI><A NAME="tex2html57" - HREF="manual.html#SECTION000110000000000000000">Sorting Data (csvsort.sty)</A> -<LI><A NAME="tex2html58" - HREF="manual.html#SECTION000120000000000000000">The csvtools.pl Perl Script</A> -<UL> -<LI><A NAME="tex2html59" - HREF="manual.html#SECTION000122000000000000000">Notes</A> -</UL> -<BR> -<LI><A NAME="tex2html60" - HREF="manual.html#SECTION000130000000000000000">Bugs/Drawbacks/``Features''</A> -<LI><A NAME="tex2html61" - HREF="manual.html#SECTION000140000000000000000">Contact Details</A> -</UL> -<!--End of Table of Contents--> -<P> - -<H1><A NAME="SECTION00020000000000000000"> -List of Examples</A> -</H1> - -<P> - - -<OL> -<LI><A HREF="manual.html#ex:mail">Mail Merging</A> -</LI> -<LI><A HREF="manual.html#ex:ps">Multiple Figures</A> -</LI> -<LI><A HREF="manual.html#ex:field">Mail Merging using <TT>\field</TT></A> -</LI> -<LI><A HREF="manual.html#ex:tab1">Aligning Data from a CSV file</A> -</LI> -<LI><A HREF="manual.html#ex:tab2">Adding Lines</A> -</LI> -<LI><A HREF="manual.html#ex:tab3">Added Complexity</A> -</LI> -<LI><A HREF="manual.html#ex:long">Using a longtable environment</A> -</LI> -<LI><A HREF="manual.html#ex:stripy">Stripy Table</A> -</LI> -<LI><A HREF="manual.html#ex:mailref">More Mail Merging</A> -</LI> -<LI><A HREF="manual.html#ex:ref1">Labelling within <TT>\applyCSVfile</TT></A> -</LI> -<LI><A HREF="manual.html#ex:ref2">Labelling within <TT>\applyCSVfile</TT></A> -</LI> -<LI><A HREF="manual.html#ex:timetogrowth">Labelling within <TT>\CSVtotabular</TT></A> -</LI> -<LI><A HREF="manual.html#ex:tablabel">Labelling within <TT>\CSVtotabular</TT></A> -</LI> -<LI><A HREF="manual.html#ex:index">Saving Entries</A> -</LI> -<LI><A HREF="manual.html#ex:piechart">A Pie Chart</A> -</LI> -<LI><A HREF="manual.html#ex:perl">csvtools.pl -- Aligning Data</A> -</LI> -</OL> - -<P> - -<H1><A NAME="SECTION00030000000000000000"> -Introduction</A> -</H1> - The <TT>csvtools</TT> package allows you to repeatedly perform - a set of LaTeX commands on data in each row - of a comma separated variable (CSV) file. - This can be used for mail merging, generating - tables etc. - -<P> -As from version 1.2, you can specify a different separator. -To change the separator, use the command: -<BR> -<BR><TT>\setcsvseparator</TT>{<I>separator</I>} -<BR> -<BR> -For example, if your data is separated by colons instead of -commas, do: -<PRE> -\setcsvseparator{:} -</PRE> -If your separator occurs within an entry, the entry must be -enclosed in double quotes, for example: -<PRE> -Name,Address,Telephone -A.N. Other,"1 The Street,The Town",0123456789 -</PRE> -Be careful of T<SMALL>E</SMALL>X special characters occuring within a CSV -file, for example: -<PRE> -Name,Address,Telephone -Jack \& Jill,"2 The Street,The Town",0123456789 -</PRE> - -<P> - -<H1><A NAME="SECTION00040000000000000000"> -Mail Merging and Similar Applications</A> -</H1> - -<P> - - <TT>\applyCSVfile</TT>[<I>n</I>]{<I>filename</I>}{<I>text</I>} -<BR> <TT>\applyCSVfile*</TT>[<I>n</I>]{<I>filename</I>}{<I>text</I>} -<BR> -<BR> -Letters can be generated using data given in - each line from <I>filename</I>. - If the CSV file contains a header row, the - unstarred version of <TT>\applyCSVfile</TT> should - be used, otherwise the starred version <TT>\applyCSVfile*</TT> - should be used. The optional argument <I>n</I> - specifies on which line the actual data (not header line) - starts. The unstarred version defaults to line 2 - (the header row is always assumed to be on line 1) - and the starred version defaults to 1. - -<P> -With the unstarred version, the entries in the header row - are used to generate commands of the form - <TT>\insert</TT><I>identifier</I><A NAME="tex2html1" - HREF="#foot869"><SUP>1</SUP></A> to access corresponding elements - in the row currently being processed. For example, - suppose the first line of the CSV file looks like: -<PRE> -Name,Address,Time,Date -</PRE> - then the commands <TT>\insertName</TT>, <TT>\insertAddress</TT>, - <TT>\insertTime</TT> and <TT>\insertDate</TT> are - created, allowing you to use the entries in the first, - second, third and fourth columns of the current row. - If the header text contains non-alphabetical characters, - e.g. <TT>Full Name</TT>, then you will need to use - <TT>\insertbyname{</TT><I>text</I><TT>}</TT>, - e.g. <code>\insertbyname{Full Name}</code>. - -<P> -Alternatively, you can use the -<TT>\field</TT>{<I>col</I>} command, where -<I>col</I> is the column number of the entry, so <code>\field{1}</code> -indicates the first entry in the current row and <code>\field{2}</code> -indicates the second entry in the current row. - -<P> -<A NAME="ex:mail"></A> -<H2><A NAME="SECTION00041000000000000000"> -Example 1 (Mail Merging)</A> -</H2> - Suppose there is a file called <TT>details.csv</TT> that has the - following contents: -<PRE> -Name,Address,Time,Date -Miss A. Person,1 The Road\\The Town\\AB1 2XY,15.00,4th May 2004 -Mr A. N. Other,2 The Road\\The Town\\AB1 2XY,15.30,11th May 2004 -</PRE> -then the following code can be used to generate a letter for each -person in the CSV file<A NAME="tex2html2" - HREF="#foot150"><SUP>2</SUP></A>: -<PRE> -\applyCSVfile{details.csv}{% -\begin{letter}{\insertName\\\insertAddress} -\opening{Dear \insertName} - -You are invited to an interview at \insertTime\ on the \insertDate. - -\closing{Yours Sincerely} -\end{letter}} -</PRE> - Note that you could also use <code>\insertbyname{Name}</code> etc instead - of <TT>\insertName</TT> etc. Also note that you need to specify the - file extension when specifying the filename. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:ps"></A> -<H2><A NAME="SECTION00042000000000000000"> -Example 2 (Multiple Figures)</A> -</H2> - Suppose <TT>sample3.csv</TT> looks like: -<PRE> -File,Caption -circle.ps,A Circle -rectangle.ps,A Rectangle -triangle.ps,A Triangle -</PRE> - Assuming that the files <TT>circle.ps</TT>, <TT>rectangle.ps</TT> - and <TT>triangle.ps</TT> exist, then the following code will - generate a figure for each graphics file<A NAME="tex2html3" - HREF="#foot870"><SUP>3</SUP></A>: -<PRE> -\applyCSVfile{sample3.csv}{ -\begin{figure} -\centerline{\includegraphics{\insertFile}} -\caption{\insertCaption} -\end{figure}} -</PRE> - Note that in this example, you can't use <code>\insertbyname{File}</code>. - (See Note <A HREF="manual.html#itm:psbyname">3</A> in Section <A HREF="manual.html#sec:drawbacks">11</A>.) -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:field"></A> -<H2><A NAME="SECTION00043000000000000000"> -Example 3 (Mail Merging using <TT>\field</TT>)</A> -</H2> - Suppose there is a file called <TT>details.csv</TT> that has the - following contents: -<PRE> -Miss A. Person,1 The Road\\The Town\\AB1 2XY,15.00,4th May 2004 -Mr A. N. Other,2 The Road\\The Town\\AB1 2XY,15.30,11th May 2004 -</PRE> -In this case the data has no header file, so the starred version -of <TT>\applyCSVfile</TT> must be used. Since there is no header -file, you must use <TT>\field</TT> to access the entries: -<PRE> -\applyCSVfile*{details.csv}{% -\begin{letter}{\field{1}\\\field{2}} -\opening{Dear \field{1}} - -You are invited to an interview at \field{3}\ on the \field{4}. - -\closing{Yours Sincerely} -\end{letter}} -</PRE> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION00050000000000000000"> -Converting data in a CSV file into a tabular environment</A> -</H1> - - <TT>\CSVtotabular</TT>{<I>filename</I>}{<I>col-align</I>}{<I>first</I>}{<I>middle</I>}{<I>last</I>} -<BR> -<BR> <I>filename</I> is the name of the CSV file which must have a header row on line 1, - <I>col-align</I> is the column alignment argument that gets passed - to the <TT>tabular</TT> environment, <I>first</I> - is the code for the first line, <I>middle</I> is the code - for the middle lines and <I>last</I> is the code for the last line. - This is best demonstrated with an example. - -<P> -<A NAME="ex:tab1"></A> -<H2><A NAME="SECTION00051000000000000000"> -Example 4 (Aligning Data from a CSV file)</A> -</H2> - Suppose the file <TT>sample.csv</TT> looks like: -<PRE> -Name,Assignment 1,Assignment 2,Total -A. Smith,80,70,150 -B. Jones,60,80,140 -J. Doe,85,75,160 -,75,75,150 -</PRE> - then the following code can be used to align the data: -<PRE> -\CSVtotabular{sample.csv}{lccc}{% -\bfseries Name & -\bfseries Assignment 1& -\bfseries Assignment 2& -\bfseries Total\\}{% -\insertName & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal\\}{% - & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal} -</PRE> - The result of this code is shown in - Table <A HREF="manual.html#tab:ex1">1</A><A NAME="tex2html4" - HREF="#foot872"><SUP>4</SUP></A>. -<BR><P></P> -<DIV ALIGN="CENTER"> - -<A NAME="tab:ex1"></A> -<BR> -<BR> -<DIV ALIGN="CENTER"> -<A NAME="873"></A> -<TABLE CELLPADDING=3> -<CAPTION><STRONG>Table 1:</STRONG> -Example <A HREF="manual.html#ex:tab1">4</A></CAPTION> -<TR><TH ALIGN="LEFT"><B>Name </B></TH> -<TH ALIGN="CENTER"><B>Assignment 1 </B></TH> -<TH ALIGN="CENTER"><B>Assignment 2 </B></TH> -<TH ALIGN="CENTER"><B>Total</B></TH> -</TR> -<TR><TD ALIGN="LEFT">A. Smith</TD> -<TD ALIGN="CENTER">80</TD> -<TD ALIGN="CENTER">70</TD> -<TD ALIGN="CENTER">150</TD> -</TR> -<TR><TD ALIGN="LEFT">B. Jones</TD> -<TD ALIGN="CENTER">60</TD> -<TD ALIGN="CENTER">80</TD> -<TD ALIGN="CENTER">140</TD> -</TR> -<TR><TD ALIGN="LEFT">J. Doe</TD> -<TD ALIGN="CENTER">85</TD> -<TD ALIGN="CENTER">75</TD> -<TD ALIGN="CENTER">160</TD> -</TR> -<TR><TD ALIGN="LEFT"> </TD> -<TD ALIGN="CENTER">75</TD> -<TD ALIGN="CENTER">75</TD> -<TD ALIGN="CENTER">150</TD> -</TR> -</TABLE></DIV> - -</DIV> -<BR> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<BR> -<BR> - - <TT>\ifnextrowlast</TT>{<I>last-code</I>}{<I>not-last-code</I>} -<BR> -<BR> -The command <TT>\ifnextrowlast</TT> can be used to vary what happens - on the last but one row. The following example illustrates - this by placing <TT>\hline\hline</TT> after the penultimate row. - -<P> -<A NAME="ex:tab2"></A> -<H2><A NAME="SECTION00052000000000000000"> -Example 5 (Adding Lines)</A> -</H2> -<PRE> -\CSVtotabular{sample.csv}{|l|ccc|}{% -\hline\bfseries Name & -\bfseries Assignment 1& -\bfseries Assignment 2& -\bfseries Total\\\hline\hline}{% -\insertName & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal -\ifnextrowlast{\\\hline\hline}{\\}}{% - & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal\\\hline} -</PRE> -See the PDF version (<TT><A NAME="tex2html7" - HREF="csvtools.pdf">csvtools.pdf</A></TT>) of this -documentation for an illustration of the results. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:tab3"></A> -<H2><A NAME="SECTION00053000000000000000"> -Example 6 (Added Complexity)</A> -</H2> - In this example, <TT>\multicolumn</TT> is used to override - the column specifier for the first column in the - last row. -<PRE> -\CSVtotabular{sample2.csv}{|l|ccc|}{% -\hline\bfseries Name & -\bfseries Assignment 1 & -\bfseries Assignment 2 & -\bfseries Total\\\hline\hline -}{% -\insertName & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal -\ifnextrowlast{\\\hline\multicolumn{1}{l|}{}}{\\} -}{% - & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal\\\cline{2-4} -} -</PRE> - Notice that instead of placing <code>\multicolumn{1}{l|}{}</code> - at the start of the final argument, it is instead - placed in the first argument to <TT>\ifnextrowlast</TT><A NAME="tex2html8" - HREF="#foot877"><SUP>5</SUP></A>. -See the PDF version (<TT><A NAME="tex2html10" - HREF="csvtools.pdf">csvtools.pdf</A></TT>) of this -manual for an illustration of the results. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION00060000000000000000"> -Converting CSV file into longtable environment</A> -</H1> - -The command <TT>\CSVtolongtable</TT> works in the same way as <TT>\CSVtotabular</TT> but - creates a <TT>longtable</TT> environment instead of a <TT>tabular</TT> environment. - -<P> -<A NAME="ex:long"></A> -<H2><A NAME="SECTION00061000000000000000"> -Example 7 (Using a longtable environment)</A> -</H2> -Suppose the CSV file in the previous example, contains, say, 100 entries. -This will no longer fit onto one page, so it would be better to use -<TT>CSVtolongtable</TT> instead. For example: -<PRE> -\CSVtolongtable{sample.csv}{|l|ccc|}{% -\caption{Student Marks}\label{tab:students}\\ -\hline -\bfseries Name & -\bfseries Assignment 1 & -\bfseries Assignment 2 & -\bfseries Total\\\hline -\endfirsthead -\caption[]{Student Marks}\\ -\hline -\bfseries Name & -\bfseries Assignment 1 & -\bfseries Assignment 2 & -\bfseries Total\\\hline -\endhead -\hline -\multicolumn{3}{r}{\em Continued on next page} -\endfoot -\hline -\endlastfoot}{% -\insertName & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal -\ifnextrowlast{\\\hline\hline}{\\}}{% - & \insertbyname{Assignment 1} & - \insertbyname{Assignment 2} & -\insertTotal\\} -</PRE> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION00070000000000000000"> -Associated Counters</A> -</H1> - -<P> -Within the <TT>\CSVtotabular</TT>, <TT>\CSVtolongtable</TT> and -<TT>\applyCSVfile</TT> commands, there are two - counters, <TT>csvlinenum</TT> and <TT>csvrownumber</TT>. - The former, <TT>csvlinenum</TT>, is the current line number in the CSV - file, whereas the latter, <TT>csvrownumber</TT>, is the current - data row. Of the two counters, <TT>csvrownumber</TT> is likely to be - the most useful. - -<P> -<A NAME="ex:stripy"></A> -<H2><A NAME="SECTION00071000000000000000"> -Example 8 (Stripy Table)</A> -</H2> -David Carlisle's <TT>colortbl</TT> package defines the command -<TT>\rowcolor</TT> which enables you to specify the row colour. -Suppose you want a stripy table<A NAME="tex2html11" - HREF="#foot297"><SUP>6</SUP></A>, - this can be achieved as follows: -<PRE> -\CSVtotabular{sample2.csv}{lccc}{% -\rowcolor{green}\bfseries Name & -\bfseries Assignment 1 & -\bfseries Assignment 2 & -\bfseries Total\\\rowcolor{blue} -}{% -\insertName & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal -\ifthenelse{\isodd{\value{csvrownumber}}}{% -\\\rowcolor{green}}{\\\rowcolor{blue}} -}{% - & -\insertbyname{Assignment 1} & -\insertbyname{Assignment 2} & -\insertTotal -} -</PRE> -See the PDF version (<TT><A NAME="tex2html13" - HREF="csvtools.pdf">csvtools.pdf</A></TT>) -for an illustration of the resulting table. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:mailref"></A> -<H2><A NAME="SECTION00072000000000000000"> -Example 9 (More Mail Merging)</A> -</H2> -This is an example of mail merging where the letter reference -is generated from the value of <TT>csvrownumber</TT>. The CSV file -is as used in Example <A HREF="manual.html#ex:mail">1</A>. -<PRE> -\applyCSVfile{details.csv}{% -\begin{letter}{\insertName\\\insertAddress} -\opening{Dear \insertName} - -\textbf{Ref : } interview.\thecsvrownumber - -You are invited to an interview at \insertTime\ on the \insertDate. - -\closing{Yours Sincerely} -\end{letter}} -</PRE> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION00080000000000000000"> -Cross-Referencing</A> -</H1> - -<P> -Labels can be generated using the standard - <TT>\label</TT> command, but you will need some way - to make each label unique. Example <A HREF="manual.html#ex:ref1">10</A> - does this by using <TT>\thecsvrownumber</TT>, - whereas Example <A HREF="manual.html#ex:ref2">11</A> uses <TT>\insert</TT><I>identifier</I>. - -<P> -<A NAME="ex:ref1"></A> -<H2><A NAME="SECTION00081000000000000000"> -Example 10 (Labelling within <TT>\applyCSVfile</TT>)</A> -</H2> - Example <A HREF="manual.html#ex:ps">2</A> can be modified to - label each figure: -<PRE> -\applyCSVfile{sample3.csv}{ -\begin{figure} -\centerline{\includegraphics{\insertFile}} -\caption{\insertCaption} -\label{fig:pic\thecsvrownumber} -\end{figure}} -</PRE> - This example uses - <code>\label{fig:pic\thecsvrownumber}</code>, so the first figure -generated by this <TT>\applyCSVfile</TT> command will have the -label <TT>fig:pic1</TT>, the second <TT>fig:pic2</TT> etc. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:ref2"></A> -<H2><A NAME="SECTION00082000000000000000"> -Example 11 (Labelling within <TT>\applyCSVfile</TT>)</A> -</H2> - Modifying the previous example, we now have: -<PRE> -\applyCSVfile{sample3.csv}{ -\begin{figure} -\centerline{\includegraphics{\insertFile}} -\caption{\insertCaption} -\label{fig:\insertFile} -\end{figure}} -</PRE> - The labels for each figure are now: - <TT>fig:circle.ps</TT>, <TT>fig:rectangle.ps</TT> - and <TT>fig:triangle.ps</TT>, respectively. -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -<A NAME="ex:timetogrowth"></A> -<H2><A NAME="SECTION00083000000000000000"> -Example 12 (Labelling within <TT>\CSVtotabular</TT>)</A> -</H2> - This example is slightly more complicated. - The CSV file, <TT>data.csv</TT> looks like: -<PRE> -Incubation Temperature,Incubation Time,Time to Growth -40,120,40 -40,90,60 -35,180,20 -</PRE> -The following code generates a table using the data - with an additional column that generates the experiment - number. (See note <A HREF="manual.html#itm:csvrownumber">8</A>.) -<PRE> -\begin{table} -\caption{Time to Growth Experiments} -\label{tab:exp} -\vspace{10pt} -\centering -\CSVtotabular{data.csv}{cccc}{% - % Header Row -\bfseries Experiment & -\bfseries \begin{tabular}{c}Incubation\\Temperature\end{tabular} & -\bfseries \begin{tabular}{c}Incubation\\Time\end{tabular} & -\bfseries \begin{tabular}{c}Time\\to\\Growth\end{tabular}\\}{% - % Middle Rows -\label{exp:\insertbyname{Incubation Temperature}:\insertbyname{Incubation Time}} -\thecsvrownumber & -\insertbyname{Incubation Temperature} & -\insertbyname{Incubation Time} & -\insertbyname{Time to Growth} \\}{% - % Final Row -\label{exp:\insertbyname{Incubation Temperature}:\insertbyname{Incubation Time}} -\thecsvrownumber & -\insertbyname{Incubation Temperature} & -\insertbyname{Incubation Time} & -\insertbyname{Time to Growth}} -\par -\end{table} - -It can be seen from Table~\ref{tab:exp}, that -Experiment~\ref{exp:35:180} had the shortest time to growth. -</PRE> - In this example, each experiment has the corresponding label - <TT>exp:</TT><I>Incubation Temperature</I><TT>:</TT><I>Incubation Time</I> - so the first experiment has label <TT>exp:40:120</TT>, the - second experiment has the label <TT>exp:40:90</TT> and the - third experiment has the label <TT>exp:35:180</TT>. - -<P> -Table <A HREF="manual.html#tab:timetogrowth">2</A> shows the resulting table for - this example. - <BR><P></P> -<DIV ALIGN="CENTER"> - -<A NAME="tab:timetogrowth"></A> -<BR> -<BR> -<DIV ALIGN="CENTER"><A NAME="384"></A> -<TABLE CELLPADDING=3> -<CAPTION><STRONG>Table 2:</STRONG> -Time to Growth Experiments</CAPTION> -<TR><TH ALIGN="CENTER"><B>Experiment </B></TH> -<TH ALIGN="CENTER"><B><TABLE CELLPADDING=3> -<TR><TH ALIGN="CENTER">Incubation</TH> -</TR> -<TR><TH ALIGN="CENTER">Temperature</TH> -</TR> -</TABLE> </B></TH> -<TH ALIGN="CENTER"><B><TABLE CELLPADDING=3> -<TR><TH ALIGN="CENTER">Incubation</TH> -</TR> -<TR><TH ALIGN="CENTER">Time</TH> -</TR> -</TABLE> </B></TH> -<TH ALIGN="CENTER"><B><TABLE CELLPADDING=3> -<TR><TH ALIGN="CENTER">Time</TH> -</TR> -<TR><TH ALIGN="CENTER">to</TH> -</TR> -<TR><TH ALIGN="CENTER">Growth</TH> -</TR> -</TABLE></B></TH> -</TR> -<TR><TD ALIGN="CENTER">1</TD> -<TD ALIGN="CENTER">40</TD> -<TD ALIGN="CENTER">120</TD> -<TD ALIGN="CENTER">40</TD> -</TR> -<TR><TD ALIGN="CENTER">2</TD> -<TD ALIGN="CENTER">40</TD> -<TD ALIGN="CENTER">90</TD> -<TD ALIGN="CENTER">60</TD> -</TR> -<TR><TD ALIGN="CENTER">3</TD> -<TD ALIGN="CENTER">35</TD> -<TD ALIGN="CENTER">180</TD> -<TD ALIGN="CENTER">20</TD> -</TR> -</TABLE> -</DIV> -<P> -<DIV ALIGN="CENTER"></DIV> -</DIV> -<BR> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -The following example is more refined in that it - takes advantage of the fact that the time to growth data consists - of integers only, so the experiment with the maximum growth can be - determined by LaTeX. - -<P> -<A NAME="ex:tablabel"></A> -<H2><A NAME="SECTION00084000000000000000"> -Example 13 (Labelling within <TT>\CSVtotabular</TT>)</A> -</H2> -<PRE> -\newcounter{maxgrowth} -\newcounter{incT} % incubation temperature -\newcounter{inct} % incubation time - -\begin{table} -\caption{Time to Growth Experiments} -\label{tab:exp} -\vspace{10pt} -\centering -\CSVtotabular{data.csv}{cccc}{% - % Header row -\bfseries Experiment & -\bfseries \begin{tabular}{c}Incubation\\Temperature\end{tabular} & -\bfseries \begin{tabular}{c}Incubation\\Time\end{tabular} & -\bfseries \begin{tabular}{c}Time\\to\\Growth\end{tabular}\\}{% - % Middle rows -\label{exp:\insertbyname{Incubation Temperature}:\insertbyname{Incubation Time}} -\thecsvrownumber & -\insertbyname{Incubation Temperature} & -\insertbyname{Incubation Time} & -\insertbyname{Time to Growth}% -\ifthenelse{\value{maxgrowth}<\insertbyname{Time to Growth}}{% -\setcounter{maxgrowth}{\insertbyname{Time to Growth}}% -\setcounter{incT}{\insertbyname{Incubation Temperature}}% -\setcounter{inct}{\insertbyname{Incubation Time}}}{}% -\\}{% - % Last row -\label{exp:\insertbyname{Incubation Temperature}:\insertbyname{Incubation Time}} -\thecsvrownumber & -\insertbyname{Incubation Temperature} & -\insertbyname{Incubation Time} & -\insertbyname{Time to Growth}% -\ifthenelse{\value{maxgrowth}<\insertbyname{Time to Growth}}{% -\setcounter{maxgrowth}{\insertbyname{Time to Growth}}% -\setcounter{incT}{\insertbyname{Incubation Temperature}}% -\setcounter{inct}{\insertbyname{Incubation Time}}}{}% -} -\par -\end{table} - -As can be seen from Table~\ref{tab:exp}, -Experiment~\ref{exp:\theincT:\theinct} -had the maximum time to growth, with -incubation time \theinct, -incubation temperature \theincT\ and -time to growth, \themaxgrowth. -</PRE> - -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION00090000000000000000"> -Saving Entries</A> -</H1> - Entries can be saved using the command: -<BR> -<BR> - - <TT>\csvSaveEntry</TT>[<I>counter</I>]{<I>identifier</I>}[<I>empty text</I>] -<BR> -<BR> -where <I>counter</I> is a LaTeX counter, by default -<TT>csvrownumber</TT>, - and <I>identifier</I> is the header entry. The entry - can then be used with the command: -<BR> -<BR> - <TT>\csvGetEntry</TT>{<I>counter</I>}{<I>identifier</I>} -<BR> -<BR> -The final optional argument <I>empty text</I> to -<TT>\csvSaveEntry</TT> is the text to use if the entry is blank. -For example, <code>\csvSaveEntry{Time}[MISSING DATA]</code> will -print MISSING DATA if the Time field is blank. - -<P> -The following example illustrates the use of these commands. - -<P> -<A NAME="ex:index"></A> -<H2><A NAME="SECTION00091000000000000000"> -Example 14 (Saving Entries)</A> -</H2> - This example illustrates how you can use one CSV - file to access data in other CSV files. - This example has several CSV files: -<BR> -<BR> -File <TT>index.csv</TT>: -<PRE> -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 -</PRE> - File <TT>exp25a.csv</TT>: -<PRE> -Time,Logcount -0,3.75 -23,3.9 -45,4.0 -</PRE> - File <TT>exp25b.csv</TT>: -<PRE> -Time,Logcount -0,3.6 -60,3.8 -120,4.0 -</PRE> - File <TT>exp30a.csv</TT>: -<PRE> -Time,Logcount -0,3.73 -23,3.67 -60,4.9 -</PRE> - -<P> -It is not possible to nest <TT>\CSVtotabular</TT>, -<TT>\CSVtolongtable</TT> and <TT>\applyCSVfile</TT>, - so if you need to go through <TT>index.csv</TT> and use each file - named in there, you can first go through <TT>index.csv</TT> -storing the information using <TT>\csvSaveEntry</TT> as follows: -<PRE> -\newcounter{maxexperiments} -\applyCSVfile{sample5.csv}{% -\stepcounter{maxexperiments} -\csvSaveEntry{File} -\csvSaveEntry{Temperature} -\csvSaveEntry{NaCl} -\csvSaveEntry{pH} -} -</PRE> - The counter <TT>maxexperiments</TT> simply counts the number of - entries in <TT>index.csv</TT>. - The entries can now be used to generate a table for each - file listed in <TT>index.csv</TT> (the <TT>\whiledo</TT> command -is defined in the <TT>ifthen</TT> package): -<PRE> -\newcounter{experiment} -\whiledo{\value{experiment}<\value{maxexperiments}}{% -\stepcounter{experiment} -\begin{table} -\caption{Temperature = \protect\csvGetEntry{experiment}{Temperature}, -NaCl = \protect\csvGetEntry{experiment}{NaCl}, -pH = \protect\csvGetEntry{experiment}{pH}} -\vspace{10pt} -\centering -\CSVtotabular{\csvGetEntry{experiment}{File}}{ll}{% -Time & Log Count\\}{% -\insertTime & \insertLogcount\\}{% -\insertTime & \insertLogcount} - -\end{table} -} -</PRE> - Note that <TT>\csvGetEntry</TT> needs to be <TT>\protect</TT>ed -within the <TT>\caption</TT> command. - -<P> -This example can be modified if, say, you only want the - tables where the temperature is 25: -<PRE> -\setcounter{experiment}{0} -\whiledo{\value{experiment}<\value{maxexperiments}}{% -\stepcounter{experiment} -\ifthenelse{\equal{\csvGetEntry{experiment}{Temperature}}{25}}{% -\begin{table} -\caption{Temperature = \protect\csvGetEntry{experiment}{Temperature}, -NaCl = \protect\csvGetEntry{experiment}{NaCl}, -pH = \protect\csvGetEntry{experiment}{pH}} -\vspace{10pt} -\centering -\CSVtotabular{\csvGetEntry{experiment}{File}}{ll}{% -Time & Log Count\\}{% -\insertTime & \insertLogcount\\}{% -\insertTime & \insertLogcount}\par -\end{table}}{} -} -</PRE> - -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION000100000000000000000"> -Pie Charts (csvpie.sty)</A> -</H1> - -<P> -If you want to create a pie chart from data stored in a CSV file, -you can use the <TT>csvpie</TT> package, distributed with the -<TT>csvtools</TT> package. A basic pie chart can be created -using the command: -<BR> -<BR> -<TT>\csvpiechart</TT>[<I>options</I>]{<I>variable</I>}{<I>filename</I>} -<BR> -<BR> -where <I>filename</I> is the name of the CSV file containing the -data, and <I>variable</I> is the command indicating the entry that -contains the value for the given segment. -The starred version of <TT>\csvpiechart</TT> should be used if -the CSV file has no header row. - -<P> -The pie charts have ``inner'' labels on the segment, and -``outer'' labels outside the chart. The labels are given by the -commands <TT>\csvpieinnerlabel</TT> -and <TT>\csvpieouterlabel</TT>. -The default definitions are: -<PRE> -\newcommand{\csvpieouterlabel}{\field{1}} -\newcommand{\csvpieinnerlabel}{\field{2}\%} -</PRE> -This assumes that the second column contains the data, and the -first column contains a description, but can be redefined -as necessary. - -<P> -The pie chart display can be modified using the optional -argument to <TT>\csvpiechart</TT>. -This argument should be a <I>key</I>=<I>value</I> list. -The available keys are as follows: -<DL> -<DT><STRONG>start</STRONG></DT> -<DD>This should be an integer specifying the starting angle -of the first segment. This is 0 by default. - -<P> -</DD> -<DT><STRONG>total</STRONG></DT> -<DD>This should be an integer specifying the sum of all -the segment values. This is 100 by default. - -<P> -</DD> -<DT><STRONG>radius</STRONG></DT> -<DD>This should be a length specifying the radius of the -pie chart. (Default: 2cm) - -<P> -</DD> -<DT><STRONG>inner</STRONG></DT> -<DD>This should be a fraction specifying the relative distance -along the radius to start the inner label. (Default: 0.25) - -<P> -</DD> -<DT><STRONG>outer</STRONG></DT> -<DD>This should be a fraction specifying the relative distance -along the radius to start the outer label. (Default: 1.25) - -<P> -</DD> -<DT><STRONG>cutaway</STRONG></DT> -<DD>This should be a comma-separated list of numbers -corresponding to the segments that should be cut away from the -rest of the pie chart. Since the value may contain commas, the value -should always be enclosed in braces. Ranges may also be used. -If a range is used, all the segments in the given range are -kept together, so, for example, <code>cutaway={1,2}</code> will separate -the first two segments from the pie chart, and the two segments -will also be separated from each other, whereas <code>cutaway={1-2}</code> -will separate the first two segments from the pie chart, but will -keep the two segments together. - -<P> -</DD> -<DT><STRONG>offset</STRONG></DT> -<DD>This should be a fraction specifying the -relative distance along the radius to shift the cut away -segments. (Default: 0.1) - -<P> -</DD> -<DT><STRONG>firstrow</STRONG></DT> -<DD>This should be the number of the first row -containing the actual data. This is equivalent to the optional -argument of <TT>\applyCSVfile</TT> or <TT>\applyCSVfile*</TT>. -</DD> -</DL> - -<P> -Note that T<SMALL>E</SMALL>X performs integer arithmetic. Although the CSV -file may contain decimal numbers, rounding will occur when -constructing the pie charts. - -<P> -The colours for the pie chart segments can be set using the -command: -<BR> -<BR><TT>\csvpiesegmentcol</TT>{<I>n</I>}{<I>colour</I>} -<BR> -<BR> -where <I>n</I> is the segment number, and <I>colour</I> is a -defined colour name. For example, if you want the first segment -in the pie chart to be yellow, do: -<PRE> -\csvpiesegmentcol{1}{yellow} -</PRE> -There are 8 predefined segment colours, if your pie chart has -more than 8 segments, you will need to specify the remainder. - -<P> -You can obtain the colour name for a given segment -using: -<BR> -<BR><TT>\csvpiesegcolname</TT>{<I>n</I>} -<BR> -<BR> -where <I>n</I> is the segment number. The <TT>\csvpiechart</TT> -command uses <TT>\applyCSVfile</TT>, so the <TT>csvrownumber</TT> -counter can be used. This means that you can change the text -colour of the outer label to match the segment. For example: -<PRE> -\renewcommand{\csvpieouterlabel}{% -\color{\csvpiesegcolname{\value{csvrownumber}}}\field{2}} -</PRE> -Note that <TT>\value</TT> must be used since <I>n</I> has to be -a number. - -<P> -If you want grey pie charts, either use the <TT>monochrome</TT> -package option: -<PRE> -\usepackage[monochrome]{csvpie} -</PRE> -or use the command <TT>\colorpiechartfalse</TT> prior to using <TT>\csvpiechart</TT>. -To switch back to colour pie charts, use -<TT>\colorpiecharttrue</TT>. - -<P> -<A NAME="ex:piechart"></A> -<H2><A NAME="SECTION000101000000000000000"> -Example 15 (A Pie Chart)</A> -</H2> -Given a CSV file -(called <TT>fruit.csv</TT>) containing: -<PRE> -Name,Value -Apples,20 -Pears,15 -"lemons,limes",30.5 -Peaches,24.5 -Cherries,10 -</PRE> -Then the value for each segment is given by the second column, so -<I>variable</I> should be <code>\field{2}</code> or <code>\insertValue</code>. -The following code creates a figure containing two -pie charts from the above data (for an image, see the -PDF version of the manual, <TT><A NAME="tex2html15" - HREF="csvtools.pdf">csvtools.pdf</A></TT>): -<PRE> - % Change the way the labels are displayed -\renewcommand{\csvpieinnerlabel}{\sffamily\insertValue\%} -\renewcommand{\csvpieoutlabel}{% -\color{\csvpiesegcolname{\value{csvrownumber}}}\sffamily\insertName} - -\begin{figure} -\begin{center} -\begin{tabular}{cc} -\csvpiechart[start=45,cutaway={1,2}]{\insertValue}{fruit.csv} & -\csvpiechart[start=45,cutaway={1-2}]{\insertValue}{fruit.csv} \\ -(a) & (b) -\end{tabular} -\end{center} -\caption{Pie Chart Example (a) cutaway=\{1,2\} (b) cutaway=\{1-2\}} -\end{figure} -</PRE> -The inner and outer labels have been -redefined to use a sans-serif font, and the outer label is in -the same colour as its corresponding segment. -Both pie charts have a starting angle of 45 degrees, and they -have the first two segments cutaway, but in (a) -the first two segments are separated from each other, whereas in -(b), the first two segments are joined, although separated -from the rest of the pie chart. - -<P> -If the CSV file has no header row, the starred version should be -used, e.g.: -<PRE> -\csvpiechart*[cutaway={1-2}]{\field{2}}{fruit.csv} -</PRE> - -<P> - -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> - -<H1><A NAME="SECTION000110000000000000000"> -Sorting Data (csvsort.sty)</A> -</H1> - -<P> -The <TT>csvsort</TT> package (which forms part of the -<TT>csvtools</TT> bundle) provides analogous commands to -those provided by <TT>csvtools</TT>, but the data is first -sorted. The <TT>csvsort</TT> package needs to be loaded -separately in order to access the necessary commands. The package -options should be a list of key=value pairs, where the available -keys are: -<DL> -<DT><STRONG>verbose</STRONG></DT> -<DD>Verbose mode. This is a boolean key. If set, the -comparisons performed by the insertion sort code are printed to -the screen. (Default: <TT>verbose=true</TT>.) - -<P> -</DD> -<DT><STRONG>sort</STRONG></DT> -<DD>This key specifies how to sort the data. It may take -one of the following values: - -<UL> -<LI><TT>alphabetical ascending</TT> (or just <TT>alphabetical</TT>) -</LI> -<LI><TT>alphabetical descending</TT> -</LI> -<LI><TT>numerical ascending</TT> (or just <TT>numerical</TT>) -</LI> -<LI><TT>numerical descending</TT> -</LI> -</UL> -(Default: <TT>sort=alphabetical ascending</TT>) - -<P> -</DD> -<DT><STRONG>variable</STRONG></DT> -<DD>The sort variable. (Default: <code>sort=\field{1}</code>) - -<P> -</DD> -<DT><STRONG>sfirstdataline</STRONG></DT> -<DD>The line on which the data starts in a data -file without a header row. (Default: <TT>sfirstdataline=1</TT>.) - -<P> -</DD> -<DT><STRONG>firstdataline</STRONG></DT> -<DD>The line on which the data starts in a data -file with a header row. (Default: <TT>firstdataline=2</TT>.) -</DD> -</DL> - -<P> -Note that the <TT>csvsort</TT> package requires Éamonn McManus' -<TT>compare.tex</TT> file. The <TT>csvsort</TT> package uses -an insertion sort method to sort the data, so large amounts of data -may slow processing time. The following commands are provided -by <TT>csvsort</TT>: - -<P> - - <TT>\sortapplyCSVfile</TT>optionsfilenametext -<P> -<TT>\sortapplyCSVfile*</TT>optionsfilenametext -<BR> -<BR> -These commands are analogous to <TT>\applyCSVfile</TT> and -<TT>\applyCSVfile*</TT>, except that the data is first sorted. -The optional argument is a key=value list. The keys are the same -as those used in the package options, described above. These options -only apply to the given instance of the command, whereas the -package options apply to all <TT>csvsort</TT> commands, unless -overridden in <I>options</I>. Example, suppose you have a file -called <TT>unsorted.csv</TT> which looks like: -<PRE> -First Name,Surname,Age -Zephram,Lang,60 -Fred,Lang,10 -Barney,Langley,25 -Jane,Brown,5 -Adam,Smith,24 -Bert,Jones,18 -</PRE> -Then -<PRE> -\sortapplyCSVfile[sort=alphabetical,variable=\insertSurname]{unsorted.csv}{% -\insertSurname, \insertbyname{First Name}. Age: \insertAge\par} -</PRE> -will produce the following output: -<P> -Brown, Jane. Age:5 -<P> -Jones, Bart. Age:18 -<P> -Lang, Zephram. Age:60 -<P> -Lang, Fred. Age:10 -<P> -Langley, Barney. Age:25 -<P> -Smith, Adam. Age: 24 -<P> -Note that the data has only been sorted according to the surname. -To sort first by surname, then by first name, you can -do something like: -<PRE> -\sortapplyCSVfile[sort=alphabetical, -variable={\insertSurname,\insertbyname{First Name}}]{unsorted.csv}{% -\insertSurname, \insertbyname{First Name}. Age: \insertAge\par} -</PRE> -As with <TT>\applyCSVfile</TT>, you must use <TT>\field</TT> if -you use the starred version: -<PRE> -\sortapplyCSVfile*[sort=alphabetical, -variable={\field{2},\field{1}}]{unsorted.csv}{% -\field{2}, \field{1}. Age: \field{3}\par} -</PRE> - -<P> -The commands: -<BR> -<BR> -<TT>\sortCSVtotabular</TT>optionsfilenamecol-specfirst rowall but last rowlast row -<BR> -<TT>\sortCSVtolongtable</TT>optionsfilenamecol-specfirst rowall but last rowlast row -<BR> -Are analogous to <TT>\CSVtotabular</TT> and <TT>\CSVtolongtable</TT>, -where, again, <I>options</I> is a list of key=value pairs, the same -as <TT>\sortapplyCSVfile</TT>. Using the same example data as above, -the following command will sort the data according to age (in -numerical order) and place in a tabular environment: -<PRE> -\sortCSVtotabular[sort=numerical,variable=\insertAge]{unsorted.csv}{llr}{% -\bfseries Surname & \bfseries First Name & \bfseries Age\\}{% -\insertSurname & \insertbyname{First Name} & \insertAge\\}{% -\insertSurname & \insertbyname{First Name} & \insertAge} -</PRE> - -<P> -Note that the counter <TT>csvlinenum</TT> has no meaning in the -commands provided by the <TT>csvsort</TT> package. The -<TT>csvrownumber</TT> counter corresponds to the sorted data row. - -<P> - -<H1><A NAME="SECTION000120000000000000000"> -The csvtools.pl Perl Script</A> -</H1> - -<P> -Suppose you have several large CSV files, and you have included -the information into your document using <TT>\applyCSVfile</TT>, -<TT>\CSVtolongtable</TT>, <TT>\CSVtotabular</TT> or -<TT>\csvpiechart</TT>, which has -made life so much easier for you, but you are now required by a -journal to submit your source code in a single <TT>.tex</TT> file. - They don't want all your CSV files, so what do you do? If you -have Perl installed on your system you can use the -<TT>csvtools.pl</TT> Perl script. This has the following syntax: -<BR> -<BR> <TT>csvtools.pl</TT> <I>in-file</I> <I>out-file</I> -<BR> -<BR> -where <I>in-file</I> is the name of your file that contains the -<TT>\applyCSVfile</TT>, <TT>\CSVtotabular</TT> etc - commands, and <I>out-file</I> is a new file which will be created by <TT>csvtools.pl</TT>. This new - file will be the same as <I>in-file</I> except that all -occurances of <TT>\applyCSVfile</TT>, <TT>\CSVtolongtable</TT>, -<TT>\CSVtotabular</TT> and <TT>\csvpiechart</TT> will be replaced -by the relevant data extracted from the named CSV files. - -<P> -<A NAME="ex:perl"></A> -<H2><A NAME="SECTION000121000000000000000"> -Example 16 (csvtools.pl -- Aligning Data)</A> -</H2> - Suppose the file <TT>mydoc.tex</TT> contains the code given in -Example <A HREF="manual.html#ex:tab1">4</A>, with the associated CSV file -<TT>sample.csv</TT> also given in that example. Then if you do: -<PRE> -csvtools.pl mydoc.tex mydocnew.tex -</PRE> -the file <TT>mydocnew.tex</TT> will be created which will be -identical to <TT>mydoc.tex</TT> except the lines - containing the code <code>\CSVtotabular{sample.csv}{lccc}{</code>...<code>}{</code>...<code>}{</code>...<code>}</code> will be replaced -with the lines: -<PRE> - % \CSVtotabular{sample.csv}... converted using csvtools.pl - %>> START INSERT - \begin{tabular}{lccc} - \bfseries Name & - \bfseries Assignment 1 & - \bfseries Assignment 2 & - \bfseries Total\\ - A. Smith&80&70&150\\ - B. Jones&60&80&140\\ - J. Doe&85&75&160\\ - &75&75&150 - \end{tabular}%<< END INSERT -</PRE> -<P> -<DIV ALIGN="CENTER"> -</DIV> - -<P> - -<P> -Similarly, <TT>csvtools.pl</TT> will substitute all occurrances -of <TT>\CSVtolongtable</TT>, <TT>\applyCSVfile</TT> -and <TT>\csvpiechart</TT>. - -<P> - -<H2><A NAME="SECTION000122000000000000000"> -Notes</A> -</H2> - -<OL> -<LI>If perl is located in a directory other than <TT>/usr/bin/</TT> -you will need to edit the first line of <TT>csvtools.pl</TT> as -appropriate. You can find the location using the command: -<PRE> -which perl -</PRE> - -<P> -</LI> -<LI>If you can't directly execute a Perl script, - you can do: -<BR> -<BR> <TT>perl csvtools.pl</TT> <I>in-file</I> <I>out-file</I> - -<P> -</LI> -<LI>You must first LaTeX your document before using -<TT>csvtools.pl</TT> as it checks the log file for any counters -that have been defined. - -<P> -</LI> -<LI><TT>csvtools.pl</TT> only knows about a very limited set -of LaTeX commands. It should be able to understand: -<PRE> -\CSVtotabular{\csvGetEntry{experiment}{File}}{ll}{... -</PRE> -(see Example <A HREF="manual.html#ex:index">14</A>), but it won't be able to understand, -say, -<PRE> -\newcommand{\filename}{\csvGetEntry{experiment}{File}} -\CSVtotabular{\filename}{ll}{... -</PRE> -It can pick up on <TT>\addtocounter</TT>, <TT>\stepcounter</TT>, -<TT>\refstepcounter</TT> and <TT>\setcounter</TT> but only if -they are used explicitly in the named <TT>.tex</TT> file. (It -ignores any files that have been included using -<TT>\input</TT>, <TT>\include</TT> etc.) - -<P> -</LI> -<LI>This Perl script has only been tested under Linux, but it -ought to work under other systems. -</LI> -</OL> - -<P> - -<H1><A NAME="SECTION000130000000000000000"></A><A NAME="sec:drawbacks"></A> -<BR> -Bugs/Drawbacks/``Features'' -</H1> - -<OL> -<LI><A NAME="itm:insert"></A> The package doesn't check to see whether -<TT>\insert</TT><I>identifier</I> exists, otherwise you would not -be able to use multiple CSV files with the same headers, as in -Example <A HREF="manual.html#ex:index">14</A>. Therefore it is recommended that - you check to make sure that the command does not already exist. - For example, the T<SMALL>E</SMALL>X commands <TT>\insert</TT> and -<TT>\insertpenalties</TT> already exist, so a blank header or a -header named <TT>penalties</TT> would cause problems. (These two -will now cause an error as from version 1.1, but it's something -bear in mind.) - -<P> -</LI> -<LI>Note also that <TT>\insertbyname</TT> doesn't check - if you've given a valid label, so if no text appears, - check you've spelt it correctly, checking punctuation, spaces and case. - -<P> -</LI> -<LI><A NAME="itm:psbyname"></A> Note that in Example <A HREF="manual.html#ex:ps">2</A>, replacing line 3 with: -<PRE> -\centerline{\includegraphics{\insertbyname{File}}} -</PRE> - will cause an error, as <code>\insertbyname{File}</code> doesn't get - fully expanded by the time it gets passed to - <TT>\includegraphics</TT>, and will prevent -<TT>\includegraphics</TT> from - finding the file. It is possible to get around this using - T<SMALL>E</SMALL>X's <TT>\edef</TT> command: -<PRE> -\edef\psfilename{\insertbyname{File}} -\centerline{\includegraphics{\psfilename}} -</PRE> - -<P> -</LI> -<LI><A NAME="itm:noalign"></A> You can't have commands like -<TT>\hline</TT>, <TT>\cline</TT> and <TT>\multicolumn</TT> in the -first column of the <I>middle</I> or <I>last</I> code of -<TT>\CSVtotabular</TT> or <TT>\CSVtolongtable</TT>. If you do, -it will generate a <code>misplaced \noalign</code> error, instead you -need to put it at the end of the <I>first</I> or <I>middle</I> -code. (See Example <A HREF="manual.html#ex:tab3">6</A>.) - -<P> -</LI> -<LI>You can't have nested <TT>\applyCSVfile</TT>, -<TT>\CSVtolongtable</TT> and <TT>\CSVtotabular</TT> - commands. Nor can you have <TT>\csvpiechart</TT> within -one of these commands (See Example <A HREF="manual.html#ex:index">14</A>) - -<P> -</LI> -<LI>If the CSV file has a header row, it must be on the first -line. - -<P> -</LI> -<LI>It is possible for T<SMALL>E</SMALL>X to run out of memory if you use - <TT>\csvSaveEntry</TT> on a large file. - -<P> -</LI> -<LI><A NAME="itm:csvrownumber"></A> In version 1.0, there was an -inconsistency with <TT>csvrownumber</TT> within -<TT>\applyCSVfile</TT> and <TT>\CSVtotabular</TT>. In the -former it excluded the header row, whereas the latter -included it. This has been changed in version 1.1 so that within -<TT>\applyCSVfile</TT>, <TT>\CSVtotabular</TT> and -<TT>\CSVtolongtable</TT>, <TT>csvrownumber</TT> refers to the -data row (excluding header row.) I hope this doesn't cause -problems, but it makes more sense that they should be -consistent. So if you have no blank lines in your CSV file, -<TT>csvrownumber</TT> should always be 1 more than -<TT>csvlinenumber</TT>. - -<P> -</LI> -</OL> - -<P> - -<H1><A NAME="SECTION000140000000000000000"> -Contact Details</A> -</H1> - -<P> -Dr Nicola Talbot -<BR> -School of Computing Sciences -<BR> -University of East Anglia -<BR> -Norwich. NR4 7TJ. England. - <BR> -<BR> <TT><A NAME="tex2html17" - HREF="http://theoval.cmp.uea.ac.uk/~nlct/">http://theoval.cmp.uea.ac.uk/~nlct/</A></TT> -<P> - -<P> - -<BR><HR><H4>Footnotes</H4> -<DL> -<DT><A NAME="foot869">...identifier</A><A - HREF="manual.html#tex2html1"><SUP>1</SUP></A></DT> -<DD>See Note <A HREF="manual.html#itm:insert">1</A> in Section <A HREF="manual.html#sec:drawbacks">11</A> - -</DD> -<DT><A NAME="foot150">... file</A><A - HREF="manual.html#tex2html2"><SUP>2</SUP></A></DT> -<DD>Remeber to use a letter type of -class file - -</DD> -<DT><A NAME="foot870">... file</A><A - HREF="manual.html#tex2html3"><SUP>3</SUP></A></DT> -<DD>The - <TT>graphics</TT> or <TT>graphicx</TT> package will be -needed. - -</DD> -<DT><A NAME="foot872">...tab:ex1</A><A - HREF="manual.html#tex2html4"><SUP>4</SUP></A></DT> -<DD>Note that <TT>\CSVtotabular</TT> only - puts the data in a <TT>tabular</TT> environment not in a table - -</DD> -<DT><A NAME="foot877">...\ifnextrowlast</A><A - HREF="manual.html#tex2html8"><SUP>5</SUP></A></DT> -<DD>See - Note <A HREF="manual.html#itm:noalign">4</A> in Section <A HREF="manual.html#sec:drawbacks">11</A> - -</DD> -<DT><A NAME="foot297">... table</A><A - HREF="manual.html#tex2html11"><SUP>6</SUP></A></DT> -<DD>This is designed as an -example of how to use the package, not incouragement to produce -garish tables! - -</DD> -</DL> -<BR><HR> -<ADDRESS> -<A href=http://theoval.cmp.uea.ac.uk/~nlct/>Nicola L. C. Talbot</A>. -<A HREF=http://www.cmp.uea.ac.uk/>School of Computing Sciences</A>. -<A HREF=http://www.uea.ac.uk/>University of East Anglia.</A> -Last Modified: 2007-06-26 -</ADDRESS> -</BODY> -</HTML> |