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