perl/5.8.4/get_no_keywords.sh

#!/bin/ksh -p
#
# Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
#ident  "%Z%%M% %I% %E% SMI"
#
# Some of the files in the perl distribution are uuencoded, or contain uuencoded
# data.  Some of the sequences of uuencoded data look like SCCS keywords, i.e.
# "%<letter>%", so it is necessary to prevent the keywords from being expanded.
# The SCCS 'y' flag can be added to the SCCS files to prevent keyword expansion
# when the file is retrieved.  However due to bugs in SCCS and wx we can't
# always be sure that these flags are propagated correctly.  This script checks
# the files passed on its command-line to make sure they have not been subject
# to incorrect keyword expansion, which in the case of perl will not necessarily
# result in a build-time error, as the files are copied verbatim into the proto
# area.
#

# Split out the directory and file components of each path on the command-line.
for dirfile in $*; do
    dir=${dirfile%/*}
    file=${dirfile##*/}
    sfile="SCCS/s.$file"

    # Create a new environment, so we pop back to the old directory.
    (
        # Check everything exists.
        if [[ ! -d $dir ]]; then
            printf 'Invalid directory: %s\n' $dir
            exit 1
        fi
        cd $dir || exit 1

        # Source builds might not have the SCCS directory present.
        if [[ ! -f $sfile ]]; then
            continue;
        fi

        #
        # Compare the plaintext file with the version extracted from
        # SCCS with keyword expansion prevented; fix everything up if
        # the two don't match.
        #
        fetch='no'
        if [[ ! -f $file ]]; then
            fetch='yes'
        elif [[ $(sccs get -kp $file 2>/dev/null | cksum) \
            != $(cat $file | cksum) ]]; then
            printf 'Warning: expanded SCCS keywords in %s fixed\n' \
                $dirfile
            fetch='yes'
        fi
        if [[ $fetch = 'yes' ]]; then
            sccs admin -fy $file
            sccs get $file 2>/dev/null
        fi
    )
done