«

hi all,

I am a fresher, learning the Perl programming.
I have got a problem i just want to match old
C style function definition,
for example,
void hiall()
int k,j,l,m;
char *dare;
{
//BODY OF THE FUNCTION
}
If such old C style function definition exists
then i just need that function name. Hope somebody will
help a chinless wonder like me

Seema Rao

seema wrote:

....

> I have got a problem i just want to match old
> C style function definition,
> for example,
> void hiall()
> int k,j,l,m;
> char *dare;
> {
> //BODY OF THE FUNCTION
> }
> If such old C style function definition exists
> then i just need that function name. Hope somebody will
> help a chinless wonder like me
>
> Seema Rao

Please read:

perldoc perlsub

In Perl, functions are "sub"'s, and variables are declared with
"my". So it would go something like:

use warnings;
use strict;
#...
sub hiall{
my $k,$j,$l,$m,$dare;
#pick up incoming arguments if any from array @_
#do stuff
#return a value with the "return" statement, or
#otherwise return the value of the last statement
#executed
}
#...

Note that the type of value a variable may hold is not defined
ahead of time in Perl. Any variable may take on any valid value
at any time during program execution (generally string, integer,
floating point, filehandle, dirhandle, or reference, with
automatic conversion).

HTH.

--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl

Bob Walton <> writes:
>
> Please read:
>
> perldoc perlsub

I could be wrong, but I think the OP wants to parse C with Perl, not
duplicate C in Perl.

If it were ANSI C, something like

use C::Scan;
$c = new C::Scan filename => 'seema.c';
print $_->[1] foreach @{$c->get('parsed_fdecls')};

would do it, but that doesn't work for K&R C.