parse for a function definition

[Elizabeth H]

I need to search for a particular function in a shell script and replace it with the modified function for which I can use sed inplace editor. But I am not able to correctly parse for the function. Can I have a regular expression to search for the function which is of the form
function()
{
no other braces in between
}

[Rabbit]

If there's no braces that makes it a lot easier.
Try function[^{]*{[^}]*}

[Elizabeth H]

I am sorry but it does have some braces inside the function.. so I dont know how to parse until the end of function

[numberwhun]

Try what @Rabbit put in above? You search from the beginning of the function with the opening bracket until the closing bracket. Did you try what he posted? Did it work?

[miller]

In perldoc perlre, search for the heading (?PARNO).

This may be too advanced for you, but the below code parses out the bar function from the DATA block.

my $data = do {local $/; <DATA>};

my $brackets_re = qr{
	(
	\{
	(?:
		(?> [^{}]+ )
	|
		(?-1)
	)*
	\}
	)
}sx;

$data =~ s/(bar\(\) $brackets_re)//;

print $data;

1;

__DATA__
foo() {
	# Fake stuff
}

bar() {
	if (1) {
	
	}
	
	for () {
		if (0) {
			if (1) {
			
			}
		}
	}
}

baz() {
	# Fake stuff
}

[rovf]

But in this particular case, the opening brace and the closing brace for the function body always are in the beginning of the line, aren't they?

[Elizabeth H]

I tried what @rabbit mentioned , but didnt work. Guess it was coz I said the function doesnt have any braces inside it.

[rovf]

This doesn't really answer my question.... Because when the function braces are only in column 1, and the other braces are not in column 1, you can use this to distinguish them, by just searching for braces at the beginning of a line.

[Elizabeth H]

Will you be able to still help me with the above question. I am still not able to parse the function correctly

[rovf]

???

What exactly was unclear with my last response from March 21?

[Elizabeth H]

Thanks for the quick response. Like you had mentioned above, function braces are only in column 1, and the other braces are not in column 1 but not sure how to do the search I need to insert a new statement just before the closing curly brace of the function. Is function parsing the best way to do this or do I have any other option?

[rovf]

If you sure that *all* your function's closing curlies are in column 1, and no other curly brace is in column 1, and you want to insert something just before the function's closing curly brace, things are trivial. You just read your file line by line, and whenever you encounter the closing of a function, you insert your new statement.

However this solution is so obvious, that I there must be some hidden problem I don't understand yet. Did I overlook something?

[miller]

I already showed you how to do this, Elizabeth. Here is a more complete example demonstrating how to use what I showed you to more specifically add statements to the end of a specific function:

use strict;
use warnings;

my $data = do {local $/; <DATA>};

$data =~ s~(bar\(\)\s*({(?:(?>[^{}]+)|(?-1))*}))~
	my $func = $1;

	# Remove last }, add it back later
	chop $func;

	# Add new statements to end, including trailing }
	$func .= "
	# This is just a trailing statement
}";

	$func
~ex;

print $data;

1;

__DATA__
foo() {
	# Fake stuff
}

bar() {
	if (1) {
	
	}
	
	for () {
		if (0) {
			if (1) {
			
			}
		}
	}
}

baz() {
	# Fake stuff
}

- Miller

[Elizabeth H]

Thnks alot..it wrks wellll....I dnt speak Perl much..so not much sure on how to modify.. can I have it in way where I can use this .pl file to call different files..and apply the same changes to all files(ie, parse out the specific fn in all files and add a trailing statement to all)? Again thnks for ya help!

[Elizabeth H]

@ROVF: I was told that perl might be a good way to do this...Since i dnt speak Perl much, it takes me more time to implement even the basic things, but you had got it right...I guess I was thinking it a bit too complex...Thnks again for ya quick responses and ya help