""; use VimFilter;

func! VerDataFmt()
    perl <<EOSCRIPT
#NOVIM# use strict;
#NOVIM# use EasyOpen;
#NOVIM# my @Dummy = @{EasyOpen::SlurpIn ('/tmp/gvim-ver-output.tmp')};
    my($regQ,$VregS) = VIM::Eval('@v');
    my($reqR,$IreqR) = VIM::Eval('columns');
    $IreqR =~/\d{2,3}/ || ($IreqR = 96);
    if($regQ) {
	my $ln = my $mlen = 0;
	my(@plus,@minu,@cummup,@cummum);
	my @lwise = split "\n",$VregS;
	VIM::Msg('There are '.@lwise." lines in \@v\n");
	foreach my $lines (@lwise)  {
	        next unless $ln++>=2;
		if($lines =~/^(?:\-|\+)\w+/) {
		    my @bopts = split /(?<=\w)\b/, $lines;
		    VIM::Msg("Ele in picked-out: ".@bopts."\nin line:$lines");
		    push @plus, grep{ s/^\+// and
                            ($mlen=$mlen<length($_) ? length($_):$mlen) }@bopts;
		    push @minu, grep{ s/^\-// and
                            ($mlen=$mlen<length($_) ? length($_):$mlen) }@bopts;
		}
		last if $lines =~/^\s+system/;
	}
	VIM::Msg("The size of arrays \@plus and \@minu is "
	          . @plus ." , ". @minu ."\n");
	$curbuf->Set(0, "Features compiled into this Vim:") ;
	my $slotspln = sprintf '%u', ($IreqR / (2+$mlen)) - 0.5;
        my $formatex = "%$mlen-s  "x$slotspln;
	my$PY = my$YP = 0;
	while ( $PY < @plus ) { local $^W = 0;
	    push @cummup, sprintf($formatex, @plus[$PY ..
		            ($PY+=($slotspln - 1))]);
	} continue { $PY++; }
	while ( $YP < @minu ) { local $^W = 0;
	    push @cummum, sprintf($formatex, @minu[$YP ..
		            ($YP+=($slotspln - 1))]);
	} continue { $YP++; }
	$curbuf->Append(1,@cummup,'');
	$curbuf->Append(2+@cummup,'Features omitted from this Vim:');
	$curbuf->Append(3+@cummup,@cummum,'');
    } else {
	VIM::Msg('The contents of register v could not be accessed');
    }

__DATA__
EOSCRIPT
  endfu