[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Parallel Cons Issue
From: |
Rajesh Vaidheeswarran |
Subject: |
Re: Parallel Cons Issue |
Date: |
Thu, 06 Sep 2001 19:48:01 -0400 (EDT) |
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/