scripts: add zsh.pl for generating zsh completion

 winbuild/Makefile.msvc.names

EXTRA_DIST = CHANGES COPYING maketgz Makefile.dist curl-config.in	\

 RELEASE-NOTES buildconf libcurl.pc.in MacOSX-Framework	\

 RELEASE-NOTES buildconf libcurl.pc.in MacOSX-Framework scripts/zsh.pl	\

 $(CMAKE_DIST) $(VC_DIST) $(WINBUILD_DIST) lib/libcurl.vers.in

CLEANFILES = $(VC6_LIBDSP) $(VC6_SRCDSP) $(VC7_LIBVCPROJ) $(VC7_SRCVCPROJ)	\

#!/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 };