← Back to branch summary

~ubuntu-branches/ubuntu/natty/clamav/natty-security

« back to all changes in this revision

Viewing changes to win32/3rdparty/zlib/zlib2ansi

  • Committer: Bazaar Package Importer
  • Author(s): Scott Kitterman
  • Date: 2011-02-19 09:51:33 UTC
  • mfrom: (0.35.19 sid)
  • Revision ID: james.westby@ubuntu.com-20110219095133-sde2dyj8a6bjbkdh
Tags: 0.97+dfsg-0ubuntu1
* Merge from debian unstable (0ubuntu1 because the Debian upload was
  inadvertently left marked UNRELEASED).  Remaining changes:
  - Drop initial signature definitions from clamav-base
  - Drop build-dep on electric-fence (in Universe)
  - Add apparmor profiles for clamd and freshclam along with maintainer
    script changes

Show diffs side-by-side

added added

removed removed

Lines of Context:
win32/3rdparty/zlib/zlib2ansi
 
1
#!/usr/bin/perl
 
2
 
 
3
# Transform K&R C function definitions into ANSI equivalent.
 
4
#
 
5
# Author: Paul Marquess
 
6
# Version: 1.0
 
7
# Date: 3 October 2006
 
8
 
 
9
# TODO
 
10
#
 
11
# Asumes no function pointer parameters. unless they are typedefed.
 
12
# Assumes no literal strings that look like function definitions
 
13
# Assumes functions start at the beginning of a line
 
14
 
 
15
use strict;
 
16
use warnings;
 
17
 
 
18
local $/;
 
19
$_ = <>;
 
20
 
 
21
my $sp = qr{ \s* (?: /\* .*? \*/ )? \s* }x; # assume no nested comments
 
22
 
 
23
my $d1    = qr{ $sp (?: [\w\*\s]+ $sp)* $sp \w+ $sp [\[\]\s]* $sp }x ;
 
24
my $decl  = qr{ $sp (?: \w+ $sp )+ $d1 }xo ;
 
25
my $dList = qr{ $sp $decl (?: $sp , $d1 )* $sp ; $sp }xo ;
 
26
 
 
27
 
 
28
while (s/^
 
29
            (                  # Start $1
 
30
                (              #   Start $2
 
31
                    .*?        #     Minimal eat content
 
32
                    ( ^ \w [\w\s\*]+ )    #     $3 -- function name
 
33
                    \s*        #     optional whitespace
 
34
                )              # $2 - Matched up to before parameter list
 
35
 
 
36
                \( \s*         # Literal "(" + optional whitespace
 
37
                ( [^\)]+ )     # $4 - one or more anythings except ")"
 
38
                \s* \)         # optional whitespace surrounding a Literal ")"
 
39
 
 
40
                ( (?: $dList )+ ) # $5
 
41
 
 
42
                $sp ^ {        # literal "{" at start of line
 
43
            )                  # Remember to $1
 
44
        //xsom
 
45
      )
 
46
{
 
47
    my $all = $1 ;
 
48
    my $prefix = $2;
 
49
    my $param_list = $4 ;
 
50
    my $params = $5;
 
51
 
 
52
    StripComments($params);
 
53
    StripComments($param_list);
 
54
    $param_list =~ s/^\s+//;
 
55
    $param_list =~ s/\s+$//;
 
56
 
 
57
    my $i = 0 ;
 
58
    my %pList = map { $_ => $i++ }
 
59
                split /\s*,\s*/, $param_list;
 
60
    my $pMatch = '(\b' . join('|', keys %pList) . '\b)\W*$' ;
 
61
 
 
62
    my @params = split /\s*;\s*/, $params;
 
63
    my @outParams = ();
 
64
    foreach my $p (@params)
 
65
    {
 
66
        if ($p =~ /,/)
 
67
        {
 
68
            my @bits = split /\s*,\s*/, $p;
 
69
            my $first = shift @bits;
 
70
            $first =~ s/^\s*//;
 
71
            push @outParams, $first;
 
72
            $first =~ /^(\w+\s*)/;
 
73
            my $type = $1 ;
 
74
            push @outParams, map { $type . $_ } @bits;
 
75
        }
 
76
        else
 
77
        {
 
78
            $p =~ s/^\s+//;
 
79
            push @outParams, $p;
 
80
        }
 
81
    }
 
82
 
 
83
 
 
84
    my %tmp = map { /$pMatch/;  $_ => $pList{$1}  }
 
85
              @outParams ;
 
86
 
 
87
    @outParams = map  { "    $_" }
 
88
                 sort { $tmp{$a} <=> $tmp{$b} }
 
89
                 @outParams ;
 
90
 
 
91
    print $prefix ;
 
92
    print "(\n" . join(",\n", @outParams) . ")\n";
 
93
    print "{" ;
 
94
 
 
95
}
 
96
 
 
97
# Output any trailing code.
 
98
print ;
 
99
exit 0;
 
100
 
 
101
 
 
102
sub StripComments
 
103
{
 
104
 
 
105
  no warnings;
 
106
 
 
107
  # Strip C & C++ coments
 
108
  # From the perlfaq
 
109
  $_[0] =~
 
110
 
 
111
    s{
 
112
       /\*         ##  Start of /* ... */ comment
 
113
       [^*]*\*+    ##  Non-* followed by 1-or-more *'s
 
114
       (
 
115
         [^/*][^*]*\*+
 
116
       )*          ##  0-or-more things which don't start with /
 
117
                   ##    but do end with '*'
 
118
       /           ##  End of /* ... */ comment
 
119
 
 
120
     |         ##     OR  C++ Comment
 
121
       //          ## Start of C++ comment //
 
122
       [^\n]*      ## followed by 0-or-more non end of line characters
 
123
 
 
124
     |         ##     OR  various things which aren't comments:
 
125
 
 
126
       (
 
127
         "           ##  Start of " ... " string
 
128
         (
 
129
           \\.           ##  Escaped char
 
130
         |               ##    OR
 
131
           [^"\\]        ##  Non "\
 
132
         )*
 
133
         "           ##  End of " ... " string
 
134
 
 
135
       |         ##     OR
 
136
 
 
137
         '           ##  Start of ' ... ' string
 
138
         (
 
139
           \\.           ##  Escaped char
 
140
         |               ##    OR
 
141
           [^'\\]        ##  Non '\
 
142
         )*
 
143
         '           ##  End of ' ... ' string
 
144
 
 
145
       |         ##     OR
 
146
 
 
147
         .           ##  Anything other char
 
148
         [^/"'\\]*   ##  Chars which doesn't start a comment, string or escape
 
149
       )
 
150
     }{$2}gxs;
 
151
 
 
152
}