[WHL] Re: [WHL] Re: [WHL] Re: More about keywords

[Ben Wing]

Your version looks good; I'm not much with commands like `cut', which I
should learn better.

But it should be

cvs admin -kkv $spcase

Not

cvs admin -kv $spcase.


> -----Original Message-----
> From: Steve Youngs [mailto:steve at youngs.au.com] 
> Sent: Saturday, November 06, 2004 11:45 PM
> To: XEmacs beta
> Cc: Ben Wing
> Subject: [WHL] Re: [WHL] Re: [WHL] Re: More about keywords
> 
> 
> * Ben Wing <ben at 666.com> writes:
> 
>   > OK, here is a little script I wrote to go through and 
> change all -kkv files
>   > to -ko.
> 
>   > Before I run it for real, I want to make sure there are 
> no complaints.
> 
> Only if you don't reinstate keyword subs on mozmail and 
> google-query :-)
> 
>   > #!/bin/sh
> 
>   > cvs=`find . -name CVS -print`
>   > for x in $cvs ; do
>   >   (
>   >   dir=`dirname $x`
>   >   cd $dir
>   >   files=`cat CVS/Entries | sed -r -e '/^D/d' -e 
> 's:^/([^/]+)/.*:\1:'`
>   >   for y in $files ; do
>   >     echo $dir/$y
>   >     keysub=`cvs log $y | grep '^keyword substitution'`
>   >     echo $keysub
>   >     if [ "$keysub" = "keyword substitution: kv" ] ; then
>   >       echo cvs admin -ko $y
>   >     fi
>   >   done
>   >   )
>   > Done
> 
> I would have done it slightly differently...
> 
> #!/bin/sh
> 
> pkgtop=/path/to/package/source/toplevel
> 
> spcase=${pkgtop}/xemacs-packages/net-utils/mozmail.el \
>     ${pkgtop}/xemacs-packages/net-utils/google-query.el
> 
> cvs=`find ${pkgtop} -type d -name CVS`
> for x in $cvs ; do
>     dir=`dirname $x`
>     files=`grep -v '^D' $x/Entries|cut -d / -f2`
>     cd $dir
>     for y in $files ; do
> 	echo -n "$dir/$y\t" 
> 	keysub=`cvs log $y | grep '^keyword substitution'`
> 	echo -n "$keysub\t"
> 	if [ "$keysub" = "keyword substitution: kv" ] ; then
> 	    cvs admin -ko $y
> 	    echo "ko"
> 	fi
>     done
> done
> cvs admin -kv $spcase
> 
> Obviously untested, but I'm fairly certain it'd work OK.
> 
> -- 
> |---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
> |        XEmacs - The only _______ you'll ever need.       |
> |          Fill in the blank, yes, it's THAT good!         |
> |----------------------------------<steve at youngs.au.com>---|
>