mirror of
https://github.com/curl/curl.git
synced 2024-12-09 06:30:06 +08:00
b27893d15c
When an option's help string contains literal single quotes, those single quotes would be stripped from the option's description in the completion output (unless the zsh RC_QUOTES option were set while the completion function was being sourced, which is not the default). This patch makes the completion output contain single quotes where the --help output does. Closes #532
78 lines
1.6 KiB
Perl
Executable File
78 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Generate ZSH completion
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $curl = $ARGV[0] || 'curl';
|
|
|
|
my $regex = '\s+(?:(-[^\s]+),\s)?(--[^\s]+)\s([^\s.]+)?\s+(.*)';
|
|
my @opts = parse_main_opts('--help', $regex);
|
|
|
|
my $opts_str;
|
|
|
|
$opts_str .= qq{ $_ \\\n} foreach (@opts);
|
|
chomp $opts_str;
|
|
|
|
my $tmpl = <<"EOS";
|
|
#compdef curl
|
|
|
|
# curl zsh completion
|
|
|
|
local curcontext="\$curcontext" state state_descr line
|
|
typeset -A opt_args
|
|
|
|
local rc=1
|
|
|
|
_arguments -C -S \\
|
|
$opts_str
|
|
'*:URL:_urls' && rc=0
|
|
|
|
return rc
|
|
EOS
|
|
|
|
print $tmpl;
|
|
|
|
sub parse_main_opts {
|
|
my ($cmd, $regex) = @_;
|
|
|
|
my @list;
|
|
my @lines = split /\n/, `"$curl" $cmd`;
|
|
|
|
foreach my $line (@lines) {
|
|
my ($short, $long, $arg, $desc) = ($line =~ /^$regex/) or next;
|
|
|
|
my $option = '';
|
|
|
|
$desc =~ s/'/'\\''/g if defined $desc;
|
|
$desc =~ s/\[/\\\[/g if defined $desc;
|
|
$desc =~ s/\]/\\\]/g if defined $desc;
|
|
|
|
$option .= '{' . trim($short) . ',' if defined $short;
|
|
$option .= trim($long) if defined $long;
|
|
$option .= '}' if defined $short;
|
|
$option .= '\'[' . trim($desc) . ']\'' if defined $desc;
|
|
|
|
$option .= ":$arg" if defined $arg;
|
|
|
|
$option .= ':_files'
|
|
if defined $arg and ($arg eq 'FILE' || $arg eq 'DIR');
|
|
|
|
push @list, $option;
|
|
}
|
|
|
|
# Sort longest first, because zsh won't complete an option listed
|
|
# after one that's a prefix of it.
|
|
@list = sort {
|
|
$a =~ /([^=]*)/; my $ma = $1;
|
|
$b =~ /([^=]*)/; my $mb = $1;
|
|
|
|
length($mb) <=> length($ma)
|
|
} @list;
|
|
|
|
return @list;
|
|
}
|
|
|
|
sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
|