Changeset 1645

Timestamp:

2000-11-02T15:40:57+13:00 (23 years ago)

Author:

paynter

Message:

Output less verbose & more consistant with buildcol.pl

File:

• trunk/gsdl/perllib/classify/phind.pm (modified) (4 diffs)

trunk/gsdl/perllib/classify/phind.pm

@@ -311 +311 @@
     my $self = shift (@_);
 
-    print STDERR "\n\n**** phind.pm get_classify_info ***\n";
-
     my $verbosity = $self->{'verbosity'};
     my $phindexdir = $self->{'phindexdir'};
     my $language = "english";
     
+    if ($verbosity) {
+    print STDERR "\n*** phind.pm generating indexes for ", $self->{'indexes'}, "\n";
+    }
+
     # Construct phind indexes
     my $mode = 1;
@@ -328 +330 @@
 
     # Use the suffix program to generate the phindex/phrases file
+    print "\nExtracting phrases from processed text (with suffix)\n" if $verbosity;
     &execute("suffix $phindexdir $symbol_limit $mode", $verbosity);
 
@@ -380 +383 @@
     # Tidy up stray files
     if (!$untidy) {
-    print "\nCleaning up\n" if $verbosity;
+    print "\nCleaning up\n" if ($verbosity > 2);
     &util::rm("$phindexdir/clauses", "$phindexdir/clauses.numbers", 
           "$phindexdir/clauses.vocab", "$phindexdir/clauses.stats", 
@@ -501 +504 @@
 sub execute {
     my ($command, $verbosity) = @_;
-    print "Executing: $command\n" if $verbosity;
+    print "Executing: $command\n"  if ($verbosity > 2);
     my $status = system($command);
     if ($status != 0) {