maintainer-scripts/gcc_release - gcc - Git at Google

 #! /bin/sh

 ########################################################################
 #
 # File:   gcc_release
 # Author: Jeffrey Law, Bernd Schmidt, Mark Mitchell
 # Date:   2001-05-25
 #
 # Contents:
 #   Script to create a GCC release.
 #
 # Copyright (c) 2001, 2002 Free Software Foundation.
 #
 # This file is part of GCC.
 #
 # GCC is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2, or (at your option)
 # any later version.
 #
 # GCC is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
 # along with GCC; see the file COPYING.  If not, write to
 # the Free Software Foundation, 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 #
 ########################################################################

 ########################################################################
 # Notes
 ########################################################################

 # Here is an example usage of this script, to create a GCC 3.0.2
 # prerelease:
 #
 #   gcc_release -r 3.0.2
 #
 # This script will automatically use the head of the release branch
 # to generate the release.

 ########################################################################
 # Functions
 ########################################################################

 # Issue the error message given by $1 and exit with a non-zero
 # exit code.

 error() {
     echo "gcc_release: error: $1"
     exit 1
 }

 # Issue the informational message given by $1.

 inform() {
     echo "gcc_release: $1"
 }

 # Issue a usage message explaining how to use this script.

 usage() {
 cat <<EOF
 gcc_release     [-d destination]
                 [-u username]
 		[-r release]
 		[-t tag]
 		[-p previous-tarball]
 		[-s] [-f] [-l]
 EOF
     exit 1
 }

 # Change to the directory given by $1.

 changedir() {
   cd $1 || \
     error "Could not change directory to $1"
 }

 # Each of the arguments is a directory name, relative to the top
 # of the source tree.  Return another name for that directory, relative
 # to the working directory.

 adjust_dirs() {
   for x in $@; do
     echo `basename ${SOURCE_DIRECTORY}`/$x
   done
 }

 # Build the source tree that will be the basis for the release
 # in ${WORKING_DIRECTORY}/gcc-${RELEASE}.

 build_sources() {
   # If the WORKING_DIRECTORY already exists, do not risk destroying it.
   if [ -r ${WORKING_DIRECTORY} ]; then
     error "\`${WORKING_DIRECTORY}' already exists"
   fi
   # Create the WORKING_DIRECTORY.
   mkdir "${WORKING_DIRECTORY}" \
     || error "Could not create \`${WORKING_DIRECTORY}'"
   changedir "${WORKING_DIRECTORY}"

   # If this is a final release, make sure that the ChangeLogs
   # and version strings are updated.
   if [ ${FINAL} -ne 0 ]; then
     inform "Updating ChangeLogs and version files"

     ${CVS} co -d "`basename ${SOURCE_DIRECTORY}`" \
            -r ${BRANCH} gcc || \
            error "Could not check out release sources"
     for x in `find ${SOURCE_DIRECTORY} -name ChangeLog`; do
       cat - ${x} > ${x}.new <<EOF
 ${LONG_DATE}  Release Manager

 	* GCC ${RELEASE} Released.

 EOF
       mv ${x}.new ${x} || \
         error "Could not update ${x}"
       (changedir `dirname ${x}` && \
         ${CVS} ci -m 'Mark ChangeLog' `basename ${x}`) || \
         error "Could not commit ${x}"
     done

     # Update `gcc/version.c'.
     for x in gcc/version.c; do
       y=`basename ${x}`
       (changedir `dirname ${SOURCE_DIRECTORY}/${x}` && \
           sed -e 's|version_string\[\] = \".*\"|version_string\[\] = \"'${RELEASE}'\"|g' < ${y} > ${y}.new && \
 	  mv ${y}.new ${y} && \
           ${CVS} ci -m 'Update version' ${y}) || \
 	  error "Could not update ${x}"
     done

     # Make sure we tag the sources for a final release.
     TAG="gcc_`echo ${RELEASE} | tr . _`_release"

     rm -rf ${SOURCE_DIRECTORY}
   fi

   # Tag the sources.
   if [ -n "${TAG}" ]; then
     inform "Tagging release sources"
     ${CVS} rtag -r ${BRANCH} -F ${TAG} gcc || \
       error "Could not tag release sources"
     BRANCH=$TAG
   fi

   # Export the current sources.
   inform "Retrieving release sources"
   ${CVS} \
        export -d "`basename ${SOURCE_DIRECTORY}`" \
        -r ${BRANCH} gcc || \
     error "Could not retrieve release sources"

   # Run gcc_update on them to set up the timestamps nicely.
   changedir "gcc-${RELEASE}"
   contrib/gcc_update --touch

   # Obtain some documentation files from the wwwdocs module.
   inform "Retrieving HTML documentation"
   changedir "${WORKING_DIRECTORY}"
   for x in bugs faq; do
     (${CVS} export -r HEAD wwwdocs/htdocs/${x}.html && \
      cp ${WORKING_DIRECTORY}/wwwdocs/htdocs/${x}.html \
         ${SOURCE_DIRECTORY}) || \
       error "Could not retrieve ${x}.html"
   done

   inform "Generating plain-text documentation from HTML"
   changedir "${SOURCE_DIRECTORY}"
   for file in *.html; do
     newfile=`echo $file | sed -e 's/.html//' | tr "[:lower:]" "[:upper:]"`
     (${ENV} TERM=vt100 lynx -dump $file \
        | sed -e "s#file://localhost`/bin/pwd`\(.*\)#http://gcc.gnu.org\1#g" \
        > $newfile) || \
      error "Could not generate text-only version of ${file}"
   done

   # For a prerelease or real release, we need to generate additional
   # files not present in CVS.
   changedir "${SOURCE_DIRECTORY}"
   if [ $SNAPSHOT -ne 1 ]; then
     # Generate the documentation.
     inform "Building install docs"
     SOURCEDIR=${SOURCE_DIRECTORY}/gcc/doc
     DESTDIR=${SOURCE_DIRECTORY}/INSTALL
     export SOURCEDIR
     export DESTDIR
     ${SOURCE_DIRECTORY}/gcc/doc/install.texi2html

     # Regenerate the NEWS file.
     contrib/gennews > NEWS || \
       error "Could not regenerate NEWS files"

     # Now, we must build the compiler in order to create any generated
     # files that are supposed to go in the source directory.  This is
     # also a good sanity check to make sure that the release builds
     # on at least one platform.
     inform "Building compiler"
     OBJECT_DIRECTORY=../objdir
     contrib/gcc_build -d ${SOURCE_DIRECTORY} -o ${OBJECT_DIRECTORY} build || \
       error "Could not rebuild GCC"

     # Regenerate the Fotran NEWS and BUGS files.
     (cd ${OBJECT_DIRECTORY}/gcc && make f77.rebuilt) || \
       error "Could not regenerate Fortran NEWS and BUGS files"
   fi

   # Move message catalogs to source directory.
   mv ../objdir/gcc/po/*.gmo gcc/po/

   # Create a `.brik' file to use for checking the validity of the
   # release.
   changedir "${SOURCE_DIRECTORY}"
   BRIK_FILE=`mktemp /tmp/gcc_release.XXXXXXX`
   ((find . -type f | sort > $BRIK_FILE) && \
        brik -Gb -f ${BRIK_FILE} > .brik && \
        rm ${BRIK_FILE}) || \
      error "Could not compute brik checksum"
 }

 # Buid a single tarfile.  The first argument is the name of the name
 # of the tarfile to build, without any suffixes.  They will be added
 # automatically.  The rest of the arguments are the files or
 # directories to include.

 build_tarfile() {
   # Get the name of the destination tar file.
   TARFILE="$1.tar.gz"
   shift

   # Build the tar file itself.
   (${TAR} cf - "$@" | ${GZIP} > ${TARFILE}) || \
     error "Could not build tarfile"
   FILE_LIST="${FILE_LIST} ${TARFILE}"
 }

 # Build the various tar files for the release.

 build_tarfiles() {
   inform "Building tarfiles"

   changedir "${WORKING_DIRECTORY}"

   # The GNU Coding Standards specify that all files should
   # world readable.
   chmod -R a+r ${SOURCE_DIRECTORY}
   # And that all directories have mode 777.
   find ${SOURCE_DIRECTORY} -type d -exec chmod 777 {} \;

   # Build one huge tarfile for the entire distribution.
   build_tarfile gcc-${RELEASE} `basename ${SOURCE_DIRECTORY}`

   # Now, build one for each of the languages.
   build_tarfile gcc-ada-${RELEASE} ${ADA_DIRS}
   build_tarfile gcc-g++-${RELEASE} ${CPLUSPLUS_DIRS}
   build_tarfile gcc-g77-${RELEASE} ${FORTRAN_DIRS}
   build_tarfile gcc-java-${RELEASE} ${JAVA_DIRS}
   build_tarfile gcc-objc-${RELEASE} ${OBJECTIVEC_DIRS}
   build_tarfile gcc-testsuite-${RELEASE} ${TESTSUITE_DIRS}

   # The core is everything else.
   EXCLUDES=""
   for x in ${ADA_DIRS} ${CPLUSPLUS_DIRS} ${FORTRAN_DIRS} \
 	   ${JAVA_DIRS} ${OBJECTIVEC_DIRS} ${TESTSUITE_DIRS}; do
     EXCLUDES="${EXCLUDES} --exclude $x"
   done
   build_tarfile gcc-core-${RELEASE} ${EXCLUDES} \
     `basename ${SOURCE_DIRECTORY}`
 }

 # Build .bz2 files.
 build_bzip2() {
   for f in ${FILE_LIST}; do
     bzfile=${f%.gz}.bz2
     (zcat $f | ${BZIP2} > ${bzfile}) || error "Could not create ${bzfile}"
   done
 }

 # Build diffs against an old release.
 build_diffs() {
   old_dir=${1%/*}
   old_file=${1##*/}
   old_vers=${old_file%.tar.gz}
   old_vers=${old_vers#gcc-}
   inform "Building diffs against version $old_vers"
   for f in gcc gcc-ada gcc-g++ gcc-g77 gcc-java gcc-objc gcc-testsuite gcc-core; do
     old_tar=${old_dir}/${f}-${old_vers}.tar.gz
     new_tar=${WORKING_DIRECTORY}/${f}-${RELEASE}.tar.gz
     if [ ! -e $old_tar ]; then
       inform "$old_tar not found; not generating diff file"
     elif [ ! -e $new_tar ]; then
       inform "$new_tar not found; not generating diff file"
     else
       build_diff $old_tar gcc-${old_vers} $new_tar gcc-${RELEASE} \
         ${f}-${old_vers}-${RELEASE}.diff.gz
     fi
   done
 }

 # Build an individual diff.
 build_diff() {
   changedir "${WORKING_DIRECTORY}"
   tmpdir=gccdiff.$$
   mkdir $tmpdir || error "Could not create directory $tmpdir"
   changedir $tmpdir
   tar xfz $1 || error "Could not unpack $1 for diffs"
   tar xfz $3 || error "Could not unpack $3 for diffs"
   ${DIFF} $2 $4 > ../${5%.gz}
   if [ $? -eq 2 ]; then
     error "Trouble making diffs from $1 to $3"
   fi
   ${GZIP} ../${5%.gz} || error "Could not gzip ../${5%.gz}"
   changedir ..
   rm -rf $tmpdir
   FILE_LIST="${FILE_LIST} $5"
 }

 # Upload the files to the FTP server.

 upload_files() {
   inform "Uploading files"

   changedir "${WORKING_DIRECTORY}"

   # Make sure the directory exists on the server.
   if [ $LOCAL -eq 0 ]; then
     ${SSH} -l ${GCC_USERNAME} ${GCC_HOSTNAME} \
       mkdir -p "${FTP_PATH}/diffs"
     UPLOAD_PATH="${GCC_USERNAME}@${GCC_HOSTNAME}:${FTP_PATH}"
   else
     mkdir -p "${FTP_PATH}/diffs" \
       || error "Could not create \`${FTP_PATH}'"
     UPLOAD_PATH=${FTP_PATH}
   fi

   # Then copy files to their respective (sub)directories.
   for x in gcc*.gz gcc*.bz2; do
     if [ -e ${x} ]; then
       # Make sure the file will be readable on the server.
       chmod a+r ${x}
       # Copy it.
       case ${x} in
         *.diff.*)
           SUBDIR="diffs/";
           ;;
         *)
           SUBDIR="";
       esac
       ${SCP} ${x} ${UPLOAD_PATH}/${SUBDIR} \
         || error "Could not upload ${x}"
     fi
   done
 }

 ########################################################################
 # Initialization
 ########################################################################

 # Today's date.
 DATE=`date "+%Y%m%d"`
 LONG_DATE=`date "+%Y-%m-%d"`

 # The CVS server containing the GCC repository.
 CVS_SERVER="gcc.gnu.org"
 # The path to the repository on that server.
 CVS_REPOSITORY="/cvs/gcc"
 # The CVS protocol to use.
 CVS_PROTOCOL="ext"
 # The username to use when connecting to the server.
 CVS_USERNAME="${USER}"

 # The machine to which files will be uploaded.
 GCC_HOSTNAME="gcc.gnu.org"
 # The name of the account on the machine to which files are uploaded.
 GCC_USERNAME="gccadmin"
 # The directory in which the files will be placed.
 FTP_PATH="~ftp/pub/gcc"

 # The major number for the release.  For release `3.0.2' this would be
 # `3'
 RELEASE_MAJOR=""
 # The minor number for the release.  For release `3.0.2' this would be
 # `0'.
 RELEASE_MINOR=""
 # The revision number for the release.  For release `3.0.2' this would
 # be `2'.
 RELEASE_REVISION=""
 # The complete name of the release.
 RELEASE=""

 # The name of the branch from which the release should be made.
 BRANCH=""

 # The tag to apply to the sources used for the release.
 TAG=""

 # The old tarballs from which to generate diffs.
 OLD_TARS=""

 # The directory that will be used to construct the release.  The
 # release itself will be placed in a subdirectory of this diretory.
 DESTINATION=${HOME}
 # The subdirectory.
 WORKING_DIRECTORY=""
 # The directory that will contain the GCC sources.
 SOURCE_DIRECTORY=""

 # The directories that should be part of the various language-specific
 # tar files.  These are all relative to the top of the source tree.
 ADA_DIRS="gcc/ada"
 CPLUSPLUS_DIRS="gcc/cp libstdc++-v3"
 FORTRAN_DIRS="gcc/f libf2c"
 JAVA_DIRS="gcc/java libjava libffi fastjar zlib boehm-gc"
 OBJECTIVEC_DIRS="gcc/objc libobjc"
 TESTSUITE_DIRS="gcc/testsuite"

 # Non-zero if this is the final release, rather than a prerelease.
 FINAL=0

 # Non-zero if we are building a snapshot, and don't build gcc or
 # include generated files.
 SNAPSHOT=0

 # Non-zero if we are running locally on gcc.gnu.org, and use local CVS
 # and copy directly to the FTP directory.
 LOCAL=0

 # Major operation modes.
 MODE_BZIP2=0
 MODE_DIFFS=0
 MODE_SOURCES=0
 MODE_TARFILES=0
 MODE_UPLOAD=0

 # .gz files generated to create .bz2 files from.
 FILE_LIST=""

 # Programs we use.

 BZIP2="${BZIP2:-bzip2}"
 CVS="${CVS:-cvs -f -Q -z9}"
 DIFF="${DIFF:-diff -Nrc3pad}"
 ENV="${ENV:-env}"
 GZIP="${GZIP:-gzip --best}"
 SCP="${SCP:-scp -p}"
 SSH="${SSH:-ssh}"
 TAR="${TAR:-tar}"

 ########################################################################
 # Command Line Processing
 ########################################################################

 # Parse the options.
 while getopts "d:fr:u:t:p:sl" ARG; do
     case $ARG in
     d)    DESTINATION="${OPTARG}";;
     r)    RELEASE="${OPTARG}";;
     t)    TAG="${OPTARG}";;
     u)    CVS_USERNAME="${OPTARG}";;
     f)    FINAL=1;;
     s)    SNAPSHOT=1;;
     l)    LOCAL=1
 	  SCP=cp
 	  FTP_PATH=~ftp/pub/gcc
 	  PATH=~:/usr/local/bin:$PATH;;
     p)    OLD_TARS="${OLD_TARS} ${OPTARG}"
           if [ -d ${OPTARG} ]; then
 	    error "-p argument must name a tarball"
 	  fi;;
     \?)   usage;;
     esac
 done
 shift `expr ${OPTIND} - 1`

 # Perform consistency checking.
 if [ ${LOCAL} -eq 0 ] && [ -z ${CVS_USERNAME} ]; then
   error "No username specified"
 fi

 if [ ! -d ${DESTINATION} ]; then
   error "\`${DESTINATION}' is not a directory"
 fi

 if [ $SNAPSHOT -eq 0 ]; then
   if [ -z ${RELEASE} ]; then
     error "No release number specified"
   fi

   # Compute the major and minor release numbers.
   RELEASE_MAJOR=`echo $RELEASE | awk --assign FS=. '{ print $1; }'`
   RELEASE_MINOR=`echo $RELEASE | awk --assign FS=. '{ print $2; }'`
   RELEASE_REVISION=`echo $RELEASE | awk --assign FS=. '{ print $3; }'`

   if [ -z "${RELEASE_MAJOR}" ] || [ -z "${RELEASE_MINOR}" ]; then
     error "Release number \`${RELEASE}' is invalid"
   fi

   # Compute the full name of the release.
   if [ -z "${RELEASE_REVISION}" ]; then
     RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}"
   else
     RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}.${RELEASE_REVISION}"
   fi

   # Compute the name of the branch, which is based solely on the major
   # and minor release numbers.
   BRANCH="gcc-${RELEASE_MAJOR}_${RELEASE_MINOR}-branch"

   # If this is not a final release, set various parameters acordingly.
   if [ ${FINAL} -ne 1 ]; then
     RELEASE="${RELEASE}-${DATE}"
     FTP_PATH="${FTP_PATH}/prerelease-${RELEASE}/"
   else
     FTP_PATH="${FTP_PATH}/releases/gcc-${RELEASE}/"
   fi
 else
   RELEASE=$DATE
   # For now snapshots come from the mainline.
   BRANCH=HEAD
   FTP_PATH="${FTP_PATH}/snapshots/${LONG_DATE}"
   TAG=gcc_ss_${DATE}

   # Building locally on gcc.gnu.org, we know what the last snapshot date
   # was.
   if [ $LOCAL -ne 0 ]; then
     LAST_DATE=`cat ~/.snapshot_date`
     LAST_LONG_DATE=`date --date=$LAST_DATE +%Y-%m-%d`
     LAST_DIR=~ftp/pub/gcc/snapshots/${LAST_LONG_DATE}
     OLD_TARS=${LAST_DIR}/gcc-${LAST_DATE}.tar.gz
   fi
 fi

 # Compute the name of the WORKING_DIRECTORY and the SOURCE_DIRECTORY.
 WORKING_DIRECTORY="${DESTINATION}/gcc-${RELEASE}"
 SOURCE_DIRECTORY="${WORKING_DIRECTORY}/gcc-${RELEASE}"

 # Recompute the names of all the language-specific directories,
 # relative to the WORKING_DIRECTORY.
 ADA_DIRS=`adjust_dirs ${ADA_DIRS}`
 CPLUSPLUS_DIRS=`adjust_dirs ${CPLUSPLUS_DIRS}`
 FORTRAN_DIRS=`adjust_dirs ${FORTRAN_DIRS}`
 JAVA_DIRS=`adjust_dirs ${JAVA_DIRS}`
 OBJECTIVEC_DIRS=`adjust_dirs ${OBJECTIVEC_DIRS}`
 TESTSUITE_DIRS=`adjust_dirs ${TESTSUITE_DIRS}`

 # Set up CVSROOT.
 if [ $LOCAL -eq 0 ]; then
     CVSROOT=":${CVS_PROTOCOL}:${CVS_USERNAME}@"
     CVSROOT="${CVSROOT}${CVS_SERVER}:${CVS_REPOSITORY}"
 else
     CVSROOT="${CVS_REPOSITORY}"
 fi
 export CVSROOT

 ########################################################################
 # Main Program
 ########################################################################

 # Set the timezone to UTC
 TZ="UTC0"
 export TZ

 # Handle the major modes.
 while [ $# -ne 0 ]; do
     case $1 in
     bzip2)    MODE_BZIP2=1;;
     diffs)    MODE_DIFFS=1;;
     sources)  MODE_SOURCES=1;;
     tarfiles) MODE_TARFILES=1;;
     upload)   MODE_UPLOAD=1;;
     all)      MODE_SOURCES=1; MODE_TARFILES=1; MODE_DIFFS=1; MODE_UPLOAD=1;
               if [ $SNAPSHOT -ne 1 ]; then
                 # Only for releases and pre-releases.
                 MODE_BZIP2=1;
               fi
               ;;
     *)        error "Unknown mode $1";;
     esac
     shift
 done

 # Build the source directory.

 if [ $MODE_SOURCES -ne 0 ]; then
   build_sources
 fi

 # Build the tar files.

 if [ $MODE_TARFILES -ne 0 ]; then
   build_tarfiles
 fi

 # Build diffs

 if [ $MODE_DIFFS -ne 0 ]; then
   # Possibly build diffs.
   if [ -n "$OLD_TARS" ]; then
     for old_tar in $OLD_TARS; do
       build_diffs $old_tar
     done
   fi
 fi

 # Build bzip2 files
 if [ $MODE_BZIP2 -ne 0 ]; then
   build_bzip2
 fi

 # Upload them to the FTP server.

 if [ $MODE_UPLOAD -ne 0 ]; then
   upload_files

   # For snapshots, make some further updates.
   if [ $SNAPSHOT -ne 0 ] && [ $LOCAL -ne 0 ]; then
     # Update links on the FTP server.
     TEXT_DATE=`date --date=$DATE +%B\ %d,\ %Y`
     cd ~ftp/pub/gcc/snapshots
     sed -e "s%@DATE@%$DATE%g" -e "s%@LAST_DATE@%$LAST_DATE%g" \
       -e "s%@LONG_DATE@%$LONG_DATE%g" \
       -e "s%@TEXT_DATE@%$TEXT_DATE%g" < ~/scripts/snapshot-README > $$
     mv $$ README
     sed -e "s%@DATE@%$DATE%g" -e "s%@LAST_DATE@%$LAST_DATE%g" \
       -e "s%@LONG_DATE@%$LONG_DATE%g" \
       -e "s%@TEXT_DATE@%$TEXT_DATE%g" < ~/scripts/snapshot-index.html > $$
     mv $$ index.html

     touch LATEST-IS-$LONG_DATE
     rm -f LATEST-IS-$LAST_LONG_DATE

     # Update snapshot date file.
     changedir ~
     echo $DATE >.snapshot_date

     # Announce the snapshot.
     export QMAILHOST=gcc.gnu.org
     mail -s "gcc-ss-$DATE is now available" gcc@gcc.gnu.org < ~ftp/pub/gcc/snapshots/README

     # Remove working directory
     rm -rf ${WORKING_DIRECTORY}
   fi
 fi
	#! /bin/sh

	########################################################################
	#
	# File: gcc_release
	# Author: Jeffrey Law, Bernd Schmidt, Mark Mitchell
	# Date: 2001-05-25
	#
	# Contents:
	# Script to create a GCC release.
	#
	# Copyright (c) 2001, 2002 Free Software Foundation.
	#
	# This file is part of GCC.
	#
	# GCC is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2, or (at your option)
	# any later version.
	#
	# GCC is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with GCC; see the file COPYING. If not, write to
	# the Free Software Foundation, 59 Temple Place - Suite 330,
	# Boston, MA 02111-1307, USA.
	#
	########################################################################

	########################################################################
	# Notes
	########################################################################

	# Here is an example usage of this script, to create a GCC 3.0.2
	# prerelease:
	#
	# gcc_release -r 3.0.2
	#
	# This script will automatically use the head of the release branch
	# to generate the release.

	########################################################################
	# Functions
	########################################################################

	# Issue the error message given by $1 and exit with a non-zero
	# exit code.

	error() {
	echo "gcc_release: error: $1"
	exit 1
	}

	# Issue the informational message given by $1.

	inform() {
	echo "gcc_release: $1"
	}

	# Issue a usage message explaining how to use this script.

	usage() {
	cat <<EOF
	gcc_release [-d destination]
	[-u username]
	[-r release]
	[-t tag]
	[-p previous-tarball]
	[-s] [-f] [-l]
	EOF
	exit 1
	}

	# Change to the directory given by $1.

	changedir() {
	cd $1 \|\| \
	error "Could not change directory to $1"
	}

	# Each of the arguments is a directory name, relative to the top
	# of the source tree. Return another name for that directory, relative
	# to the working directory.

	adjust_dirs() {
	for x in $@; do
	echo `basename ${SOURCE_DIRECTORY}`/$x
	done
	}

	# Build the source tree that will be the basis for the release
	# in ${WORKING_DIRECTORY}/gcc-${RELEASE}.

	build_sources() {
	# If the WORKING_DIRECTORY already exists, do not risk destroying it.
	if [ -r ${WORKING_DIRECTORY} ]; then
	error "\`${WORKING_DIRECTORY}' already exists"
	fi
	# Create the WORKING_DIRECTORY.
	mkdir "${WORKING_DIRECTORY}" \
	\|\| error "Could not create \`${WORKING_DIRECTORY}'"
	changedir "${WORKING_DIRECTORY}"

	# If this is a final release, make sure that the ChangeLogs
	# and version strings are updated.
	if [ ${FINAL} -ne 0 ]; then
	inform "Updating ChangeLogs and version files"

	${CVS} co -d "`basename ${SOURCE_DIRECTORY}`" \
	-r ${BRANCH} gcc \|\| \
	error "Could not check out release sources"
	for x in `find ${SOURCE_DIRECTORY} -name ChangeLog`; do
	cat - ${x} > ${x}.new <<EOF
	${LONG_DATE} Release Manager

	* GCC ${RELEASE} Released.

	EOF
	mv ${x}.new ${x} \|\| \
	error "Could not update ${x}"
	(changedir `dirname ${x}` && \
	${CVS} ci -m 'Mark ChangeLog' `basename ${x}`) \|\| \
	error "Could not commit ${x}"
	done

	# Update `gcc/version.c'.
	for x in gcc/version.c; do
	y=`basename ${x}`
	(changedir `dirname ${SOURCE_DIRECTORY}/${x}` && \
	sed -e 's\|version_string\[\] = \".*\"\|version_string\[\] = \"'${RELEASE}'\"\|g' < ${y} > ${y}.new && \
	mv ${y}.new ${y} && \
	${CVS} ci -m 'Update version' ${y}) \|\| \
	error "Could not update ${x}"
	done

	# Make sure we tag the sources for a final release.
	TAG="gcc_`echo ${RELEASE} \| tr . _`_release"

	rm -rf ${SOURCE_DIRECTORY}
	fi

	# Tag the sources.
	if [ -n "${TAG}" ]; then
	inform "Tagging release sources"
	${CVS} rtag -r ${BRANCH} -F ${TAG} gcc \|\| \
	error "Could not tag release sources"
	BRANCH=$TAG
	fi

	# Export the current sources.
	inform "Retrieving release sources"
	${CVS} \
	export -d "`basename ${SOURCE_DIRECTORY}`" \
	-r ${BRANCH} gcc \|\| \
	error "Could not retrieve release sources"

	# Run gcc_update on them to set up the timestamps nicely.
	changedir "gcc-${RELEASE}"
	contrib/gcc_update --touch

	# Obtain some documentation files from the wwwdocs module.
	inform "Retrieving HTML documentation"
	changedir "${WORKING_DIRECTORY}"
	for x in bugs faq; do
	(${CVS} export -r HEAD wwwdocs/htdocs/${x}.html && \
	cp ${WORKING_DIRECTORY}/wwwdocs/htdocs/${x}.html \
	${SOURCE_DIRECTORY}) \|\| \
	error "Could not retrieve ${x}.html"
	done

	inform "Generating plain-text documentation from HTML"
	changedir "${SOURCE_DIRECTORY}"
	for file in *.html; do
	newfile=`echo $file \| sed -e 's/.html//' \| tr "[:lower:]" "[:upper:]"`
	(${ENV} TERM=vt100 lynx -dump $file \
	\| sed -e "s#file://localhost`/bin/pwd`\(.*\)#http://gcc.gnu.org\1#g" \
	> $newfile) \|\| \
	error "Could not generate text-only version of ${file}"
	done

	# For a prerelease or real release, we need to generate additional
	# files not present in CVS.
	changedir "${SOURCE_DIRECTORY}"
	if [ $SNAPSHOT -ne 1 ]; then
	# Generate the documentation.
	inform "Building install docs"
	SOURCEDIR=${SOURCE_DIRECTORY}/gcc/doc
	DESTDIR=${SOURCE_DIRECTORY}/INSTALL
	export SOURCEDIR
	export DESTDIR
	${SOURCE_DIRECTORY}/gcc/doc/install.texi2html

	# Regenerate the NEWS file.
	contrib/gennews > NEWS \|\| \
	error "Could not regenerate NEWS files"

	# Now, we must build the compiler in order to create any generated
	# files that are supposed to go in the source directory. This is
	# also a good sanity check to make sure that the release builds
	# on at least one platform.
	inform "Building compiler"
	OBJECT_DIRECTORY=../objdir
	contrib/gcc_build -d ${SOURCE_DIRECTORY} -o ${OBJECT_DIRECTORY} build \|\| \
	error "Could not rebuild GCC"

	# Regenerate the Fotran NEWS and BUGS files.
	(cd ${OBJECT_DIRECTORY}/gcc && make f77.rebuilt) \|\| \
	error "Could not regenerate Fortran NEWS and BUGS files"
	fi

	# Move message catalogs to source directory.
	mv ../objdir/gcc/po/*.gmo gcc/po/

	# Create a `.brik' file to use for checking the validity of the
	# release.
	changedir "${SOURCE_DIRECTORY}"
	BRIK_FILE=`mktemp /tmp/gcc_release.XXXXXXX`
	((find . -type f \| sort > $BRIK_FILE) && \
	brik -Gb -f ${BRIK_FILE} > .brik && \
	rm ${BRIK_FILE}) \|\| \
	error "Could not compute brik checksum"
	}

	# Buid a single tarfile. The first argument is the name of the name
	# of the tarfile to build, without any suffixes. They will be added
	# automatically. The rest of the arguments are the files or
	# directories to include.

	build_tarfile() {
	# Get the name of the destination tar file.
	TARFILE="$1.tar.gz"
	shift

	# Build the tar file itself.
	(${TAR} cf - "$@" \| ${GZIP} > ${TARFILE}) \|\| \
	error "Could not build tarfile"
	FILE_LIST="${FILE_LIST} ${TARFILE}"
	}

	# Build the various tar files for the release.

	build_tarfiles() {
	inform "Building tarfiles"

	changedir "${WORKING_DIRECTORY}"

	# The GNU Coding Standards specify that all files should
	# world readable.
	chmod -R a+r ${SOURCE_DIRECTORY}
	# And that all directories have mode 777.
	find ${SOURCE_DIRECTORY} -type d -exec chmod 777 {} \;

	# Build one huge tarfile for the entire distribution.
	build_tarfile gcc-${RELEASE} `basename ${SOURCE_DIRECTORY}`

	# Now, build one for each of the languages.
	build_tarfile gcc-ada-${RELEASE} ${ADA_DIRS}
	build_tarfile gcc-g++-${RELEASE} ${CPLUSPLUS_DIRS}
	build_tarfile gcc-g77-${RELEASE} ${FORTRAN_DIRS}
	build_tarfile gcc-java-${RELEASE} ${JAVA_DIRS}
	build_tarfile gcc-objc-${RELEASE} ${OBJECTIVEC_DIRS}
	build_tarfile gcc-testsuite-${RELEASE} ${TESTSUITE_DIRS}

	# The core is everything else.
	EXCLUDES=""
	for x in ${ADA_DIRS} ${CPLUSPLUS_DIRS} ${FORTRAN_DIRS} \
	${JAVA_DIRS} ${OBJECTIVEC_DIRS} ${TESTSUITE_DIRS}; do
	EXCLUDES="${EXCLUDES} --exclude $x"
	done
	build_tarfile gcc-core-${RELEASE} ${EXCLUDES} \
	`basename ${SOURCE_DIRECTORY}`
	}

	# Build .bz2 files.
	build_bzip2() {
	for f in ${FILE_LIST}; do
	bzfile=${f%.gz}.bz2
	(zcat $f \| ${BZIP2} > ${bzfile}) \|\| error "Could not create ${bzfile}"
	done
	}

	# Build diffs against an old release.
	build_diffs() {
	old_dir=${1%/*}
	old_file=${1##*/}
	old_vers=${old_file%.tar.gz}
	old_vers=${old_vers#gcc-}
	inform "Building diffs against version $old_vers"
	for f in gcc gcc-ada gcc-g++ gcc-g77 gcc-java gcc-objc gcc-testsuite gcc-core; do
	old_tar=${old_dir}/${f}-${old_vers}.tar.gz
	new_tar=${WORKING_DIRECTORY}/${f}-${RELEASE}.tar.gz
	if [ ! -e $old_tar ]; then
	inform "$old_tar not found; not generating diff file"
	elif [ ! -e $new_tar ]; then
	inform "$new_tar not found; not generating diff file"
	else
	build_diff $old_tar gcc-${old_vers} $new_tar gcc-${RELEASE} \
	${f}-${old_vers}-${RELEASE}.diff.gz
	fi
	done
	}

	# Build an individual diff.
	build_diff() {
	changedir "${WORKING_DIRECTORY}"
	tmpdir=gccdiff.$$
	mkdir $tmpdir \|\| error "Could not create directory $tmpdir"
	changedir $tmpdir
	tar xfz $1 \|\| error "Could not unpack $1 for diffs"
	tar xfz $3 \|\| error "Could not unpack $3 for diffs"
	${DIFF} $2 $4 > ../${5%.gz}
	if [ $? -eq 2 ]; then
	error "Trouble making diffs from $1 to $3"
	fi
	${GZIP} ../${5%.gz} \|\| error "Could not gzip ../${5%.gz}"
	changedir ..
	rm -rf $tmpdir
	FILE_LIST="${FILE_LIST} $5"
	}

	# Upload the files to the FTP server.

	upload_files() {
	inform "Uploading files"

	changedir "${WORKING_DIRECTORY}"

	# Make sure the directory exists on the server.
	if [ $LOCAL -eq 0 ]; then
	${SSH} -l ${GCC_USERNAME} ${GCC_HOSTNAME} \
	mkdir -p "${FTP_PATH}/diffs"
	UPLOAD_PATH="${GCC_USERNAME}@${GCC_HOSTNAME}:${FTP_PATH}"
	else
	mkdir -p "${FTP_PATH}/diffs" \
	\|\| error "Could not create \`${FTP_PATH}'"
	UPLOAD_PATH=${FTP_PATH}
	fi

	# Then copy files to their respective (sub)directories.
	for x in gcc.gz gcc.bz2; do
	if [ -e ${x} ]; then
	# Make sure the file will be readable on the server.
	chmod a+r ${x}
	# Copy it.
	case ${x} in
	.diff.)
	SUBDIR="diffs/";
	;;
	*)
	SUBDIR="";
	esac
	${SCP} ${x} ${UPLOAD_PATH}/${SUBDIR} \
	\|\| error "Could not upload ${x}"
	fi
	done
	}

	########################################################################
	# Initialization
	########################################################################

	# Today's date.
	DATE=`date "+%Y%m%d"`
	LONG_DATE=`date "+%Y-%m-%d"`

	# The CVS server containing the GCC repository.
	CVS_SERVER="gcc.gnu.org"
	# The path to the repository on that server.
	CVS_REPOSITORY="/cvs/gcc"
	# The CVS protocol to use.
	CVS_PROTOCOL="ext"
	# The username to use when connecting to the server.
	CVS_USERNAME="${USER}"

	# The machine to which files will be uploaded.
	GCC_HOSTNAME="gcc.gnu.org"
	# The name of the account on the machine to which files are uploaded.
	GCC_USERNAME="gccadmin"
	# The directory in which the files will be placed.
	FTP_PATH="~ftp/pub/gcc"

	# The major number for the release. For release `3.0.2' this would be
	# `3'
	RELEASE_MAJOR=""
	# The minor number for the release. For release `3.0.2' this would be
	# `0'.
	RELEASE_MINOR=""
	# The revision number for the release. For release `3.0.2' this would
	# be `2'.
	RELEASE_REVISION=""
	# The complete name of the release.
	RELEASE=""

	# The name of the branch from which the release should be made.
	BRANCH=""

	# The tag to apply to the sources used for the release.
	TAG=""

	# The old tarballs from which to generate diffs.
	OLD_TARS=""

	# The directory that will be used to construct the release. The
	# release itself will be placed in a subdirectory of this diretory.
	DESTINATION=${HOME}
	# The subdirectory.
	WORKING_DIRECTORY=""
	# The directory that will contain the GCC sources.
	SOURCE_DIRECTORY=""

	# The directories that should be part of the various language-specific
	# tar files. These are all relative to the top of the source tree.
	ADA_DIRS="gcc/ada"
	CPLUSPLUS_DIRS="gcc/cp libstdc++-v3"
	FORTRAN_DIRS="gcc/f libf2c"
	JAVA_DIRS="gcc/java libjava libffi fastjar zlib boehm-gc"
	OBJECTIVEC_DIRS="gcc/objc libobjc"
	TESTSUITE_DIRS="gcc/testsuite"

	# Non-zero if this is the final release, rather than a prerelease.
	FINAL=0

	# Non-zero if we are building a snapshot, and don't build gcc or
	# include generated files.
	SNAPSHOT=0

	# Non-zero if we are running locally on gcc.gnu.org, and use local CVS
	# and copy directly to the FTP directory.
	LOCAL=0

	# Major operation modes.
	MODE_BZIP2=0
	MODE_DIFFS=0
	MODE_SOURCES=0
	MODE_TARFILES=0
	MODE_UPLOAD=0

	# .gz files generated to create .bz2 files from.
	FILE_LIST=""

	# Programs we use.

	BZIP2="${BZIP2:-bzip2}"
	CVS="${CVS:-cvs -f -Q -z9}"
	DIFF="${DIFF:-diff -Nrc3pad}"
	ENV="${ENV:-env}"
	GZIP="${GZIP:-gzip --best}"
	SCP="${SCP:-scp -p}"
	SSH="${SSH:-ssh}"
	TAR="${TAR:-tar}"

	########################################################################
	# Command Line Processing
	########################################################################

	# Parse the options.
	while getopts "d:fr:u:t:p:sl" ARG; do
	case $ARG in
	d) DESTINATION="${OPTARG}";;
	r) RELEASE="${OPTARG}";;
	t) TAG="${OPTARG}";;
	u) CVS_USERNAME="${OPTARG}";;
	f) FINAL=1;;
	s) SNAPSHOT=1;;
	l) LOCAL=1
	SCP=cp
	FTP_PATH=~ftp/pub/gcc
	PATH=~:/usr/local/bin:$PATH;;
	p) OLD_TARS="${OLD_TARS} ${OPTARG}"
	if [ -d ${OPTARG} ]; then
	error "-p argument must name a tarball"
	fi;;
	\?) usage;;
	esac
	done
	shift `expr ${OPTIND} - 1`

	# Perform consistency checking.
	if [ ${LOCAL} -eq 0 ] && [ -z ${CVS_USERNAME} ]; then
	error "No username specified"
	fi

	if [ ! -d ${DESTINATION} ]; then
	error "\`${DESTINATION}' is not a directory"
	fi

	if [ $SNAPSHOT -eq 0 ]; then
	if [ -z ${RELEASE} ]; then
	error "No release number specified"
	fi

	# Compute the major and minor release numbers.
	RELEASE_MAJOR=`echo $RELEASE \| awk --assign FS=. '{ print $1; }'`
	RELEASE_MINOR=`echo $RELEASE \| awk --assign FS=. '{ print $2; }'`
	RELEASE_REVISION=`echo $RELEASE \| awk --assign FS=. '{ print $3; }'`

	if [ -z "${RELEASE_MAJOR}" ] \|\| [ -z "${RELEASE_MINOR}" ]; then
	error "Release number \`${RELEASE}' is invalid"
	fi

	# Compute the full name of the release.
	if [ -z "${RELEASE_REVISION}" ]; then
	RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}"
	else
	RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}.${RELEASE_REVISION}"
	fi

	# Compute the name of the branch, which is based solely on the major
	# and minor release numbers.
	BRANCH="gcc-${RELEASE_MAJOR}_${RELEASE_MINOR}-branch"

	# If this is not a final release, set various parameters acordingly.
	if [ ${FINAL} -ne 1 ]; then
	RELEASE="${RELEASE}-${DATE}"
	FTP_PATH="${FTP_PATH}/prerelease-${RELEASE}/"
	else
	FTP_PATH="${FTP_PATH}/releases/gcc-${RELEASE}/"
	fi
	else
	RELEASE=$DATE
	# For now snapshots come from the mainline.
	BRANCH=HEAD
	FTP_PATH="${FTP_PATH}/snapshots/${LONG_DATE}"
	TAG=gcc_ss_${DATE}

	# Building locally on gcc.gnu.org, we know what the last snapshot date
	# was.
	if [ $LOCAL -ne 0 ]; then
	LAST_DATE=`cat ~/.snapshot_date`
	LAST_LONG_DATE=`date --date=$LAST_DATE +%Y-%m-%d`
	LAST_DIR=~ftp/pub/gcc/snapshots/${LAST_LONG_DATE}
	OLD_TARS=${LAST_DIR}/gcc-${LAST_DATE}.tar.gz
	fi
	fi

	# Compute the name of the WORKING_DIRECTORY and the SOURCE_DIRECTORY.
	WORKING_DIRECTORY="${DESTINATION}/gcc-${RELEASE}"
	SOURCE_DIRECTORY="${WORKING_DIRECTORY}/gcc-${RELEASE}"

	# Recompute the names of all the language-specific directories,
	# relative to the WORKING_DIRECTORY.
	ADA_DIRS=`adjust_dirs ${ADA_DIRS}`
	CPLUSPLUS_DIRS=`adjust_dirs ${CPLUSPLUS_DIRS}`
	FORTRAN_DIRS=`adjust_dirs ${FORTRAN_DIRS}`
	JAVA_DIRS=`adjust_dirs ${JAVA_DIRS}`
	OBJECTIVEC_DIRS=`adjust_dirs ${OBJECTIVEC_DIRS}`
	TESTSUITE_DIRS=`adjust_dirs ${TESTSUITE_DIRS}`

	# Set up CVSROOT.
	if [ $LOCAL -eq 0 ]; then
	CVSROOT=":${CVS_PROTOCOL}:${CVS_USERNAME}@"
	CVSROOT="${CVSROOT}${CVS_SERVER}:${CVS_REPOSITORY}"
	else
	CVSROOT="${CVS_REPOSITORY}"
	fi
	export CVSROOT

	########################################################################
	# Main Program
	########################################################################

	# Set the timezone to UTC
	TZ="UTC0"
	export TZ

	# Handle the major modes.
	while [ $# -ne 0 ]; do
	case $1 in
	bzip2) MODE_BZIP2=1;;
	diffs) MODE_DIFFS=1;;
	sources) MODE_SOURCES=1;;
	tarfiles) MODE_TARFILES=1;;
	upload) MODE_UPLOAD=1;;
	all) MODE_SOURCES=1; MODE_TARFILES=1; MODE_DIFFS=1; MODE_UPLOAD=1;
	if [ $SNAPSHOT -ne 1 ]; then
	# Only for releases and pre-releases.
	MODE_BZIP2=1;
	fi
	;;
	*) error "Unknown mode $1";;
	esac
	shift
	done

	# Build the source directory.

	if [ $MODE_SOURCES -ne 0 ]; then
	build_sources
	fi

	# Build the tar files.

	if [ $MODE_TARFILES -ne 0 ]; then
	build_tarfiles
	fi

	# Build diffs

	if [ $MODE_DIFFS -ne 0 ]; then
	# Possibly build diffs.
	if [ -n "$OLD_TARS" ]; then
	for old_tar in $OLD_TARS; do
	build_diffs $old_tar
	done
	fi
	fi

	# Build bzip2 files
	if [ $MODE_BZIP2 -ne 0 ]; then
	build_bzip2
	fi

	# Upload them to the FTP server.

	if [ $MODE_UPLOAD -ne 0 ]; then
	upload_files

	# For snapshots, make some further updates.
	if [ $SNAPSHOT -ne 0 ] && [ $LOCAL -ne 0 ]; then
	# Update links on the FTP server.
	TEXT_DATE=`date --date=$DATE +%B\ %d,\ %Y`
	cd ~ftp/pub/gcc/snapshots
	sed -e "s%@DATE@%$DATE%g" -e "s%@LAST_DATE@%$LAST_DATE%g" \
	-e "s%@LONG_DATE@%$LONG_DATE%g" \
	-e "s%@TEXT_DATE@%$TEXT_DATE%g" < ~/scripts/snapshot-README > $$
	mv $$ README
	sed -e "s%@DATE@%$DATE%g" -e "s%@LAST_DATE@%$LAST_DATE%g" \
	-e "s%@LONG_DATE@%$LONG_DATE%g" \
	-e "s%@TEXT_DATE@%$TEXT_DATE%g" < ~/scripts/snapshot-index.html > $$
	mv $$ index.html

	touch LATEST-IS-$LONG_DATE
	rm -f LATEST-IS-$LAST_LONG_DATE

	# Update snapshot date file.
	changedir ~
	echo $DATE >.snapshot_date

	# Announce the snapshot.
	export QMAILHOST=gcc.gnu.org
	mail -s "gcc-ss-$DATE is now available" gcc@gcc.gnu.org < ~ftp/pub/gcc/snapshots/README

	# Remove working directory
	rm -rf ${WORKING_DIRECTORY}
	fi
	fi