root
/
openssl
mirror of https://github.com/openssl/openssl.git
1
0
Fork 0
Code Issues Actions 7 Packages Projects Releases Wiki Activity

Delete trailing whitespace from output. 

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 09f4d9c0f9
commit f9be4da00e
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;
}