mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-20 04:02:27 +00:00
Code Issues Releases Activity

Refactor a bit.

Browse Source 
Sponsored by:	Absolight
This commit is contained in:
Mathieu Arnold 2016-06-17 14:58:36 +00:00
parent bf3282080e
commit 75a1df13c5
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=417014
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Tools/scripts/indent_make_if.pl
View File

@ -8,8 +8,15 @@ use warnings;
my $extension = '.orig';
my $oldargv = q{};
my $spaces = 2;
my $indent;
my $argvout;
sub dotindent {
my $amount = shift;
return '.' . (' ' x ($spaces * $amount));
}
LINE: while (<>) {
# For each file, save a .orig backup.
@ -21,19 +28,19 @@ LINE: while (<>) {
($backup = $extension) =~ s/[*]/$ARGV/g;
}
rename $ARGV, $backup;
open $argvout, '>', $ARGV;
open $argvout, '>', $ARGV or die "Error for $ARGV: $!";
$oldargv = $ARGV;
$indent = 0;
}
if (/^[.]\s*(?:if|for)/o) { # if/for -> indent and increase indent
s/^[.]\s*/"." . " " x $indent/oe;
s/^[.]\s*/dotindent($indent)/oe;
$indent++;
} elsif (/^[.]\s*end(?:if|for)/o) { # endif/endfor -> decrease indent and indent
$indent--;
s/^[.]\s*/"." . " " x $indent/oe;
s/^[.]\s*/dotindent($indent)/oe;
} elsif (/^[.]\s*(?:else|elif)/o) { # else/elif -> indent one level down
s/^[.]\s*/"." . " " x ($indent - 1)/oe;
s/^[.]\s*/dotindent($indent-1)/oe;
}
} continue {