/[webpac-proto]/isis2stream.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /isis2stream.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Fri Jun 14 18:24:05 2002 UTC revision 1.3 by dpavlin, Sun Jun 16 14:37:43 2002 UTC
# Line 4  use strict; Line 4  use strict;
4  use OpenIsis;  use OpenIsis;
5  use Getopt::Std;  use Getopt::Std;
6  #use Data::Dumper;  #use Data::Dumper;
7    require "common.pl";
8    
9  my $install_dir="/local/index";  my $install_dir="/local/index";
10  my $mpsindex="/local/mps-5.3/bin/mpsindex -l 9 -b";  my $mpsindex="/local/mps-5.3/bin/mpsindex -l 9 -b";
# Line 177  sub c_852_czs { Line 178  sub c_852_czs {
178  }  }
179    
180  #--------------------------------------------------------------------  #--------------------------------------------------------------------
 #  
 # mps_expand(nr,"space separated string");  
 #  
   
 sub mps_expand {  
         my $nr = shift @_;  
         my $out = "";  
         while (my $fld = shift @_) {  
                 if ($fld =~ s/\s*[,;\.!?'"<>\[\]]*\s+/ /g) {  
                         foreach my $w (split(/\s+/,$fld)) {  
                                 # FIX: this should be replaced by stemmer!  
                                 $out .= "W $w $nr\n";  
                         }  
                 } else {  
                         $out .= "W $fld $nr\n";  
                 }  
         }  
         return c_852_czs($out);  
 }  
   
 #--------------------------------------------------------------------  
181    
182  # $mps .= sf_to_mps($subfiled_hash,"subfields",mps_id);  # $mps .= sf_to_mps($subfiled_hash,"subfields",mps_id);
183  #  #

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.26