Changeset 2481


Ignore:
Timestamp:
2001-05-29T14:08:11+12:00 (23 years ago)
Author:
kjm18
Message:

changed mgpp system calls to use the new executable names

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/phind.pm

    r2333 r2481  
    339339    my $out = $self->{'outhandle'};
    340340    my $phinddir = $self->{'phinddir'};
     341    my $exe = &util::get_os_exe ();
    341342
    342343    if ($verbosity) {
    … …  
    363364   
    364365    # Create the mg phrase database
    365     my $mgpp = &util::filename_cat($ENV{'GSDLHOME'}, "src", "mgpp");
    366     my $mg_passes = &util::filename_cat($mgpp, "text", "mg_passes");
    367     my $mg_compression_dict = &util::filename_cat($mgpp, "text", "mg_compression_dict");
    368 
    369     my $mg_perf_hash_build = &util::filename_cat($mgpp, "text", "mg_perf_hash_build");
    370     my $mg_weights_build = &util::filename_cat($mgpp, "text", "mg_weights_build");
    371     my $mg_invf_dict = &util::filename_cat($mgpp, "text", "mg_invf_dict");
    372     my $mg_stem_idx = &util::filename_cat($mgpp, "text", "mg_stem_idx");
    373366
    374367    print $out "\nCreating phrase databases\n";
    … …  
    376369    my $mg_stem = "pdata";
    377370
    378     &execute("$mg_passes -d $phinddir -f $mg_stem -T1 $mg_input", $verbosity, $out);
    379     &execute("$mg_compression_dict -d $phinddir -f $mg_stem", $verbosity, $out);
    380     &execute("$mg_passes -d $phinddir -f $mg_stem -T2 $mg_input", $verbosity, $out);
     371    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T1 $mg_input", $verbosity, $out);
     372    &execute("mgpp_compression_dict$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     373    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T2 $mg_input", $verbosity, $out);
    381374
    382375    # create the mg index of words
    … …  
    385378    $mg_stem = "pword";
    386379
    387     &execute("$mg_passes -d $phinddir -f $mg_stem -T1 -I1 $mg_input", $verbosity, $out);
    388     &execute("$mg_compression_dict -d $phinddir -f $mg_stem", $verbosity, $out);
    389     &execute("$mg_perf_hash_build -d $phinddir -f $mg_stem", $verbosity, $out);
    390     &execute("$mg_passes -d $phinddir -f $mg_stem -T2 -I2 $mg_input", $verbosity, $out);
    391     &execute("$mg_weights_build -d $phinddir -f $mg_stem", $verbosity, $out);
    392     &execute("$mg_invf_dict -d $phinddir -f $mg_stem", $verbosity, $out);
    393 
    394     &execute("$mg_stem_idx -d $phinddir -f $mg_stem -s 1", $verbosity, $out);
    395     &execute("$mg_stem_idx -d $phinddir -f $mg_stem -s 2", $verbosity, $out);
    396     &execute("$mg_stem_idx -d $phinddir -f $mg_stem -s 3", $verbosity, $out);
     380    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T1 -I1 $mg_input", $verbosity, $out);
     381    &execute("mgpp_compression_dict$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     382    &execute("mgpp_perf_hash_build$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     383    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T2 -I2 $mg_input", $verbosity, $out);
     384    &execute("mgpp_weights_build$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     385    &execute("mgpp_invf_dict$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     386
     387    &execute("mgpp_stem_idx$exe -d $phinddir -f $mg_stem -s 1", $verbosity, $out);
     388    &execute("mgpp_stem_idx$exe -d $phinddir -f $mg_stem -s 2", $verbosity, $out);
     389    &execute("mgpp_stem_idx$exe -d $phinddir -f $mg_stem -s 3", $verbosity, $out);
    397390
    398391    # create the mg document information database
    … …  
    401394    $mg_stem = "docs";
    402395
    403     &execute("$mg_passes -d $phinddir -f $mg_stem -T1 $mg_input", $verbosity, $out);
    404     &execute("$mg_compression_dict -d $phinddir -f $mg_stem", $verbosity, $out);
    405     &execute("$mg_passes -d $phinddir -f $mg_stem -T2 $mg_input", $verbosity, $out);
     396    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T1 $mg_input", $verbosity, $out);
     397    &execute("mgpp_compression_dict$exe -d $phinddir -f $mg_stem", $verbosity, $out);
     398    &execute("mgpp_passes$exe -d $phinddir -f $mg_stem -T2 $mg_input", $verbosity, $out);
    406399
    407400
Note: See TracChangeset for help on using the changeset viewer.