Mailing-List:	contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe:	<mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive:	<http://sources.redhat.com/ml/cygwin/>
List-Post:	<mailto:cygwin AT cygwin DOT com>
List-Help:	<mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender:	cygwin-owner AT cygwin DOT com
Mail-Followup-To:	cygwin AT cygwin DOT com
Delivered-To:	mailing list cygwin AT cygwin DOT com
Message-ID:	<00c401c2552a$4b497d50$0100a8c0@wdg.uk.ibm.com>
From:	"Max Bowsher" <maxb AT ukf DOT net>
To:	<cygwin AT cygwin DOT com>
References:	<Pine DOT GSO DOT 4 DOT 44 DOT 0209051809490 DOT 13825-100000 AT slinky DOT cs DOT nyu DOT edu>
Subject:	Re: Calling all sed wizards! Need a little help with possible fix: Subtle permissions bug in interaction between Makefiles & libtool (Cygwin-specific)
Date:	Thu, 5 Sep 2002 23:19:13 +0100
MIME-Version:	1.0
X-Priority:	3
X-MSMail-Priority:	Normal
X-MimeOLE:	Produced By Microsoft MimeOLE V6.00.2600.0000

Igor Pechtchanski wrote:
> On Thu, 5 Sep 2002, Max Bowsher wrote:
> 
>> I had an idea:
>> sedpat6='s,\(-m [0-7]*\)6,\17,g'
>> sedpat4='s,\(-m [0-7]*\)4,\15,g'
>> sed -e "$sedpat4" -e "$sedpat4" -e "$sedpat4" -e "$sedpat6" -e
>> "$sedpat6" -e "$sedpat6"
>> 
>> but can anyone show me a way without repeating each pattern 3 times?
> 
> Hmm, "perl -pe 's/(?<=-m )([0-7]+)/($a=$1)=~tr,046,157,;$a/ge'"? O:)

Yep, but given that this is for use in libtool, it can't rely on perl.

Max.


--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Bug reporting:         http://cygwin.com/bugs.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/

- Raw text -