docs/53315: [PATCH] remove extraneous whitespace at the end of lines in articles

[Lukas Ertl]

On Sat, 14 Jun 2003 FreeBSD-gnats-submit at FreeBSD.org wrote:

> >Category:       docs
> >Responsible:    freebsd-doc
> >Synopsis:       [PATCH] remove extraneous whitespace at the end of lines in articles
> >Arrival-Date:   Sat Jun 14 05:50:11 PDT 2003

Ok, I see that a 200k+-sized patch isn't really appreciated. :-)

The following Perl script does the same job. Call it "cleanspaces" or
whatever and run it like "cleanspaces *.sgml".

---8<---
#!/usr/bin/perl -w

use strict;

for my $file (@ARGV) {
    my $dont_touch = 0;
    my $bak = "$file.bak";
    open IN, "<$file" or die $!;
    open OUT, ">$bak" or die $!;
    while (<IN>) {
        if (m!<programlisting>|<pre>|<\!--|<screen>|<literallayout[^>]+>!) {
            $dont_touch = 1;
        }
        if (m!</programlisting>|</pre>|-->|</screen>|</literallayout>!) {
            $dont_touch = 0;
        }
        s/\s+$/\n/ unless $dont_touch;
        print OUT $_;
    }
    close IN;
    close OUT;
    rename ($bak, $file) or die $!;
}
---8<---

regards,
le

-- 
Lukas Ertl                             eMail: l.ertl at univie.ac.at
UNIX-Systemadministrator               Tel.:  (+43 1) 4277-14073
Zentraler Informatikdienst (ZID)       Fax.:  (+43 1) 4277-9140
der Universität Wien                   http://mailbox.univie.ac.at/~le/