[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Moved print_table() from ::main...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/e1ccfdbcf024
branches:  trunk
changeset: 493993:e1ccfdbcf024
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Wed May 18 03:47:24 2005 +0000

description:
Moved print_table() from ::main to PkgLint::Util.

diffstat:

 pkgtools/pkglint/files/pkglint.pl |  64 +++++++++++++++++++-------------------
 1 files changed, 32 insertions(+), 32 deletions(-)

diffs (114 lines):

diff -r 513842fde2b1 -r e1ccfdbcf024 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Wed May 18 03:43:13 2005 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Wed May 18 03:47:24 2005 +0000
@@ -11,7 +11,7 @@
 # Freely redistributable.  Absolutely no warranty.
 #
 # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp
-# $NetBSD: pkglint.pl,v 1.149 2005/05/18 03:43:13 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.150 2005/05/18 03:47:24 rillig Exp $
 #
 # This version contains lots of changes necessary for NetBSD packages
 # done by Hubert Feyrer <hubertf%netbsd.org@localhost>,
@@ -34,12 +34,39 @@
        use Exporter;
        use vars qw(@ISA @EXPORT_OK);
        @ISA = qw(Exporter);
-       @EXPORT_OK = qw(false true);
+       @EXPORT_OK = qw(false true print_table);
 }
 
 use constant false     => 0;
 use constant true      => 1;
 
+sub print_table($$)
+{
+       my ($out, $table) = @_;
+       my (@width) = ();
+       foreach my $row (@$table) {
+               foreach my $i (0..(scalar(@$row)-1)) {
+                       if (!defined($width[$i]) || length($row->[$i]) > $width[$i]) {
+                               $width[$i] = length($row->[$i]);
+                       }
+               }
+       }
+       foreach my $row (@$table) {
+               my ($max) = (scalar(@$row) - 1);
+               foreach my $i (0..$max) {
+                       if ($i != 0) {
+                               print $out ("  ");
+                       }
+                       print $out ($row->[$i]);
+                       if ($i != $max) {
+                               print $out (" " x ($width[$i] - length($row->[$i])));
+                       }
+               }
+               print $out ("\n");
+       }
+       return 1;
+}
+
 #== End of PkgLint::Util ==================================================
 
 package PkgLint::Logging;
@@ -340,33 +367,6 @@
 sub category_check();
 sub check_package();
 
-sub print_table($$)
-{
-       my ($out, $table) = @_;
-       my (@width) = ();
-       foreach my $row (@$table) {
-               foreach my $i (0..(scalar(@$row)-1)) {
-                       if (!defined($width[$i]) || length($row->[$i]) > $width[$i]) {
-                               $width[$i] = length($row->[$i]);
-                       }
-               }
-       }
-       foreach my $row (@$table) {
-               my ($max) = (scalar(@$row) - 1);
-               foreach my $i (0..$max) {
-                       if ($i != 0) {
-                               print $out ("  ");
-                       }
-                       print $out ($row->[$i]);
-                       if ($i != $max) {
-                               print $out (" " x ($width[$i] - length($row->[$i])));
-                       }
-               }
-               print $out ("\n");
-       }
-       return 1;
-}
-
 sub help($$$) {
        my ($out, $exitval, $show_all) = @_;
        my ($prog) = (basename($0));
@@ -377,7 +377,7 @@
                push(@option_table, ["  ", $opt, $options{$opt}]);
        }
        print $out ("options:\n");
-       print_table($out, \@option_table);
+       PkgLint::Util::print_table($out, \@option_table);
        print $out ("\n");
 
        if (!$show_all) {
@@ -394,7 +394,7 @@
                        $checks{$check}->[1]]);
        }
        print $out ("checks: (use \"check\" to enable, \"no-check\" to disable)\n");
-       print_table($out, \@checks_table);
+       PkgLint::Util::print_table($out, \@checks_table);
        print $out ("\n");
 
        my (@warnings_table) = (
@@ -407,7 +407,7 @@
                        $warnings{$warning}->[1]]);
        }
        print $out ("warnings: (use \"warn\" to enable, \"no-warn\" to disable)\n");
-       print_table($out, \@warnings_table);
+       PkgLint::Util::print_table($out, \@warnings_table);
        print $out ("\n");
 
        exit($exitval);