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 --- |