Changeset 2600 for trunk/gsdl/bin/script/gsConvert.pl

Timestamp:

2001-06-20T16:52:39+12:00 (23 years ago)

Author:

jrm21

Message:

when extracting text from postscript, we now wrap the lines, so that a
large paragraph doesn't keep going east.

File:

• trunk/gsdl/bin/script/gsConvert.pl (modified) (3 diffs)

trunk/gsdl/bin/script/gsConvert.pl

@@ -399 +399 @@
     }
 
-    # this will probably give a warning under windows...
-    &util::rm("$output_filestem.err");
+    &util::rm("$output_filestem.err") if (-e "$output_filestem.err");
 
     # Was the conversion successful?
@@ -506 +505 @@
     $cmd .= " 2> $output_filestem.err";
     $!=0;
+
     my $retcode=system($cmd);
     $retcode = $? >> 8;  # see man perlfunc - system for this...
@@ -610 +610 @@
     close OUT;
     }
+    # wrap the text - use a minimum length. ie, first space after this length.
+    my $wrap_length=72;
+    &util::mv("$output_filestem.text", "$output_filestem.text.tmp");
+    open INFILE, "$output_filestem.text.tmp" ||
+    die "Couldn't open file: $!";
+    open OUTFILE, ">$output_filestem.text" ||
+    die "Couldn't open file for writing: $!";
+    my $line="";
+    while ($line=<INFILE>) {
+    while (length($line)>0) {
+        if (length($line)>$wrap_length) {
+        $line =~ s/^(.{$wrap_length}[^\s]*)\s*//;
+        print OUTFILE "$1\n";
+        } else {
+        print OUTFILE "$line";
+        $line="";
+        }
+    }
+    }
+    close INFILE;
+    close OUTFILE;
+    &util::rm("$output_filestem.text.tmp");
+
     &util::rm("$output_filestem.err") if (-e "$output_filestem.err");
     return 1;