generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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 fbfad23f0c
commit 4651718410
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($in_su == 1) {
if(/}(.*);/) { if(/}(.*);/) {
$out .= $_; $out .= $_;
print $out; do_output($out);
$in_su = 0; $in_su = 0;
} elsif(/^ *\} [^\s]+(\[\d*\])* = \{/) { } elsif(/^ *\} [^\s]+(\[\d*\])* = \{/) {
$tststr = $1; $tststr = $1;
@ -44,7 +44,7 @@ while(<>) {
my @strucdata = structureData($data); my @strucdata = structureData($data);
$out .= displayData($indent, 0, \@strucdata); $out .= displayData($indent, 0, \@strucdata);
$out .= "\n$indent};\n"; $out .= "\n$indent};\n";
print $out; do_output($out);
$in_su = 0; $in_su = 0;
} }
} elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) { } elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) {
@ -53,7 +53,7 @@ while(<>) {
$out = $_; $out = $_;
next; next;
} else { } else {
print $_; do_output($_);
} }
} }
@ -251,3 +251,10 @@ sub displayData {
} }
return $out; return $out;
} }
sub do_output {
my $out = shift;
# Strip any trailing whitespace
$out =~ s/\s+\n/\n/g;
print $out;
}