completions for make targets?

completions for make targets?

[Raju K. V.]

Hi all,

I am a zsh newbie still struggling to understand the power of compctl. I
have one requirement. How can I use compctl to complate make targets? I
can illustrate my requirements:
suppose I have 'Makefile' in my current directory with targets
xx:
yy:
zz:
clean:
clobber:
now I want to program compctl in such a way that $make <TAB> will list all
the targets for make.

Any help will be welcome.

Thanks and regards,
Raju
p.s.: Since I am not subscribed to the list, please CC me in your replies.

Re: completions for make targets?

[Thomas Köhler]

Raju K. V. <rajukv@wipinfo.soft.net> wrote:
> 
> Hi all,
> 
> I am a zsh newbie still struggling to understand the power of compctl. I
> have one requirement. How can I use compctl to complate make targets? I
> can illustrate my requirements:
> suppose I have 'Makefile' in my current directory with targets
> xx:
> yy:
> zz:
> clean:
> clobber:
> now I want to program compctl in such a way that $make <TAB> will list all
> the targets for make.
> 
> Any help will be welcome.

Well, there is a tool to convert tcsh complete commands to zsh compctl
statements. Using that, I got this solution (sorry for the *long* line):

compctl -s '`cat -s GNUmakefile Makefile makefile |& sed -n -e "/No such file/d" -e "/^[^ #].*:/s/:.*//p"`' -x 'c[-1,-f]' -f - 'n[-1,=]' -f -- make

> Thanks and regards,
> Raju

HTH,
Thomas

> p.s.: Since I am not subscribed to the list, please CC me in your replies.

No problem. :-)

-- 
    Thomas Köhler    Email:     jean-luc@picard.franken.de
        <><           WWW:    http://home.pages.de/~jeanluc/
                      IRC:               jeanluc
      LCARS --- Linux for Computers on All Real Starships

Re: completions for make targets?

[Falk Hueffner]

"Raju K. V." <rajukv@wipinfo.soft.net> writes:

> I am a zsh newbie still struggling to understand the power of
> compctl. I have one requirement. How can I use compctl to complate
> make targets?

Try this (I think it comes from the snandard compctl example file):

compctl -s "\$(awk '/^[a-zA-Z0-9][^ 	]+:/ {print \$1}' FS=: [mM]akefile)" -x \
	'c[-1,-f]' -f -- make gmake pmake

Re: completions for make targets?

[Stefan Monnier]

>>>>> "Raju" == Raju K V <rajukv@wipinfo.soft.net> writes:
> How can I use compctl to complate make targets?

Admittedly, my solution doesn't exploit compctl too much (maybe
because I had it for tcsh before and just adapted it), but it's
probably a bit fancier (in some respects) than many others:

    comp_make () {
    	local cmd args i where
    	read -Ac cmd; read -cn where
    	i=1
    	while [[ "$i" -lt "$#cmd" ]]; do
    	    if [[ "$cmd[$i]" = "-f" ]]; then
    		reply=("${(@f)$(~/libexec/complete/make.perl "$cmd[$[$i + 1]]" 2>/dev/null)}")
    		comp_fixreply
    		return 0;
    	    else
    		((i += 1))
    	    fi
    	done
    	reply=("${(@f)$(~/libexec/complete/make.perl 2>/dev/null)}")
    	comp_fixreply
    }
    compctl -x 'c[-1,-f]' -f -- + -Q -S '' -K comp_make + gmake make

now, you'll notice that this depends on a perl file that does the actual
target extraction.  The perl file is appended.


	Stefan


#!/usr/bin/env perl

# read all the var definitions into the "vars" hash-table
# and the target lines into the "targetlines" array
sub ReadFile {
    local($file) = @_;
    local($prevs) = ("");

    open(MAKEFILE, "<$file") || return;

    for (<MAKEFILE>) {
	chomp();
	$_ = $prevs . $_; $prevs = "";

	if (s/\\$//o ) {
	    $prevs = $_;
	} elsif (/^[- \t]*include[ \t]+([^ \t]+)/) {
	    push(@includes, $1);
	} elsif (/^[ \t]*([-a-zA-Z0-9_.]+)[ \t]*=(.*)$/o) {
	    $vars{$1} = $2;
	} elsif (/^((([-a-zA-Z0-9_ ][-a-zA-Z0-9_. ]*)|(\$\((([^()]+)|(\$\([^()]+\)))\)))+)[\t ]*:/o) {
	    push(@targetlines, $1);
	}
    }
    close(MAKEFILE);
    
    if ($file = pop(@includes)) {
	ReadFile($file);
    }
}

# debugging: dump out the vars, their values and the targetlines
#print "**bindings**\n";
#@vars = keys(%vars);
#for (@vars) {
#    print "<$_> is <$vars{$_}>\n";
#}
#print "**targets**\n";
#for (@targetlines) {
#    print "$_\n";
#}

sub ExpandTargets {
    local(@targets);

    # look for potential targets (lines with a ":")
    for $targets (@targetlines) {
	
	# for each set of targets, look for variables to substitue
	while (($var) = $targets =~ /\$\( *([^()\$]*)\)/o ) {
#	    print "var =$var:   <$targets>  =>  <";
	    
	    # first case: a simple macro
	    if ($tmpvar = $vars{$var}) {
		$var =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote var
		$targets =~ s/\$\( *$var\)/$tmpvar/g ;
		
	    #second case: a macro with simple substitution
	    } elsif (($var0, $s1, $s2) = $var =~ / *(.*):(.*)=(.*)/o) {
		if ($tmpvar = $vars{$var0}) {
		    $s1 =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote s1
		    $tmpvar =~ s/$s1/$s2/g ;
		    $s2 =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote s2
		    $var0 =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote var0
		    $targets =~ s/\$\( *$var0:$s1=$s2\)/$tmpvar/g ;
		} else {
		    $var0 =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote var0
		    $targets =~ s/\$\( *$var0:$s1=$s2\)//g ;
		}
	    } else {
		$var =~ s/([^a-zA-Z0-9 ])/\\$1/og; # quote var
		$targets =~ s/\$\( *$var\)//g ;
	    }
#	    print "$targets>\n";
	}
	
	$targets =~ s/:.*$//;	# removes anything after a :
	
	# split the "targets line" into an array of targets
	@targets = ($targets =~ /([^ ]+)/og );
	
	#put each target into a hash-table (to remove duplicates)
	for $target (@targets) {
	    $targets{$target} = true;
	}
    }
}

if ($#ARGV < 0) {
    if (-r "GNUmakefile") { $file = "GNUmakefile"; }
    elsif (-r "Makefile") { $file = "Makefile"; }
    elsif (-r "makefile") { $file = "makefile"; }
    else { $file = "/dev/null"; }
} else {
    $file = $ARGV[0];
}

ReadFile($file);
ExpandTargets();

# dump out the table of targets
for $target (keys(%targets)) { print "$target \n"; }
for $var (keys(%vars)) { print "$var=\n"; }