[popfile-commit] engine xval.pl,1.1,1.2

[<ssc...@us...>]

Update of /cvsroot/popfile/engine
In directory sc8-pr-cvs1:/tmp/cvs-serv27556

Modified Files:
	xval.pl 
Log Message:
document xcnt parameter

Index: xval.pl
===================================================================
RCS file: /cvsroot/popfile/engine/xval.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** xval.pl	27 May 2003 21:21:35 -0000	1.1
--- xval.pl	28 May 2003 21:25:42 -0000	1.2
***************
*** 298,302 ****
      #load the messages
  
!     $self->{messages} = find_messages($archive);    
          
      foreach my $exclude_fraction (0 .. ( $c->parameter("xcnt") - 1) ) {
--- 298,304 ----
      #load the messages
  
!     $self->{messages} = find_messages($archive);
! 
!     my @error_array;
          
      foreach my $exclude_fraction (0 .. ( $c->parameter("xcnt") - 1) ) {
***************
*** 352,356 ****
          foreach my $abucket ( keys %{ $self->{messages}->{buckets} } ) {
              print "classifying messages in $abucket/$exclude_fraction\n" if $debug;
!             
              foreach my $amessage ( keys %{$self->{messages}->{buckets}{$abucket}{subdirs}{$exclude_fraction}} ) {
                  $class = $b->classify_file($self->{messages}->{messages}{$amessage}{long});
--- 354,358 ----
          foreach my $abucket ( keys %{ $self->{messages}->{buckets} } ) {
              print "classifying messages in $abucket/$exclude_fraction\n" if $debug;
! 
              foreach my $amessage ( keys %{$self->{messages}->{buckets}{$abucket}{subdirs}{$exclude_fraction}} ) {
                  $class = $b->classify_file($self->{messages}->{messages}{$amessage}{long});
***************
*** 358,361 ****
--- 360,364 ----
                      $errors++;
                      print "$class ne $abucket\n" if $debug;
+                     push( @error_array, $self->{messages}->{messages}{$amessage}{long});
                  }
                  $total++;
***************
*** 368,371 ****
--- 371,378 ----
          $exclude_fraction++;
      }
+     
+     print "errors:\n";
+     print @error_array;
+     
  } else {
  
***************
*** 374,381 ****
      print "     -usage:         Displays this screen\n";
      print "  Other Parameters     Use\n";
      print "     -archive_dir:   Location to seek an archive\n";
      print "     -stopwords:     Use stop-words, defaults to $DEFAULT_STOP\n";
      print "     -dump:          Outputs accumulated corpus, defaults to $DEFAULT_DUMP\n";
!     print "     -corpus_out:    Location to save output corpus, defaults to $DEFAULT_CORPUS\n";
  }
  
--- 381,389 ----
      print "     -usage:         Displays this screen\n";
      print "  Other Parameters     Use\n";
+     print "     -xcnt:          The number of bins to use\n";
      print "     -archive_dir:   Location to seek an archive\n";
      print "     -stopwords:     Use stop-words, defaults to $DEFAULT_STOP\n";
      print "     -dump:          Outputs accumulated corpus, defaults to $DEFAULT_DUMP\n";
!     print "     -corpus_out:    Location to save output corpus, defaults to $DEFAULT_CORPUS\n";    
  }