annotate src/zlib-1.2.8/zlib2ansi @ 43:5ea0608b923f

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