Deleted Added
sdiff udiff text old ( 1.1.1.1 ) new ( 1.1.1.2 )
full compact
su-filter.pl (1.1.1.1) su-filter.pl (1.1.1.2)
1#!/usr/bin/env perl
1#! /usr/bin/env perl
2# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
2#
3#
3# su-filter.pl
4#
4# Licensed under the OpenSSL license (the "License"). You may not use
5# this file except in compliance with the License. You can obtain a copy
6# in the file LICENSE in the source distribution or at
7# https://www.openssl.org/source/license.html
8
5use strict;
6
7my $in_su = 0;
8my $indent = 0;
9my $out;
10my $braces = 0;
11my $arrcnt;
12my $data;

--- 29 unchanged lines hidden (view full) ---

42 $data =~ s/\n */\n/g;
43 $data =~ s/};\n?//s;
44 my @strucdata = structureData($data);
45 $out .= displayData($indent, 0, \@strucdata);
46 $out .= "\n$indent};\n";
47 do_output($out);
48 $in_su = 0;
49 }
9use strict;
10
11my $in_su = 0;
12my $indent = 0;
13my $out;
14my $braces = 0;
15my $arrcnt;
16my $data;

--- 29 unchanged lines hidden (view full) ---

46 $data =~ s/\n */\n/g;
47 $data =~ s/};\n?//s;
48 my @strucdata = structureData($data);
49 $out .= displayData($indent, 0, \@strucdata);
50 $out .= "\n$indent};\n";
51 do_output($out);
52 $in_su = 0;
53 }
50 } elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) {
54 } elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([a-zA-Z_\$][\$0-9a-zA-Z_]+ )?\{/) {
51 $in_su = 1;
52 $indent = $1;
53 $out = $_;
54 next;
55 } else {
56 do_output($_);
57 }
58}

--- 202 unchanged lines hidden --- 		55 $in_su = 1;
56 $indent = $1;
57 $out = $_;
58 next;
59 } else {
60 do_output($_);
61 }
62}

--- 202 unchanged lines hidden ---