Changeset 1646

Timestamp:

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

Author:

paynter

Message:

Arguments for setting suffix program parameters.

File:

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

trunk/gsdl/perllib/classify/phind.pm

@@ -32 +32 @@
 #   title=Title           The title field for this classification 
 #   text=fields           The text used to build the phrase hierarchy
-#   untidy=true           Do not clean up intermediate files
 #   phindexdir=directory  Location of phind index files
 #   verbosity=num         Control amount of output
+#   untidy=true           Do not clean up intermediate files
+#   suffixmode=num        Mode of suffix program (0 = all phrases, 1 = stopword)
+#   suffixsize=num        Number of symbols available to suffix program
 
 
@@ -144 +146 @@
     my $indexes = "section:Title,section:text";
 
+    my $suffixmode = 1;
+    my $suffixsize = 40000000;
+
     my $verbosity = 2;
     my $untidy = 0;
@@ -156 +161 @@
     } elsif ($option =~ /^phindexdir=(.*)$/i) {
         $phindexdir = $1;
+    } elsif ($option =~ /^suffixsize=(.*)$/i) {
+        $suffixsize = $1;
+    } elsif ($option =~ /^suffixmode=(.*)$/i) {
+        $suffixmode = $1;
     } elsif ($option =~ /^verbosity=(.*)$/i) {
         $verbosity = $1;
@@ -167 +176 @@
     $self->{'title'} = $title;
     $self->{'indexes'} = $indexes;
+
+    $self->{'suffixmode'} = $suffixmode;
+    $self->{'suffixsize'} = $suffixsize;
+
     $self->{'verbosity'} = $verbosity;
     $self->{'untidy'} = $untidy;
@@ -320 +333 @@
 
     # Construct phind indexes
-    my $mode = 1;
-    my $symbol_limit = 40000000;
+    my $suffixmode = $self->{'suffixmode'};
+    my $suffixsize = $self->{'suffixsize'};
     my ($command, $status);
     
@@ -331 +344 @@
     # 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);
+    &execute("suffix $phindexdir $suffixsize $suffixmode", $verbosity);
 
     # Create the phrase file and put phrase numbers in phindex/phrases