Commit f9be4da0 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson Committed by Matt Caswell
Browse files

Delete trailing whitespace from output. 



Reviewed-by: default avatarTim Hudson <tjh@openssl.org>
parent 09f4d9c0

util/su-filter.pl

+10 −3
Original line number Diff line number Diff line
@@ -21,7 +21,7 @@ while(<>) { 
    if($in_su == 1) {

        if(/}(.*);/) {

            $out .= $_;

            print $out;

            do_output($out);

            $in_su = 0;

        } elsif(/^ *\} [^\s]+(\[\d*\])* = \{/) {

           $tststr = $1;
@@ -44,7 +44,7 @@ while(<>) { 
            my @strucdata = structureData($data);

            $out .= displayData($indent, 0, \@strucdata);

            $out .= "\n$indent};\n";

            print $out;

            do_output($out);

            $in_su = 0;

        }

    } elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) {
@@ -53,7 +53,7 @@ while(<>) { 
        $out = $_;

        next;

    } else {

        print $_;

        do_output($_);

    }

}
@@ -251,3 +251,10 @@ sub displayData { 
    }

    return $out;

}



sub do_output {

    my $out = shift;

    # Strip any trailing whitespace

    $out =~ s/\s+\n/\n/g;

    print $out;

}