Data-ShowTable-4.6/000755 000765 000024 00000000000 12261625502 014044 5ustar00aksstaff000000 000000 Data-ShowTable-4.6/bump-version000755 000765 000024 00000013001 12232415625 016414 0ustar00aksstaff000000 000000 #!/usr/bin/env perl # bump-version [options] [VERSION] file ... # # read one or more files and increment the given version $VERSION = '0.1'; =pod =head1 USAGE bump-version [options] [VERSION] file ... =head1 DESCRIPTION The C script increments the version number in the given file. If VERSION is given, it must be in the format of "C". Use the C<--list> option to see which files have a VERSION string. =head1 OPTIONS =over =item C<--list, -l> List the files that reference version numbers. =item C<--man> Show the entire man page. =item C<--major, -M> Bump the major version =item C<--minor, -m> Bump the minor version =item C<--verbose, -v> Be verbose. =item C<--version, -V> Show the current version and exit. =item C<--norun, -n> Show the comands but do not actually make any changes. =back =head1 AUTHOR Alan K. Stebbens =cut use Getopt::Long qw(VersionMessage :config bundling no_ignore_case auto_version ); use Pod::Usage; my $verbose = ''; my $norun = ''; my $help = ''; my $version = ''; my $man = ''; my $bump_major = ''; my $bump_minor = 1; my $major = ''; my $minor = ''; sub chatf($@) { &talkf if $verbose; } sub chat($) { chatf '', shift; } sub talkf($@) { my $fmt = shift; $fmt = "%s\n" unless $fmt ne ''; printf STDERR $fmt, @_; } sub talk($) { talkf '', shift; } sub nvtalkf($@) { &talkf unless $verbose; } # runcmd COMMAND # # In $norun mode, print COMMAND prefixed with "(norun) ", and do nothing # else. # # In $verbose mode, print COMMAND prefixed with "--> " before invoking the # command. # # runcmd COMMANDTEXT { BLOCK ; } # # COMMANDTEXT is displayed for either $norun and $verbose modes, but # BLOCK is executed. # sub runcmd($;&) { my $cmd = shift; my $code = shift; if ($norun) { talkf "(norun) %s\n", $cmd; } else { chatf "--> %s\n", $cmd; if ($code) { unless (&$code) { nvtalkf "--> %s\n", $cmd; die "Command block failed: $!\n"; } } else { STDERR->flush; unless (system($cmd)) { nvtalkf "--> %s\n", $cmd; die "Command failed: $!\n"; } } } } sub update_version($) { my $file = shift; $new_file = "$file.new"; chatf "Scanning %s for \$VERSION..\n", $file; my($in, $out); if (open($in, "<", $file)) { if (!$norun) { chatf "Opening %s for output..\n", $new_file; open($out, ">", $new_file) or die("Cannot open $out for output: $!\n"); } my $done = ''; my $changes = ''; while (<$in>) { talkf "%03d: %s", $., $_ if $verbose > 1; if (/^(\s*)\$VERSION\s*=\s*['"]?(\d+)\.(\d+)['"]?[\s;]/) { my ($prefix, $cur_major, $cur_minor) = ($1, $2, $3); talkf "%20s: ", $file if $many_files && !$verbose; talkf "Found version: %s.%s\n", $cur_major, $cur_minor; ($new_major, $new_minor) = bump_version($cur_major, $cur_minor); if ($new_major ne $cur_major or $new_minor ne $cur_minor) { talkf "%20s: ", $file if $many_files && !$verbose; talkf " New version: %s.%s\n", $new_major, $new_minor; $_ = sprintf("%s\$VERSION = '%s.%s';\n", $prefix, $new_major, $new_minor); $changes = 1; } print $out $_ if $out ne ''; last; } print $out $_ if $out ne ''; } # finish up reading & writing if ($out ne '') { while (<$in>) { print $out $_; } # write the rest of the file close($out) or die "Close $out failed: $!\n"; } close($in); if ($changes && !$norun) { talk "Saving changes.."; runcmd "mv $file $file.old", sub { rename($file, $file.'.old') or die "mv $file $file.old failed: $!"; }; runcmd "mv $new_file $file", sub { rename($new_file, $file) or die "mv $new_file $file: $!"; }; talkf "%s updated.\n", $file; } elsif (!$changes) { talk "No changes."; } } else { warn "Cannot open and read $file: $!"; } } # bump_version($input_major_version, $input_minor_version) # # Increment the version numbers, according to $bump_major or $bump_minor. # # if $major and $minor are already set (by option), they override. sub bump_version($$) { if ($major eq '' || $minor eq '') { ($major, $minor) = (shift, shift); if ($bump_major) { $major += 1; $minor = 0; } elsif ($bump_minor) { $minor += 1; } } return ($major, $minor); } ############## # main program GetOptions('verbose|v+' => \$verbose, 'help|h' => sub { pod2usage(1); }, 'list|l' => \$list, 'man' => sub { pod2usage(-exitval => 0, -verbose => 2); }, 'major|M' => \$bump_major, 'minor|m' => \$bump_minor, 'norun|n' => \$norun, 'version|V' => sub { VersionMessage(); } ) or pod2usage(2); $bump_minor = '' if $bump_major; chomp($out = `echo Makefile.PL README* *.pm`); @files = split(' ', $out); # list? if ($list) { unshift(@ARGV, @files) unless $#ARGV >= 0; my $cmd = "egrep '\\<\\d+\\.\\d+\\>' " . join(' ', @ARGV); talkf "--> %s\n", $cmd; system $cmd; exit; } # process optional version argument if ($#ARGV >= 0) { if ($ARGV[0] =~ /^(\d+)\.(\d+)$/) { ($major, $minor) = ($1, $2); shift(@ARGV); talkf "Using version: %s.%s\n", $major, $minor; } } # if there are no file arguments, and only a version given, show the syntax $#ARGV >=0 or pod2usage(1); # process each file argument $many_files = 1 if $#ARGV > 0; foreach my $file (@ARGV) { update_version($file); } exit; Data-ShowTable-4.6/Changes000644 000765 000024 00000002330 12162075450 015336 0ustar00aksstaff000000 000000 Modified "ShowTable.pm": Added "showmode" argument to ShowTableValue so it could handle HTML embedded text correctly. ShowTableValue now uses a string substitution "%s" for any values with embedded HTML tokens, even if defined as an integer or real. Changed how URLs work: now %K and %V are substituted into the URL corresponding to the given field name key. No other insertions are done, so the URL is completely specified by the user otherwise. Added tableAttrs argument to ShowHTMLTable allowing other stuff to be inserted within the TABLE token (ie: ). Changed the regexp in &PlainText to avoid the multiple null string matches. Changed htmltext to substitute blanks if the optional second argument is non-null (which is used when creating URLs). Allow column indexes, as well as column names, to be mapped to URLs. Added %I (column index) key to the url substitutions. Removed Sys::OutPut usage. Added "put" and "out" subs directly. Fixed small documentation problems. Modified "showtable": Added -urls option to support URL mappings for fields. Added -attributes option to support table_attributes argument. Added Changes file. Added t/html-urls.t test file. Data-ShowTable-4.6/Copyright000644 000765 000024 00000001425 12162075450 015742 0ustar00aksstaff000000 000000 # # Copyright (C) 1996-2013 Alan K. Stebbens # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # Data-ShowTable-4.6/gen-html000755 000765 000024 00000001677 12162075450 015521 0ustar00aksstaff000000 000000 #!/bin/sh # set VIAMAN if you wish to generate man pages via "nroff -man" VIAMAN= P2M=pod2man NROFF='nroff -man' M2H='man2html' P2H=pod2html VER=`grep VERSION Makefile.PL | awk '{print $NF}' | tr -d "',"` if [ -n "$VIAMAN" ]; then echo "Converting ShowTable.pm -> Data-ShowTable-$VER.html" $P2M ShowTable.pm | $NROFF | $M2H -title 'Data::ShowTable(3) Man Page' > Data-ShowTable-$VER.html echo "Converting showtable -> showtable-$VER.html" $P2M showtable | $NROFF | $M2H -title 'showtable(1) Man Page' > showtable-$VER.html else echo "Converting ShowTable.pm -> Data-ShowTable-$VER.html" cp ShowTable.pm Data-ShowTable-$VER.pm $P2H --infile=Data-ShowTable-$VER.pm --outfile=Data-ShowTable-$VER.html rm Data-ShowTable-$VER.pm echo "Converting showtable -> showtable-$VER.html" cp showtable showtable-$VER $P2H --infile=showtable-$VER --outfile=showtable-$VER.html rm showtable-$VER fi Data-ShowTable-4.6/gen-tests000755 000765 000024 00000000536 12162075450 015710 0ustar00aksstaff000000 000000 #!/bin/sh testdir=t template=OBJ-TEST.pl kinds=`cd $testdir >&/dev/null ; ls -1 [a-z]*.pl | sed -e 's/\.pl//g'` echo "These are the kinds: $kinds" for obj in box simple list html ; do for kind in $kinds ; do testfile=t/$obj-$kind.t if [[ -f $testfile ]]; then rm -f $testfile fi ( set -x ; ln -s $template $testfile ) done done Data-ShowTable-4.6/GNU-LICENSE000644 000765 000024 00000043070 12162075450 015505 0ustar00aksstaff000000 000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 675 Mass Ave, Cambridge, MA 02139, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. Data-ShowTable-4.6/Makefile.PL000644 000765 000024 00000002266 12231661740 016025 0ustar00aksstaff000000 000000 # Makefile for ShowTable.pm # # Copyright (C) 1996-2013 Alan K. Stebbens # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # require 5.002; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Data::ShowTable', VERSION_FROM => 'ShowTable.pm', ABSTRACT => 'Perl module to automatically format columnar data.', AUTHOR => 'Alan Stebbens ', EXE_FILES => [ 'showtable' ], LICENSE => 'gpl', dist => { COMPRESS => 'gzip', SUFFIX => '.gz', }, ); Data-ShowTable-4.6/MANIFEST000644 000765 000024 00000011730 12261625502 015177 0ustar00aksstaff000000 000000 bump-version Changes Copyright gen-html gen-tests GNU-LICENSE Makefile.PL MANIFEST pm_to_blib README showtable ShowTable.pm t/box-calls.t t/box-scaling.t t/box-showtable.t t/box-widths.t t/box-wrap.t t/calls.pl t/html-calls.t t/html-fmt.t t/html-scaling.t t/html-showtable.t t/html-widths.t t/html-wrap.t t/list-calls.t t/list-scaling.t t/list-showtable.t t/list-widths.t t/list-wrap.t t/OBJ-TEST.pl t/out/box-calls.t-1.ref t/out/box-calls.t-2.ref t/out/box-calls.t-3.ref t/out/box-calls.t-4.ref t/out/box-calls.t-5.ref t/out/box-calls.t-6.ref t/out/box-calls.t-7.ref t/out/box-calls.t-8.ref t/out/box-scaling.t-1.ref t/out/box-scaling.t-2.ref t/out/box-scaling.t-3.ref t/out/box-scaling.t-4.ref t/out/box-scaling.t-5.ref t/out/box-scaling.t-6.ref t/out/box-scaling.t-7.ref t/out/box-scaling.t-8.ref t/out/box-showtable.t-1.ref t/out/box-showtable.t-2.ref t/out/box-showtable.t-3.ref t/out/box-showtable.t-4.ref t/out/box-showtable.t-5.ref t/out/box-showtable.t-6.ref t/out/box-showtable.t-7.ref t/out/box-showtable.t-8.ref t/out/box-widths.t-1.ref t/out/box-widths.t-2.ref t/out/box-widths.t-3.ref t/out/box-widths.t-4.ref t/out/box-widths.t-5.ref t/out/box-widths.t-6.ref t/out/box-widths.t-7.ref t/out/box-widths.t-8.ref t/out/box-wrap.t-1.ref t/out/box-wrap.t-2.ref t/out/box-wrap.t-3.ref t/out/box-wrap.t-4.ref t/out/box-wrap.t-5.ref t/out/html-calls.t-1.ref t/out/html-calls.t-2.ref t/out/html-calls.t-3.ref t/out/html-calls.t-4.ref t/out/html-calls.t-5.ref t/out/html-calls.t-6.ref t/out/html-calls.t-7.ref t/out/html-calls.t-8.ref t/out/html-fmt.t-1.ref t/out/html-fmt.t-10.ref t/out/html-fmt.t-11.ref t/out/html-fmt.t-12.ref t/out/html-fmt.t-2.ref t/out/html-fmt.t-3.ref t/out/html-fmt.t-4.ref t/out/html-fmt.t-5.ref t/out/html-fmt.t-6.ref t/out/html-fmt.t-7.ref t/out/html-fmt.t-8.ref t/out/html-fmt.t-9.ref t/out/html-scaling.t-1.ref t/out/html-scaling.t-2.ref t/out/html-scaling.t-3.ref t/out/html-scaling.t-4.ref t/out/html-scaling.t-5.ref t/out/html-scaling.t-6.ref t/out/html-scaling.t-7.ref t/out/html-scaling.t-8.ref t/out/html-showtable.t-1.ref t/out/html-showtable.t-2.ref t/out/html-showtable.t-3.ref t/out/html-showtable.t-4.ref t/out/html-showtable.t-5.ref t/out/html-showtable.t-6.ref t/out/html-showtable.t-7.ref t/out/html-showtable.t-8.ref t/out/html-widths.t-1.ref t/out/html-widths.t-2.ref t/out/html-widths.t-3.ref t/out/html-widths.t-4.ref t/out/html-widths.t-5.ref t/out/html-widths.t-6.ref t/out/html-widths.t-7.ref t/out/html-widths.t-8.ref t/out/html-wrap.t-1.ref t/out/html-wrap.t-2.ref t/out/html-wrap.t-3.ref t/out/html-wrap.t-4.ref t/out/html-wrap.t-5.ref t/out/list-calls.t-1.ref t/out/list-calls.t-2.ref t/out/list-calls.t-3.ref t/out/list-calls.t-4.ref t/out/list-calls.t-5.ref t/out/list-calls.t-6.ref t/out/list-calls.t-7.ref t/out/list-calls.t-8.ref t/out/list-scaling.t-1.ref t/out/list-scaling.t-2.ref t/out/list-scaling.t-3.ref t/out/list-scaling.t-4.ref t/out/list-scaling.t-5.ref t/out/list-scaling.t-6.ref t/out/list-scaling.t-7.ref t/out/list-scaling.t-8.ref t/out/list-showtable.t-1.ref t/out/list-showtable.t-2.ref t/out/list-showtable.t-3.ref t/out/list-showtable.t-4.ref t/out/list-showtable.t-5.ref t/out/list-showtable.t-6.ref t/out/list-showtable.t-7.ref t/out/list-showtable.t-8.ref t/out/list-widths.t-1.ref t/out/list-widths.t-2.ref t/out/list-widths.t-3.ref t/out/list-widths.t-4.ref t/out/list-widths.t-5.ref t/out/list-widths.t-6.ref t/out/list-widths.t-7.ref t/out/list-widths.t-8.ref t/out/list-wrap.t-1.ref t/out/list-wrap.t-2.ref t/out/list-wrap.t-3.ref t/out/list-wrap.t-4.ref t/out/list-wrap.t-5.ref t/out/simple-calls.t-1.ref t/out/simple-calls.t-2.ref t/out/simple-calls.t-3.ref t/out/simple-calls.t-4.ref t/out/simple-calls.t-5.ref t/out/simple-calls.t-6.ref t/out/simple-calls.t-7.ref t/out/simple-calls.t-8.ref t/out/simple-scaling.t-1.ref t/out/simple-scaling.t-2.ref t/out/simple-scaling.t-3.ref t/out/simple-scaling.t-4.ref t/out/simple-scaling.t-5.ref t/out/simple-scaling.t-6.ref t/out/simple-scaling.t-7.ref t/out/simple-scaling.t-8.ref t/out/simple-showtable.t-1.ref t/out/simple-showtable.t-2.ref t/out/simple-showtable.t-3.ref t/out/simple-showtable.t-4.ref t/out/simple-showtable.t-5.ref t/out/simple-showtable.t-6.ref t/out/simple-showtable.t-7.ref t/out/simple-showtable.t-8.ref t/out/simple-widths.t-1.ref t/out/simple-widths.t-2.ref t/out/simple-widths.t-3.ref t/out/simple-widths.t-4.ref t/out/simple-widths.t-5.ref t/out/simple-widths.t-6.ref t/out/simple-widths.t-7.ref t/out/simple-widths.t-8.ref t/out/simple-wrap.t-1.ref t/out/simple-wrap.t-2.ref t/out/simple-wrap.t-3.ref t/out/simple-wrap.t-4.ref t/out/simple-wrap.t-5.ref t/out/test-showtable.t-1.ref t/scaling.pl t/showtable.pl t/simple-calls.t t/simple-scaling.t t/simple-showtable.t t/simple-widths.t t/simple-wrap.t t/Test-Setup.pl t/test-showtable.t t/testdates.txt t/testfile t/widths.pl t/wrap.pl test.pl.off testfile testfile.lst testfile.pm testfile.tabs META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) Data-ShowTable-4.6/META.json000644 000765 000024 00000001537 12261625502 015473 0ustar00aksstaff000000 000000 { "abstract" : "Perl module to automatically format columnar data.", "author" : [ "Alan Stebbens " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560", "license" : [ "open_source" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "Data-ShowTable", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : {} } }, "release_status" : "stable", "version" : "4.6" } Data-ShowTable-4.6/META.yml000644 000765 000024 00000000771 12261625502 015322 0ustar00aksstaff000000 000000 --- abstract: 'Perl module to automatically format columnar data.' author: - 'Alan Stebbens ' build_requires: ExtUtils::MakeMaker: 0 configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 2.131560' license: open_source meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: Data-ShowTable no_index: directory: - t - inc requires: {} version: 4.6 Data-ShowTable-4.6/README000644 000765 000024 00000003615 12231554023 014725 0ustar00aksstaff000000 000000 ShowTable.pm, version 4.4, is a Perl 5 module which defines subroutines to print arrays of data in a nicely formatted listing, using one of four possible formats: simple table, boxed table, list style, and HTML-formatting (for World-Wide-Web output). See the documentation on ShowTable.pm for details on the formatting. The program "showtable" reads data in a variety of formats from a file or STDIN, optimally columnizes the data, and then feeds the array of data to the ShowTable module for display. Showtable can parse its own output as input (except for HTML). Individual or ranges of columns may be selected for display, either by name or by index. In other words, showtable is a data formatting program. Using the '-html' option, showtable can accept ASCII tablular data and format it appropriately for display through a Web-browser. Both the the ShowTable.pm module and the showtable program have embedded POD text with which man or HTML pages can be created. For detailed usage information, you can do: pod2man ShowTable.pm | nroff -man pod2man showtable | nroff -man The program and module are accompanied with a perl Makefile.PL, this README, test programs (do "make test") and reference test output files, and the GNU License, under which this software is freely available. The archive is available in the Comprehensive Perl Archive Network (CPAN). INSTALLATION: 1. Unpack the archive sh Data-ShowTable-4.4.shar or: gnutar xvfz Data-ShowTable-4.4.tar.gz 2. Generate the "Makefile": perl Makefile.PL Be sure that you are using perl 5.002 or later. 3. Make the installable files: make 4. Test the new files: make test 5. Install the modules and "showtable" program into the configured Perl library and binary directories. make install Contributions or improvements are welcome. _________________________________ Alan Stebbens Data-ShowTable-4.6/showtable000644 000765 000024 00000073243 12232415663 015773 0ustar00aksstaff000000 000000 #!/usr/bin/env perl # showtable - read data and show it # # Copyright (C) 1996-2013 Alan K. Stebbens # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # # showtable [options] [file] # # This script acts as a filter, reading data in columns and displaying # the data in a nicely formatted output. The output can be either # a list style, simple table, boxed table, or HTML-formatted table. # # The input styles accepted are: tab-delimited, comma-delimited, # list-style, simple-style tables, and boxed tables. # # The default is tab-delimited data # # Use -d to set the field separation character. Eg: -d, # # Other options: -table, -html, -box, -list # # If no file is given, STDIN is used by default. # # $Id$ # $Source$ # # Author: Alan K. Stebbens # ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; chop($DIR = `pwd`) unless defined($DIR); $DIR =~ s=/$==; $VERSION = '4.5'; unshift(@INC,'.'); unshift(@INC,'blib/lib') if -d 'blib/lib'; # for testing use Data::ShowTable; sub ShowData; sub ReadTableInput; sub ReadListInput; sub NextRow; sub max; sub err { my $fmt = shift; $fmt .= "\n" unless $fmt =~ /\n$/; printf STDERR $fmt,@_; } sub usage { err @_ if $#_ >= 0; err < token. -t(itle)f(ormats)=fmt1;fmt2;...;fmtN Define the HTML formats for the titles. Implies -html. -d(ata)f(ormats)=fmt1;fmt2;...;fmtN Define the HTML formats for the data values in each column. Implies -html. -url(s)=col1=url1,col2=url2,... Define the URL mappings for given column names. Multiple -url options may be given. EOF exit; } $break_str = "\t"; # tab for default break str $Titles = 0; # assume no input titles $#Titles = -1; # assume no output titles @Fields = (); # no explicit field selections %URLs = (); # no URLs initially $InputType = ''; $Strip_Spaces = ''; $NoStrip_Spaces = ''; $Show_Mode = 'Box'; # by default $Width = 0; # no width limit by default $nofile = 1; while ($_ = shift(@ARGV)) { if (/^-d(\W+)?$/) { # -dSTR $break_str = $1 || shift || usage "$PROG: Missing argument to -d\n"; next; } if (/^-f(\d.*)/) { # -fN1,N2,... $value = $1; # convert possible range spec $value =~ s/\b(\d+)-(\d+)\b/join(',',$1..$2)/e; @Fields = split(/[:, ]/,$value); next; } usage if !index('-help',$_); if (!index('-strip',$_)) { # -strip $Strip_Spaces = 1; $NoStrip_Spaces = ''; } elsif (!index('-nostrip',$_)) { # -nostrip $NoStrip_Spaces = 1; $Strip_Spaces = ''; } elsif (!index('-table',$_) || !index('-simple',$_)) { # -table, -simple $Show_Mode = 'Table'; } elsif (!index('-list', $_)) { # -list $Show_Mode = 'List'; } elsif (!index('-box',$_)) { # -box $Show_Mode = 'Box'; $Strip_Spaces = 1 unless $NoStrip_Spaces; } elsif (!index('-html',$_)) { # -html $Show_Mode = 'HTML'; } elsif (!index('-noescape',$_)) { # -noescape $No_Escape = 1; $Show_Mode = 'HTML'; } elsif (!index('-noheaders',$_)) { # -noheaders $No_Header = 1; } elsif (!index('-nodashes',$_)) { # -nodashes $No_Dashes = 1; } elsif (/^(-\w+)(?:[:=](.*))?/) { # -OPTION=VALUE ($_, $value) = ($1, $2); if (!index('-titles',$_)) { # -titles=NN, -titles=NAME,.. if ($value =~ /^\d/ || $value eq '') { # -titles=NN? $Titles = $value ne '' ? $value : 1; } else { # -titles=name,name2,...,nameN @Titles = split(/[:, ]/,$value); $Titles = 0; # no titles in the datastream } } elsif (!index('-input',$_)) { # -input=TYPE? $value = lc($value); if (!index('box',$value)) { # -input=box? $InputType = 'box'; $Titles = 1 unless $Titles >= 1; } elsif (!index('list',$value)) {# -input=list? $InputType = 'list'; } elsif (!index('table', $value)) { # -input=table? $InputType = 'table'; $Titles = 1 unless $Titles >= 1; } elsif (!index('simple', $value)) {# -input=simple? $InputType = 'simple'; } else { usage "$PROG: bad -input TYPE"; } } elsif (!index('-fields',$_)) { # -fields=Name1, Name2, ... # convert range spec $value =~ s/\b(\d+)-(\d+)\b/join(' ',$1..$2)/e; @Fields = split(/[:, ]+/,$value); } elsif (!index('-break',$_)) { # -break=STR $break_str = $value ne '' ? $value : "\t"; if ($break_str =~ /\\/) { # any escape sequences? $break_str =~ s/"/\\"/g; # yes, escape any quotes $break_str = eval('"'.$break_str.'"'); # evaluate a string } } elsif (!index('-width',$_)) { # -width=NUM $value =~ /^\d+$/ or usage "$PROG: width must be a number."; $Width = 0 + $value; } elsif (!index('-cwidths',$_)) { # -cwidths=N1,N2,...,NM @Cwidths = split(/[,: ]/,$value); if (grep(!/^(\.?\d+|\d+%)?$/,@Cwidths)) { usage "$PROG: bad format for -cwidths."; } } elsif (!index('-titleformats',$_) || !index('-tformats',$_)) { my @tformats = split(/[;|]/,$value); # get the title formats foreach (@tformats) { next if /^ 0; @Types = (); @Widths = (); my ($titles, $data, $maxcols); if ($InputType eq 'list') { ($titles, $data, $maxcols) = ReadListInput; } else { ($titles, $data, $maxcols) = ReadTableInput; } my @titles = @$titles; @Data = @$data; # Make the fields selection if (@Fields) { # build a field index list my ($f,$fx); my %fields = (); my @fields = (); # an index list @fields{@titles} = (0..$#titles); # generate indexes foreach $f (@Fields) { if ($f =~ /^\d+$/) { # a numeric index? $f--; # convert to origin zero push(@fields,$f) if $f <= $maxcols && $f >= 0; next; } # Lookup a field name and use its index if (($fx = $fields{$f}) ne '') { push(@fields,$fx); } } # now, given the field index array, splice each row array according # to the field indexes my $r; for ($r = 0; $r <= $#Data; $r++) { # foreach row of data.. $row = $Data[$r]; # get the row @$row = @$row[@fields]; # slice out the desired fields } $maxcols = $#fields; # set the other vars @titles = @titles[@fields]; # slice out the titles } # Now, map external titles onto the titles array, allowing # user-given titles to override the built-in titles (if any). if ($No_Header) { # if no headers, no titles @titles = (); } elsif ($#Titles >= 0) { # map @Titles onto @titles my ($c,$t); for ($c = 0; $c <= $maxcols; $c++) { if (($t = $Titles[$c]) ne '') { # user-given title $titles[$c] = $t; # overrides built-in title } elsif ($titles[$c] eq '') { # otherwise, use default title $titles[$c] = sprintf("Field_%d", $c + 1); } } } # Scan the column widths, where none are given, and if a total width # was given, calculate a fraction. my $cols_left = length($Width) ? $Width : # maximum columns left $Show_Mode ne 'HTML' ? $ENV{'COLUMNS'} : 0; if ($cols_left > 0) { # cols == 0 means no limit # We must reduce the available columns by the formatting requirements # of the display format $cols_left -= $maxcols * 3 + 2 if $Show_Mode eq 'Box'; $cols_left -= $maxcols * 2 - 1 if $Show_Mode eq 'Table'; my ($c, $w, $cols); for ($c = 0; $c <= $maxcols; $c++) { # for each column.. $w = $c <= $#Cwidths ? $Cwidths[$c] : $Cwidths[$#Cwidths]; if ($w ne '') { # is there a value? # If the width is a fraction or percentage... if ($w =~ /[.%]/ || ($w > 0 && $w < 1.0)) { $w = $1 / 100.0 if $w =~ /^(\d+)%/; # convert NN% to fraction $w = int($cols_left * $w); # convert fraction to width } $w = 1 unless $w > 0; # guarantee 1 col min $cols_left -= $w; # keep an accounting $cols_left = 0 if $cols_left < 0;# keep sane $Widths[$c] = $w; # set the column width } } } my ($c, $r, $val, $row, $type, $newtype); # some vars # Now let's analyze the data for ($c = 0; $c <= $maxcols; $c++) { # Scan each column $type = ''; # assume no default for ($r = 0; $r <= $#Data; $r++) { # scan each row $row = $Data[$r]; # get the row data if (defined($row->[$c])) { $val = $row->[$c]; # get the column data } else { $row->[$c] = ''; } $newtype = guess_type $val; $type = new_type $type, $newtype; } $Types[$c] = $type; } local $theRow; my $theRowSub = sub { &ShowRow( $_[0], \$theRow, \@Data ); }; ShowTable { show_mode => $Show_Mode, max_width => $Width > 0 ? $Width : '', titles => \@titles, types => \@Types, widths => \@Widths, row_sub => $theRowSub, no_escape => $No_Escape, table_attrs => $table_attributes, tformats => \@Tformats, dformats => \@Dformats, url_keys => \%URLs, }; } # ($titles, $data, $maxcols) = ReadTableInput # # $titles is a ref to an array of titles # $data is a ref to an array of rows (arrays of values) # $maxcols is the maximum columns index in any of the rows. # The global $Titles determines how many titles rows there are. # Unless $NoDashes is set, this can be determined imperically # if there are titles and a separator row, or explicitly with # -titles=NN. sub ReadTableInput { my @data; my @titles; my $data; if ($Titles > 0) { @titles = @{&NextRow}; # if there are multiple lines of titles, combine them my ($limit, $r, $c); for ($r = 1; $r < $Titles; $r++) { $data = NextRow; # get the next row of data $limit = max $#titles, $#$data; for ($c = 0; $c <= $limit; $c++) { $titles[$c] .= ' '.$data->[$c]; # combine titles } } foreach (@titles) { # clean up the names s/^\s+//; # trim leading & s/\s+$//; # trailing blanks s/\s+/ /g; # & squeeze middle blanks } } else { $#titles = -1; # no titles at all } my $maxcols = 0; while ($data = NextRow) { push(@data, $data); # collect the data $maxcols = $#$data if $#$data > $maxcols; } (\@titles, \@data, $maxcols); } # Read in next row of data into $_; return \@data. # # If $InputType is 'box', input with "| foo | bar | ... |" is # boxed input, and the bars are removed. Also, if "|<" or ">|" # occur, then the next row of data is appended to the current # row. # # Unboxed input is split by tabs (or the $break_str) sub NextRow { my @row; my ($continue, $append); while (1) { $_ = ; last unless $_; chomp; unless ($InputType) { $InputType = 'box' if /^\s*([\+:|*])[-+=:*|_]*$1\s*$/; } next if !$No_Dashes && /^[-_=+ \t]*$/; my @data; # If boxed input, remove boxing characters and split with the # box bar character if (/^\s*([|:]).*$1\s*$/ && $InputType eq 'box') { # The data is boxed--remove boxing data my $bar = $1; my $continue = />\Q$bar\E/; # is there a continuation? my $append |= /\Q$bar\E?\Q$bar\E\s*$//; # remove trailing bar (if any) if ($NoStrip_Spaces) { # nostrip? @data = split(/>?\Q$bar\E?\Q$bar\E$//,@data); # see if any continuations } } if ($append) { my $maxcol = max($#data, $#row); for ($i = 0; $i < $maxcol; $i++) { $row[$i] .= $data[$i]; } $append = ''; # append done (for now) } else { @row = @data; # initialize the row data } # quit the loop unless we have a continuation of data last unless $continue; $append = $continue; $continue = ''; } $#row >= 0 ? \@row : undef; } # ( $titles, $data, $maxcol) = ReadListInput; # # $titles is a ref to an array of titles. # $data is a ref to an array of rows (arrays of columns) of data. # $maxcol is the maximum number of columns in any one row of the data. # The order of the columns in the resulting array of rows is defined # by the names in the @Titles array, or the order of occurance of the # columns in the lists of column names. sub ReadListInput { my @data; my @titles; my ($key, $lastkey, $val); local $_ = 'go'; my $maxcol = 0; my $titlesref; while (length) { my %row; # Read another "row" of list data while (1) { defined($_ = ) or last; last if /^\s*$/; # stop on the row boundary chomp; ($key, $val) = /^\s*([\w_.:\/-]+)?\s*:[ \t]?(.*)/; if ($key ne '') { $row{$lastkey = $key} = $val; push(@titles,$key) unless grep(/^\Q$key\E/,@titles); } else { $val = ' '.$val unless $val =~ /^ / || $row{$lastkey} =~ / $/; $row{$lastkey} .= $val; } } my @row; $titlesref = $#Titles >= 0 ? \@Titles : \@titles; foreach $column (@$titlesref) { if (exists $row{$column}) { push(@row,$row{$column}); } else { push(@row,undef); # same as SQL NULL } } push(@data,\@row); # save the row $maxcol = $#row if $#row > $maxcol; } $maxcol = $#titles if $#titles > $maxcol; $titlesref = $#Titles >= 0 ? \@Titles : \@titles; ($titlesref, \@data, $maxcol); } # $max = max @values; # Return the maximum of a list of values sub max { my $max = shift; foreach (@_) { $max = $_ if $_ > $max; } $max; } __END__ =head1 NAME B - Show data in nicely formatted columns =head1 USAGE B [-I] [I] =head1 DESCRIPTION B reads an input data stream and displays it in a nicely formatted listing, with exact formatting depending upon the options. The input stream, I or C by default should consist of data separated by tabs or the defined I character (see B<-d>). The actual output formatting is peformed by the B module. =head1 OPTIONS There are two general sets of options: those which help determine the format of the input, and those which determine the format of the output. =head2 B =over 10 =item B<-break=>I Set the inter-column break string to "I". The default is a tab ("C<\t>"). If B<-strip> is also given, blanks surrounding the break string will also be ignored. =item B<-d>I This is the same as C<-break=>I. =item B<-nod(ashes)> Do not ignore lines of separators, such as dashes, equal signs, or underlines. If B<-nodashes> is given, and these lines do occur in the stream, they will be treated as normal data. =item B<-ti(tles)[=>IB<]> Treat the first I rows of data as column titles; multiple words in the column titles may wrap vertically. If I is omitted, it defaults to 1. No B<-titles> option is the same as B<-titles=0>. =item B<-in(put)=>I Set the input type as I, which can be one of: I, I, I
, or I. A I-type table is the same as a I
-type, but no wrapping characters are recognized. =item B<-s(trip)> Strip blanks from around the column values. =item B<-nos(trip)> Do not strip blanks from the input. Useful if there is formatted or aligned data within a boxed table. =back =head2 B =over 10 =item B<-t(able)> Use a I
format for output, with wrapping of column values longer than the given or determined column widths. See L for more details. =item B<-si(mple)> Use a simple table format, without any wrapping of column values. See L for more details. =item B<-l(ist)> Use a list style format. See L for more details. =item B<-b(ox)> Use a "boxed" style table. See L for more details. =item B<-ht(ml)> Use HTML-formating. See L for more details. =item B<-ti(tles)=>IB<,>IB<,...,>I Define the column names explicitly. This is useful for naming columns of data from C, when B is being used as a filter. The first column name, I, cannot begin with a digit. This option allows any column titles obtained from the input to be overridden. =item B<-noh(eaders)> Do not output any headers on the tables; B<-titles=0> implies this option. =item B<-f>I[,I, ..., I] Select fields numbered I, I, etc., to display. Each I is a field index, or a range of indexes in the form: C-C The default is to show all the fields in each row. Fields are numbered from 1. An example: to show the first, and three through five fields of the C file: showtable -d: -f1,2-5 /etc/passwd =item B<-fields>=I[,I, ..., I] Select the named fields to display. The field names must be available, either through the data stream, or by using the B<-titles> option. The field names given must match the existing field names I. Using the file C for another example: to show the same first two fields, by name: showtable -d: -titles=Login,UID -fields=Login,UID /etc/passwd =item B<-w(idth)>=I Set the maximum table width. This value is applied to the variable L. When the total width of all columns to be displayed exceeds this value, all column widths are scaled uniformly. If B<-width> is not given, then for all output but B<-html>, the default value is either "C", if defined, or 80, if not. Whith B<-html> mode, there is no default value for B<-width>; in other words, there is no limit to the width. =item B<-cw(idths)>=I[,I,...,I] Set individual column widths to the specified values. Empty column widths imply no maximum width. If the B<-width> option is also given, then the B<-cwidth> column widths can also be given as fractions or percentages. Example: To set the maximum width of the third column to 20 characters: -cw=,,20 =back =head2 B (the usage of which implies B<-html>) =over 10 =item B<-noe(scape)> Do not perform HTML escape sequences on the data; this allows embedded HTML text in the data to be displayed properly with the B<-html> option. =item B<-attributes>='I I ...' Declare the table attributes, which are inserted into the C
token. For example, the option: -attributes='BORDER=0 CELLSPACING=2 CELLPADDING=4' would cause the following HTML:
The default table attributes are:
=item B<-t(itle)_f(ormats)>=I;I;...;I Set the HTML formats for the column titles. The B<-title_formats> (or just B<-tf>) can be given multiple times, for each column, or formats for multiple columns can be given on the same option separated by semi-colons "C<;>". Each I can itself be multiple HTML items, separated by commas. Each HTML element can be given either as an HTML token (eg: "C<\>"), or as a plain name (eg: "C"). For example, here is a title format specification for three columns, where the first column title should be bold italic, the second italic, and the third italic in a smaller font: -tf='BOLD,I;I;,I' =item B<-d(ata)_f(formats)>=I;I;...;I The same as B<-title_formats> but applies to the column data. =item B<-url(s)=I=I,I=I,...> Define a mapping from column names, or indexes, to URLs to be inserted as around the values for the named columns. Each I is a column name or index, and each I is a string representing the URL to be inserted for the given column. The URL text may contain these substitution strings: B<%K> - will be substituted with the current column name (or I). B<%V> - will be substituted with the current column value. Multiple B<-url> options may be given, if desired, rather than creating one long argument for a single B<-url>. For example: showtable -d: -f1,6 -titles=Login,Homedir \ -url='Login=mailto:%V' \ -url='HomeDir=file:%V' \ /etc/passwd =back =head2 B =over 10 =item B<-help> Display some help to the user and quit. =back =head2 B If the input type is I, then vertical and horizontal box characters are removed from the input stream, and blanks surrounding the vertical box characters are removed. The vertical box characters (column separaters) are "C<|>" or "C<:>". The The horizontal box characters are "C<+>" and "C<->". Morever, data wrapped within a column is recognized and parsed as one column value, by recognizing the presence of a I or I character. Currently, the wrapping prefix character is "<", and the wrapping suffix character is ">". An example of data wrapped within a column is given here. The table below has just two I rows of data; with both rows having data wrapped into multiple I rows. +---------+---------+---------+ | Col 1 | Col 2 | Col 3 | +---------+---------+---------+ | This is>| Another>| Row 1,3>| |< a cont>|< value. || || || Item2-2 | Item2-3 | +---------+---------+---------+ =head2 B When using the B<-list> or B<-input=list> options, either, or both, the input and output may be in a "list" format, which is implemented using the following syntax: r1c1_name: r1c1_value r1c2_name: r1c2_value ... r1cN_name: r1cN_value r2c1_name: r2c1_value r2c2_name: r2c2_value : r2c2_value_continued ... r2cN_name: r2cN_value rMc1_name: rMc1_value rMc2_name: rMc2_value ... rMcN_name: rMcN_value Each I of data consists of one or more I, and ends with a blank line. Each I consists of a I, followed by a colon ":", followed by an optional, single space or tab, followed by the I, on the same line. Continuation lines of the previous column value consist of one or more space or tab characters, a colon ":", one optional, single space or tab, followed by the continuation value. In the example above, The second column value of the second row was continued. =head2 B When using B<-html> on data already containing HTML-formatted text, the B<-noescape> option should be used. By default, all input text is assumed I to be HTML-formatted, and is escaped allowing embedded "<", ">" characters, if any, to be displayed correctly. =head1 DEPENDENCIES =over 10 =item B module Performs the actual output formatting. =back =head1 AUTHOR Alan K. Stebbens I =head1 BUGS =over 5 =item * Currently, the box formatting characters are not configurable: '+' for the corners; '-' and '|' for the tops and sides, respectively. In an ideal world, these things would be configurable. =item * The continuation prefix and suffix characters, '<' and '>', respectively, are also not configurable: =item * When reading I
input, any data ending with ">" will be considered to be continued by the next row of data. To avoid this, use B<-input=simple>. =item * When selecting noncontiguous fields (ie: B<-f1,4>>) without field names, the default field names will be consecutively numbered from 1, which is counter-intuitive to the original selection. To avoid this, name the fields using the B<-title=...> option. =back =cut Data-ShowTable-4.6/ShowTable.pm000644 000765 000024 00000201670 12261624214 016277 0ustar00aksstaff000000 000000 # perl -w # ShowTable.pm # # Copyright (C) 1996-2013 Alan K. Stebbens # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # package Data::ShowTable; $VERSION = '4.6'; =head1 NAME B - routines to display tabular data in several formats. =head1 USAGE C B { I => I, ... }; B I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub> ]; B I<\@dbnames>; B { I => I, ... }; B I<\@tblnames>; B { I => I, ... }; B I<\@columns>, I<\@col_types>, I<\@col_lengths>, I<\@col_attrs>; B { I => I, ... }; B I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub> ]; B { I => I, ... }; B I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub>]; B { I => I, ... }; B I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub>]; B { I => I, ... }; B I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub>]; B { I => I, ... }; C; B<$Show_Mode> = 'I'; B<$Max_Table_Width> = I; B<$Max_List_Width> = I; B<$No_Escape> = I; B<%URL_Keys> = { "I<$colname>" => "I<$col_URL>", ... }; B<@Title_Formats> = ( I, , ... ); B<@Data_Formats> = ( I, , ... ); B I<$rewindflag>, I<\$index>, I<$col_array_1> [, I<$col_array_2>, ...;] I<$fmt> = B I<$value>, I<$type>, I<$max_width>, I<$width>, I<$precision>, I<$showmode>; [I<$plaintext> = ] B [I<$htmltext>]; =head1 DESCRIPTION The B<ShowTable> module provides subroutines to display tabular data, typially from a database, in nicely formatted columns, in several formats. Its arguments can either be given in a fixed order, or, as a single, anonymous hash-array. The output format for any one invocation can be one of four possible styles: =over 10 =item Box A tabular format, with the column titles and the entire table surrounded by a "box" of "C<+>", "C<->", and "C<|>" characters. See L<"ShowBoxTable"> for details. =item Table A simple tabular format, with columns automatically aligned, with column titles. See L<"ShowSimpleTable">. =item List A I<list> style, where columns of data are listed as a I<name>:I<value> pair, one pair per line, with rows being one or more column values, separated by an empty line. See L<"ShowListTable">. =item HTML The data is output as an HTML I<TABLE>, suitable for display through a I<Web>-client. See L<"ShowHTMLTable">. Input can either be plain ASCII text, or text with embedded HTML elements, depending upon an argument or global parameter. =back The subroutines which perform these displays are listed below. =head1 EXPORTED NAMES This module exports the following subroutines: ShowDatabases - show list of databases ShowTables - show list of tables ShowColumns - show table of column info ShowTable - show a table of data ShowRow - show a row from one or more columns ShowTableValue - show a single column's value ShowBoxTable - show a table of data in a box ShowListTable - show a table of data in a list ShowSimpleTable - show a table of data in a simple table ShowHTMLTable - show a table of data using HTML PlainText - convert HTML text into plain text All of these subroutines, and others, are described in detail in the following sections. =cut use Exporter; @ISA = qw( Exporter ); @EXPORT = qw( ShowDatabases ShowTables ShowColumns ShowTable ShowRow ShowBoxTable ShowHTMLTable ShowListTable ShowSimpleTable ShowTableValue Show_Mode PlainText URL_Keys ); @EXPORT_OK = qw( Show_Mode URL_Keys Title_Formats Data_Formats ); # Some control variables -- the user may set these $Show_Mode = 'Box'; # one of: List, Table, Box, or HTML $List_Wrap_Margin = 10; # break words up to this long $Max_Table_Width = ''; # if defined, scale tables $Max_List_Width = $ENV{'COLUMNS'} || 80; $No_Escape = ''; # escape by default %URL_Keys = (); @Title_Formats = (); # formats for HTML formatting @Data_Formats = (); use Carp; unshift(@INC, '.'); sub ShowDatabases; sub ShowTables; sub ShowColumns; sub ShowTable; sub ShowRow; sub PlainText; sub htmltext; sub get_params; sub html_formats; sub center; sub max_length; sub max; sub out; sub put; =head1 MODULES =head1 ShowTable Format and display the contents of one or more rows of data. S< >B<ShowTable> { I<parameter> => I<value>, ... }; S< >B<ShowTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub> [, I<$max_width> ] [, I<$show_mode> ] ]; The B<ShowTable> subroutine displays tabular data aligned in columns, with headers. B<ShowTable> supports four I<modes> of display: B<Box>, B<Table>, B<List>, and B<HTML>. Each mode is described separately below. The arguments to B<ShowTable> may be given in one of two ways: as a hashed-array, or by a combination of fixed order arguments, and some package-global variable settings. The hash-array parameters correspond to the fixed arguments and the global-parameter settings. In the list below, both the hash-array parameter name and the fixed-order argument name is given as the value. In the case where there is no fixed-order argument for a given parameter-value pair, then the corresponding global variable name is given. =over 10 =item C<titles> => I<\@titles> A reference to an array of column names, or titles. If a particular column name is null, then the string C<Field_I<num>> is used by default. To have a column have no title, use the empty string. =item C<types> => I<\@types> A reference to an array of types, one for each column. These types are passed to the I<fmt_sub> for appropriate formatting. Also, if a column type matches the regexp "C</text|char|string/i>", then the column alignment will be left-justified, otherwise it will be right-justified. =item C<widths> => I<\@widths> A reference to an array of column widths, which may be given as an integer, or as a string of the form: "I<width>.I<precision>". =item C<row_sub> => I<\&row_sub> A reference to a subroutine which successively returns rows of values in an array. It is called for two purposes, each described separately: * To fetch successive rows of data: @row = &$row_sub(0); When given a null, zero, or empty argument, the next row is returned. * To initialize or rewind the data traversal. $rewindable = &$row_sub(1); When invoked with a non-null argument, the subroutine should rewind its row pointer to start at the first row of data. If the data which I<row_sub> is traversing is not rewindable, it must return zero or null. If the data is rewindable, a non-null, non-zero value should be returned. The I<row_sub> must expect to be invoked once with a non-null argument, in order to discover whether or not the data is rewindable. If the data cannot be rewound, I<row_sub> will thereafter only be called with a zero argument. Specifically, I<row_sub> subroutine is used in this manner: $rewindable = &$row_sub(1); if ($rewindable) { while ((@row = &$row_sub(0)), $#row >= 0) { # examine lengths for optimal formatting } &$row_sub(1); # rewind } while ((@row = &$row_sub(0)), $#row >= 0) { # format the data } The consequence of data that is not rewindable, a reasonably nice table will still be formatted, but it may contain fairly large amounts of whitespace for wide columns. =item C<fmtsub> => I<\&fmt_sub> A reference to a subroutine which formats a value, according to its type, width, precision, and the current column width. It is invoked either with a fixed list of arguments, or with a hash-array of parameter and value pairs. $string = &fmt_sub { I<parameter> => I<value>, ... }; $string = &fmt_sub($value, $type, $max_width, $width, $precision) If I<\&fmt_sub> is omitted, then a default subroutine, B<ShowTableValue>, will be used, which will use Perl's standard string formatting rules. The arguments to I<\&fmt_sub>, either as values passed in a fixed order, or as part of the parameter value pair, are described in the section on L<"ShowTableValue> below. =item C<max_width> => I<number>, The maximum table width, including the table formatting characters. If not given, defaults to the global variable B<$Max_Table_Width>; =item C<show_mode> => 'I<mode>', The display mode of the output. One of five strings: C<'Box'>, C<'Table'>, C<'Simple'>, C<'List'>, and C<'HTML'>. =back =cut sub ShowTable { my @argv = @_; local ($_,$titles,$types,$widths,$row_sub,$fmt_sub, $max_width, $show_mode, $wrap_margin, $url_keys, $no_escape, $title_formats, $data_formats); my $args = get_params \@argv, { titles => \$titles, types => \$types, widths => \$widths, row_sub => \$row_sub, fmt_sub => \$fmt_sub, max_width => \$max_width, show_mode => \$show_mode, }, [qw(titles types widths row_sub fmt_sub max_width show_mode)]; # Default mode is from $Show_Mode global $show_mode = $args->{'show_mode'} = $Show_Mode unless $show_mode ne ''; $_ = $show_mode; if (/List/i) { &ShowListTable($args); } elsif (/HTML/i) { &ShowHTMLTable($args); } elsif (/Table/i) { &ShowSimpleTable($args); } else { &ShowBoxTable($args); } } =head1 ShowDatabases Show a list of database names. S< >B<ShowDatabases> I<\@dbnames>; S< >B<ShowDatabases> { 'data' => I<\@dbnames>, I<parameter> => I<value>, ...}; B<ShowDatabases> is intended to be used to display a list of database names, under the column heading of "Databases". It is a special case usage of B<ShowTable> (and can thus be passed any parameter suitable for B<ShowTable>. The argument, I<\@dbnames>, is a reference to an array of strings, used as the values of the single column display. =cut sub ShowDatabases { my @argv = @_; local $databases; my $args = get_params \@argv, {data => \$databases}, ['data']; $databases ne '' or croak "Missing array of databases.\n"; $args->{'titles'} = 'Databases' unless exists $args->{'titles'}; $args->{'types'} = [ 'char' ]; $args->{'width'} = max_length $databases; $args->{'lengths'} = $args->{'width'}; local( $current_row ) = 0; $args->{'row_sub'} = sub { &ShowRow( $_[0], \$current_row, $databases ); }; ShowTable $args; } =head1 ShowTables Show an array of table names. S< >B<ShowTables> I<\@tblnames>; S< >B<ShowTables> { 'data' => I<\@tblnames>, I<parameter> => I<value>, ...}; B<ShowTables> is used to display a list of table names, under the column heading of "Tables". It is a special case usage of B<ShowTable>, and can be passed any L<"ShowTable"> argument parameter. =cut sub ShowTables { my @argv = @_; local $tables; my $args = get_params \@argv, {data => \$tables}, ['data']; $tables ne '' or croak "Missing array of tables.\n"; $args->{'titles'} = 'Tables' unless exists $args->{'titles'}; $args->{'types'} = 'char'; $args->{'width'} = max_length $tables; $args->{'lengths'} = $args->{'width'}; local( $current_row ) = 0; $args->{'row_sub'} = sub { &ShowRow( $_[0], \$current_row, $tables ); }; ShowTable $args; } =head1 ShowColumns Display a table of column names, types, and attributes. S< >B<ShowColumns> { I<parameter> => I<values>, ... }; S< >B<ShowColumns> I<\@columns>, I<\@col_types>, I<\@col_lengths>, I<\@col_attrs>; The B<ShowColumns> subroutine displays a table of column names, types, lengths, and other attributes in a nicely formatted table. It is a special case usage of B<ShowTable>, and can be passed any argument suitable for L<"ShowTable">; The arguments are: =over 10 =item C<columns> = I<\@columns> An array of column names. This provides the value for the first column of the output. =item C<col_types> = I<\@col_types> An array of column types names. This provides the value for the second column. =item C<col_lengths> = I<\@col_lengths> An array of maximum lengths for corresponding columns. This provides the value for the third column of the output. =item C<col_attrs> = I<\@col_attrs> An array of column attributes array references (ie: an array of arrays). The attributes array for the first column are at "I<$col_attrs>-\>[0]". The first attribute of the second column is "I<$col_attrs>-\>[1][0]". =back The columns, types, lengths, and attributes are displayed in a table with the column headings: "Column", "Type", "Length", and "Attributes". This is a special case usage of B<ShowTable>, and can be passed additional arguments suitable for L<"ShowTable">. =cut sub ShowColumns { my @argv = @_; local ($col_names, $col_types, $col_lengths, $col_attributes); my $args = get_params \@argv, { col_names => \$col_names, col_types => \$col_types, col_lengths => \$col_lengths, col_attributes => \$col_attributes, },[qw(col_names col_types col_lengths col_attributes)]; $col_names ne '' or croak "Missing array of column names.\n"; $col_types ne '' or croak "Missing array of column types.\n"; $col_lengths ne '' or croak "Missing array of column lengths.\n"; $col_attributes ne '' or croak "Missing array of column attributes.\n"; # setup the descriptor arrays $args->{'titles'} = [ qw(Column Type Length Attributes) ]; $args->{'types'} = [ qw(varchar varchar int varchar) ]; # Do some data conversions before displaying # Convert attribute array to a string of attributes local @col_attrs = (); my $i; for ($i = 0; $i <= $#{$col_attributes}; $i++) { $col_attrs[$i] = join(', ',@{$col_attributes->[$i]}); } # count the widths, to setup the Column name column width $args->{'lengths'} = [ (max_length $col_names), (max_length $col_types), (max_length $col_lengths), (max_length \@col_attrs) ]; local($current_row) = 0; $args->{'row_sub'} = sub { &ShowRow($_[0], \$current_row, $col_names, $col_types, $col_lengths, \@col_attrs); }; # Finally, show the darn thing ShowTable $args; } =head1 ShowBoxTable Show tabular data in a box. S< >B<ShowBoxTable> { I<parameter> = I<value>, ... }; S< >B<ShowBoxTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> S< >[, [ I<\&fmt_sub> ] [, I<$max_width> ] ]; The B<ShowBoxTable> displays tabular data in titled columns using a "box" of ASCII graphics, looking something like this: +------------+----------+-----+----------+ | Column1 | Column2 | ... | ColumnN | +------------+----------+-----+----------+ | Value11 | Value12 | ... | Value 1M | | Value21 | Value22 | ... | Value 2M | | Value31 | Value32 | ... | Value 3M | | ... | ... | ... | ... | | ValueN1 | ValueN2 | ... | Value NM | +------------+----------+-----+----------+ The arguments are the same as with L<"ShowTable">. If the I<@titles> array is empty, the header row is omitted. =cut sub ShowBoxTable { my @argv = @_; local ($titles, $types, $col_widths, $row_sub, $fmt_sub, $max_width); my $args = get_params \@argv, { titles => \$titles, types => \$types, widths => \$col_widths, row_sub => \$row_sub, fmtsub => \$fmt_sub, max_width => \$max_width, }, [qw(titles types widths row_sub fmtsub max_width)]; $titles ne '' or croak "Missing column names array.\n"; $types ne '' or croak "Missing column types array.\n"; $col_widths ne '' or croak "Missing column width array.\n"; $row_sub ne '' or croak "Missing row subroutine.\n"; $fmt_sub = \&ShowTableValue if !defined($fmt_sub) || $fmt_sub eq ''; $max_width = $Max_Table_Width if !defined($max_width) || $max_width eq ''; my $rewindable = &$row_sub(1); # see if data is rewindable my ($num_cols, $widths, $precision, $max_widths) = &calc_widths($col_widths, $titles, $rewindable, $row_sub, $fmt_sub, $types, 'box', $max_width); my $width = 1; my $dashes = ' +'; my $title_line = ' |'; my $title; my $fmt = ' |'; # initial format string my $c; # Compose the box header for ($c = 0; $c < $num_cols; $c++) { $width = $max_widths->[$c]; # get previously calculated max col width $width += 2; # account for a blank on either # side of each value $dashes .= ('-' x $width); $dashes .= '+'; $title = $#$titles >= 0 && defined($titles->[$c]) ? $titles->[$c] : sprintf("Field_%d", $c+1); $title_line .= center $title, $width; $title_line .= '|'; } out $dashes; if ($#$titles >= 0) { out $title_line; out $dashes; } my @values; my @prefix = (" ", "<"); my @suffix = (" |", ">|"); my @cell; # loop over the data, formatting it into cells, one row at a time. while ((@values = &$row_sub(0)), $#values >= $[) { # first pass -- format each value into a string @cell = (); for ($c = 0; $c <= $#values; $c++) { $cell[$c] = &$fmt_sub($values[$c], $types->[$c], $max_widths->[$c], $widths->[$c], $precision->[$c], 'box'); } # second pass -- output each cell, wrapping if necessary my $will_wrap; my $wrapped = 0; do { $will_wrap = 0; put " |"; # start a line for ($c = 0; $c <= $#cell; $c++) { $will_wrap |= &putcell(\@cell, $c, $max_widths->[$c], \@prefix, \@suffix, $wrapped); } out ""; $wrapped++; } while ($will_wrap); } out $dashes; out ""; } =head1 ShowSimpleTable Display a table of data using a simple table format. S< >B<ShowSimpleTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub>]; S< >B<ShowSimpleTable> { I<parameter> => I<values>, ... }; The B<ShowSimpleTable> subroutine formats data into a simple table of aligned columns, in the following example: Column1 Column2 Column3 ------- ------- ------- Value1 Value2 Value3 Value12 Value22 Value32 Columns are auto-sized by the data's widths, plus two spaces between columns. Values which are too long for the maximum colulmn width are wrapped within the column. =cut sub ShowSimpleTable { my @argv = @_; local ($titles, $types, $col_widths, $row_sub, $fmt_sub, $max_width); my $args = get_params \@argv, { titles => \$titles, types => \$types, widths => \$col_widths, row_sub => \$row_sub, fmtsub => \$fmt_sub, max_width => \$max_width, }, [qw(titles types widths row_sub fmtsub max_width)]; $titles ne '' or croak "Missing column names array.\n"; $types ne '' or croak "Missing column types array.\n"; $col_widths ne '' or croak "Missing column width array.\n"; $row_sub ne '' or croak "Missing row sub array.\n"; $fmt_sub = \&ShowTableValue if !defined($fmt_sub) || $fmt_sub eq ''; $max_width = $Max_Table_Width if !defined($max_width) || $max_width eq ''; my $rewindable = &$row_sub(1); # see if data is rewindable my ($num_cols, $widths, $precision, $max_widths) = &calc_widths($col_widths, $titles, $rewindable, $row_sub, $fmt_sub, $types, 'table', $max_width); my $width = 1; my $dashes = ' '; my $title_line = ' '; my $title ; my $postfix = shift; my $c ; # Calculate the maximum widths for ($c = 0; $c < $num_cols; $c++) { $width = $max_widths->[$c]; $dashes .= ('-' x $width); $dashes .= ' '; next if $#$titles < 0; $title = center $titles->[$c], $width; $title_line .= $title; $title_line .= ' '; } out $title_line if $#$titles >= 0; out $dashes; my @values; my @prefix = (" ", "<"); my @suffix = (" ", ">"); while ((@values = &$row_sub(0)), $#values >= $[) { # first pass -- format each value into a string my @cell; for ($c = 0; $c <= $#values; $c++) { $cell[$c] = &$fmt_sub($values[$c], $types->[$c], $max_widths->[$c], $widths->[$c], $precision->[$c], 'table'); } # second pass -- output each cell, wrapping if necessary my $will_wrap; my $wrapped = 0; do { $will_wrap = 0; for ($c = 0; $c <= $#cell; $c++) { $will_wrap |= &putcell(\@cell, $c, $max_widths->[$c], \@prefix, \@suffix, $wrapped); } out ""; $wrapped++; } while ($will_wrap); } out ""; } =head1 ShowHTMLTable Display a table of data nicely using HTML tables. S< >B<ShowHTMLTable> { I<parameter> => I<value>, ... }; S< >B<ShowHTMLTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub> [, I<$max_width> [, I<\%URL_Keys> [, I<$no_escape> [, I<\@title_formats> [, I<\@data_formats> [, I<$table_attrs> ] ] ] ] ] ] ]; The B<ShowHTMLTable> displays one or more rows of columns of data using the HTML C<\<TABLE\>> feature. In addition to the usual parameter arguments of L<"ShowTable">, the following parameter arguments are defined: =over 10 =item C<url_keys> => I<\%URL_Keys>, This is a hash array of column names (titles) and corresponding base URLs. The values of any column names or indexes occuring as keys in the hash array will be generated as hypertext anchors using the associated I<printf>-like string as the base URL. Either the column name or the column index (beginning with 1) may be used as the hash key. In the string value, these macros can be substituted: "C<%K>" is replaced with the column name. "C<%V>" is replaced with the column value; "C<%I>" is replaced with the column index. For example, if we define the array: $base_url = "http://www.$domain/cgi/lookup?col=%K?val=%V"; %url_cols = ('Author' => $base_url, 'Name' => $base_url); Then, the values in the C<Author> column will be generated with the following HTML text: <A HREF="http://www.$domain/cgi/lookup?col=Author?val=somevalue>somevalue</A> and the values in the C<Name> column will be generated with the URL: <A HREF="http://www.$domain/cgi/lookup?col=Name?val=othervalue>othervalue</A> If this variable is not given, it will default to the global variable C<\%URL_Keys>. =item C<no_escape> => I<boolean>, Unless B<$no_escape> is set, HTML-escaping is performed on the data values in order to properly display the special HTML formatting characters : '\<', '\>', and '&'. If you wish to display data with embedded HTML text, you must set B<$no_escape>. Enabling embedded HTML, turns on certain heuristics which enable the user to more completely define appearance of the table. For instance, any C<\<TR\>> tokens found embedded *anywhere* within a row of data will be placed at the front of the row, within the generated C<\<TR\>>. Similarly, a row of data containing the C<\<THEAD\>> or C<\<TFOOT\>> tokens, and their closing counterparts, will begin and end, respectively a table header or footer data. =item C<title_formats> => I<\@title_formats>, =item C<tformats> => I<\@title_formats>, An array of HTML formatting elements for the column titles, one for each column. Each array element is a list of one or more HTML elements, given as C<\<ELEMENT\>> or plainly, C<ELEMENT>, and separated by a comma C<','>, semi-colon C<';'>, or vertical bar C<'|'>. Each given HTML element is prepended to the corresponding column title, in the order given. The corresponding HTML closing elements are appended in the opposite order. For example, if I<\@title_formats> contains the two elements: [ 'FONT SIZE=+2,BOLD', 'FONT COLOR=red,EM' ] then the text output for the title of the first column would be: <FONT SIZE=+2><BOLD>I<column_1_title></BOLD></FONT> If C<title_formats> is omitted, the global variable B<@Title_Formats> is used by default. =item C<data_formats> => I<\@data_formats>, =item C<dformats> => I<\@data_formats>, Similar to C<title_formats>, this array provides HTML formatting for the columns of each row of data. If C<data_formats> is omitted or null, then the global variable B<\@Data_Formats> is used by default. =item C<table_attrs> => I<$table_attrs>, This variable defines a string of attributes to be inserted within the C<\<TABLE\>> token. For example, if the user wishes to have no table border: ShowHTMLTable { ... table_attrs => 'BORDER=0', ... }; =back =cut sub ShowHTMLTable { my @argv = @_; local ($titles, $types, $col_widths, $row_sub, $fmt_sub, $max_width, $url_keys, $no_escape, $title_formats, $data_formats, $show_mode, $table_attrs); my $args = get_params \@argv, { titles => \$titles, types => \$types, widths => \$col_widths, row_sub => \$row_sub, fmtsub => \$fmt_sub, max_width => \$max_width, url_keys => \$url_keys, no_escape => \$no_escape, tformats => \$title_formats, dformats => \$data_formats, table_attrs => \$table_attrs, data_formats => 'tformats', title_formats => 'tformats', }, [qw(titles types widths row_sub fmtsub max_width url_keys no_escape title_formats data_formats table_attrs)]; $titles ne '' or croak "Missing column names array.\n"; $types ne '' or croak "Missing column types array.\n"; $col_widths ne '' or croak "Missing column width array.\n"; $row_sub ne '' or croak "Missing row sub array.\n"; # Defaults $fmt_sub = \&ShowTableValue if !defined($fmt_sub) || $fmt_sub eq ''; $max_width = $Max_Table_Width if !defined($max_width) || $max_width eq ''; $url_keys = \%URL_Keys if !defined($url_keys) || $url_keys eq ''; $title_formats = \@Title_Formats if !defined($title_formats) || $title_formats eq ''; $data_formats = \@Data_Formats if !defined($data_formats) || $data_formats eq ''; $no_escape = $No_Escape if !defined($no_escape); my $rewindable = &$row_sub(1); # see if rewindable my ($num_cols, $widths, $precision, $max_widths) = &calc_widths($col_widths, $titles, $rewindable, $row_sub, $fmt_sub, $types, 'html', $max_width); my $width = 1; my $total_width = 0; my $title_line = ''; my $title; my ($c,$x); my ($tprefixes,$tsuffixes,$dprefixes,$dsuffixes); # prepare the HTML prefixes and suffixes, if any ($tprefixes,$tsuffixes) = html_formats $title_formats if defined($title_formats) && $title_formats ne ''; ($dprefixes,$dsuffixes) = html_formats $data_formats if defined($data_formats) && $data_formats ne ''; if ($table_attrs) { # any table attributes? local($_) = $table_attrs; $table_attrs .= ' BORDER=1' unless /\bBORDER=/i; $table_attrs .= ' CELLPADDING=1' unless /\bCELLPADDING=/i; $table_attrs .= ' CELLSPACING=1' unless /\bCELLSPACING=/i; } else { $table_attrs = 'BORDER=2 CELLPADDING=1 CELLSPACING=1'; } out "<TABLE $table_attrs>\n<TR>" ; map { $total_width += defined($_) ? $_ : 0; } @$max_widths; for ($c = 0; $c < $num_cols; $c++) { # If the user specified a width, then use it. $width = defined($widths->[$c]) ? $widths->[$c] : $max_widths->[$c]; my $pct_width = int(100 * $width/$total_width); $title_line .= " <TH ALIGN=CENTER WIDTH=$pct_width%%>"; if ($#$titles >= 0) { if (($x = $#$tprefixes) >= 0) { $title_line .= $tprefixes->[$c > $x ? $x : $c]; } $title_line .= $no_escape ? $titles->[$c] : &htmltext($titles->[$c]); if (($x = $#$tsuffixes) >= 0) { $title_line .= $tsuffixes->[$c > $x ? $x : $c]; } } $title_line .= "</TH>\n"; } out $title_line; out "</TR>"; my ($href, $key, $val, $out); while ((@values = &$row_sub(0)), $#values >= $[) { out "<TR> "; # Walk through the values for ($c = 0; $c <= $#values; $c++) { $out = "<TD"; if (defined($val = $values[$c])) { # only worry about defined values # In HTML mode, all CHAR, TEXT, SYMBOL, or STRING data should # be escaped to protect HTML syntax "<", ">", "\", and "&". if ($types->[$c] =~ /char|text|symbol|string/i) { $val = &htmltext($val) unless $no_escape; $out .= " ALIGN=LEFT"; } else { $out .= " ALIGN=RIGHT"; } $out .= ">"; # Discover if either the column name or column index # have been mapped to a URL. $href = ''; foreach $key ( $#$titles >= 0 && &PlainText($titles->[$c]), sprintf("%d", $c+1)) { next unless $key ne '' && defined($url_keys->{$key}); $href = $url_keys->{$key}; last; } if ($href ne '') { if ($href =~ /%K/) { my $s = &htmltext(&PlainText($titles->[$c]), 1); $href =~ s/%K/$s/g; } if ($href =~ /%V/) { my $s = &htmltext($val, 1); $href =~ s/%V/$s/g; } if ($href =~ /%I/) { my $s = sprintf("%d", $c+1); $href =~ s/%I/$s/g; } $out .= sprintf("<A HREF=\"%s\">",$href); } $val = &$fmt_sub($val, $types->[$c], 0, $widths->[$c], $precision->[$c], 'html'); $val =~ s/^\s+//; # don't try to align $val =~ s/\s+$//; if (($x = $#$dprefixes) >= 0) { $out .= $dprefixes->[$c > $x ? $x : $c]; } $out .= $val; if (($x = $#$dsuffixes) >= 0) { $out .= $dsuffixes->[$c > $x ? $x : $c]; } $out .= "</A>" if $href; } else { $out .= ">"; } $out .= "</TD>"; out $out; } out "</TR>"; } out "</TABLE>"; } =head1 ShowListTable Display a table of data using a list format. S< >B<ShowListTable> { I<parameter> => I<value>, ... }; S< >B<ShowListTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub> [, I<\&fmt_sub> [, I<$max_width> [, I<$wrap_margin> ] ] ]; The arguments for B<ShowListTable> are the same as for L<"ShowTable">, except for those described next. =over 10 =item C<max_width> = I<number>, =item C<wrap_margin> = I<number>, Lines are truncated, and wrapped when their length exceeds I<$max_width>. Wrapping is done on a word-basis, unless the resulting right margin exceeds I<$wrap_margin>, in which case the line is simply truncated at the I<$max_width> limit. The I<$max_width> variable defaults to B<$Max_List_Width>. The I<$wrap_margin> defaults to B<$List_Wrap_Margin>. =back In I<List> mode, columns (called "fields" in List mode) are displayed wth a field name and value pair per line, with records being one or more fields . In other words, the output of a table would look something like this: Field1_1: Value1_1 Field1_2: Value1_2 Field1_3: Value1_3 ... Field1-N: Value1_M <empty line> Field2_1: Value2_1 Field2_2: Value2_2 Field2_3: Value2_3 ... Field2_N: Value2_N ... FieldM_1: ValueM_1 FieldM_2: ValueM_2 ... FieldM_N: ValueM_N <empty line> <empty line> Characteristics of I<List> mode: =over 10 =item * two empty lines indicate the end of data. =item * An empty field (column) may be omitted, or may have a label, but no data. =item * A long line can be continue by a null field (column): Field2: blah blah blah : blah blah blah =item * On a continuation, the null field is an arbitrary number of leading white space, a colon ':', a single blank or tab, followed by the continued text. =item * Embedded newlines are indicated by the escape mechanism "\n". Similarly, embedded tabs are indicated with "\t", returns with "\r". =item * If the I<@titles> array is empty, the field names "C<Field_>I<NN>" are used instead. =back =cut sub ShowListTable { my @argv = @_; local ($titles, $types, $col_widths, $row_sub, $fmt_sub, $max_width, $wrap_margin); my $args = get_params \@argv, { titles => \$titles, types => \$types, widths => \$col_widths, row_sub => \$row_sub, fmtsub => \$fmt_sub, max_width => \$max_width, wrap_margin => \$wrap_margin, }, [qw(titles types widths row_sub fmt_sub max_width wrap_margin)]; defined($titles) && $titles ne '' or croak "Missing column names array.\n"; defined($types) && $types ne '' or croak "Missing column types array.\n"; defined($col_widths) && $col_widths ne '' or croak "Missing column width array.\n"; defined($row_sub) && $row_sub ne '' or croak "Missing row sub array.\n"; $fmt_sub = \&ShowTableValue if !defined($fmt_sub) || $fmt_sub eq ''; $max_width = $Max_List_Width if !defined($max_width) || $max_width eq ''; $wrap_margin = $List_Wrap_Margin if !defined($wrap_margin) || $wrap_margin eq ''; my $rewindable = &$row_sub(1); # init the row pointer my ($num_cols, $widths, $precision, $max_widths) = &calc_widths($col_widths, $titles, $rewindable, $row_sub, $fmt_sub, $types, 'list', ''); my $fmt = sprintf("%%-%ds : %%s\n", ($#$titles >= 0 ? &max_length($titles) : 8)); my @values; my ($value, $c, $cut, $line); my $col_limit = $max_width - 2; while ((@values = &$row_sub(0)), $#values >= $[) { for ($c = 0; $c <= $#values; $c++) { # get this column's title $title = $#$titles >= 0 ? $titles->[$c] : sprintf("Field_%d", $c+1); my $type = $types->[$c]; my $width = 0; my $prec = $precision->[$c]; $value = &$fmt_sub($values[$c], $type, 0, $width, $prec, 'list'); while (length($value)) { if (length($value) > ($cut = $col_limit)) { $line = substr($value, 0, $cut); if ($line =~ m/([-,;? \t])([^-,;? \t]*)$/ && length($2) <= $wrap_margin) { $cut = $col_limit - length($2); $line = substr($value, 0, $cut); } ($value = substr($value, $cut)) =~ s/^\s+//; } else { $line = $value; $value = ''; } out $fmt, $title, $line; $title = ''; } } out ""; } } =head1 ShowRow Fetch rows successively from one or more columns of data. S< >B<ShowRow> I<$rewindflag>, I<\$index>, I<$col_array_1> [, I<$col_array_2>, ...;] The B<ShowRow> subroutine returns a row of data from one or more columns of data. It is designed to be used as a I<callback> routine, within the B<ShowTable> routine. It can be used to select elements from one or more array reference arguments. If passed two or more array references as arguments, elements of the arrays selected by I<$index> are returned as the "row" of data. If a single array argument is passed, and each element of the array is itself an array, the subarray is returned as the "row" of data. If the I<$rewindflag> flag is set, then the I<$index> pointer is reset to zero, and "true" is returned (a scalar 1). This indicates that the data is rewindable to the B<ShowTable> routines. When the I<$rewindflag> is not set, then the current row of data, as determined by I<$index> is returned, and I<$index> will have been incremented. An actual invocation (from B<ShowColumns>) is: ShowTable \@titles, \@types, \@lengths, sub { &ShowRow( $_[0], \$current_row, $col_names, $col_types, $col_lengths, \@col_attrs); }; In the example above, after each invocation, the I<$current_row> argument will have been incremented. =cut sub ShowRow { my $rewind_flag = shift; my $index_ref = shift; # an indirect index my @columns = @_; # get rest of columns my @row; # we're selecting a row if ($rewind_flag) { $$index_ref = 0; # reset the pointer return 1; } return () if $#{$columns[0]} < $$index_ref; if ($#columns == 0) { # exactly one array ref argument my $data = $columns[0]->[$$index_ref]; # get the current data if (ref($data) eq 'ARRAY') { # if an array.. @row = @$data; # ..return the array of data } elsif (ref($data) eq 'HASH') {# if a hash.. @row = values %$data; # ..return the values } else { # otherwise.. @row = ($data); # ..return the data element } } else { # with two or more array refs.. my $col; # select elements from each for ($col = 0; $col <= $#columns; $col++) { push(@row, ${$columns[$col]}[$$index_ref]); } } ${$index_ref}++; # increment the index for the next call @row; # return this row of data } =head1 ShowTableValue Prepare and return a formatted representation of a value. A value argument, using its corresponding type, effective width, and precision is formatted into a field of a given maximum width. S< >I<$fmt> = B<ShowTableValue> I<$value>, I<$type>, I<$max_width>, I<$width>, I<$precision>, I<$showmode>; =over 10 =item C<width> => I<$width> =item I<$width> The width of the current value. If omittied, I<$max_width> is assumed. =item C<precision> => I<$precision> =item I<$precision> The number of decimal digits; zero is assumed if omittied. =item C<value> => I<$value> =item I<$value> The value to be formatted. =item I<$type> The type name of the value; eg: C<char>, C<varchar>, C<int>, etc. =item C<maxwidth> => I<$max_width> =item I<$max_width> The maximum width of any value in the current value's column. If I<$width> is zero or null, I<$max_width> is used by default. I<$max_width> is also used as a I<minimum> width, in case I<$width> is a smaller value. =item I<$width> The default width of the value, obtained from the width specification of the column in which this value occurs. =item I<$precision> The precision specification, if any, from the column width specification. =item I<$showmode> The mode of the output: one of "table", "list", "box", or "html". Currently, only the "html" mode is significant: it is used to avoid using HTML tokens as part of the formatted text and length calculations. =back =cut sub ShowTableValue { my $value = shift; my $type = shift; my $max_width = shift; my $width = shift; my $prec = shift || 2; my $showmode = shift; my $fmt = ($Type2Format{lc($type)} || $Type2Format{'char'}); my $str; $max_width = 0 if !defined($max_width) || $max_width eq ''; $width = $max_width if !defined($width) || $width eq ''; $width = min($width, $max_width) if $max_width > 0; if ($type =~ /money/i) { # money formatting is special if (($str = $value) !~ /[\$,]/) { # not already formatted? my ($d,$c) = split(/\./,$value,2); # reverse the digits $d = join('',reverse(split(//,abs($d)))); # do the grouping from the rightmost to the left $d =~ s/(...)(?=.)/$1,/g; # reverse the digits and grouping char $d = '$'.join('',reverse(split(//,$d))); # If there is any precision, add on pennies (allow for > 2 precision) $d .= sprintf($prec > 2 ? "%0${prec}d" : ".%02d",$c) if $prec > 0; # Mark as negative with '(xxx)' $d = '-'.$d if $value < 0; $str = $d; } } else { $fmt = sprintf ($fmt,$width,$prec); # If we are in HTML mode, and the value has any HTML tokens, # then format it always as a string (even if it might # be a decimal--this is a kluge but seems to work). if ($showmode =~ /html/i && $value =~ /<\/?($HTML_Elements)/) { $fmt =~ s/[df]/s/; # convert to string sub } $str = sprintf($fmt,$value); } if ($width > length(&PlainText($str))) { # right align the value if any kind of number $str = sprintf("%${width}s", $str) if $type =~ /int|float|pct|real|numeric|money/i; } $str; } %Type2Format = ( 'char' => '%%-%ds', 'varchar' => '%%-%ds', 'symbol' => '%%-%ds', 'tinyint' => '%%%dd', 'shortint' => '%%%dd', 'int' => '%%%dd', 'pct' => '%%%d.%df%%%%', 'real' => '%%%d.%df', 'float' => '%%%d.%df', 'numeric' => '%%%d.%df', 'text' => '%%-%ds', # The money types do not actually need to be in this table, since # ShowTableValue handle money formatting explicitly. However, some # one else might use this table, so we treat them like right-aligned # strings. 'money' => '%%%d.%df', 'smallmoney' => '%%%d.%df', ); =head1 PlainText S< >I<$plaintext> = B<&PlainText>(I<$htmltext>); S< >B<&PlainText> This function removes any HTML formatting sequences from the input argument, or from C<$_> if no argument is given. The resulting plain text is returned as the result. =cut # $plaintext = &PlainText($htmltext); # or: # &PlainText; # # Convert the argument and return as a string, or convert $_. sub PlainText { local($_) = shift if $#_ >= 0; # set local $_ if there's an argument # skip unless there's a sequence return $_ unless m=</?($HTML_Elements)=i; # HTML text? s{</?(?:$HTML_Elements)# # match and remove any HTML token.. (?:\ \w+# # ..then PARAM or PARAM=VALUE (?:\=(?:"(?:[^"]|\\")*"|# # ...."STRING" or.. [^"> ]+# # ....VALUE )# )?# # ..=VALUE is optional )*# # zero or more PARAM or PARAM=VALUE >}{}igx; # up to the closing '>' $_; # return the result } BEGIN { @HTML_Elements = qw( A ABBREV ACRONYM ADDRESS APP APPLET AREA AU B BANNER BASE BASEFONT BDO BGSOUND BIG BLINK BLOCKQUOTE BODY BQ BR CAPTION CENTER CITE CODE COL COLGROUP CREDIT DD DEL DFN DIR DIV DL DT EM EMBED FN FIG FONT FORM FRAME FRAMESET H1 H2 H3 H4 H5 H6 HEAD HP HR HTML I IMG INPUT INS ISINDEX KBD LANG LH LI LINK LISTING MAP MARQUEE MENU META NEXTID NOBR NOEMBED NOFRAMES NOTE OL OPTION OVERLAY P PARAM PERSON PLAINTEXT PRE Q S SAMP SELECT SMALL SPAN STRIKE STRONG SUB SUP TAB TABLE TBODY TD TEXTAREA TFOOT TH THEAD TITLE TR TT U UL VAR WBR XMP ); $HTML_Elements = join("|",@HTML_Elements); } =head1 VARIABLES The following variables may be set by the user to affect the display (with the defaults enclosed in square brackets [..]): =over 10 =item B<$Show_Mode> [Box] This is the default display mode when using B<ShowTable>. The environment variable, C<$ENV{'SHOW_MODE'}>, is used when this variable is null or the empty string. The possible values for this variable are: C<"Box">, C<"List">, C<"Table">, and C<"HTML">. Case is insignificant. =item B<$List_Wrap_Margin> [2] This variable's value determines how large a margin to keep before wrarpping a long value's display in a column. This value is only used in "List" mode. =item B<$Max_List_Width> [80] This variable, used in "List" mode, is used to determine how long an output line may be before wrapping it. The environment variable, C<$ENV{'COLUMNS'}>, is used to define this value when it is null. =item B<$Max_Table_Width> [''] This variable, when set, causes all tables to have their columns scaled such that their total combined width does not exceed this value. When this variable is not set, which is the default case, there is no maximum table width, and no scaling will be done. =item B<$No_Escape> [''] If set, allows embedded HTML text to be included in the data displayed in an HTML-formatted table. By default, the HTML formatting characters ("<", ">", and "&") occuring in values are escaped. =item B<%URL_Keys> In HTML mode, this variable is used to recognize which columns are to be displayed with a corresponding hypertext anchor. See L<"ShowHTMLTable"> for more details. =item B<@HTML_Elements> An array of HTML elements (as of HTML 3.0) used to recognize and strip for width calculations. =item B<$HTML_Elements> A regular expression string formed from the elements of B<@HTML_Elements>. =back =cut ############################## =head1 INTERNAL SUBROUTINES =head1 get_params S< >my I<$args> = B<&get_params> I<\@argv>, I<\%params>, I<\@arglist>; Given the I<@argv> originally passed to the calling sub, and the hash of named parameters as I<%params>, and the array of parameter names in the order expected for a pass-by-value invocation, set the values of each of the variables named in I<@vars>. If the only element of the I<@argv> is a hash array, then set the variables to the values of their corresponding parameters used as keys to the hash array. If the parameter is not a key of the I<%params> hash, and is not a key in the global hash B<%ShowTableParams>, then an error is noted. When I<@argv> has multiple elements, or is not a hash array, set each variable, in the order given within I<@arglist>, to the values from the I<@argv>, setting the variables named by each value in I<%params>. Variables may given either by name or by reference. The result is a HASH array reference, either corresponding directly to the HASH array passed as the single argument, or one created by associating the resulting variable values to the parameter names associated with the variable names. =cut sub get_params { my $argvref = shift or croak "Missing required argument.\n"; my $params = shift or croak "Missing required parameters hash.\n"; my $arglist = shift or croak "Missing required arglist array.\n"; my %args; my ($param, $var); if ($#$argvref == 0 && ref($argvref->[0]) eq 'HASH') { my $href = $argvref->[0]; %args = %$href; # initialize result with input hash foreach $param (keys %$href) { # for each named argument... # Is this a known parameter? if (exists($params->{$param})) { $var = $params->{$param}; while ($var ne '' && ref($var) eq '') { # indirect refs? $var = $params->{$param = $var}; } if ($var ne '') { $$var = $href->{$param}; # assign the param's variable $args{$param} = $$var; # make sure canonical param gets defined next; # go to the next parameter } } if (!exists($show_table_params{$param})) { croak "Unknown parameter: \"$param\"\n"; } } } else { # use args in the order given for variables my $i; for ($i = 0; $i <= $#$arglist; $i++) { $param = $arglist->[$i]; # get the next argument $var = $params->{$param}; # get it's variable next unless defined($var); while ($var ne '' && ref($var) eq '') { $var = $params->{$param = $var}; } if ($var ne '') { $$var = $i <= $#$argvref ? $argvref->[$i] : ''; $args{$param} = $$var; # assign to the hash } elsif (!exists($show_table_params{$param})) { croak "Unknown parameter: \"$param\" for argument $i.\n"; } } } # Now, make sure all variables get initialized foreach $param (keys %$params) { $var = $params->{$param}; while ($var ne '' && ref($var) eq '') { $var = $params->{$param = $var}; } if ($var ne '' && !exists($args{$param})) { $$var = $args{$param} = undef; } } \%args; # return the HASH ref } BEGIN { # A table of parameters used by all the external subroutines For # example, in order for parameters applicable to ShowHTMLTable to be # passed through ShowTable, they need to be defined in this table. @show_table_params = qw( caption col_attributes col_lengths col_names col_types data data_formats dformats fmt_sub fmtsub max_width no_escape row_sub show_mode table_attrs tformats title_formats titles types url_keys widths wrap_margin ); @show_table_params{@show_table_params} = () x (1 + $#show_table_params); undef @show_table_params; } =head1 html_formats S< >(I<$prefixes>,I<$suffixes>) = B<html_formats> I<\@html_formats>; The B<html_format> function takes an array reference of HTML formatting elements I<\@html_formats>, and builds two arrays of strings: the first: I<$prefixes>, is an array of prefixes containing the corresponding HTML formatting elements from I<\@html_formats>, and the second, I<$suffixes>, containing the appropriate HTML closing elements, in the opposite order. The result is designed to be used as prefixes and suffixes for the corresponding titles and column values. The array I<\@html_formats> contains lists of HTML formatting elements, one for each column (either title or data). Each array element is a list of one or more HTML elements, either given in HTML syntax, or as a "plain" name (ie: given as C<\<ELEMENT\>> or plainly, C<ELEMENT>). Multiple elements are separated by a comma C<','>. The resulting array of I<$prefixes> contains the corresponding opening elements, in the order given, with the proper HTML element syntax. The resulting array of I<$suffixes> contains the closing elements, in the opposite order given, with the proper HTML element syntax. For example, if I<\@html_formats> contains the two elements: [ 'FONT SIZE=+2,BOLD', 'FONT COLOR=red,EM' ] then the resulting two arrays will be returned as: [ [ '<FONT SIZE=+2><BOLD>', '<FONT COLOR=red><EM>' ], [ '</FONT></BOLD>', '</FONT></EM>' ] ] =cut sub html_formats { my $html_formats = shift; # array ref my $i; my (@prefixes, @suffixes); my ($html, $elt, $html_list, @html_list); my ($prefixes, $suffixes); local($_); foreach $html_list (@$html_formats) { @html_list = split(/,/,$html_list); $prefixes = $suffixes = ''; # initialize the list my %formats; # keep track of formats foreach (@html_list) { ($html, $elt) = (); if (($html, $elt) = /^(<)?\s*(\w+)/) {# <KEYWORD or KEYWORD next if $formats{$elt}++ > 0; # only do an element once $html = '<' unless $html; $prefixes .= $html.$elt.$'; $prefixes .= '>' unless $prefixes =~ />$/; $suffixes = $html.'/'.$elt.'>'.$suffixes; } } push(@prefixes, $prefixes); # even push empty items push(@suffixes, $suffixes); } ( \@prefixes, \@suffixes ); } =head1 calc_widths S< >(I<$num_cols>, I<$widths>, I<$precision>, I<$max_widths>) = S< >B<&calc_widths>( I<$widthspec>, I<$titles>, I<$rewindable>, S< >I<$row_sub>, I<$fmt_sub>, I<$types>, I<$showmode>, S< >I<$max_width>); =head2 B<DESCRIPTION> B<calc_widths> is a generalized subroutine used by all the B<ShowTable> variant subroutines to setup internal variables prior to formatting for display. B<Calc_widths> handles the column width and precision analysis, including scanning the data (if rewindable) for appropriate default values. The number of columns in the data is returned, as well as three arrays: the declared column widths, the column precision values, and the maximum column widths. =head2 B<RETURN VALUES> =over 10 =item I<$num_cols> is the number of columns in the data. If the data is not rewindable, this is computed as the maximum of the number of elements in the I<$widthspec> array and the number of elements in the I<$titles> array. When the data is rewindable, this is the maximum of the number of columns of each row of data. =item I<$widths> is the column widths array ref, without the precision specs (if any). Each column's width value is determined by the original I<$widthspec> value and/or the maximum length of the formatted data for the column. =item I<$precision> is the precision component (if any) of the original I<$widthspec> array ref. If there was no original precision component from the I<$widthspec>, and the data is rewindable, then the data is examined to determine the maximum default precision. =item I<$max_widths> is the ref to the array of maximum widths for the given columns. =back =head2 B<ARGUMENTS> =over 10 =item I<$widthspec> A reference to an array of column width (or length) values, each given as an integer, real number, or a string value of "I<width>.I<precision>". If a value is zero or null, the length of the corresponding formatted data (if rewindable) and column title length are used to determine a reasonable default. If a column's I<width> portion is a positive, non-zero number, then the column will be this wide, regardless of the values lengths of the data in the column. If the column's I<width> portion is given as a negative number, then the positive value is used as a minimum column width, with no limit on the maximum column width. In other words, the column will be at least I<width> characters wide. If the data is not rewindable, and a column's width value is null or zero, then the length of the column title is used. This may cause severe wrapping of data in the column, if the column data lengths are much greater than the column title widths. =item I<$titles> The array ref to the column titles; used to determine the minimum acceptable width, as well as the default number of columns. If the C<$titles> array is empty, then the C<$widthspec> array is used to determine the default number of columns. =item I<$rewindable> A flag indicating whether or not the data being formatted is rewindable. If this is true, a pass over the data will be done in order to calculate the maximum lengths of the actual formatted data, using I<$fmt_sub> (below), rather than just rely on the declared column lengths. This allows for optimal column width adjustments (ie: the actual column widths may be less than the declared column widths). If it is not desired to have the column widths dynamically adjusted, then set the I<$rewindable> argument to 0, even if the data is rewindable. =item I<$row_sub> The code reference to the subroutine which returns the data; invoked only if I<$rewindable> is non-null. =item I<$fmt_sub> The subroutine used to determine the length of the data when formatted; if this is omitted or null, the length of the data is used by default. The I<$fmt_sub> is used only when the data is rewindable. =item I<$types> An array reference to the types of each of the value columns; used only when I<$fmt_sub> is invoked. =item I<$showmode> A string indicating the mode of the eventual display; one of four strings: "C<box>", "C<table>", "C<list>", and "C<html>". Used to adjust widths for formatting requirements. =item I<$max_width> The maximum width of the table being formatted. If set, and the total sum of the individual columns exceeds this value, the column widths are scaled down uniformly. If not set (null), no column width scaling is done. =back =cut sub calc_widths { my $widthspec = shift; my $titles = shift; my $rewindable = shift; my $row_sub = shift; my $fmt_sub = shift; my $types = shift; my $showmode = shift; my $max_width = shift; my @precision; # array of precision values my @setprec; # array of flags to set default precision my @widths; # array of widths my @max_widths; # array of max widths my @expandable; # flag if widths expandable my $num_cols; my $c; if ($#$widthspec >= 0) { @precision = @$widthspec; foreach (@precision) { s/^.*\.(\d+)/$1/ || ($_ = ''); } # The setprec array indicates which columns need a default precision @setprec = map { !length } @precision; # Get the integer portions @widths = map { length($_) ? int : 0 } @$widthspec; # Set @expandable if negative widths @expandable = map { $_ < 0 } @widths; # Convert widths to all positive values @widths = map abs, @widths; @max_widths = (0) x (1 + $#widths); # no maximums yet $num_cols = 1 + $#widths; } else { # No widths given @expandable = (1) x (1 + $#$titles); @precision = ('') x (1 + $#$titles); @setprec = @expandable; @max_widths = map length, @$titles; # initialize maximums to title widths $num_cols = 1 + $#$titles; } # If the data is rewindable, scan and accumulate *actual* widths for # each column, using the title lengths as a minimum. if ($rewindable) { my @values; my @prectype; if (ref($types) eq 'ARRAY') { @prectype = map {/float|num(eric|ber)|money|dec|real|precision|double/i } @$types; } # Scan the values while ((@values = &$row_sub(0)), $#values >= $[) { # If the new row is larger than the number of titles, adjust # the info arrays.. if ($num_cols < 1 + $#values) { # new column? $num_cols = 1 + $#values; # new # of columns for ($c = $#expandable + 1; $c <= $#values; $c++) { $expandable[$c] = 1; $precision[$c] = ''; $setprec[$c] = 1; $max_widths[$c] = 0; } } my $len; my $value; for ($c = 0; $c < $num_cols; $c++) { # Does this column's precision need setting? if ($setprec[$c]) { # Yes, is it a type of value which can use the precision? if ($prectype[$c]) { # yes, how much is the current value's default precision? if ($values[$c] =~ /\.(.*)$/) { $precision[$c] = length($1) if length($1) > $precision[$c]; } } else { # No, this column can't use the precision value -- don't # do this check on this column again $precision[$c] = $setprec[$c] = 0; } } # Now, let's get the formatted value so we can guess the best # default widths $value = # If a fmt_sub is available, use it to format the value $fmt_sub ? &$fmt_sub($values[$c], $types->[$c], 0, 0, $precision[$c], $showmode) # If no fmt sub, then use Perl stringify : length($showmode eq 'html' ? # in HTML mode? &PlainText($values[$c]) # use plain text : $values[$c]); # else, use raw text $len = length($value); $max_widths[$c] = $len if $c > $#max_widths || $len > $max_widths[$c]; } } # okay -- maximums scanned. # If the maximum table width set, scale the max_widths $max_width = 0 unless defined($max_width) && $max_width ne ''; if ($max_width > 0) { # Start with the given maximum, but adjust it to account for # the formatting and space characters. my $max_width = $max_width; $max_width -= $num_cols * 3 + 2 if $showmode eq 'box'; $max_width -= $num_cols * 2 - 1 if $showmode eq 'table'; my $total = 0; # Calculate the total table width for ($c = 0; $c <= $#max_widths; $c++) { $total += $max_widths[$c]; } if ($max_width < $total) { # Now scale it to the adjusted maximum table width for ($c = 0; $c <= $#max_widths; $c++) { $max_widths[$c] = int($max_widths[$c] * $max_width / $total); } } } # If the column is expandable, allow the width to grow to the max_width. # If the column is not expandable, allow the width to shrink to # the max_width if it is smaller. if ($#widths < 0) { # were there any widths? @widths = @max_widths; # nope, set them to the scanned values } else { $num_cols = max($num_cols, 1 + $#widths) if $#widths >= 0; my $len; for ($c = 0; $c < $num_cols; $c++) { # provide defaults first $max_widths[$c] = 0 if !defined($max_widths[$c]); $widths[$c] = $max_widths[$c] if $c > $#widths || !defined($widths[$c]); # if the column can shrink, let it if ($max_widths[$c] < $widths[$c]) { $widths[$c] = $max_widths[$c]; } elsif ($expandable[$c] || !$widths[$c]) { # allow the width to grow to the maximum width $widths[$c] = $max_widths[$c] if $widths[$c] < $max_widths[$c]; } elsif ($max_widths[$c] > $widths[$c] && $widths[$c] > 0) { # not expandable -- set the max width to the width value $max_widths[$c] = $widths[$c]; } # In either case, however, ensure that the widths are at # least as long as the title length if ($c <= $#$titles) { if (defined($titles->[$c])) { # If we're in HTML mode, get the length of the plaintext $len = length($showmode eq 'html' ? &PlainText($titles->[$c]) # else, use raw text. : $titles->[$c]); } else { $len = length("Field_$c"); } $widths[$c] = $len if $widths[$c] < $len; $max_widths[$c] = $len if $max_widths[$c] < $len; } } } &$row_sub(1); # reset the pointer for the next scan } else { # Use title width as default if original width is null or zero my $len; for ($c = 0; $c <= $#widths; $c++) { next unless $c <= $#$titles; # Get the length of the title (sans HTML text if in that mode) $len = length($showmode eq 'html' ? &PlainText($titles->[$c]) : $titles->[$c]); $widths[$c] = $len if $widths[$c] < $len; } # Can't scan the data, so the maximums can only be set by using the # explicit widths. @max_widths = @widths; } ($num_cols, \@widths, \@precision, \@max_widths); } ############################## =head1 putcell S< >I<$wrapped> = B<&putcell>( I<\@cells>, I<$c>, I<$cell_width>, I<\@prefix>, I<\@suffix>, I<$wrap_flag> ); Output the contents of an array cell at I<$cell>[I<$c>], causing text longer than I<$cell_width> to be saved for output on subsequent calls. Prefixing the output of each cell's value is a string from the two-element array I<@prefix>. Suffixing each cell's value is a string from the two-element array I<@suffix>. The first element of either array is selected when I<$wrap_flag> is zero or null, or when there is no more text in the current to be output. The second element is selected when I<$wrap_flag> is non-zero, and when there is more text in the current cell to be output. In the case of text longer than I<$cell_width>, a non-zero value is returned. Cells with undefined data are not output, nor are the prefix or suffix strings. =cut sub putcell { my $cells = shift; # ref to cell array my $c = shift; # index my $cell_width = shift; # maximum width of the cell my $prefix = shift; # 2-elt array of prefix strings my $suffix = shift; # 2-elt array of suffix strings my $wrap_flag = shift; # non-zero for wrapped lines my $more; my $v = $cells->[$c]; # get the data my $px = 0; # prefix index my $sx = 0; # suffix index if (defined $v) { # not undef data? my $text = $v; # save the text $cell_width = 1 if !defined($cell_width) || $cell_width == 0; if ($cell_width <= length($text)) { $more = substr($text,$cell_width); $v = substr($text,0,$cell_width); } else { $v = $text; $more = ''; } # wrapping? if ($more ne '' && # See if we can wrap on a word boundary, instead of # arbitrarily splitting one; note that we try to not # split grouped numbers (1,345) or reals (1.234). $v =~ /([-,;? \t])([^-,;? \t0-9]*)$/ && # but also make sure that it is not too long length($2) <= $List_Wrap_Margin ) { # Okay, cut on the word boundary, leaving the break char # on the tail end of the current output value my $cut = $cell_width - length($2); $v = substr($text,0,$cut); # get new value $more = substr($text, $cut); # new remainder } $cells->[$c] = $more; # leave the rest for later $px = $wrap_flag != 0 && length($v) > 0; $sx = length($more) > 0; } my $fmt = sprintf("%%s%%-%ds%%s",$cell_width); put $fmt,$prefix->[$px],$v,$suffix->[$sx]; # output something (could be blanks) $sx; # leave wrapped flag } ############################## =head1 center Center a string within a given width. S< >I<$field> = B<center> I<$string>, I<$width>; =cut sub center { my($string,$width) = @_; $width = 0 if !defined($width); return $string if length($string) >= $width; my($pad) = int(($width - length($string))/2); # pad left half my($center) = (' ' x $pad) . $string; $pad = $width - length($center); $center .= ' ' x $pad; # pad right half $center; # return with the centered string } ############################## =head1 max Compute the maximum value from a list of values. S< >I<$max> = B<&max>( I<@values> ); =cut sub max { my ($max) = shift; foreach (@_) { $max = $_ if $max < $_; } $max; } ############################## =head1 min Compute the minum value from a list of values. S< >I<$min> = B<&min>( I<@values> ); =cut sub min { my ($min) = shift; foreach (@_) { $min = $_ if $min > $_; } $min; } ############################## =head1 max_length Compute the maximum length of a set of strings in an array reference. S< >I<$maxlength> = B<&max_length>( I<\@array_ref> ); =cut sub max_length { my($aref) = shift; my(@lens) = map { length } @$aref; my($maxlen) = max( @lens ); $maxlen; } ############################## =head1 htmltext Translate regular text for output into an HTML document. This means certain characters, such as "&", ">", and "<" must be escaped. S< >I<$output> = B<&htmltext>( I<$input> [, I<$allflag> ] ); If I<$allflag> is non-zero, then all characters are escaped. Normally, only the four HTML syntactic break characters are escaped. =cut # htmltext -- translate special text into HTML esacpes sub htmltext { local($_) = shift; my $all = shift; return undef unless defined($_); s/&(?!(?:amp|quot|gt|lt|#\d+);)/&amp;/g; s/\"/&quot;/g; s/>/&gt;/g; s/</\&lt;/g; if ($all) { s/ /\&#32;/g; s/\t/\&#09;/g; } $_; } ############################## =head1 out Print text followed by a newline. S< >B<out> I<$fmt> [, I<@text> ]; =cut sub out { my $fmt = shift; $fmt .= "\n" unless $fmt =~ /\n$/; printf STDOUT $fmt, @_; } ############################## =head1 put Print text (without a trailing newline). S< >B<out> I<$fmt> [, I<@text> ]; =cut sub put { printf STDOUT @_; } ############################## =head1 AUTHOR Alan K. Stebbens <aks@stebbens.org> =cut =head1 BUGS =over 10 =item * Embedded HTML is how the user can insert formatting overrides. However, the HTML formatting techniques have not been given much consideration -- feel free to provide constructive feedback. =back =cut # 1; ������������������������������������������������������������������������Data-ShowTable-4.6/t/�������������������������������������������������������������������������������000755 �000765 �000024 �00000000000 12261625502 014307� 5����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/test.pl.off����������������������������������������������������������������������000644 �000765 �000024 �00000016775 12162075450 016152� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/perl5 # # Test program for ShowTable.pm # # test.pl [1 2 3 ...] [w] [o] [tT] [sS] [bB] [hH] [lL] # # w = with titles # o = without titles # # t = ShowTable # s = ShowSimpleTable # b = ShowBoxTable # h = ShowHTMLTable # l = ShowListTable # # T = no ShowTable # S = no ShowSimpleTable # B = no ShowBoxTable # H = no ShowHTMLTable # L = no ShowListTable use Data::ShowTable; use Sys::OutPut; unshift(@INC,"blib/lib") if -d "blib/lib"; @Titles = ("Index", "Name", "Phone", "Address"); @Types = ("int", "char", "char", "char"); @Data = ( [ 1, "Alan Stebbens", "555-1234", "1234 Something St., CA" ], [ 2, "Bob Frankel", "555-1235", "9234 Nowhere Way, WA" ], [ 3, "Mr. Goodwrench","555-9432", "1238 Car Lane Pl., NY" ], [ 4, "Mr. Ed", "555-3215", "9876 Cowbarn Home, VA" ], ); @subs = qw( ShowTable ShowSimpleTable ShowListTable ShowHTMLTable ShowBoxTable ); push(@ARGV,(1..20)) unless grep(/\d/,@ARGV); push(@ARGV,qw(w o)) unless grep(/[wo]/,@ARGV); push(@ARGV,qw(t s l h b)) unless grep(/[tslhb]/,@ARGV); $testout = 'test.out'; # where this output goes $testref = "$testout.ref"; $testdiff = "$testout.diff"; unlink $testout; open(savSTDOUT, ">&STDOUT"); open(savSTDERR, ">&STDERR"); open(STDOUT,">test.stdout"); open(STDERR,">test.stderr"); select(STDOUT); &the_test; # run the test close STDOUT; close STDERR; # Copy stdout & stderr to the test.out file open(TESTOUT,">$testout"); select(TESTOUT); print "*** STDOUT ***\n"; open(OUT,"<test.stdout"); while (<OUT>) { print; } close OUT; print "*** STDERR ***\n"; open(ERR,"<test.stderr"); while (<ERR>) { print; } close ERR; close TESTOUT; unlink ('test.stdout', 'test.stderr'); open(STDOUT, ">&savSTDOUT"); open(STDERR, ">&savSTDERR"); select(STDOUT); $|=1; if (! -f $testref) { # any existing reference? system("cp $testout $testref"); # no, copy } system("diff $testref $testout >$testdiff"); if ($?>>8) { print "Test failed: there are differences; see \"$testdiff\".\n"; } else { print "Test passed: no differences.\n"; unlink $testdiff; } exit; sub test { my $title = shift; local @titles = @Titles; local $theRow; my $with; foreach $with (qw( with without )) { if ($with eq 'with') { next unless grep(/w/,@ARGV); @titles = @Titles; } else { next unless grep(/o/,@ARGV); @titles = (); } foreach $sub (@subs) { ($flag = $sub) =~ s/^Show(.).*$/\l$1/; next unless grep(/$flag/, @ARGV) && !grep(/\U$flag/,@ARGV); out; out "Testing %s %s titles", $sub, $with; out $title; out; &$sub( \@titles, \@Types, \@Widths, sub { &ShowRow( $_[0], \$theRow, \@Data ); }); } @titles = (); } } sub t2 { print "% ",@_,"\n\n"; system(@_); print "\n"; } sub the_test { @Widths = ( -5, -20, -10, -30); test "With negative widths" if grep(1 == $_, @ARGV); @Widths = map { $_ < 0 ? -$_ : $_ } @Widths; test "With positive widths" if grep(2 == $_, @ARGV); @Data = ( [ "Alan", "This is a very long line of text which simulates a text ". "string which is supposed to wrap in its field width." ], [ "Kevin", "This is another long line of text which will also wrap ". "so I can see if this part of ShowTable really works as ". "designed. If not it's back to the drawing board." ], [ "Toad", "This is a short line" ], [ "Monica", "This is another short line" ], [ "Stu", "Finally, here is another long line which shold wrap but ". "maybe not" ], ); @Types = qw( char text ); @Titles = qw( Name Biography ); @Widths = ( -10, 40 ); test "With negative widths" if grep(3 == $_, @ARGV); @Widths = ( 10, 40 ); test "With positive widths" if grep(4 == $_, @ARGV); @Titles = ( "An Int", "A Float", "A Money", "A String" ); @Types = ( "int", "float", "money", "varchar" ); @Data = ( [ 1, 1.234, "123456.78", "Some money" ], [ 2, 5.6, "12.45", "Less money" ], [ 3, .1234, "1235", "Modest money" ], [ 4, 123.4568, "987654321.00", "Lotsa money" ], [ 5, -34.2, -4321.98, "Negative money" ], ); @Widths = ( -5, -8, -8, -16 ); test "With negative widths and default precision" if grep(5 == $_, @ARGV); @Widths = ( -5, -8.2, -8.2, -16 ); test "With negative widths, and explicit precision" if grep(6 == $_, @ARGV); @Widths = ( 5, 8, 8, 16 ); test "With positive widths, and default precision" if grep(7 == $_, @ARGV); @Widths = ( 5, 8.2, 8.2, 16 ); test "With positive widths, and explicit precision" if grep(8 == $_, @ARGV); @Widths = ( '', '', '', '' ); test "With default widths, and default precision" if grep(9 == $_, @ARGV); @Widths = (); test "With no widths" if grep(10 == $_, @ARGV); # Now test "showtable" some if (grep(11 == $_, @ARGV)) { $| = 1; print "\nTesting showtable..\n"; print "\tShowing tables..\n\n" &t2("showtable -d: testfile"); &t2("showtable -break=: testfile"); &t2("showtable -d: -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile"); &t2("showtable -d: -titles=Login,PWD -f1,2 testfile"); &t2("showtable -d: -titles=Login,UID,GID,GCOS -f1,3-5 testfile"); &t2("showtable -d: -titles=HomeDir,GCOS,GID,UID,PWD,Login -f6,5,4,3,2,1 testfile"); print "\n\tShowing tables in pipes..\n\n"; &t2("showtable -d: testfile | showtable"); &t2("showtable -d: -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -t=1"); &t2("showtable -d: -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -t=1 -f1,3,4"); print "\n\tShowing lists ..\n\n"; &t2("showtable -d: -list testfile"); &t2("showtable -break=: -list testfile"); &t2("showtable -d: -list -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile"); &t2("showtable -d: -list -titles=Login,PWD -f1,2 testfile"); &t2("showtable -d: -list -titles=Login,UID,GID,GCOS -f1,3-5 testfile"); &t2("showtable -d: -list -titles=HomeDir,GCOS,GID,UID,PWD,Login -f6,5,4,3,2,1 testfile"); print "\n\tShowing lists in pipes..\n\n"; &t2("showtable -d: -list testfile | showtable -in=list"); &t2("showtable -d: -list -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -in=list -list -t=1"); &t2("showtable -d: -list -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -in=list -list -t=1 -f1,3,4"); print "\n\tShowing lists from tables..\n\n"; &t2("showtable -d: testfile | showtable -list"); &t2("showtable -d: -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -list -t=1"); &t2("showtable -d: -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -list -t=1 -f1,3,4"); print "\n\tShowing lists in pipes..\n\n"; &t2("showtable -d: -list testfile | showtable -in=list -box"); &t2("showtable -d: -list -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -in=list -box -t=1"); &t2("showtable -d: -list -titles=Login,PWD,UID,GID,GCOS,HomeDir,Shell testfile | showtable -in=list -box -t=1 -f1,3,4"); print "\n\tChecking showtable parsing for tabbed files..\n\n"; &t2("showtable testfile.tabs"); &t2("showtable -d'\t' testfile.tabs"); &t2("showtable -break='\t' testfile.tabs"); &t2("showtable testfile.tabs | showtable"); print "\n\tChecking column width specs..\n\n"; &t2("showtable -d: -cw=,,,10,10 testfile"); &t2("showtable -d: -w=80 testfile"); &t2("showtable -d: -f1,4,5 -cw=,10,10 testfile"); print "\n\tChecking showtable parsing list files..\n\n"; &t2("showtable -in=list tesfile.lst"); } } ���Data-ShowTable-4.6/testfile�������������������������������������������������������������������������000755 �000765 �000024 �00000002350 12162075450 015612� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������root:gobbledygook:0:0:Super-User:/:/bin/csh roott:gookgobbledy:0:0:Super-User:/:/bin/tcsh sysadm:*:0:0:System V Administration:/usr/admin:/bin/sh diag:*:0:996:Hardware Diagnostics:/usr/diags:/bin/csh daemon:*:1:1:daemons:/:/dev/null bin:*:2:2:System Tools Owner:/bin:/dev/null uucp:*:3:5:UUCP Owner:/usr/lib/uucp:/bin/csh sys:*:4:0:System Activity Owner:/var/adm:/bin/sh adm:*:5:3:Accounting Files Owner:/var/adm:/bin/sh lp::9:9:Print Spooler Owner:/var/spool/lp:/bin/sh nuucp::10:10:Remote UUCP User:/var/spool/uucppublic:/usr/lib/uucp/uucico auditor:*:11:0:Audit Activity Owner:/auditor:/bin/sh dbadmin:*:12:0:Security Database Owner:/dbadmin:/bin/sh rfindd:*:66:1:Rfind Daemon and Fsdump:/var/rfindd:/bin/sh EZsetup::992:998:System Setup:/var/sysadmdesktop/EZsetup:/bin/csh demos::993:997:Demonstration User:/usr/demos:/bin/csh OutOfBox::995:997:Out of Box Experience:/usr/people/tour:/bin/csh guest::998:998:Guest Account:/usr/people/guest:/bin/csh 4Dgifts::999:998:4Dgifts Account:/usr/people/4Dgifts:/bin/csh nobody:*:60001:60001:SVR4 nobody uid:/dev/null:/dev/null noaccess:*:60002:60002:uid no access:/dev/null:/dev/null nobody:*:-2:-2:original nobody uid:/dev/null:/dev/null stebbens:hobgoblin:1110:20:Alan Stebbens:/usr/people/stebbens:/bin/tcsh ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/testfile.lst���������������������������������������������������������������������000644 �000765 �000024 �00000001100 12162075450 016400� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������Date: 11/14 Task: netlogd + iinwatch Desc: To reduce the SCSI bandwidth on the root disk of the : logging server, iinwatch obtains logging info from a : network port. Date: 11/27 Task: twremote w/port switch Desc: Implement -p PORT switch. Date: 12/13 Task: STOPSVC -tag broken Desc: Fix bug with failure of -tag to work correctly. Date: 12/13 Task: Topology audit Desc: Add signal/command handler to trigger topology audit. Task: Oracle 7.3.2 support Desc: Make the apps link and run correctly with the Oracle 7.3.2 : client libraries. Date: 1/3/97 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/testfile.tabs��������������������������������������������������������������������000644 �000765 �000024 �00000002350 12162075450 016537� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������root gobbledygook 0 0 Super-User / /bin/csh roott gookgobbledy 0 0 Super-User / /bin/tcsh sysadm * 0 0 System V Administration /usr/admin /bin/sh diag * 0 996 Hardware Diagnostics /usr/diags /bin/csh daemon * 1 1 daemons / /dev/null bin * 2 2 System Tools Owner /bin /dev/null uucp * 3 5 UUCP Owner /usr/lib/uucp /bin/csh sys * 4 0 System Activity Owner /var/adm /bin/sh adm * 5 3 Accounting Files Owner /var/adm /bin/sh lp 9 9 Print Spooler Owner /var/spool/lp /bin/sh nuucp 10 10 Remote UUCP User /var/spool/uucppublic /usr/lib/uucp/uucico auditor * 11 0 Audit Activity Owner /auditor /bin/sh dbadmin * 12 0 Security Database Owner /dbadmin /bin/sh rfindd * 66 1 Rfind Daemon and Fsdump /var/rfindd /bin/sh EZsetup 992 998 System Setup /var/sysadmdesktop/EZsetup /bin/csh demos 993 997 Demonstration User /usr/demos /bin/csh OutOfBox 995 997 Out of Box Experience /usr/people/tour /bin/csh guest 998 998 Guest Account /usr/people/guest /bin/csh 4Dgifts 999 998 4Dgifts Account /usr/people/4Dgifts /bin/csh nobody * 60001 60001 SVR4 nobody uid /dev/null /dev/null noaccess * 60002 60002 uid no access /dev/null /dev/null nobody * -2 -2 original nobody uid /dev/null /dev/null stebbens hobgoblin 1110 20 Alan Stebbens /usr/people/stebbens /bin/tcsh ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/box-calls.t��������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016370� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/box-scaling.t������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016712� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/box-showtable.t����������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017262� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/box-widths.t�������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016574� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/box-wrap.t���������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016243� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/calls.pl�����������������������������������������������������������������������000755 �000765 �000024 �00000002420 12162075450 015744� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # Test calling sequences. # set $showSub or default to 'ShowBoxTable'. use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $showSub = \&ShowBoxTable unless $showSub ne ''; start_tests 8; run_test 1, sub { &$showSub(\@Titles, \@Types, \@Widths, \&showDataRow); }; run_test 2, sub { &$showSub(\@Titles, \@Types, \@Widths, \&showDataRow, \&ShowTableValue); }; run_test 3, sub { &$showSub(\@Titles, \@Types, \@Widths, \&showDataRow, \&ShowTableValue, 80); }; run_test 4, sub { &$showSub(\@Titles, \@Types, \@Widths, \&showDataRow, '', 80); }; run_test 5, sub { &$showSub({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, }); }; run_test 6, sub { &$showSub({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, fmt_sub => \&ShowTableValue, }); }; run_test 7, sub { &$showSub({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, fmt_sub => \&ShowTableValue, max_width => 80, }); }; run_test 8, sub { &$showSub({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, max_width => 80, }); }; ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-calls.t�������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016544� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-fmt.t���������������������������������������������������������������������000755 �000765 �000024 �00000006267 12162075450 016243� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/perl5 # Test HTML formatting use Data::ShowTable; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; @Data = (); require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); start_tests 12; run_test 1, sub { &ShowHTMLTable(\@Titles, \@Types, \@Widths, \&showDataRow, '', 80); }; run_test 2, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, dformats => [ 'FONT SIZE=-1', '' ], row_sub => \&showDataRow, }); }; run_test 3, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, dformats => [ 'FONT SIZE=-1' ], row_sub => \&showDataRow, }); }; run_test 4, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, tformats => [ 'B,I' ], row_sub => \&showDataRow, fmt_sub => \&ShowTableValue, }); }; run_test 5, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, fmt_sub => \&ShowTableValue, table_attrs => 'BORDER=0', }); }; run_test 6, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, fmt_sub => \&ShowTableValue, table_attrs => 'ALIGN=CENTER', }); }; run_test 7, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, row_sub => \&showDataRow, max_width => 80, tformats => [ 'b,i' ], dformats => [ 'tt' ], table_attrs => 'align=center', }); }; run_test 8, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, url_keys => { "Name" => "/cgi/foo?name=%V", "Address" => "/cgi/foo?addr=%V", "Index" => "/cgi/foo?index=%V", }, row_sub => \&showDataRow, }); }; # On this test, use embedded URLs foreach $row (@Data) { $row->[1] = "<B>".$row->[1]."</B>"; $row->[2] = "<I>".$row->[2]."</I>"; } run_test 9, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, no_escape => 1, widths => \@Widths, row_sub => \&showDataRow, }); }; run_test 10, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, no_escape => 1, table_attrs => 'BORDER=2 CELLSPACING=0 CELLPADDING=2', widths => \@Widths, row_sub => \&showDataRow, }); }; run_test 11, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, no_escape => 1, dformats => [ 'FONT SIZE=-1', '' ], url_keys => { Index => "http://cgi-bin/lookup?%K=%V", Name => "http://cgi-bin/lookup?%K=%V", }, row_sub => \&showDataRow, }); }; run_test 12, sub { &ShowHTMLTable({ titles => \@Titles, types => \@Types, widths => \@Widths, no_escape => 1, dformats => [ 'FONT SIZE=-1' ], url_keys => { Index => "http://cgi-bin/lookup?Index=%I?Key=%K?Value=%V", Name => "http://cgi-bin/lookup?Index=%I?Key=%K?Value=%V", Phone => "http://cgi-bin/lookup?Index=%I?Key=%K?Value=%V", Address => "http://cgi-bin/lookup?Index=%I?Key=%K?Value=%V", }, row_sub => \&showDataRow, }); }; �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-scaling.t�����������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017066� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-showtable.t���������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017436� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-widths.t������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016750� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/html-wrap.t��������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016417� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/list-calls.t�������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016553� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/list-scaling.t�����������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017075� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/list-showtable.t���������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017445� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/list-widths.t������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016757� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/list-wrap.t��������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016426� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/OBJ-TEST.pl��������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016043� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/���������������������������������������������������������������������������000755 �000765 �000024 �00000000000 12261625502 015116� 5����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/scaling.pl���������������������������������������������������������������������000755 �000765 �000024 �00000003753 12231517503 016275� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # Test column scaling use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $showSub = \&ShowBoxTable unless $showSub ne ''; start_tests 8; # Test negative widths run_test 1, sub { &$showSub({ widths => [ -5, -20, -10, -30, -10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 60, }); }; # Test positive widths run_test 2, sub { &$showSub({ widths => [ +5, +20, +10, +30, -10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 40, }); }; # Test no widths run_test 3, sub { &$showSub({ widths => [ ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; # Test large widths (with a rewindable data set, should be the same as minimal # columns). run_test 4, sub { &$showSub({ widths => [ +15, +30, +20, +40, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; # Test large widths with non-rewindable data set. (can't analyze the data, # so columns will be large). run_test 5, sub { &$showSub({ widths => [ +15, +30, +20, +40, +15 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, max_width => 70, }); }; # Still have fixed columns, but maybe cause wrapping run_test 6, sub { &$showSub({ widths => [ +14, +25, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, max_width => 60, }); }; # Now, have a no-limit column mixed in with a fixed width run_test 7, sub { &$showSub({ widths => [ +14, 0, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 60, }); }; # Now, have a no-limit column mixed in with a max width run_test 8, sub { &$showSub({ widths => [ +14, '', +10, +10, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; ���������������������Data-ShowTable-4.6/t/showtable.pl�������������������������������������������������������������������000755 �000765 �000024 �00000003750 12231520602 016634� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # Test "showtable" use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $showSub = \&ShowBoxTable unless $showSub ne ''; start_tests 8; # Test negative widths run_test 1, sub { &$showSub({ widths => [ -5, -20, -10, -30, -10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 40, }); }; # Test positive widths run_test 2, sub { &$showSub({ widths => [ +5, +20, +10, +30, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 40, }); }; # Test no widths run_test 3, sub { &$showSub({ widths => [ ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; # Test large widths (with a rewindable data set, should be the same as minimal # columns). run_test 4, sub { &$showSub({ widths => [ +15, +30, +20, +40, +15 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; # Test large widths with non-rewindable data set. (can't analyze the data, # so columns will be large). run_test 5, sub { &$showSub({ widths => [ +15, +30, +20, +40, +15 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, max_width => 70, }); }; # Still have fixed columns, but maybe cause wrapping run_test 6, sub { &$showSub({ widths => [ +14, +25, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, max_width => 60, }); }; # Now, have a no-limit column mixed in with a fixed width run_test 7, sub { &$showSub({ widths => [ +14, 0, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 60, }); }; # Now, have a no-limit column mixed in with a max width run_test 8, sub { &$showSub({ widths => [ +14, '', +10, +10, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, max_width => 30, }); }; ������������������������Data-ShowTable-4.6/t/simple-calls.t�����������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017071� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/simple-scaling.t���������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017413� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/simple-showtable.t�������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017763� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/simple-widths.t����������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 017275� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/simple-wrap.t������������������������������������������������������������������000755 �000765 �000024 �00000001175 12162075450 016744� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); ($type,$what) = $PROG =~ /^(\w+)-(\w+)\./; %types = ( list => 'ShowListTable', html => 'ShowHTMLTable', box => 'ShowBoxTable', simple => 'ShowSimpleTable', table => 'ShowTable', ); if (defined $types{$type}) { $showSub = $types{$type}; } else { die "I don't know about \"$type\" types!\n"; } $showSub = \&$showSub; $what = "t/$what" if -d "t" && !-r "$what.pl"; -r "$what.pl" or die "I don't know how to do \"$what\"!\n"; unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; do "$what.pl"; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/Test-Setup.pl������������������������������������������������������������������000755 �000765 �000024 �00000005144 12231521052 016660� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl use Carp; ($DIR,$PROG) = $0 =~ m=^(.*/)?([^/]+)$=; $DIR =~ s=/$== || chop($DIR = `pwd`); $testdir = -d 't' ? 't' : '.'; # Setup these globals @Titles = ("Index", "Name", "Phone", "Address", "Date"); @Types = ("int", "char", "char", "char", "date"); @Widths = ( 3, 20, 15, 25, 10 ); @Data = ( [ 1, "Alan Stebbens", "555-1234", "1234 Something St., CA", "1998-10-22" ], [ 2, "Bob Frankel", "555-1235", "9234 Nowhere Way, WA", "2001-01-02" ], [ 3, "Mr. Goodwrench","555-9432", "1238 Car Lane Pl., NY", "2004-04-20" ], [ 4, "Mr. Ed", "555-3215", "9876 Cowbarn Home, VA", "2008-09-12" ], [ 5, "Gunther Sveborg", "44-55-555-5555", "Kartophelhause 345, Munich, Germany", "2013.10.22"], ); sub talk { print STDERR @_; } sub start_tests($) { my $count = shift; # how many tests? mkdir("$testdir/out",0755) unless -d "$testdir/out"; print "1..$count\n"; # tell harness how many tests $| = 1; # flush the output } sub copy_test_output($) { my $kind = shift; print "*** \U$kind ***\n"; open(IN, "<$testdir/out/test.$kind"); while (<IN>) { print; } close IN; unlink "$testdir/out/test.$kind"; } sub showDataRow { &ShowRow( $_[0], \$theRow, \@Data ); } sub showDataRowOnce($) { my $rewindable = shift; if ($rewindable) { &ShowRow( 1, \$theRow, \@Data ); return 0; } &ShowRow( 0, \$theRow, \@Data ); } # run_test $num, \&sub; sub run_test($&) { my $num = shift; my $sub = shift; ref($sub) eq 'CODE' or croak "Need sub reference as second argument.\n"; open(savSTDOUT, ">&STDOUT"); # redirect STDOUT #open(savSTDERR, ">&STDERR"); open(STDOUT,">$testdir/out/test.stdout"); #open(STDERR,">$testdir/out/test.stderr"); select(STDOUT); local($theRow) = 0; # initialize the row pointer &$sub; # run the test close STDOUT; #close STDERR; # Copy stdout & stderr to the test.out file $testname = "$testdir/out/$PROG-$num"; $testout = "$testname.out"; $testref = "$testname.ref"; $testdiff = "$testname.diff"; unlink $testout; open(TESTOUT,">$testout"); select(TESTOUT); copy_test_output 'stdout'; #copy_test_output 'stderr'; close TESTOUT; open(STDOUT, ">&savSTDOUT"); # reopen STDOUT, STDERR #open(STDERR, ">&savSTDERR"); select(STDOUT); $|=1; if (! -f $testref) { # any existing reference? system("cp $testout $testref"); # no, copy } system("diff $testref $testout >$testdiff"); if ($?>>8) { print "not ok $num\n"; } else { print "ok $num\n"; unlink $testout; unlink $testdiff; } } ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/test-showtable.t���������������������������������������������������������������000755 �000765 �000024 �00000001352 12231527303 017442� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # test-showtable.t unshift(@INC,'../blib/lib') if -d '../blib/lib'; unshift(@INC,'t') if -d 't'; use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $script = ''; foreach $dir ('blib', '../blib') { if (-d $dir && -f "$dir/script/showtable") { $script = "$dir/script"; last; } } if ($script eq '') { die "Cannot find path to local 'showtable'\n"; } $testdir = ''; foreach $dir ('t', '../t') { if (-d $dir && -f "$dir/testdates.txt") { $testdir = "$dir"; last; } } if ($testdir eq '') { die "Cannot find path to test directory.\n"; } start_tests 1; # Test negative widths run_test 1, sub { system("$script/showtable -d' ' $testdir/testdates.txt"); }; ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/testdates.txt������������������������������������������������������������������000644 �000765 �000024 �00000000051 12231522621 017037� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������hallo 13.12.2013 nanu jo 2013-12-13 haha ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/testfile�����������������������������������������������������������������������000755 �000765 �000024 �00000002350 12162075450 016055� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������root:gobbledygook:0:0:Super-User:/:/bin/csh roott:gookgobbledy:0:0:Super-User:/:/bin/tcsh sysadm:*:0:0:System V Administration:/usr/admin:/bin/sh diag:*:0:996:Hardware Diagnostics:/usr/diags:/bin/csh daemon:*:1:1:daemons:/:/dev/null bin:*:2:2:System Tools Owner:/bin:/dev/null uucp:*:3:5:UUCP Owner:/usr/lib/uucp:/bin/csh sys:*:4:0:System Activity Owner:/var/adm:/bin/sh adm:*:5:3:Accounting Files Owner:/var/adm:/bin/sh lp::9:9:Print Spooler Owner:/var/spool/lp:/bin/sh nuucp::10:10:Remote UUCP User:/var/spool/uucppublic:/usr/lib/uucp/uucico auditor:*:11:0:Audit Activity Owner:/auditor:/bin/sh dbadmin:*:12:0:Security Database Owner:/dbadmin:/bin/sh rfindd:*:66:1:Rfind Daemon and Fsdump:/var/rfindd:/bin/sh EZsetup::992:998:System Setup:/var/sysadmdesktop/EZsetup:/bin/csh demos::993:997:Demonstration User:/usr/demos:/bin/csh OutOfBox::995:997:Out of Box Experience:/usr/people/tour:/bin/csh guest::998:998:Guest Account:/usr/people/guest:/bin/csh 4Dgifts::999:998:4Dgifts Account:/usr/people/4Dgifts:/bin/csh nobody:*:60001:60001:SVR4 nobody uid:/dev/null:/dev/null noaccess:*:60002:60002:uid no access:/dev/null:/dev/null nobody:*:-2:-2:original nobody uid:/dev/null:/dev/null stebbens:hobgoblin:1110:20:Alan Stebbens:/usr/people/stebbens:/bin/tcsh ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/widths.pl����������������������������������������������������������������������000755 �000765 �000024 �00000003520 12231517355 016154� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # Test use of widths use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $showSub = \&ShowBoxTable unless $showSub ne ''; start_tests 8; # Test negative widths run_test 1, sub { &$showSub({ widths => [ -5, -20, -10, -30, -10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test positive widths run_test 2, sub { &$showSub({ widths => [ +5, +20, +10, +30, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test no widths run_test 3, sub { &$showSub({ widths => [ ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test large widths (with a rewindable data set, should be the same as minimal # columns). run_test 4, sub { &$showSub({ widths => [ +15, +30, +20, +40, +15 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test large widths with non-rewindable data set. (can't analyze the data, # so columns will be large). run_test 5, sub { &$showSub({ widths => [ +15, +30, +20, +40, +15 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, }); }; # Still have fixed columns, but maybe cause wrapping run_test 6, sub { &$showSub({ widths => [ +14, +25, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, }); }; # Now, have a no-limit column mixed in with a fixed width run_test 7, sub { &$showSub({ widths => [ +14, 0, +15, +25, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow }); }; # Now, have a no-limit column mixed in with a max width run_test 8, sub { &$showSub({ widths => [ +14, '', +10, +10, +10 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow }); }; ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/wrap.pl������������������������������������������������������������������������000755 �000765 �000024 �00000003351 12162075450 015623� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������#!/usr/bin/env perl # Test use of wrapping use Data::ShowTable; require 'Test-Setup.pl'; sub start_tests($); sub run_test($&); $showSub = \&ShowBoxTable unless $showSub ne ''; @Data = ( [ "Alan", "This is a very long line of text which simulates a text ". "string which is supposed to wrap in its field width." ], [ "Kevin", "This is another long line of text which will also wrap ". "so I can see if this part of ShowTable really works as ". "designed. If not it's back to the drawing board." ], [ "Toad", "This is a short line" ], [ "Monica", "This is another short line" ], [ "Stu", "Finally, here is another long line which shold wrap but ". "maybe not" ], ); @Types = qw( char text ); @Titles = qw( Name Biography ); start_tests 5; # Test negative widths run_test 1, sub { &$showSub({ widths => [ -10, 40 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test with positive widths run_test 2, sub { &$showSub({ widths => [ 10, 40 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test with no widths run_test 3, sub { &$showSub({ widths => [ ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test large widths (with a rewindable data set, should be the same as # minimal columns). run_test 4, sub { &$showSub({ widths => [ 20, 60 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRow, }); }; # Test large widths with non-rewindable data set. (can't analyze the # data, so columns will be large). run_test 5, sub { &$showSub({ widths => [ 20, 60 ], titles => \@Titles, types => \@Types, row_sub => \&showDataRowOnce, }); }; ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-1.ref����������������������������������������������������������000644 �000765 �000024 �00000001566 12231521057 020105� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +-------+-----------------+----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-2.ref����������������������������������������������������������000644 �000765 �000024 �00000001566 12231521057 020106� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +-------+-----------------+----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-3.ref����������������������������������������������������������000644 �000765 �000024 �00000002142 12231521057 020076� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+--------------+-------------+---------------------------+----------+ | Index | Name | Phone | Address | Date | +-------+--------------+-------------+---------------------------+----------+ | 1 | Alan >| 555-1234 | 1234 Something St., CA | 1998-10->| | |<Stebbens | | |<22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01->| | | | | |<02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., NY | 2004-04->| | |<Goodwrench | | |<20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09->| | | | | |<12 | | 5 | Gunther >| 44-55-555-5>| Kartophelhause 345, >| 2013.10.>| | |<Sveborg |<555 |<Munich, Germany |<22 | +-------+--------------+-------------+---------------------------+----------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-4.ref����������������������������������������������������������000644 �000765 �000024 �00000002142 12231521057 020077� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+--------------+-------------+---------------------------+----------+ | Index | Name | Phone | Address | Date | +-------+--------------+-------------+---------------------------+----------+ | 1 | Alan >| 555-1234 | 1234 Something St., CA | 1998-10->| | |<Stebbens | | |<22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01->| | | | | |<02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., NY | 2004-04->| | |<Goodwrench | | |<20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09->| | | | | |<12 | | 5 | Gunther >| 44-55-555-5>| Kartophelhause 345, >| 2013.10.>| | |<Sveborg |<555 |<Munich, Germany |<22 | +-------+--------------+-------------+---------------------------+----------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-5.ref����������������������������������������������������������000644 �000765 �000024 �00000001566 12231521057 020111� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +-------+-----------------+----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-6.ref����������������������������������������������������������000644 �000765 �000024 �00000001566 12231521057 020112� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +-------+-----------------+----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-7.ref����������������������������������������������������������000644 �000765 �000024 �00000002142 12231521057 020102� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+--------------+-------------+---------------------------+----------+ | Index | Name | Phone | Address | Date | +-------+--------------+-------------+---------------------------+----------+ | 1 | Alan >| 555-1234 | 1234 Something St., CA | 1998-10->| | |<Stebbens | | |<22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01->| | | | | |<02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., NY | 2004-04->| | |<Goodwrench | | |<20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09->| | | | | |<12 | | 5 | Gunther >| 44-55-555-5>| Kartophelhause 345, >| 2013.10.>| | |<Sveborg |<555 |<Munich, Germany |<22 | +-------+--------------+-------------+---------------------------+----------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-calls.t-8.ref����������������������������������������������������������000644 �000765 �000024 �00000002142 12231521057 020103� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+--------------+-------------+---------------------------+----------+ | Index | Name | Phone | Address | Date | +-------+--------------+-------------+---------------------------+----------+ | 1 | Alan >| 555-1234 | 1234 Something St., CA | 1998-10->| | |<Stebbens | | |<22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01->| | | | | |<02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., NY | 2004-04->| | |<Goodwrench | | |<20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09->| | | | | |<12 | | 5 | Gunther >| 44-55-555-5>| Kartophelhause 345, >| 2013.10.>| | |<Sveborg |<555 |<Munich, Germany |<22 | +-------+--------------+-------------+---------------------------+----------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-1.ref��������������������������������������������������������000644 �000765 �000024 �00000001720 12231521057 020417� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+----------+----------+----------------------+-------+ | Index | Name | Phone | Address | Date | +-------+----------+----------+----------------------+-------+ | 1 | Alan >| 555-1234 | 1234 Something St., >| 1998->| | |<Stebbens | |<CA |<10-22 | | 2 | Bob >| 555-1235 | 9234 Nowhere Way, WA | 2001->| | |<Frankel | | |<01-02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., >| 2004->| | |<Goodwren>| |<NY |<04-20 | | |<ch | | | | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, >| 2008->| | | | |<VA |<09-12 | | 5 | Gunther >| 44-55-55>| Kartophelhause 345, >| 2013.>| | |<Sveborg |<5-5555 |<Munich, Germany |<10.22 | +-------+----------+----------+----------------------+-------+ ������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-2.ref��������������������������������������������������������000644 �000765 �000024 �00000002004 12231521057 020414� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+------------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+------------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Something >|<-10->| | |<Steb>| |<St., CA |<22 | | |<bens | | | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere >|<-01->| | |<kel | |<Way, WA |<02 | | 3 | Mr. >| 555-9>| 1238 Car >| 2004>| | |<Good>|<432 |<Lane Pl., >|<-04->| | |<wren>| |<NY |<20 | | |<ch | | | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn >|<-09->| | | | |<Home, VA |<12 | | 5 | Gunt>| 44-55>| Kartophelh>| 2013>| | |<her >|<-555->|<ause 345, >|<.10.>| | |<Sveb>|<5555 |<Munich, >|<22 | | |<org | |<Germany | | +-------+------+-------+------------+------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-3.ref��������������������������������������������������������000644 �000765 �000024 �00000003057 12231521057 020426� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--+----+----+-------+---+ |Index|Name|Phone|Address|Date| +--+----+----+-------+---+ | 1 | Al>| 55>| 1234 >| 1>| | |<an>|<5->|<Somet>|<9>| | |< >|<12>|<hing >|<9>| | |<St>|<34 |<St., >|<8>| | |<eb>| |<CA |<->| | |<be>| | |<1>| | |<ns | | |<0>| | | | | |<->| | | | | |<2>| | | | | |<2 | | 2 | Bo>| 55>| 9234 >| 2>| | |<b >|<5->|<Nowhe>|<0>| | |<Fr>|<12>|<re >|<0>| | |<an>|<35 |<Way, >|<1>| | |<ke>| |<WA |<->| | |<l | | |<0>| | | | | |<1>| | | | | |<->| | | | | |<0>| | | | | |<2 | | 3 | Mr>| 55>| 1238 >| 2>| | |<. >|<5->|<Car >|<0>| | |<Go>|<94>|<Lane >|<0>| | |<od>|<32 |<Pl., >|<4>| | |<wr>| |<NY |<->| | |<en>| | |<0>| | |<ch | | |<4>| | | | | |<->| | | | | |<2>| | | | | |<0 | | 4 | Mr>| 55>| 9876 >| 2>| | |<. >|<5->|<Cowba>|<0>| | |<Ed |<32>|<rn >|<0>| | | |<15 |<Home,>|<8>| | | | |< VA |<->| | | | | |<0>| | | | | |<9>| | | | | |<->| | | | | |<1>| | | | | |<2 | | 5 | Gu>| 44>| Karto>| 2>| | |<nt>|<-5>|<phelh>|<0>| | |<he>|<5->|<ause >|<1>| | |<r >|<55>|<345, >|<3>| | |<Sv>|<5->|<Munic>|<.>| | |<eb>|<55>|<h, >|<1>| | |<or>|<55 |<Germa>|<0>| | |<g | |<ny |<.>| | | | | |<2>| | | | | |<2 | +--+----+----+-------+---+ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-4.ref��������������������������������������������������������000644 �000765 �000024 �00000002156 12231521060 020420� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+---------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+---------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Somethi>|<-10->| | |<Steb>| |<ng St.,>|<22 | | |<bens | |< CA | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere>|<-01->| | |<kel | |< Way, >|<02 | | | | |<WA | | | 3 | Mr. >| 555-9>| 1238 >| 2004>| | |<Good>|<432 |<Car >|<-04->| | |<wren>| |<Lane >|<20 | | |<ch | |<Pl., NY | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn>|<-09->| | | | |< Home, >|<12 | | | | |<VA | | | 5 | Gunt>| 44-55>| Kartoph>| 2013>| | |<her >|<-555->|<elhause>|<.10.>| | |<Sveb>|<5555 |< 345, >|<22 | | |<org | |<Munich,>| | | | | |< >| | | | | |<Germany | | +-------+------+-------+---------+------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-5.ref��������������������������������������������������������000644 �000765 �000024 �00000002352 12231521060 020417� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | Index | Name | Phone | Address | Date | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-6.ref��������������������������������������������������������000644 �000765 �000024 �00000002076 12231521060 020423� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +----------------+---------------------------+-----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +----------------+---------------------------+-----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +----------------+---------------------------+-----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-7.ref��������������������������������������������������������000644 �000765 �000024 �00000001720 12231521060 020417� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+----------+----------+----------------------+-------+ | Index | Name | Phone | Address | Date | +-------+----------+----------+----------------------+-------+ | 1 | Alan >| 555-1234 | 1234 Something St., >| 1998->| | |<Stebbens | |<CA |<10-22 | | 2 | Bob >| 555-1235 | 9234 Nowhere Way, WA | 2001->| | |<Frankel | | |<01-02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., >| 2004->| | |<Goodwren>| |<NY |<04-20 | | |<ch | | | | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, >| 2008->| | | | |<VA |<09-12 | | 5 | Gunther >| 44-55-55>| Kartophelhause 345, >| 2013.>| | |<Sveborg |<5-5555 |<Munich, Germany |<10.22 | +-------+----------+----------+----------------------+-------+ ������������������������������������������������Data-ShowTable-4.6/t/out/box-scaling.t-8.ref��������������������������������������������������������000644 �000765 �000024 �00000002156 12231521060 020424� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+---------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+---------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Somethi>|<-10->| | |<Steb>| |<ng St.,>|<22 | | |<bens | |< CA | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere>|<-01->| | |<kel | |< Way, >|<02 | | | | |<WA | | | 3 | Mr. >| 555-9>| 1238 >| 2004>| | |<Good>|<432 |<Car >|<-04->| | |<wren>| |<Lane >|<20 | | |<ch | |<Pl., NY | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn>|<-09->| | | | |< Home, >|<12 | | | | |<VA | | | 5 | Gunt>| 44-55>| Kartoph>| 2013>| | |<her >|<-555->|<elhause>|<.10.>| | |<Sveb>|<5555 |< 345, >|<22 | | |<org | |<Munich,>| | | | | |< >| | | | | |<Germany | | +-------+------+-------+---------+------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-1.ref������������������������������������������������������000644 �000765 �000024 �00000002004 12231521060 020755� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+------------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+------------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Something >|<-10->| | |<Steb>| |<St., CA |<22 | | |<bens | | | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere >|<-01->| | |<kel | |<Way, WA |<02 | | 3 | Mr. >| 555-9>| 1238 Car >| 2004>| | |<Good>|<432 |<Lane Pl., >|<-04->| | |<wren>| |<NY |<20 | | |<ch | | | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn >|<-09->| | | | |<Home, VA |<12 | | 5 | Gunt>| 44-55>| Kartophelh>| 2013>| | |<her >|<-555->|<ause 345, >|<.10.>| | |<Sveb>|<5555 |<Munich, >|<22 | | |<org | |<Germany | | +-------+------+-------+------------+------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-2.ref������������������������������������������������������000644 �000765 �000024 �00000002004 12231521060 020756� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+------------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+------------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Something >|<-10->| | |<Steb>| |<St., CA |<22 | | |<bens | | | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere >|<-01->| | |<kel | |<Way, WA |<02 | | 3 | Mr. >| 555-9>| 1238 Car >| 2004>| | |<Good>|<432 |<Lane Pl., >|<-04->| | |<wren>| |<NY |<20 | | |<ch | | | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn >|<-09->| | | | |<Home, VA |<12 | | 5 | Gunt>| 44-55>| Kartophelh>| 2013>| | |<her >|<-555->|<ause 345, >|<.10.>| | |<Sveb>|<5555 |<Munich, >|<22 | | |<org | |<Germany | | +-------+------+-------+------------+------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-3.ref������������������������������������������������������000644 �000765 �000024 �00000003057 12231521060 020770� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--+----+----+-------+---+ |Index|Name|Phone|Address|Date| +--+----+----+-------+---+ | 1 | Al>| 55>| 1234 >| 1>| | |<an>|<5->|<Somet>|<9>| | |< >|<12>|<hing >|<9>| | |<St>|<34 |<St., >|<8>| | |<eb>| |<CA |<->| | |<be>| | |<1>| | |<ns | | |<0>| | | | | |<->| | | | | |<2>| | | | | |<2 | | 2 | Bo>| 55>| 9234 >| 2>| | |<b >|<5->|<Nowhe>|<0>| | |<Fr>|<12>|<re >|<0>| | |<an>|<35 |<Way, >|<1>| | |<ke>| |<WA |<->| | |<l | | |<0>| | | | | |<1>| | | | | |<->| | | | | |<0>| | | | | |<2 | | 3 | Mr>| 55>| 1238 >| 2>| | |<. >|<5->|<Car >|<0>| | |<Go>|<94>|<Lane >|<0>| | |<od>|<32 |<Pl., >|<4>| | |<wr>| |<NY |<->| | |<en>| | |<0>| | |<ch | | |<4>| | | | | |<->| | | | | |<2>| | | | | |<0 | | 4 | Mr>| 55>| 9876 >| 2>| | |<. >|<5->|<Cowba>|<0>| | |<Ed |<32>|<rn >|<0>| | | |<15 |<Home,>|<8>| | | | |< VA |<->| | | | | |<0>| | | | | |<9>| | | | | |<->| | | | | |<1>| | | | | |<2 | | 5 | Gu>| 44>| Karto>| 2>| | |<nt>|<-5>|<phelh>|<0>| | |<he>|<5->|<ause >|<1>| | |<r >|<55>|<345, >|<3>| | |<Sv>|<5->|<Munic>|<.>| | |<eb>|<55>|<h, >|<1>| | |<or>|<55 |<Germa>|<0>| | |<g | |<ny |<.>| | | | | |<2>| | | | | |<2 | +--+----+----+-------+---+ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-4.ref������������������������������������������������������000644 �000765 �000024 �00000002156 12231521060 020770� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+---------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+---------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Somethi>|<-10->| | |<Steb>| |<ng St.,>|<22 | | |<bens | |< CA | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere>|<-01->| | |<kel | |< Way, >|<02 | | | | |<WA | | | 3 | Mr. >| 555-9>| 1238 >| 2004>| | |<Good>|<432 |<Car >|<-04->| | |<wren>| |<Lane >|<20 | | |<ch | |<Pl., NY | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn>|<-09->| | | | |< Home, >|<12 | | | | |<VA | | | 5 | Gunt>| 44-55>| Kartoph>| 2013>| | |<her >|<-555->|<elhause>|<.10.>| | |<Sveb>|<5555 |< 345, >|<22 | | |<org | |<Munich,>| | | | | |< >| | | | | |<Germany | | +-------+------+-------+---------+------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-5.ref������������������������������������������������������000644 �000765 �000024 �00000002352 12231521060 020767� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | Index | Name | Phone | Address | Date | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-6.ref������������������������������������������������������000644 �000765 �000024 �00000002076 12231521060 020773� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +----------------+---------------------------+-----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +----------------+---------------------------+-----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +----------------+---------------------------+-----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-7.ref������������������������������������������������������000644 �000765 �000024 �00000001720 12231521060 020767� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+----------+----------+----------------------+-------+ | Index | Name | Phone | Address | Date | +-------+----------+----------+----------------------+-------+ | 1 | Alan >| 555-1234 | 1234 Something St., >| 1998->| | |<Stebbens | |<CA |<10-22 | | 2 | Bob >| 555-1235 | 9234 Nowhere Way, WA | 2001->| | |<Frankel | | |<01-02 | | 3 | Mr. >| 555-9432 | 1238 Car Lane Pl., >| 2004->| | |<Goodwren>| |<NY |<04-20 | | |<ch | | | | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, >| 2008->| | | | |<VA |<09-12 | | 5 | Gunther >| 44-55-55>| Kartophelhause 345, >| 2013.>| | |<Sveborg |<5-5555 |<Munich, Germany |<10.22 | +-------+----------+----------+----------------------+-------+ ������������������������������������������������Data-ShowTable-4.6/t/out/box-showtable.t-8.ref������������������������������������������������������000644 �000765 �000024 �00000002156 12231521060 020774� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------+-------+---------+------+ | Index | Name | Phone | Address | Date | +-------+------+-------+---------+------+ | 1 | Alan>| 555-1>| 1234 >| 1998>| | |< >|<234 |<Somethi>|<-10->| | |<Steb>| |<ng St.,>|<22 | | |<bens | |< CA | | | 2 | Bob >| 555-1>| 9234 >| 2001>| | |<Fran>|<235 |<Nowhere>|<-01->| | |<kel | |< Way, >|<02 | | | | |<WA | | | 3 | Mr. >| 555-9>| 1238 >| 2004>| | |<Good>|<432 |<Car >|<-04->| | |<wren>| |<Lane >|<20 | | |<ch | |<Pl., NY | | | 4 | Mr. >| 555-3>| 9876 >| 2008>| | |<Ed |<215 |<Cowbarn>|<-09->| | | | |< Home, >|<12 | | | | |<VA | | | 5 | Gunt>| 44-55>| Kartoph>| 2013>| | |<her >|<-555->|<elhause>|<.10.>| | |<Sveb>|<5555 |< 345, >|<22 | | |<org | |<Munich,>| | | | | |< >| | | | | |<Germany | | +-------+------+-------+---------+------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-1.ref���������������������������������������������������������000644 �000765 �000024 �00000001571 12231521060 020277� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+-------------------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+-------------------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-------+-----------------+----------------+-------------------------------------+------------+ ���������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-2.ref���������������������������������������������������������000644 �000765 �000024 �00000001600 12231521060 020271� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+------------+--------------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+------------+--------------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555->| Kartophelhause 345, Munich, >| 2013.10.22 | | | |<5555 |<Germany | | +-------+-----------------+------------+--------------------------------+------------+ ��������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-3.ref���������������������������������������������������������000644 �000765 �000024 �00000001571 12231521060 020301� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+-------------------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+-------------------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-------+-----------------+----------------+-------------------------------------+------------+ ���������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-4.ref���������������������������������������������������������000644 �000765 �000024 �00000001571 12231521060 020302� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+-------------------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+-------------------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-------+-----------------+----------------+-------------------------------------+------------+ ���������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-5.ref���������������������������������������������������������000644 �000765 �000024 �00000002352 12231521060 020301� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | Index | Name | Phone | Address | Date | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, Munich, Germany | 2013.10.22 | +-----------------+--------------------------------+----------------------+------------------------------------------+-----------------+ ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-6.ref���������������������������������������������������������000644 �000765 �000024 �00000002076 12231521060 020305� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +----------------+---------------------------+-----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +----------------+---------------------------+-----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +----------------+---------------------------+-----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-7.ref���������������������������������������������������������000644 �000765 �000024 �00000001566 12231521060 020311� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+----------------+---------------------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+----------------+---------------------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 Something St., CA | 1998-10-22 | | 2 | Bob Frankel | 555-1235 | 9234 Nowhere Way, WA | 2001-01-02 | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car Lane Pl., NY | 2004-04-20 | | 4 | Mr. Ed | 555-3215 | 9876 Cowbarn Home, VA | 2008-09-12 | | 5 | Gunther Sveborg | 44-55-555-5555 | Kartophelhause 345, >| 2013.10.22 | | | | |<Munich, Germany | | +-------+-----------------+----------------+---------------------------+------------+ ������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-widths.t-8.ref���������������������������������������������������������000644 �000765 �000024 �00000002540 12231521060 020303� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+-----------------+------------+------------+------------+ | Index | Name | Phone | Address | Date | +-------+-----------------+------------+------------+------------+ | 1 | Alan Stebbens | 555-1234 | 1234 >| 1998-10-22 | | | | |<Something >| | | | | |<St., CA | | | 2 | Bob Frankel | 555-1235 | 9234 >| 2001-01-02 | | | | |<Nowhere >| | | | | |<Way, WA | | | 3 | Mr. Goodwrench | 555-9432 | 1238 Car >| 2004-04-20 | | | | |<Lane Pl., >| | | | | |<NY | | | 4 | Mr. Ed | 555-3215 | 9876 >| 2008-09-12 | | | | |<Cowbarn >| | | | | |<Home, VA | | | 5 | Gunther Sveborg | 44-55-555->| Kartophelh>| 2013.10.22 | | | |<5555 |<ause 345, >| | | | | |<Munich, >| | | | | |<Germany | | +-------+-----------------+------------+------------+------------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-wrap.t-1.ref�����������������������������������������������������������000644 �000765 �000024 �00000001600 12231521060 017737� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--------+------------------------------------------+ | Name | Biography | +--------+------------------------------------------+ | Alan | This is a very long line of text which >| | |<simulates a text string which is >| | |<supposed to wrap in its field width. | | Kevin | This is another long line of text which >| | |<will also wrap so I can see if this >| | |<part of ShowTable really works as >| | |<designed. If not it's back to the >| | |<drawing board. | | Toad | This is a short line | | Monica | This is another short line | | Stu | Finally, here is another long line >| | |<which shold wrap but maybe not | +--------+------------------------------------------+ ��������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-wrap.t-2.ref�����������������������������������������������������������000644 �000765 �000024 �00000001600 12231521060 017740� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--------+------------------------------------------+ | Name | Biography | +--------+------------------------------------------+ | Alan | This is a very long line of text which >| | |<simulates a text string which is >| | |<supposed to wrap in its field width. | | Kevin | This is another long line of text which >| | |<will also wrap so I can see if this >| | |<part of ShowTable really works as >| | |<designed. If not it's back to the >| | |<drawing board. | | Toad | This is a short line | | Monica | This is another short line | | Stu | Finally, here is another long line >| | |<which shold wrap but maybe not | +--------+------------------------------------------+ ��������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-wrap.t-3.ref�����������������������������������������������������������000644 �000765 �000024 �00000003056 12231521060 017750� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--------+-----------------------------------------------------------------------------------------------------------------------------------------------------------------+ | Name | Biography | +--------+-----------------------------------------------------------------------------------------------------------------------------------------------------------------+ | Alan | This is a very long line of text which simulates a text string which is supposed to wrap in its field width. | | Kevin | This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board. | | Toad | This is a short line | | Monica | This is another short line | | Stu | Finally, here is another long line which shold wrap but maybe not | +--------+-----------------------------------------------------------------------------------------------------------------------------------------------------------------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/box-wrap.t-4.ref�����������������������������������������������������������000644 �000765 �000024 �00000001737 12231521060 017755� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +--------+--------------------------------------------------------------+ | Name | Biography | +--------+--------------------------------------------------------------+ | Alan | This is a very long line of text which simulates a text >| | |<string which is supposed to wrap in its field width. | | Kevin | This is another long line of text which will also wrap so I >| | |<can see if this part of ShowTable really works as designed. >| | |< If not it's back to the drawing board. | | Toad | This is a short line | | Monica | This is another short line | | Stu | Finally, here is another long line which shold wrap but >| | |<maybe not | +--------+--------------------------------------------------------------+ ���������������������������������Data-ShowTable-4.6/t/out/box-wrap.t-5.ref�����������������������������������������������������������000644 �000765 �000024 �00000002225 12231521060 017747� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +----------------------+--------------------------------------------------------------+ | Name | Biography | +----------------------+--------------------------------------------------------------+ | Alan | This is a very long line of text which simulates a text >| | |<string which is supposed to wrap in its field width. | | Kevin | This is another long line of text which will also wrap so I >| | |<can see if this part of ShowTable really works as designed. >| | |< If not it's back to the drawing board. | | Toad | This is a short line | | Monica | This is another short line | | Stu | Finally, here is another long line which shold wrap but >| | |<maybe not | +----------------------+--------------------------------------------------------------+ ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-1.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020247� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-2.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020250� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-3.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020251� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-4.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020252� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-5.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020253� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-6.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020254� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-7.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020255� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-calls.t-8.ref���������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020256� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-1.ref�����������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 017737� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-10.ref����������������������������������������������������������000644 �000765 �000024 �00000002302 12231521060 020010� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLSPACING=0 CELLPADDING=2> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=26%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT><B>Alan Stebbens</B></TD> <TD ALIGN=LEFT><I>555-1234</I></TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT><B>Bob Frankel</B></TD> <TD ALIGN=LEFT><I>555-1235</I></TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT><B>Mr. Goodwrench</B></TD> <TD ALIGN=LEFT><I>555-9432</I></TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT><B>Mr. Ed</B></TD> <TD ALIGN=LEFT><I>555-3215</I></TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT><B>Gunther Sveborg</B></TD> <TD ALIGN=LEFT><I>44-55-555-5555</I></TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-11.ref����������������������������������������������������������000644 �000765 �000024 �00000003607 12231521060 020022� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=26%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1"><FONT SIZE=-1>1</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Name=&lt;B&gt;Alan&#32;Stebbens&lt;/B&gt;"><B>Alan Stebbens</B></A></TD> <TD ALIGN=LEFT><I>555-1234</I></TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=2"><FONT SIZE=-1>2</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Name=&lt;B&gt;Bob&#32;Frankel&lt;/B&gt;"><B>Bob Frankel</B></A></TD> <TD ALIGN=LEFT><I>555-1235</I></TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=3"><FONT SIZE=-1>3</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Name=&lt;B&gt;Mr.&#32;Goodwrench&lt;/B&gt;"><B>Mr. Goodwrench</B></A></TD> <TD ALIGN=LEFT><I>555-9432</I></TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=4"><FONT SIZE=-1>4</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Name=&lt;B&gt;Mr.&#32;Ed&lt;/B&gt;"><B>Mr. Ed</B></A></TD> <TD ALIGN=LEFT><I>555-3215</I></TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=5"><FONT SIZE=-1>5</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Name=&lt;B&gt;Gunther&#32;Sveborg&lt;/B&gt;"><B>Gunther Sveborg</B></A></TD> <TD ALIGN=LEFT><I>44-55-555-5555</I></TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-12.ref����������������������������������������������������������000644 �000765 �000024 �00000006617 12231521060 020027� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=26%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1?Key=Index?Value=1"><FONT SIZE=-1>1</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=2?Key=Name?Value=&lt;B&gt;Alan&#32;Stebbens&lt;/B&gt;"><FONT SIZE=-1><B>Alan Stebbens</B></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=3?Key=Phone?Value=&lt;I&gt;555-1234&lt;/I&gt;"><FONT SIZE=-1><I>555-1234</I></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=4?Key=Address?Value=1234&#32;Something&#32;St.,&#32;CA"><FONT SIZE=-1>1234 Something St., CA</FONT></A></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>1998-10-22</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1?Key=Index?Value=2"><FONT SIZE=-1>2</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=2?Key=Name?Value=&lt;B&gt;Bob&#32;Frankel&lt;/B&gt;"><FONT SIZE=-1><B>Bob Frankel</B></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=3?Key=Phone?Value=&lt;I&gt;555-1235&lt;/I&gt;"><FONT SIZE=-1><I>555-1235</I></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=4?Key=Address?Value=9234&#32;Nowhere&#32;Way,&#32;WA"><FONT SIZE=-1>9234 Nowhere Way, WA</FONT></A></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2001-01-02</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1?Key=Index?Value=3"><FONT SIZE=-1>3</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=2?Key=Name?Value=&lt;B&gt;Mr.&#32;Goodwrench&lt;/B&gt;"><FONT SIZE=-1><B>Mr. Goodwrench</B></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=3?Key=Phone?Value=&lt;I&gt;555-9432&lt;/I&gt;"><FONT SIZE=-1><I>555-9432</I></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=4?Key=Address?Value=1238&#32;Car&#32;Lane&#32;Pl.,&#32;NY"><FONT SIZE=-1>1238 Car Lane Pl., NY</FONT></A></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2004-04-20</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1?Key=Index?Value=4"><FONT SIZE=-1>4</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=2?Key=Name?Value=&lt;B&gt;Mr.&#32;Ed&lt;/B&gt;"><FONT SIZE=-1><B>Mr. Ed</B></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=3?Key=Phone?Value=&lt;I&gt;555-3215&lt;/I&gt;"><FONT SIZE=-1><I>555-3215</I></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=4?Key=Address?Value=9876&#32;Cowbarn&#32;Home,&#32;VA"><FONT SIZE=-1>9876 Cowbarn Home, VA</FONT></A></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2008-09-12</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="http://cgi-bin/lookup?Index=1?Key=Index?Value=5"><FONT SIZE=-1>5</FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=2?Key=Name?Value=&lt;B&gt;Gunther&#32;Sveborg&lt;/B&gt;"><FONT SIZE=-1><B>Gunther Sveborg</B></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=3?Key=Phone?Value=&lt;I&gt;44-55-555-5555&lt;/I&gt;"><FONT SIZE=-1><I>44-55-555-5555</I></FONT></A></TD> <TD ALIGN=LEFT><A HREF="http://cgi-bin/lookup?Index=4?Key=Address?Value=Kartophelhause&#32;345,&#32;Munich,&#32;Germany"><FONT SIZE=-1>Kartophelhause 345, Munich, Germany</FONT></A></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2013.10.22</FONT></TD> </TR> </TABLE> �����������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-2.ref�����������������������������������������������������������000644 �000765 �000024 �00000002345 12231521060 017740� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>1</FONT></TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>2</FONT></TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>3</FONT></TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>4</FONT></TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>5</FONT></TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-3.ref�����������������������������������������������������������000644 �000765 �000024 �00000003211 12231521060 017732� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>1</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Alan Stebbens</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>555-1234</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>1234 Something St., CA</FONT></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>1998-10-22</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>2</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Bob Frankel</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>555-1235</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>9234 Nowhere Way, WA</FONT></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2001-01-02</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>3</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Mr. Goodwrench</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>555-9432</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>1238 Car Lane Pl., NY</FONT></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2004-04-20</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>4</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Mr. Ed</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>555-3215</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>9876 Cowbarn Home, VA</FONT></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2008-09-12</FONT></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=-1>5</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Gunther Sveborg</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>44-55-555-5555</FONT></TD> <TD ALIGN=LEFT><FONT SIZE=-1>Kartophelhause 345, Munich, Germany</FONT></TD> <TD ALIGN=RIGHT><FONT SIZE=-1>2013.10.22</FONT></TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-4.ref�����������������������������������������������������������000644 �000765 �000024 �00000002302 12231521060 017733� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%><B><I>Index</I></B></TH> <TH ALIGN=CENTER WIDTH=21%><B><I>Name</I></B></TH> <TH ALIGN=CENTER WIDTH=20%><B><I>Phone</I></B></TH> <TH ALIGN=CENTER WIDTH=36%><B><I>Address</I></B></TH> <TH ALIGN=CENTER WIDTH=14%><B><I>Date</I></B></TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-5.ref�����������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 017743� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=0 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-6.ref�����������������������������������������������������������000644 �000765 �000024 �00000002211 12231521060 017734� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE ALIGN=CENTER BORDER=1 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-7.ref�����������������������������������������������������������000644 �000765 �000024 �00000002660 12231521060 017745� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE align=center BORDER=1 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%><b><i>Index</i></b></TH> <TH ALIGN=CENTER WIDTH=21%><b><i>Name</i></b></TH> <TH ALIGN=CENTER WIDTH=20%><b><i>Phone</i></b></TH> <TH ALIGN=CENTER WIDTH=36%><b><i>Address</i></b></TH> <TH ALIGN=CENTER WIDTH=14%><b><i>Date</i></b></TH> </TR> <TR> <TD ALIGN=RIGHT><tt>1</tt></TD> <TD ALIGN=LEFT><tt>Alan Stebbens</tt></TD> <TD ALIGN=LEFT><tt>555-1234</tt></TD> <TD ALIGN=LEFT><tt>1234 Something St., CA</tt></TD> <TD ALIGN=RIGHT><tt>1998-10-22</tt></TD> </TR> <TR> <TD ALIGN=RIGHT><tt>2</tt></TD> <TD ALIGN=LEFT><tt>Bob Frankel</tt></TD> <TD ALIGN=LEFT><tt>555-1235</tt></TD> <TD ALIGN=LEFT><tt>9234 Nowhere Way, WA</tt></TD> <TD ALIGN=RIGHT><tt>2001-01-02</tt></TD> </TR> <TR> <TD ALIGN=RIGHT><tt>3</tt></TD> <TD ALIGN=LEFT><tt>Mr. Goodwrench</tt></TD> <TD ALIGN=LEFT><tt>555-9432</tt></TD> <TD ALIGN=LEFT><tt>1238 Car Lane Pl., NY</tt></TD> <TD ALIGN=RIGHT><tt>2004-04-20</tt></TD> </TR> <TR> <TD ALIGN=RIGHT><tt>4</tt></TD> <TD ALIGN=LEFT><tt>Mr. Ed</tt></TD> <TD ALIGN=LEFT><tt>555-3215</tt></TD> <TD ALIGN=LEFT><tt>9876 Cowbarn Home, VA</tt></TD> <TD ALIGN=RIGHT><tt>2008-09-12</tt></TD> </TR> <TR> <TD ALIGN=RIGHT><tt>5</tt></TD> <TD ALIGN=LEFT><tt>Gunther Sveborg</tt></TD> <TD ALIGN=LEFT><tt>44-55-555-5555</tt></TD> <TD ALIGN=LEFT><tt>Kartophelhause 345, Munich, Germany</tt></TD> <TD ALIGN=RIGHT><tt>2013.10.22</tt></TD> </TR> </TABLE> ��������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-8.ref�����������������������������������������������������������000644 �000765 �000024 �00000003477 12231521060 017755� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT><A HREF="/cgi/foo?index=1">1</A></TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?name=Alan&#32;Stebbens">Alan Stebbens</A></TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?addr=1234&#32;Something&#32;St.,&#32;CA">1234 Something St., CA</A></TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="/cgi/foo?index=2">2</A></TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?name=Bob&#32;Frankel">Bob Frankel</A></TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?addr=9234&#32;Nowhere&#32;Way,&#32;WA">9234 Nowhere Way, WA</A></TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="/cgi/foo?index=3">3</A></TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?name=Mr.&#32;Goodwrench">Mr. Goodwrench</A></TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?addr=1238&#32;Car&#32;Lane&#32;Pl.,&#32;NY">1238 Car Lane Pl., NY</A></TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="/cgi/foo?index=4">4</A></TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?name=Mr.&#32;Ed">Mr. Ed</A></TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?addr=9876&#32;Cowbarn&#32;Home,&#32;VA">9876 Cowbarn Home, VA</A></TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT><A HREF="/cgi/foo?index=5">5</A></TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?name=Gunther&#32;Sveborg">Gunther Sveborg</A></TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT><A HREF="/cgi/foo?addr=Kartophelhause&#32;345,&#32;Munich,&#32;Germany">Kartophelhause 345, Munich, Germany</A></TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-fmt.t-9.ref�����������������������������������������������������������000644 �000765 �000024 �00000002302 12231521060 017740� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=26%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT><B>Alan Stebbens</B></TD> <TD ALIGN=LEFT><I>555-1234</I></TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT><B>Bob Frankel</B></TD> <TD ALIGN=LEFT><I>555-1235</I></TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT><B>Mr. Goodwrench</B></TD> <TD ALIGN=LEFT><I>555-9432</I></TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT><B>Mr. Ed</B></TD> <TD ALIGN=LEFT><I>555-3215</I></TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT><B>Gunther Sveborg</B></TD> <TD ALIGN=LEFT><I>44-55-555-5555</I></TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-1.ref�������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020571� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=17%>Phone</TH> <TH ALIGN=CENTER WIDTH=43%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-2.ref�������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020573� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=11%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=41%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-3.ref�������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020573� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=3%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=18%>Phone</TH> <TH ALIGN=CENTER WIDTH=48%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-4.ref�������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020575� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=14%>Index</TH> <TH ALIGN=CENTER WIDTH=17%>Name</TH> <TH ALIGN=CENTER WIDTH=14%>Phone</TH> <TH ALIGN=CENTER WIDTH=41%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-5.ref�������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020576� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=12%>Index</TH> <TH ALIGN=CENTER WIDTH=25%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-6.ref�������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020577� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=15%>Index</TH> <TH ALIGN=CENTER WIDTH=28%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=28%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-7.ref�������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020577� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=8%>Index</TH> <TH ALIGN=CENTER WIDTH=19%>Name</TH> <TH ALIGN=CENTER WIDTH=18%>Phone</TH> <TH ALIGN=CENTER WIDTH=40%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-scaling.t-8.ref�������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020601� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=16%>Index</TH> <TH ALIGN=CENTER WIDTH=20%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-1.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021142� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=11%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=41%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-2.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021143� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=11%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=41%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-3.ref�����������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 021143� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=3%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=18%>Phone</TH> <TH ALIGN=CENTER WIDTH=48%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-4.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021145� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=14%>Index</TH> <TH ALIGN=CENTER WIDTH=17%>Name</TH> <TH ALIGN=CENTER WIDTH=14%>Phone</TH> <TH ALIGN=CENTER WIDTH=41%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-5.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021146� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=12%>Index</TH> <TH ALIGN=CENTER WIDTH=25%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-6.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021147� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=15%>Index</TH> <TH ALIGN=CENTER WIDTH=28%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=28%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-7.ref�����������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 021147� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=8%>Index</TH> <TH ALIGN=CENTER WIDTH=19%>Name</TH> <TH ALIGN=CENTER WIDTH=18%>Phone</TH> <TH ALIGN=CENTER WIDTH=40%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-showtable.t-8.ref�����������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 021151� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=16%>Index</TH> <TH ALIGN=CENTER WIDTH=20%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=13%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-1.ref��������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020453� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=17%>Phone</TH> <TH ALIGN=CENTER WIDTH=44%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-2.ref��������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020454� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=14%>Phone</TH> <TH ALIGN=CENTER WIDTH=42%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-3.ref��������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020455� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=17%>Phone</TH> <TH ALIGN=CENTER WIDTH=44%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-4.ref��������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020456� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=6%>Index</TH> <TH ALIGN=CENTER WIDTH=18%>Name</TH> <TH ALIGN=CENTER WIDTH=17%>Phone</TH> <TH ALIGN=CENTER WIDTH=44%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-5.ref��������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020460� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=12%>Index</TH> <TH ALIGN=CENTER WIDTH=25%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=33%>Address</TH> <TH ALIGN=CENTER WIDTH=12%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-6.ref��������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020461� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=15%>Index</TH> <TH ALIGN=CENTER WIDTH=28%>Name</TH> <TH ALIGN=CENTER WIDTH=16%>Phone</TH> <TH ALIGN=CENTER WIDTH=28%>Address</TH> <TH ALIGN=CENTER WIDTH=11%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-7.ref��������������������������������������������������������000644 �000765 �000024 �00000002174 12231521060 020461� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=7%>Index</TH> <TH ALIGN=CENTER WIDTH=21%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=36%>Address</TH> <TH ALIGN=CENTER WIDTH=14%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-widths.t-8.ref��������������������������������������������������������000644 �000765 �000024 �00000002175 12231521060 020463� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=10%>Index</TH> <TH ALIGN=CENTER WIDTH=30%>Name</TH> <TH ALIGN=CENTER WIDTH=20%>Phone</TH> <TH ALIGN=CENTER WIDTH=20%>Address</TH> <TH ALIGN=CENTER WIDTH=20%>Date</TH> </TR> <TR> <TD ALIGN=RIGHT>1</TD> <TD ALIGN=LEFT>Alan Stebbens</TD> <TD ALIGN=LEFT>555-1234</TD> <TD ALIGN=LEFT>1234 Something St., CA</TD> <TD ALIGN=RIGHT>1998-10-22</TD> </TR> <TR> <TD ALIGN=RIGHT>2</TD> <TD ALIGN=LEFT>Bob Frankel</TD> <TD ALIGN=LEFT>555-1235</TD> <TD ALIGN=LEFT>9234 Nowhere Way, WA</TD> <TD ALIGN=RIGHT>2001-01-02</TD> </TR> <TR> <TD ALIGN=RIGHT>3</TD> <TD ALIGN=LEFT>Mr. Goodwrench</TD> <TD ALIGN=LEFT>555-9432</TD> <TD ALIGN=LEFT>1238 Car Lane Pl., NY</TD> <TD ALIGN=RIGHT>2004-04-20</TD> </TR> <TR> <TD ALIGN=RIGHT>4</TD> <TD ALIGN=LEFT>Mr. Ed</TD> <TD ALIGN=LEFT>555-3215</TD> <TD ALIGN=LEFT>9876 Cowbarn Home, VA</TD> <TD ALIGN=RIGHT>2008-09-12</TD> </TR> <TR> <TD ALIGN=RIGHT>5</TD> <TD ALIGN=LEFT>Gunther Sveborg</TD> <TD ALIGN=LEFT>44-55-555-5555</TD> <TD ALIGN=LEFT>Kartophelhause 345, Munich, Germany</TD> <TD ALIGN=RIGHT>2013.10.22</TD> </TR> </TABLE> ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-wrap.t-1.ref����������������������������������������������������������000644 �000765 �000024 �00000001477 12231521060 020127� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=13%>Name</TH> <TH ALIGN=CENTER WIDTH=86%>Biography</TH> </TR> <TR> <TD ALIGN=LEFT>Alan</TD> <TD ALIGN=LEFT>This is a very long line of text which simulates a text string which is supposed to wrap in its field width.</TD> </TR> <TR> <TD ALIGN=LEFT>Kevin</TD> <TD ALIGN=LEFT>This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board.</TD> </TR> <TR> <TD ALIGN=LEFT>Toad</TD> <TD ALIGN=LEFT>This is a short line</TD> </TR> <TR> <TD ALIGN=LEFT>Monica</TD> <TD ALIGN=LEFT>This is another short line</TD> </TR> <TR> <TD ALIGN=LEFT>Stu</TD> <TD ALIGN=LEFT>Finally, here is another long line which shold wrap but maybe not</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-wrap.t-2.ref����������������������������������������������������������000644 �000765 �000024 �00000001477 12231521060 020130� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=13%>Name</TH> <TH ALIGN=CENTER WIDTH=86%>Biography</TH> </TR> <TR> <TD ALIGN=LEFT>Alan</TD> <TD ALIGN=LEFT>This is a very long line of text which simulates a text string which is supposed to wrap in its field width.</TD> </TR> <TR> <TD ALIGN=LEFT>Kevin</TD> <TD ALIGN=LEFT>This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board.</TD> </TR> <TR> <TD ALIGN=LEFT>Toad</TD> <TD ALIGN=LEFT>This is a short line</TD> </TR> <TR> <TD ALIGN=LEFT>Monica</TD> <TD ALIGN=LEFT>This is another short line</TD> </TR> <TR> <TD ALIGN=LEFT>Stu</TD> <TD ALIGN=LEFT>Finally, here is another long line which shold wrap but maybe not</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-wrap.t-3.ref����������������������������������������������������������000644 �000765 �000024 �00000001476 12231521060 020130� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=3%>Name</TH> <TH ALIGN=CENTER WIDTH=96%>Biography</TH> </TR> <TR> <TD ALIGN=LEFT>Alan</TD> <TD ALIGN=LEFT>This is a very long line of text which simulates a text string which is supposed to wrap in its field width.</TD> </TR> <TR> <TD ALIGN=LEFT>Kevin</TD> <TD ALIGN=LEFT>This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board.</TD> </TR> <TR> <TD ALIGN=LEFT>Toad</TD> <TD ALIGN=LEFT>This is a short line</TD> </TR> <TR> <TD ALIGN=LEFT>Monica</TD> <TD ALIGN=LEFT>This is another short line</TD> </TR> <TR> <TD ALIGN=LEFT>Stu</TD> <TD ALIGN=LEFT>Finally, here is another long line which shold wrap but maybe not</TD> </TR> </TABLE> ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-wrap.t-4.ref����������������������������������������������������������000644 �000765 �000024 �00000001476 12231521060 020131� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=9%>Name</TH> <TH ALIGN=CENTER WIDTH=90%>Biography</TH> </TR> <TR> <TD ALIGN=LEFT>Alan</TD> <TD ALIGN=LEFT>This is a very long line of text which simulates a text string which is supposed to wrap in its field width.</TD> </TR> <TR> <TD ALIGN=LEFT>Kevin</TD> <TD ALIGN=LEFT>This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board.</TD> </TR> <TR> <TD ALIGN=LEFT>Toad</TD> <TD ALIGN=LEFT>This is a short line</TD> </TR> <TR> <TD ALIGN=LEFT>Monica</TD> <TD ALIGN=LEFT>This is another short line</TD> </TR> <TR> <TD ALIGN=LEFT>Stu</TD> <TD ALIGN=LEFT>Finally, here is another long line which shold wrap but maybe not</TD> </TR> </TABLE> ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/html-wrap.t-5.ref����������������������������������������������������������000644 �000765 �000024 �00000001477 12231521060 020133� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** <TABLE BORDER=2 CELLPADDING=1 CELLSPACING=1> <TR> <TH ALIGN=CENTER WIDTH=25%>Name</TH> <TH ALIGN=CENTER WIDTH=75%>Biography</TH> </TR> <TR> <TD ALIGN=LEFT>Alan</TD> <TD ALIGN=LEFT>This is a very long line of text which simulates a text string which is supposed to wrap in its field width.</TD> </TR> <TR> <TD ALIGN=LEFT>Kevin</TD> <TD ALIGN=LEFT>This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board.</TD> </TR> <TR> <TD ALIGN=LEFT>Toad</TD> <TD ALIGN=LEFT>This is a short line</TD> </TR> <TR> <TD ALIGN=LEFT>Monica</TD> <TD ALIGN=LEFT>This is another short line</TD> </TR> <TR> <TD ALIGN=LEFT>Stu</TD> <TD ALIGN=LEFT>Finally, here is another long line which shold wrap but maybe not</TD> </TR> </TABLE> �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-1.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020256� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-2.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020257� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-3.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020260� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-4.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020261� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-5.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020262� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-6.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020263� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-7.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020264� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-calls.t-8.ref���������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020265� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-1.ref�������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020600� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-2.ref�������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020601� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-3.ref�������������������������������������������������������000644 �000765 �000024 �00000001111 12231521060 020570� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-4.ref�������������������������������������������������������000644 �000765 �000024 �00000001111 12231521060 020571� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-5.ref�������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020604� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-6.ref�������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020605� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-7.ref�������������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 020606� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-scaling.t-8.ref�������������������������������������������������������000644 �000765 �000024 �00000001111 12231521060 020575� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-1.ref�����������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 021150� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-2.ref�����������������������������������������������������000644 �000765 �000024 �00000001076 12231521060 021151� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-3.ref�����������������������������������������������������000644 �000765 �000024 �00000001111 12231521061 021141� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-4.ref�����������������������������������������������������000644 �000765 �000024 �00000001111 12231521061 021142� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-5.ref�����������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 021155� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-6.ref�����������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 021156� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-7.ref�����������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 021157� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-showtable.t-8.ref�����������������������������������������������������000644 �000765 �000024 �00000001111 12231521061 021146� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, : Germany Date : 2013.10.22 �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-1.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020463� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-2.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020464� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-3.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020465� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-4.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020466� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-5.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020467� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-6.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020470� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-7.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020471� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-widths.t-8.ref��������������������������������������������������������000644 �000765 �000024 �00000001076 12231521061 020472� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index : 1 Name : Alan Stebbens Phone : 555-1234 Address : 1234 Something St., CA Date : 1998-10-22 Index : 2 Name : Bob Frankel Phone : 555-1235 Address : 9234 Nowhere Way, WA Date : 2001-01-02 Index : 3 Name : Mr. Goodwrench Phone : 555-9432 Address : 1238 Car Lane Pl., NY Date : 2004-04-20 Index : 4 Name : Mr. Ed Phone : 555-3215 Address : 9876 Cowbarn Home, VA Date : 2008-09-12 Index : 5 Name : Gunther Sveborg Phone : 44-55-555-5555 Address : Kartophelhause 345, Munich, Germany Date : 2013.10.22 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-wrap.t-1.ref����������������������������������������������������������000644 �000765 �000024 �00000001115 12231521061 020124� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name : Alan Biography : This is a very long line of text which simulates a text string which is : supposed to wrap in its field width. Name : Kevin Biography : This is another long line of text which will also wrap so I can see if this : part of ShowTable really works as designed. If not it's back to the drawing : board. Name : Toad Biography : This is a short line Name : Monica Biography : This is another short line Name : Stu Biography : Finally, here is another long line which shold wrap but maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-wrap.t-2.ref����������������������������������������������������������000644 �000765 �000024 �00000001115 12231521061 020125� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name : Alan Biography : This is a very long line of text which simulates a text string which is : supposed to wrap in its field width. Name : Kevin Biography : This is another long line of text which will also wrap so I can see if this : part of ShowTable really works as designed. If not it's back to the drawing : board. Name : Toad Biography : This is a short line Name : Monica Biography : This is another short line Name : Stu Biography : Finally, here is another long line which shold wrap but maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-wrap.t-3.ref����������������������������������������������������������000644 �000765 �000024 �00000001115 12231521061 020126� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name : Alan Biography : This is a very long line of text which simulates a text string which is : supposed to wrap in its field width. Name : Kevin Biography : This is another long line of text which will also wrap so I can see if this : part of ShowTable really works as designed. If not it's back to the drawing : board. Name : Toad Biography : This is a short line Name : Monica Biography : This is another short line Name : Stu Biography : Finally, here is another long line which shold wrap but maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-wrap.t-4.ref����������������������������������������������������������000644 �000765 �000024 �00000001115 12231521061 020127� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name : Alan Biography : This is a very long line of text which simulates a text string which is : supposed to wrap in its field width. Name : Kevin Biography : This is another long line of text which will also wrap so I can see if this : part of ShowTable really works as designed. If not it's back to the drawing : board. Name : Toad Biography : This is a short line Name : Monica Biography : This is another short line Name : Stu Biography : Finally, here is another long line which shold wrap but maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/list-wrap.t-5.ref����������������������������������������������������������000644 �000765 �000024 �00000001115 12231521061 020130� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name : Alan Biography : This is a very long line of text which simulates a text string which is : supposed to wrap in its field width. Name : Kevin Biography : This is another long line of text which will also wrap so I can see if this : part of ShowTable really works as designed. If not it's back to the drawing : board. Name : Toad Biography : This is a short line Name : Monica Biography : This is another short line Name : Stu Biography : Finally, here is another long line which shold wrap but maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-1.ref�������������������������������������������������������000644 �000765 �000024 �00000001222 12231521061 020566� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-2.ref�������������������������������������������������������000644 �000765 �000024 �00000001222 12231521061 020567� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-3.ref�������������������������������������������������������000644 �000765 �000024 �00000001656 12231521061 020603� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- -------------- ------------- ------------------------- --------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-2> <2 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-0> <2 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-2> <0 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-1> <2 5 Gunther > 44-55-555-555> Kartophelhause 345, > 2013.10.2> <Sveborg <5 <Munich, Germany <2 ����������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-4.ref�������������������������������������������������������000644 �000765 �000024 �00000001656 12231521061 020604� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- -------------- ------------- ------------------------- --------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-2> <2 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-0> <2 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-2> <0 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-1> <2 5 Gunther > 44-55-555-555> Kartophelhause 345, > 2013.10.2> <Sveborg <5 <Munich, Germany <2 ����������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-5.ref�������������������������������������������������������000644 �000765 �000024 �00000001222 12231521061 020572� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-6.ref�������������������������������������������������������000644 �000765 �000024 �00000001222 12231521061 020573� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-7.ref�������������������������������������������������������000644 �000765 �000024 �00000001656 12231521061 020607� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- -------------- ------------- ------------------------- --------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-2> <2 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-0> <2 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-2> <0 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-1> <2 5 Gunther > 44-55-555-555> Kartophelhause 345, > 2013.10.2> <Sveborg <5 <Munich, Germany <2 ����������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-calls.t-8.ref�������������������������������������������������������000644 �000765 �000024 �00000001656 12231521061 020610� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- -------------- ------------- ------------------------- --------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-2> <2 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-0> <2 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-2> <0 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-1> <2 5 Gunther > 44-55-555-555> Kartophelhause 345, > 2013.10.2> <Sveborg <5 <Munich, Germany <2 ����������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-1.ref�����������������������������������������������������000644 �000765 �000024 �00000001422 12231521061 021112� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---------- --------- ----------------------- ------ 1 Alan > 555-1234 1234 Something St., CA 1998-1> <Stebbens <0-22 2 Bob > 555-1235 9234 Nowhere Way, WA 2001-0> <Frankel <1-02 3 Mr. > 555-9432 1238 Car Lane Pl., NY 2004-0> <Goodwrench <4-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-0> <9-12 5 Gunther > 44-55-555> Kartophelhause 345, > 2013.1> <Sveborg <-5555 <Munich, Germany <0.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-2.ref�����������������������������������������������������000644 �000765 �000024 �00000001474 12231521061 021122� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ------ ----- -------------- ---- 1 Alan > 555-1> 1234 > 1998> <Stebbe><234 <Something St.,><-10-> <ns < CA <22 2 Bob > 555-1> 9234 Nowhere > 2001> <Franke><235 <Way, WA <-01-> <l <02 3 Mr. > 555-9> 1238 Car Lane > 2004> <Goodwr><432 <Pl., NY <-04-> <ench <20 4 Mr. Ed 555-3> 9876 Cowbarn > 2008> <215 <Home, VA <-09-> <12 5 Gunthe> 44-55> Kartophelhause> 2013> <r ><-555->< 345, Munich, ><.10.> <Svebor><5555 <Germany <22 <g ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-3.ref�����������������������������������������������������000644 �000765 �000024 �00000001544 12231521061 021121� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date - --- --- --------- -- 1 Ala> 555> 1234 > 19> <n ><-12><Something><98> <Ste><34 < St., CA <-1> <bbe> <0-> <ns <22 2 Bob> 555> 9234 > 20> < ><-12><Nowhere ><01> <Fra><35 <Way, WA <-0> <nke> <1-> <l <02 3 Mr.> 555> 1238 Car > 20> < ><-94><Lane Pl.,><04> <Goo><32 < NY <-0> <dwr> <4-> <enc> <20 <h 4 Mr.> 555> 9876 > 20> < Ed <-32><Cowbarn ><08> <15 <Home, VA <-0> <9-> <12 5 Gun> 44-> Kartophel> 20> <the><55-><hause 345><13> <r ><555><, Munich,><.1> <Sve><-55>< Germany <0.> <bor><55 <22 <g ������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-4.ref�����������������������������������������������������000644 �000765 �000024 �00000001412 12231521061 021114� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---- ----- --------- ---- 1 Alan> 555-1> 1234 > 1998> < ><234 <Something><-10-> <Steb> < St., CA <22 <bens 2 Bob > 555-1> 9234 > 2001> <Fran><235 <Nowhere ><-01-> <kel <Way, WA <02 3 Mr. > 555-9> 1238 Car > 2004> <Good><432 <Lane Pl.,><-04-> <wren> < NY <20 <ch 4 Mr. > 555-3> 9876 > 2008> <Ed <215 <Cowbarn ><-09-> <Home, VA <12 5 Gunt> 44-55> Kartophel> 2013> <her ><-555-><hause 345><.10.> <Sveb><5555 <, Munich,><22 <org < Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-5.ref�����������������������������������������������������000644 �000765 �000024 �00000001647 12231521061 021127� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date --------------- ------------------------------ -------------------- ---------------------------------------- --------------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 �����������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-6.ref�����������������������������������������������������000644 �000765 �000024 �00000001462 12231521061 021123� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date -------------- ------------------------- --------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-7.ref�����������������������������������������������������000644 �000765 �000024 �00000001422 12231521061 021120� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---------- --------- ----------------------- ------ 1 Alan > 555-1234 1234 Something St., CA 1998-1> <Stebbens <0-22 2 Bob > 555-1235 9234 Nowhere Way, WA 2001-0> <Frankel <1-02 3 Mr. > 555-9432 1238 Car Lane Pl., NY 2004-0> <Goodwrench <4-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-0> <9-12 5 Gunther > 44-55-555> Kartophelhause 345, > 2013.1> <Sveborg <-5555 <Munich, Germany <0.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-scaling.t-8.ref�����������������������������������������������������000644 �000765 �000024 �00000001412 12231521061 021120� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---- ----- --------- ---- 1 Alan> 555-1> 1234 > 1998> < ><234 <Something><-10-> <Steb> < St., CA <22 <bens 2 Bob > 555-1> 9234 > 2001> <Fran><235 <Nowhere ><-01-> <kel <Way, WA <02 3 Mr. > 555-9> 1238 Car > 2004> <Good><432 <Lane Pl.,><-04-> <wren> < NY <20 <ch 4 Mr. > 555-3> 9876 > 2008> <Ed <215 <Cowbarn ><-09-> <Home, VA <12 5 Gunt> 44-55> Kartophel> 2013> <her ><-555-><hause 345><.10.> <Sveb><5555 <, Munich,><22 <org < Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-1.ref���������������������������������������������������000644 �000765 �000024 �00000001474 12231521061 021471� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ------ ----- -------------- ---- 1 Alan > 555-1> 1234 > 1998> <Stebbe><234 <Something St.,><-10-> <ns < CA <22 2 Bob > 555-1> 9234 Nowhere > 2001> <Franke><235 <Way, WA <-01-> <l <02 3 Mr. > 555-9> 1238 Car Lane > 2004> <Goodwr><432 <Pl., NY <-04-> <ench <20 4 Mr. Ed 555-3> 9876 Cowbarn > 2008> <215 <Home, VA <-09-> <12 5 Gunthe> 44-55> Kartophelhause> 2013> <r ><-555->< 345, Munich, ><.10.> <Svebor><5555 <Germany <22 <g ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-2.ref���������������������������������������������������000644 �000765 �000024 �00000001474 12231521061 021472� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ------ ----- -------------- ---- 1 Alan > 555-1> 1234 > 1998> <Stebbe><234 <Something St.,><-10-> <ns < CA <22 2 Bob > 555-1> 9234 Nowhere > 2001> <Franke><235 <Way, WA <-01-> <l <02 3 Mr. > 555-9> 1238 Car Lane > 2004> <Goodwr><432 <Pl., NY <-04-> <ench <20 4 Mr. Ed 555-3> 9876 Cowbarn > 2008> <215 <Home, VA <-09-> <12 5 Gunthe> 44-55> Kartophelhause> 2013> <r ><-555->< 345, Munich, ><.10.> <Svebor><5555 <Germany <22 <g ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-3.ref���������������������������������������������������000644 �000765 �000024 �00000001544 12231521061 021471� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date - --- --- --------- -- 1 Ala> 555> 1234 > 19> <n ><-12><Something><98> <Ste><34 < St., CA <-1> <bbe> <0-> <ns <22 2 Bob> 555> 9234 > 20> < ><-12><Nowhere ><01> <Fra><35 <Way, WA <-0> <nke> <1-> <l <02 3 Mr.> 555> 1238 Car > 20> < ><-94><Lane Pl.,><04> <Goo><32 < NY <-0> <dwr> <4-> <enc> <20 <h 4 Mr.> 555> 9876 > 20> < Ed <-32><Cowbarn ><08> <15 <Home, VA <-0> <9-> <12 5 Gun> 44-> Kartophel> 20> <the><55-><hause 345><13> <r ><555><, Munich,><.1> <Sve><-55>< Germany <0.> <bor><55 <22 <g ������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-4.ref���������������������������������������������������000644 �000765 �000024 �00000001412 12231521061 021464� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---- ----- --------- ---- 1 Alan> 555-1> 1234 > 1998> < ><234 <Something><-10-> <Steb> < St., CA <22 <bens 2 Bob > 555-1> 9234 > 2001> <Fran><235 <Nowhere ><-01-> <kel <Way, WA <02 3 Mr. > 555-9> 1238 Car > 2004> <Good><432 <Lane Pl.,><-04-> <wren> < NY <20 <ch 4 Mr. > 555-3> 9876 > 2008> <Ed <215 <Cowbarn ><-09-> <Home, VA <12 5 Gunt> 44-55> Kartophel> 2013> <her ><-555-><hause 345><.10.> <Sveb><5555 <, Munich,><22 <org < Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-5.ref���������������������������������������������������000644 �000765 �000024 �00000001647 12231521061 021477� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date --------------- ------------------------------ -------------------- ---------------------------------------- --------------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 �����������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-6.ref���������������������������������������������������000644 �000765 �000024 �00000001462 12231521061 021473� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date -------------- ------------------------- --------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-7.ref���������������������������������������������������000644 �000765 �000024 �00000001422 12231521061 021470� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---------- --------- ----------------------- ------ 1 Alan > 555-1234 1234 Something St., CA 1998-1> <Stebbens <0-22 2 Bob > 555-1235 9234 Nowhere Way, WA 2001-0> <Frankel <1-02 3 Mr. > 555-9432 1238 Car Lane Pl., NY 2004-0> <Goodwrench <4-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-0> <9-12 5 Gunther > 44-55-555> Kartophelhause 345, > 2013.1> <Sveborg <-5555 <Munich, Germany <0.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-showtable.t-8.ref���������������������������������������������������000644 �000765 �000024 �00000001412 12231521061 021470� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- ---- ----- --------- ---- 1 Alan> 555-1> 1234 > 1998> < ><234 <Something><-10-> <Steb> < St., CA <22 <bens 2 Bob > 555-1> 9234 > 2001> <Fran><235 <Nowhere ><-01-> <kel <Way, WA <02 3 Mr. > 555-9> 1238 Car > 2004> <Good><432 <Lane Pl.,><-04-> <wren> < NY <20 <ch 4 Mr. > 555-3> 9876 > 2008> <Ed <215 <Cowbarn ><-09-> <Home, VA <12 5 Gunt> 44-55> Kartophel> 2013> <her ><-555-><hause 345><.10.> <Sveb><5555 <, Munich,><22 <org < Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-1.ref������������������������������������������������������000644 �000765 �000024 �00000001210 12231521061 020767� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ----------------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-2.ref������������������������������������������������������000644 �000765 �000024 �00000001232 12231521061 020774� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- ---------- ------------------------------ ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-> Kartophelhause 345, Munich, > 2013.10.22 <5555 <Germany ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-3.ref������������������������������������������������������000644 �000765 �000024 �00000001210 12231521061 020771� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ----------------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-4.ref������������������������������������������������������000644 �000765 �000024 �00000001210 12231521061 020772� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ----------------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-5.ref������������������������������������������������������000644 �000765 �000024 �00000001647 12231521061 021011� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date --------------- ------------------------------ -------------------- ---------------------------------------- --------------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, Munich, Germany 2013.10.22 �����������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-6.ref������������������������������������������������������000644 �000765 �000024 �00000001462 12231521061 021005� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date -------------- ------------------------- --------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-7.ref������������������������������������������������������000644 �000765 �000024 �00000001222 12231521061 021000� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- -------------- ------------------------- ---------- 1 Alan Stebbens 555-1234 1234 Something St., CA 1998-10-22 2 Bob Frankel 555-1235 9234 Nowhere Way, WA 2001-01-02 3 Mr. Goodwrench 555-9432 1238 Car Lane Pl., NY 2004-04-20 4 Mr. Ed 555-3215 9876 Cowbarn Home, VA 2008-09-12 5 Gunther Sveborg 44-55-555-5555 Kartophelhause 345, > 2013.10.22 <Munich, Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-widths.t-8.ref������������������������������������������������������000644 �000765 �000024 �00000002134 12231521061 021004� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Index Name Phone Address Date ----- --------------- ---------- ---------- ---------- 1 Alan Stebbens 555-1234 1234 > 1998-10-22 <Something > <St., CA 2 Bob Frankel 555-1235 9234 > 2001-01-02 <Nowhere > <Way, WA 3 Mr. Goodwrench 555-9432 1238 Car > 2004-04-20 <Lane Pl., > <NY 4 Mr. Ed 555-3215 9876 > 2008-09-12 <Cowbarn > <Home, VA 5 Gunther Sveborg 44-55-555-> Kartophelh> 2013.10.22 <5555 <ause 345, > <Munich, > <Germany ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-wrap.t-1.ref��������������������������������������������������������000644 �000765 �000024 �00000001334 12231521061 020445� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name Biography ------ ---------------------------------------- Alan This is a very long line of text which > <simulates a text string which is > <supposed to wrap in its field width. Kevin This is another long line of text which > <will also wrap so I can see if this > <part of ShowTable really works as > <designed. If not it's back to the > <drawing board. Toad This is a short line Monica This is another short line Stu Finally, here is another long line > <which shold wrap but maybe not ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-wrap.t-2.ref��������������������������������������������������������000644 �000765 �000024 �00000001334 12231521061 020446� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name Biography ------ ---------------------------------------- Alan This is a very long line of text which > <simulates a text string which is > <supposed to wrap in its field width. Kevin This is another long line of text which > <will also wrap so I can see if this > <part of ShowTable really works as > <designed. If not it's back to the > <drawing board. Toad This is a short line Monica This is another short line Stu Finally, here is another long line > <which shold wrap but maybe not ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-wrap.t-3.ref��������������������������������������������������������000644 �000765 �000024 �00000002270 12231521061 020447� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name Biography ------ --------------------------------------------------------------------------------------------------------------------------------------------------------------- Alan This is a very long line of text which simulates a text string which is supposed to wrap in its field width. Kevin This is another long line of text which will also wrap so I can see if this part of ShowTable really works as designed. If not it's back to the drawing board. Toad This is a short line Monica This is another short line Stu Finally, here is another long line which shold wrap but maybe not ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-wrap.t-4.ref��������������������������������������������������������000644 �000765 �000024 �00000001437 12231521061 020454� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name Biography ------ ------------------------------------------------------------ Alan This is a very long line of text which simulates a text > <string which is supposed to wrap in its field width. Kevin This is another long line of text which will also wrap so I > <can see if this part of ShowTable really works as designed. > < If not it's back to the drawing board. Toad This is a short line Monica This is another short line Stu Finally, here is another long line which shold wrap but > <maybe not ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Data-ShowTable-4.6/t/out/simple-wrap.t-5.ref��������������������������������������������������������000644 �000765 �000024 �00000001671 12231521061 020455� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** Name Biography -------------------- ------------------------------------------------------------ Alan This is a very long line of text which simulates a text > <string which is supposed to wrap in its field width. Kevin This is another long line of text which will also wrap so I > <can see if this part of ShowTable really works as designed. > < If not it's back to the drawing board. Toad This is a short line Monica This is another short line Stu Finally, here is another long line which shold wrap but > <maybe not �����������������������������������������������������������������������Data-ShowTable-4.6/t/out/test-showtable.t-1.ref�����������������������������������������������������000644 �000765 �000024 �00000000214 12231527345 021161� 0����������������������������������������������������������������������������������������������������ustar�00aks�����������������������������staff���������������������������000000 �000000 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������*** STDOUT *** +-------+------------+------+ | hallo | 13.12.2013 | nanu | | jo | 2013-12-13 | haha | +-------+------------+------+ ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������