From e940afec158c262b05ad9b9f15292e3a61826c33 Mon Sep 17 00:00:00 2001 From: Philip Sequeira Date: Sun, 29 Jun 2014 17:24:27 -0400 Subject: TOOLS/zsh.pl: untabify --- TOOLS/zsh.pl | 52 ++++++++++++++++++++++++++-------------------------- 1 file changed, 26 insertions(+), 26 deletions(-) (limited to 'TOOLS/zsh.pl') diff --git a/TOOLS/zsh.pl b/TOOLS/zsh.pl index 7edd782c00..03d8bda6bd 100755 --- a/TOOLS/zsh.pl +++ b/TOOLS/zsh.pl @@ -98,40 +98,40 @@ EOS print $tmpl; sub parse_opts { - my ($cmd, $regex, $parsing_main_options) = @_; + my ($cmd, $regex, $parsing_main_options) = @_; - my @list; - my @lines = split /\n/, `$cmd`; + my @list; + my @lines = split /\n/, `$cmd`; - foreach my $line (@lines) { - if ($line !~ /^$regex/) { - next; - } + foreach my $line (@lines) { + if ($line !~ /^$regex/) { + next; + } - my $entry = $1; + my $entry = $1; - if ($parsing_main_options) { - $entry .= '=-'; - } + if ($parsing_main_options) { + $entry .= '=-'; + } - if (defined $2) { - my $desc = $2; - $desc =~ s/\:/\\:/g; + if (defined $2) { + my $desc = $2; + $desc =~ s/\:/\\:/g; - $entry .= ':' . $desc; - } + $entry .= ':' . $desc; + } - if ($parsing_main_options) { - $entry .= ':'; + if ($parsing_main_options) { + $entry .= ':'; - $entry .= '->ao' if ($1 eq '--ao'); - $entry .= '->vo' if ($1 eq '--vo'); - $entry .= '->af' if ($1 eq '--af'); - $entry .= '->vf' if ($1 eq '--vf'); - } + $entry .= '->ao' if ($1 eq '--ao'); + $entry .= '->vo' if ($1 eq '--vo'); + $entry .= '->af' if ($1 eq '--af'); + $entry .= '->vf' if ($1 eq '--vf'); + } - push @list, $entry - } + push @list, $entry + } - return @list; + return @list; } -- cgit v1.2.3