#!/usr/bin/perl

# showfun
# John Jacobsen, NPX Designs, Inc., jacobsen\@npxdesigns.com
# Started: Thu Mar 11 14:39:47 2004

package MY_PACKAGE;
use strict;

my $expr = shift || die "Usage: $0 function_name [file]\n";
my @lines = <>;
my $nlines = @lines;
my $foundit = 0;
my $bracecount = 0;
my $foundright = 0;
for(my $l = 0; $l < $nlines; $l++) {
    #print "$l $lines[$l]";
    if($lines[$l] =~ /$expr\s?\(.+?/ && $lines[$l] !~ /\(.+?\(.+?/ &&
       $lines[$l] !~ /;/) {
	$foundit++;
    }
    if($foundit) {
	if($lines[$l] =~ /{/) {
	    $bracecount++;
	    $foundright = 1;
	}
	if($lines[$l] =~ /}/) {
	    $bracecount--;
	}
        print "$lines[$l]";
	exit if $bracecount == 0 && $foundright;
    }
}

__END__

