You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
536 B
22 lines
536 B
# Process parentheses.
|
|
# An unmatched open paren provides an alternate indent position;
|
|
# we first remove all matched pairs, then look at what's left
|
|
my $saveLine = $_;
|
|
|
|
while (s/\(([^()]*)\)/ $1 /g) {};
|
|
|
|
/^(.*)\(/ && ($altIndentPos = length($1)+1);
|
|
my $parenDelta = s/(\()/$1/g - s/(\))/$1/g;
|
|
|
|
$_ = $saveLine;
|
|
|
|
|
|
|
|
....
|
|
|
|
|
|
# Switch off alternate indent position
|
|
if ($parenDelta < 0) {
|
|
$altIndentPos = -1;
|
|
}
|
|
|