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
 15use strict;
 16use warnings;
 17
 18local $/;
 19$_ = <>;
 20
 21my $sp = qr{ \s* (?: /\* .*? \*/ )? \s* }x; # assume no nested comments
 22
 23my $d1    = qr{ $sp (?: [\w\*\s]+ $sp)* $sp \w+ $sp [\[\]\s]* $sp }x ;
 24my $decl  = qr{ $sp (?: \w+ $sp )+ $d1 }xo ;
 25my $dList = qr{ $sp $decl (?: $sp , $d1 )* $sp ; $sp }xo ;
 26
 27
 28while (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.
 98print ;
 99exit 0;
100
101
102sub 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}