Re: Parallel Cons Issue

[Rajesh Vaidheeswarran]

You may not need to test for max_jobs at all, since ( cmd ) is valid
even for a single command.
 
So, that could become

my @cmds = join " && ", map "( $_ )", $self->getcoms($env, $tgt); # pcons

the simple test being..
% perl -e '@cmds = qw(a b c d e); print join " && ", map "( $_ )", @cmds'
( a ) && ( b ) && ( c ) && ( d ) && ( e )

% perl -e '@cmds = qw(e); print join " && ", map "( $_ )", @cmds'
( e )


In a previous message, Wayne Scott writes:

> From: "Nolish, Kevin" <address@hidden>
> >     my @cmds = $self->getcoms($env, $tgt); # pcons
> >     if ($param::max_jobs>1) {                  # pcons
> >     for( $i = 0; $i < @cmds; $i++ ) {              #pcons -kn
> >         $cmds[$i] = "( " . $cmds[$i] . " )";       #pcons -kn
> >     }                                              #pcons -kn
> >     @cmds = join(" && ", @cmds) ;      # pcons
> >     }   
> 
> 
> This is cleaner.... but untested.
> 
>     my @cmds = $self->getcoms($env, $tgt); # pcons
>     if ($param::max_jobs>1) {            # pcons
>       @cmds = (join(" && ", map {"( $_ )"} @cmds)) ;      # pcons
>     }   
> 
> -Wayne
> 
> _______________________________________________
> address@hidden
> http://mail.gnu.org/mailman/listinfo/cons-discuss
> Cons URL: http://www.dsmit.com/cons/