Changeset 1989 for trunk/gsdl

Timestamp:

2001-02-16T11:35:12+13:00 (23 years ago)

Author:

jmt14

Message:

* empty log message *

Location:

trunk/gsdl/perllib/Kea-1.1.4

Files:

• Kea (modified) (2 diffs)
• k4.pl (modified) (3 diffs)
• stemmer (modified) ( previous)

trunk/gsdl/perllib/Kea-1.1.4/Kea

@@ -242 +242 @@
 $command .= " > $out 2> $err";
 
-#print STDERR "** $command  **\n";
+print STDERR "** $command  **\n";
 `$command`;
 
@@ -286 +286 @@
 
 #get rid of temporary files
-if (!$opt_d && !$opt_d) {
-  `rm -r $data $arff $out $err`;
-}
-
-
-
-
-
-
-
+#if (!$opt_d && !$opt_d) {
+#  `rm -r $data $arff $out $err`;
+#}
+
+
+
+
+
+
+

trunk/gsdl/perllib/Kea-1.1.4/k4.pl

@@ -74 +74 @@
 $directory =~ s/\/$//;
 $arfffile = $ARGV[1];
-#print STDERR "Input directory: $directory\n";
-#print STDERR "Output Arff file: $arfffile\n";
+print STDERR "Input directory: $directory\n";
+print STDERR "Output Arff file: $arfffile\n";
 
 
@@ -248 +248 @@
 
 foreach $document (@documents) {
-    #print STDERR "  document $document_number: $document\r";
+    print STDERR "  document $document_number: $document\r";
     $document_number++;
 
@@ -415 +415 @@
 } else {
     
-    #print STDERR "Document frequency file not found... creating\n";
+    print STDERR "Document frequency file not found... creating\n";
     
     foreach $document (@documents) {