wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delete trailing whitespace from output.

Browse source 
Reviewed-by: Tim Hudson <tjh@openssl.org>
This commit is contained in:
Dr. Stephen Henson 2015-01-21 15:32:54 +00:00 committed by Matt Caswell
parent e5ebff7b6a
commit 7b0ec6a4af
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
util/su-filter.pl
View file

@ -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;
}