added -bps switch to set maximun query level. reworked command line parsing

git-svn-id: http://svn.osgeo.org/postgis/trunk@466 b70326c6-7e19-0410-871a-916f4a2858ee

diff --git a/utils/test_estimation.pl b/utils/test_estimation.pl
index c292d90e8582e3489b5b340eb2bcfd58d06c4b89..6a3e2ad6a6127e9422f60f61a2770aa78a1d6c65 100755 (executable)
--- a/utils/test_estimation.pl
+++ b/utils/test_estimation.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl -w
 
 # $Id$
 
@@ -10,24 +10,55 @@ sub usage
 {
        local($me) = `basename $0`;
        chop($me);
-       print STDERR "$me <table> <col> [-v]\n";
+       print STDERR "$me [-v] [-bps <max_bps>] <table> <col>\n";
 }
 
-if ( ! $ARGV[1] ) {
-       &usage();
-       exit 1;
+$BPS=32;
+$TABLE='';
+$COLUMN='';
+for ($i=0; $i<@ARGV; $i++)
+{
+       if ( $ARGV[$i] =~ m/^-/ )
+       {
+               if ( $ARGV[$i] eq '-v' )
+               {
+                       $VERBOSE++;
+               }
+               elsif ( $ARGV[$i] eq '-bps' )
+               {
+                       $BPS=$ARGV[++$i]
+               }
+               else
+               {
+                       print STDERR "Unknown option $ARGV[$i]:\n";
+                       usage();
+                       exit(1);
+               }
+       }
+       elsif ( ! $TABLE )
+       {
+               $TABLE = $ARGV[$i];
+       }
+       elsif ( ! $COLUMN )
+       {
+               $COLUMN = $ARGV[$i];
+       }
+       else
+       {
+               print STDERR "Too many options:\n";
+               usage();
+               exit(1);
+       }
 }
 
+
 $SCHEMA = 'public';
-$TABLE = $ARGV[0];
+$COLUMN = 'the_geom' if ( $COLUMN eq '' );
 if ( $TABLE =~ /(.*)\.(.*)/ ) 
 {
        $SCHEMA = $1;
        $TABLE = $2;
 }
-$COLUMN = $ARGV[1];
-
-$VERBOSE=1 if $ARGV[2] eq '-v';
 
 #connect
 $conn = Pg::connectdb("");
@@ -36,6 +67,12 @@ if ( $conn->status != PGRES_CONNECTION_OK ) {
        exit(1);
 }
 
+if ( $VERBOSE )
+{
+       print "Table: \"$SCHEMA\".\"$TABLE\"\n";
+       print "Column: \"$COLUMN\"\n";
+}
+
 # Get extent
 
 $query = 'select extent("'.$COLUMN.'"), min(geometrytype("'.$COLUMN.'")) from "'.$SCHEMA.'"."'.$TABLE.'"';
@@ -83,7 +120,7 @@ $ext = \%ext;
 #print "BPS: $bps (".@extents." cells)\n";
 print "  bps\test\treal\tdelta\tmatch_factor\n";
 print "----------------------------------------------------------\n";
-for ($bps=1; $bps<=32; $bps*=2)
+for ($bps=1; $bps<=$BPS; $bps*=2)
 {
        split_extent($ext, $bps, \@extents);
 
@@ -211,6 +248,9 @@ sub test_extent
 
 # 
 # $Log$
+# Revision 1.3  2004/03/05 16:01:02  strk
+# added -bps switch to set maximun query level. reworked command line parsing
+#
 # Revision 1.2  2004/03/05 15:29:35  strk
 # more verbose output
 #