OSDN Git Service

2010-08-22 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / maintainer-scripts / gcc_release
1 #! /bin/sh
2
3 ########################################################################
4 #
5 # File:   gcc_release
6 # Author: Jeffrey Law, Bernd Schmidt, Mark Mitchell
7 # Date:   2001-05-25
8 #
9 # Contents:
10 #   Script to create a GCC release.
11 #
12 # Copyright (c) 2001, 2002, 2006, 2009, 2010 Free Software Foundation.
13 #
14 # This file is part of GCC.
15 #
16 # GCC is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 3, or (at your option)
19 # any later version.
20 #
21 # GCC is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25 #
26 # You should have received a copy of the GNU General Public License
27 # along with GCC; see the file COPYING3.  If not see
28 # <http://www.gnu.org/licenses/>.
29 #
30 ########################################################################
31
32 ########################################################################
33 # Notes
34 ########################################################################
35
36 # Here is an example usage of this script, to create a GCC 3.0.2
37 # prerelease:
38 #
39 #   gcc_release -r 3.0.2
40 #
41 # This script will automatically use the head of the release branch
42 # to generate the release.
43
44 ########################################################################
45 # Functions
46 ########################################################################
47
48 # Issue the error message given by $1 and exit with a non-zero
49 # exit code.
50
51 error() {
52     echo "gcc_release: error: $1"
53     exit 1
54 }
55
56 # Issue the informational message given by $1.
57
58 inform() {
59     echo "gcc_release: $1"
60 }
61
62 # Issue a usage message explaining how to use this script.
63
64 usage() {
65 cat <<EOF
66 gcc_release -r release [-f] [further options]
67 gcc_release -s name:svnbranch [further options]
68
69 Options:
70
71   -r release           Version of the form X.Y or X.Y.Z.
72   -s name:svnbranch    Create a snapshot, not a real release.
73
74   -d destination       Local working directory where we will build the release
75                        (default=${HOME}).
76   -f                   Create a final release (and update ChangeLogs,...).
77   -l                   Indicate that we are running on gcc.gnu.org.
78   -p previous-tarball  Location of a previous tarball (to generate diff files).
79   -t tag               Tag to mark the release in SVN.
80   -u username          Username for upload operations.
81 EOF
82     exit 1
83 }
84
85 # Change to the directory given by $1.
86
87 changedir() {
88   cd $1 || \
89     error "Could not change directory to $1"
90 }
91
92 # Each of the arguments is a directory name, relative to the top
93 # of the source tree.  Return another name for that directory, relative
94 # to the working directory.
95
96 adjust_dirs() {
97   for x in $@; do
98     echo `basename ${SOURCE_DIRECTORY}`/$x
99   done
100 }
101
102 # Build the source tree that will be the basis for the release
103 # in ${WORKING_DIRECTORY}/gcc-${RELEASE}.
104
105 build_sources() {
106   # If the WORKING_DIRECTORY already exists, do not risk destroying it.
107   if [ -r ${WORKING_DIRECTORY} ]; then
108     error "\`${WORKING_DIRECTORY}' already exists"
109   fi
110   # Create the WORKING_DIRECTORY.
111   mkdir "${WORKING_DIRECTORY}" \
112     || error "Could not create \`${WORKING_DIRECTORY}'"
113   changedir "${WORKING_DIRECTORY}"
114
115   # If this is a final release, make sure that the ChangeLogs
116   # and version strings are updated.
117   if [ ${FINAL} -ne 0 ]; then
118     inform "Updating ChangeLogs and version files"
119
120     ${SVN} -q co "${SVNROOT}/${SVNBRANCH}" "`basename ${SOURCE_DIRECTORY}`" ||\
121            error "Could not check out release sources"
122     for x in `find ${SOURCE_DIRECTORY} -name ChangeLog`; do
123       # Update this ChangeLog file only if it does not yet contain the
124       # entry we are going to add.  (This is a safety net for repeated
125       # runs of this script for the same release.)
126       if ! grep "GCC ${RELEASE} released." ${x} > /dev/null ; then       
127         cat - ${x} > ${x}.new <<EOF
128 ${LONG_DATE}  Release Manager
129
130         * GCC ${RELEASE} released.
131
132 EOF
133         mv ${x}.new ${x} || \
134             error "Could not update ${x}"
135         (changedir `dirname ${x}` && \
136             ${SVN} -q ci -m 'Mark ChangeLog' `basename ${x}`) || \
137             error "Could not commit ${x}"
138       fi
139     done
140
141     # Update gcc/DEV-PHASE.
142
143     [ `cat ${SOURCE_DIRECTORY}/gcc/BASE-VER` = ${RELEASE} ] || \
144     error "Release number ${RELEASE} does not match BASE-VER"
145     (changedir ${SOURCE_DIRECTORY}/gcc && \
146      : > DEV-PHASE && \
147      ${SVN} -q ci -m 'Mark as release' DEV-PHASE) || \
148     error "Could not update DEV-PHASE"
149
150     # Make sure we tag the sources for a final release.
151     TAG="tags/gcc_`echo ${RELEASE} | tr . _`_release"
152
153     rm -rf ${SOURCE_DIRECTORY}
154   fi
155
156   # Tag the sources.
157   if [ -n "${TAG}" ]; then
158     inform "Tagging sources as ${TAG}"
159     # We don't want to overwrite an existing tag.  So, if the tag
160     # already exists, issue an error message; the release manager can
161     # manually remove the tag if appropriate.
162     echo "${SVN} ls ${SVNROOT}/${TAG}/ChangeLog" 
163     if ${SVN} ls "${SVNROOT}/${TAG}/ChangeLog"; then 
164       error "Tag ${TAG} already exists"
165     fi
166     ${SVN} -m "Tagging source as ${TAG}" cp "${SVNROOT}/${SVNBRANCH}" "${SVNROOT}/${TAG}" || \
167       error "Could not tag sources"
168     SVNBRANCH=${TAG}
169   fi
170   SVNREV=`${SVN} info "${SVNROOT}/${SVNBRANCH}"|awk '/Revision:/ {print $2}'`
171
172   # Export the current sources.
173   inform "Retrieving sources (svn export -r ${SVNREV} ${SVNROOT}/${SVNBRANCH})"
174
175   ${SVN} -q export -r${SVNREV} "${SVNROOT}/${SVNBRANCH}" "`basename ${SOURCE_DIRECTORY}`" ||\
176     error "Could not retrieve sources"
177
178   # Run gcc_update on them to set up the timestamps nicely, and (re)write
179   # the LAST_UPDATED file containing the SVN tag/revision used.
180   changedir "gcc-${RELEASE}"
181   contrib/gcc_update --touch
182   echo "Obtained from SVN: ${SVNBRANCH} revision ${SVNREV}" > LAST_UPDATED
183
184   # For a prerelease or real release, we need to generate additional
185   # files not present in SVN.
186   changedir "${SOURCE_DIRECTORY}"
187   if [ $SNAPSHOT -ne 1 ]; then
188     # Generate the documentation.
189     inform "Building install docs"
190     SOURCEDIR=${SOURCE_DIRECTORY}/gcc/doc
191     DESTDIR=${SOURCE_DIRECTORY}/INSTALL
192     export SOURCEDIR
193     export DESTDIR
194     ${SOURCE_DIRECTORY}/gcc/doc/install.texi2html
195
196     # Regenerate the NEWS file.
197     contrib/gennews > NEWS || \
198       error "Could not regenerate NEWS files"
199
200     # Now, we must build the compiler in order to create any generated
201     # files that are supposed to go in the source directory.  This is
202     # also a good sanity check to make sure that the release builds
203     # on at least one platform.
204     inform "Building compiler"
205     OBJECT_DIRECTORY=../objdir
206     contrib/gcc_build -d ${SOURCE_DIRECTORY} -o ${OBJECT_DIRECTORY} \
207       -c "--enable-generated-files-in-srcdir --disable-multilib" build || \
208       error "Could not rebuild GCC"
209   fi
210
211   # Move message catalogs to source directory.
212   mv ../objdir/gcc/po/*.gmo gcc/po/
213   [ -f libcpp/po/cpplib.pot ] && mv ../objdir/libcpp/po/*.gmo libcpp/po/
214
215   # Create a "MD5SUMS" file to use for checking the validity of the release.
216   echo \
217 "# This file contains the MD5 checksums of the files in the 
218 # gcc-"${RELEASE}".tar.bz2 tarball.
219 #
220 # Besides verifying that all files in the tarball were correctly expanded,
221 # it also can be used to determine if any files have changed since the
222 # tarball was expanded or to verify that a patchfile was correctly applied.
223 #
224 # Suggested usage:
225 # md5sum -c MD5SUMS | grep -v \"OK$\"
226 " > MD5SUMS
227
228   find . -type f |
229   sed -e 's:^\./::' -e '/MD5SUMS/d' |
230   sort |
231   xargs md5sum >>MD5SUMS
232 }
233
234 # Build a single tarfile.  The first argument is the name of the tarfile
235 # to build, without any suffixes.  They will be added automatically.  The
236 # rest of the arguments are files or directories to include, and possibly
237 # other arguments to tar.
238
239 build_tarfile() {
240   # Get the name of the destination tar file.
241   TARFILE="$1.tar.bz2"
242   shift
243
244   # Build the tar file itself.
245   (${TAR} cf - "$@" | ${BZIP2} > ${TARFILE}) || \
246     error "Could not build tarfile"
247   FILE_LIST="${FILE_LIST} ${TARFILE}"
248 }
249
250 # Build a single tarfile if any of the directories listed exist,
251 # but not if none of them do (because that component doesn't exist
252 # on this branch).
253 maybe_build_tarfile() {
254   dest=$1
255   shift
256   dir_exists=0
257   for maybe_dir in "$@"; do
258     if [ -d "$maybe_dir" ]; then
259       dir_exists=1
260     fi
261   done
262   if [ $dir_exists = 1 ]; then
263     build_tarfile "$dest" "$@"
264   else
265     echo "Not building $dest tarfile"
266   fi
267 }
268
269 # Build the various tar files for the release.
270
271 build_tarfiles() {
272   inform "Building tarfiles"
273
274   changedir "${WORKING_DIRECTORY}"
275
276   # The GNU Coding Standards specify that all files should
277   # world readable.
278   chmod -R a+r ${SOURCE_DIRECTORY}
279   # And that all directories have mode 755.
280   find ${SOURCE_DIRECTORY} -type d -exec chmod 755 {} \;
281  
282   # Build one huge tarfile for the entire distribution.
283   build_tarfile gcc-${RELEASE} `basename ${SOURCE_DIRECTORY}`
284
285   # Now, build one for each of the languages.
286   maybe_build_tarfile gcc-ada-${RELEASE} ${ADA_DIRS}
287   maybe_build_tarfile gcc-g++-${RELEASE} ${CPLUSPLUS_DIRS}
288   maybe_build_tarfile gcc-fortran-${RELEASE} ${FORTRAN95_DIRS}
289   maybe_build_tarfile gcc-java-${RELEASE} ${JAVA_DIRS}
290   maybe_build_tarfile gcc-objc-${RELEASE} ${OBJECTIVEC_DIRS}
291   maybe_build_tarfile gcc-testsuite-${RELEASE} ${TESTSUITE_DIRS}
292    
293   # The core is everything else.
294   EXCLUDES=""
295   for x in ${ADA_DIRS} ${CPLUSPLUS_DIRS} ${FORTRAN95_DIRS}\
296            ${JAVA_DIRS} ${OBJECTIVEC_DIRS} ${TESTSUITE_DIRS}; do
297     EXCLUDES="${EXCLUDES} --exclude $x"
298   done
299   build_tarfile gcc-core-${RELEASE} ${EXCLUDES} \
300     `basename ${SOURCE_DIRECTORY}`
301 }
302
303 # Build .gz files.
304 build_gzip() {
305   for f in ${FILE_LIST}; do
306     target=${f%.bz2}.gz
307     (${BZIP2} -d -c $f | ${GZIP} > ${target}) || error "Could not create ${target}"
308   done
309 }
310
311 # Build diffs against an old release.
312 build_diffs() {
313   old_dir=${1%/*}
314   old_file=${1##*/}
315   old_vers=${old_file%.tar.bz2}
316   old_vers=${old_vers#gcc-}
317   inform "Building diffs against version $old_vers"
318   for f in gcc gcc-ada gcc-g++ gcc-fortran gcc-java gcc-objc gcc-testsuite gcc-core; do
319     old_tar=${old_dir}/${f}-${old_vers}.tar.bz2
320     new_tar=${WORKING_DIRECTORY}/${f}-${RELEASE}.tar.bz2
321     if [ ! -e $old_tar ]; then
322       inform "$old_tar not found; not generating diff file"
323     elif [ ! -e $new_tar ]; then
324       inform "$new_tar not found; not generating diff file"
325     else
326       build_diff $old_tar gcc-${old_vers} $new_tar gcc-${RELEASE} \
327         ${f}-${old_vers}-${RELEASE}.diff.bz2
328     fi
329   done
330 }
331
332 # Build an individual diff.
333 build_diff() {
334   changedir "${WORKING_DIRECTORY}"
335   tmpdir=gccdiff.$$
336   mkdir $tmpdir || error "Could not create directory $tmpdir"
337   changedir $tmpdir
338   (${BZIP2} -d -c $1 | ${TAR} xf - ) || error "Could not unpack $1 for diffs"
339   (${BZIP2} -d -c $3 | ${TAR} xf - ) || error "Could not unpack $3 for diffs"
340   ${DIFF} $2 $4 > ../${5%.bz2}
341   if [ $? -eq 2 ]; then
342     error "Trouble making diffs from $1 to $3"
343   fi
344   ${BZIP2} ../${5%.bz2} || error "Could not generate ../$5"
345   changedir ..
346   rm -rf $tmpdir
347   FILE_LIST="${FILE_LIST} $5"
348 }
349
350 # Upload the files to the FTP server.
351 upload_files() {
352   inform "Uploading files"
353
354   changedir "${WORKING_DIRECTORY}"
355
356   # Make sure the directory exists on the server.
357   if [ $LOCAL -eq 0 ]; then
358     ${SSH} -l ${GCC_USERNAME} ${GCC_HOSTNAME} \
359       mkdir -p "${FTP_PATH}/diffs"
360     UPLOAD_PATH="${GCC_USERNAME}@${GCC_HOSTNAME}:${FTP_PATH}"
361   else
362     mkdir -p "${FTP_PATH}/diffs" \
363       || error "Could not create \`${FTP_PATH}'"
364     UPLOAD_PATH=${FTP_PATH}
365   fi
366
367   # Then copy files to their respective (sub)directories.
368   for x in gcc*.gz gcc*.bz2; do
369     if [ -e ${x} ]; then
370       # Make sure the file will be readable on the server.
371       chmod a+r ${x}
372       # Copy it.
373       case ${x} in
374         *.diff.*)
375           SUBDIR="diffs/";
376           ;;
377         *)
378           SUBDIR="";
379       esac
380       ${SCP} ${x} ${UPLOAD_PATH}/${SUBDIR} \
381         || error "Could not upload ${x}"
382     fi
383   done
384 }
385
386 # Print description if snapshot exists.
387 snapshot_print() {
388   if [ -e ${RELEASE}/$1 ]; then
389      hash=`openssl md5 ${RELEASE}/$1 | sed -e 's#(.*)##' -e 's# *= *#=#'`
390
391      printf "%-38s%s\n\n  %s\n\n" "$1" "$2" "$hash" >> ${SNAPSHOT_README}
392
393      echo "  <tr><td><a href=\"$1\">$1</a></td>" >> ${SNAPSHOT_INDEX}
394      echo "      <td>$2</td></tr>" >> ${SNAPSHOT_INDEX}
395   fi
396 }
397
398 # Announce a snapshot, both on the web and via mail.
399 announce_snapshot() {
400   inform "Updating links and READMEs on the FTP server"
401   
402   TEXT_DATE=`date --date=$DATE +%B\ %d,\ %Y`
403   SNAPSHOT_README=${RELEASE}/README
404   SNAPSHOT_INDEX=${RELEASE}/index.html
405
406   changedir "${SNAPSHOTS_DIR}"
407   echo \
408 "Snapshot gcc-"${RELEASE}" is now available on
409   ftp://gcc.gnu.org/pub/gcc/snapshots/"${RELEASE}"/
410 and on various mirrors, see http://gcc.gnu.org/mirrors.html for details.
411
412 This snapshot has been generated from the GCC "${BRANCH}" SVN branch
413 with the following options: "svn://gcc.gnu.org/svn/gcc/${SVNBRANCH} revision ${SVNREV}"
414
415 You'll find:
416 " > ${SNAPSHOT_README}
417
418   echo \
419 "<html>
420
421 <head>
422 <title>GCC "${RELEASE}" Snapshot</title>
423 </head>
424
425 <body>
426 <h1>GCC "${RELEASE}" Snapshot</h1>
427
428 <p>The <a href =\"http://gcc.gnu.org/\">GCC Project</a> makes
429 periodic snapshots of the GCC source tree available to the public
430 for testing purposes.</p>
431         
432 <p>If you are planning to download and use one of our snapshots, then
433 we highly recommend you join the GCC developers list.  Details for
434 how to sign up can be found on the GCC project home page.</p>
435
436 <p>This snapshot has been generated from the GCC "${BRANCH}" SVN branch
437 with the following options: <code>"svn://gcc.gnu.org/svn/gcc/${SVNBRANCH} revision ${SVNREV}"</code></p>
438
439 <table>" > ${SNAPSHOT_INDEX}
440        
441   snapshot_print gcc-${RELEASE}.tar.bz2 "Complete GCC (includes all of below)"
442   snapshot_print gcc-core-${RELEASE}.tar.bz2 "C front end and core compiler"
443   snapshot_print gcc-ada-${RELEASE}.tar.bz2 "Ada front end and runtime"
444   snapshot_print gcc-fortran-${RELEASE}.tar.bz2 "Fortran front end and runtime"
445   snapshot_print gcc-g++-${RELEASE}.tar.bz2 "C++ front end and runtime"
446   snapshot_print gcc-java-${RELEASE}.tar.bz2 "Java front end and runtime"
447   snapshot_print gcc-objc-${RELEASE}.tar.bz2 "Objective-C front end and runtime"
448   snapshot_print gcc-testsuite-${RELEASE}.tar.bz2 "The GCC testsuite"
449
450   echo \
451 "Diffs from "${BRANCH}"-"${LAST_DATE}" are available in the diffs/ subdirectory.
452
453 When a particular snapshot is ready for public consumption the LATEST-"${BRANCH}"
454 link is updated and a message is sent to the gcc list.  Please do not use
455 a snapshot before it has been announced that way." >> ${SNAPSHOT_README}
456
457   echo \
458 "</table>
459 <p>Diffs from "${BRANCH}"-"${LAST_DATE}" are available in the
460 <a href=\"diffs/\">diffs/ subdirectory</a>.</p>
461
462 <p>When a particular snapshot is ready for public consumption the LATEST-"${BRANCH}"
463 link is updated and a message is sent to the gcc list.  Please do not use
464 a snapshot before it has been announced that way.</p>
465
466 <hr />
467
468 <address>
469 <a href=\"mailto:gcc@gcc.gnu.org\">gcc@gcc.gnu.org</a>
470 <br />
471 Last modified "${TEXT_DATE}"
472 </address>
473 </body>
474
475 </html>" >> ${SNAPSHOT_INDEX}
476
477   rm -f LATEST-${BRANCH}
478   ln -s ${RELEASE} LATEST-${BRANCH}
479
480   inform "Sending mail"
481
482   export QMAILHOST=gcc.gnu.org
483   mail -s "gcc-${RELEASE} is now available" gcc@gcc.gnu.org < ${SNAPSHOT_README}
484 }
485
486 ########################################################################
487 # Initialization
488 ########################################################################
489
490 LC_ALL=C
491 export LC_ALL
492
493 # Today's date.
494 DATE=`date "+%Y%m%d"`
495 LONG_DATE=`date "+%Y-%m-%d"`
496
497 SVN=${SVN:-svn}
498 # The CVS server containing the GCC repository.
499 SVN_SERVER="gcc.gnu.org"
500 # The path to the repository on that server.
501 SVN_REPOSITORY="/svn/gcc"
502 # The username to use when connecting to the server.
503 SVN_USERNAME="${USER}"
504
505 # The machine to which files will be uploaded.
506 GCC_HOSTNAME="gcc.gnu.org"
507 # The name of the account on the machine to which files are uploaded.
508 GCC_USERNAME="gccadmin"
509 # The directory in which the files will be placed (do not use ~user syntax).
510 FTP_PATH=/var/ftp/pub/gcc
511 # The directory in which snapshots will be placed.
512 SNAPSHOTS_DIR=${FTP_PATH}/snapshots
513
514 # The major number for the release.  For release `3.0.2' this would be 
515 # `3'
516 RELEASE_MAJOR=""
517 # The minor number for the release.  For release `3.0.2' this would be
518 # `0'.
519 RELEASE_MINOR=""
520 # The revision number for the release.  For release `3.0.2' this would
521 # be `2'.
522 RELEASE_REVISION=""
523 # The complete name of the release.
524 RELEASE=""
525
526 # The name of the branch from which the release should be made, in a 
527 # user-friendly form.
528 BRANCH=""
529
530 # The name of the branch from which the release should be made, as used
531 # for our version control system.
532 SVNBRANCH=""
533
534 # The tag to apply to the sources used for the release.
535 TAG=""
536
537 # The old tarballs from which to generate diffs.
538 OLD_TARS=""
539
540 # The directory that will be used to construct the release.  The
541 # release itself will be placed in a subdirectory of this directory.
542 DESTINATION=${HOME}
543 # The subdirectory.
544 WORKING_DIRECTORY=""
545 # The directory that will contain the GCC sources.
546 SOURCE_DIRECTORY=""
547
548 # The directories that should be part of the various language-specific
549 # tar files.  These are all relative to the top of the source tree.
550 ADA_DIRS="gcc/ada libada gnattools"
551 CPLUSPLUS_DIRS="gcc/cp libstdc++-v3"
552 FORTRAN95_DIRS="gcc/fortran libgfortran"
553 JAVA_DIRS="gcc/java libjava libffi boehm-gc"
554 OBJECTIVEC_DIRS="gcc/objc gcc/objcp libobjc"
555 TESTSUITE_DIRS="gcc/testsuite"
556
557 # Non-zero if this is the final release, rather than a prerelease.
558 FINAL=0
559
560 # Non-zero if we are building a snapshot, and don't build gcc or
561 # include generated files.
562 SNAPSHOT=0
563
564 # Non-zero if we are running locally on gcc.gnu.org, and use local CVS
565 # and copy directly to the FTP directory.
566 LOCAL=0
567
568 # Major operation modes.
569 MODE_GZIP=0
570 MODE_DIFFS=0
571 MODE_SOURCES=0
572 MODE_TARFILES=0
573 MODE_UPLOAD=0
574
575 # List of archive files generated; used to create .gz files from .bz2.
576 FILE_LIST=""
577
578 # Programs we use.
579
580 BZIP2="${BZIP2:-bzip2}"
581 CVS="${CVS:-cvs -f -Q -z9}"
582 DIFF="${DIFF:-diff -Nrcpad}"
583 ENV="${ENV:-env}"
584 GZIP="${GZIP:-gzip --best}"
585 SCP="${SCP:-scp -p}"
586 SSH="${SSH:-ssh}"
587 TAR="${TAR:-tar}"
588
589 ########################################################################
590 # Command Line Processing
591 ########################################################################
592
593 # Parse the options.
594 while getopts "d:fr:u:t:p:s:l" ARG; do
595     case $ARG in
596     d)    DESTINATION="${OPTARG}";;
597     r)    RELEASE="${OPTARG}";;
598     t)    TAG="${OPTARG}";;
599     u)    SVN_USERNAME="${OPTARG}";;
600     f)    FINAL=1;;
601     s)    SNAPSHOT=1
602           BRANCH=${OPTARG%:*}
603           SVNBRANCH=${OPTARG#*:}
604           ;;
605     l)    LOCAL=1
606           SCP=cp
607           PATH=~:/usr/local/bin:$PATH;;
608     p)    OLD_TARS="${OLD_TARS} ${OPTARG}"
609           if [ ! -f ${OPTARG} ]; then
610             error "-p argument must name a tarball"
611           fi;;
612     \?)   usage;;
613     esac
614 done
615 shift `expr ${OPTIND} - 1`
616
617 # Handle the major modes.
618 while [ $# -ne 0 ]; do
619     case $1 in
620     diffs)    MODE_DIFFS=1;;
621     gzip)     MODE_GZIP=1;;
622     sources)  MODE_SOURCES=1;;
623     tarfiles) MODE_TARFILES=1;;
624     upload)   MODE_UPLOAD=1;;
625     all)      MODE_SOURCES=1; MODE_TARFILES=1; MODE_DIFFS=1; MODE_UPLOAD=1;
626               if [ $SNAPSHOT -ne 1 ]; then
627                 # Only for releases and pre-releases.
628                 MODE_GZIP=1;
629               fi
630               ;;
631     *)        error "Unknown mode $1";;
632     esac
633     shift
634 done
635
636 # Perform consistency checking.
637 if [ ${LOCAL} -eq 0 ] && [ -z ${SVN_USERNAME} ]; then
638   error "No username specified"
639 fi
640
641 if [ ! -d ${DESTINATION} ]; then
642   error "\`${DESTINATION}' is not a directory"
643 fi
644
645 if [ $SNAPSHOT -eq 0 ]; then
646   if [ -z ${RELEASE} ]; then
647     error "No release number specified"
648   fi
649
650   # Compute the major and minor release numbers.
651   RELEASE_MAJOR=`echo $RELEASE | awk --assign FS=. '{ print $1; }'`
652   RELEASE_MINOR=`echo $RELEASE | awk --assign FS=. '{ print $2; }'`
653   RELEASE_REVISION=`echo $RELEASE | awk --assign FS=. '{ print $3; }'`
654
655   if [ -z "${RELEASE_MAJOR}" ] || [ -z "${RELEASE_MINOR}" ]; then
656     error "Release number \`${RELEASE}' is invalid"
657   fi
658
659   # Compute the full name of the release.
660   if [ -z "${RELEASE_REVISION}" ]; then
661     RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}"
662   else
663     RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}.${RELEASE_REVISION}"
664   fi
665
666   # Compute the name of the branch, which is based solely on the major
667   # and minor release numbers.
668   SVNBRANCH="branches/gcc-${RELEASE_MAJOR}_${RELEASE_MINOR}-branch"
669
670   # If this is not a final release, set various parameters accordingly.
671   if [ ${FINAL} -ne 1 ]; then
672     RELEASE="${RELEASE}-RC-${DATE}"
673     FTP_PATH="${SNAPSHOTS_DIR}/${RELEASE}"
674   else
675     FTP_PATH="${FTP_PATH}/releases/gcc-${RELEASE}/"
676   fi
677 else
678   RELEASE=${BRANCH}-${DATE}
679   FTP_PATH="${FTP_PATH}/snapshots/${RELEASE}"
680
681   # If diffs are requested when building locally on gcc.gnu.org, we (usually)
682   # know what the last snapshot date was and take the corresponding tarballs,
683   # unless the user specified tarballs explicitly.
684   if [ $MODE_DIFFS -ne 0 ] && [ $LOCAL -ne 0 ] && [ -z "${OLD_TARS}" ]; then
685     LAST_DATE=`cat ~/.snapshot_date-${BRANCH}`
686     OLD_TARS=${SNAPSHOTS_DIR}/${BRANCH}-${LAST_DATE}/gcc-${BRANCH}-${LAST_DATE}.tar.bz2
687   fi
688 fi
689
690 # Compute the name of the WORKING_DIRECTORY and the SOURCE_DIRECTORY.
691 WORKING_DIRECTORY="${DESTINATION}/gcc-${RELEASE}"
692 SOURCE_DIRECTORY="${WORKING_DIRECTORY}/gcc-${RELEASE}"
693
694 # Recompute the names of all the language-specific directories,
695 # relative to the WORKING_DIRECTORY.
696 ADA_DIRS=`adjust_dirs ${ADA_DIRS}`
697 CPLUSPLUS_DIRS=`adjust_dirs ${CPLUSPLUS_DIRS}`
698 FORTRAN95_DIRS=`adjust_dirs ${FORTRAN95_DIRS}`
699 JAVA_DIRS=`adjust_dirs ${JAVA_DIRS}`
700 OBJECTIVEC_DIRS=`adjust_dirs ${OBJECTIVEC_DIRS}`
701 TESTSUITE_DIRS=`adjust_dirs ${TESTSUITE_DIRS}`
702
703 # Set up SVNROOT.
704 if [ $LOCAL -eq 0 ]; then
705     SVNROOT="svn+ssh://${SVN_USERNAME}@${SVN_SERVER}${SVN_REPOSITORY}"
706 else
707     SVNROOT="file:///svn/gcc"
708 fi
709 export SVNROOT
710
711 ########################################################################
712 # Main Program
713 ########################################################################
714
715 # Set the timezone to UTC
716 TZ="UTC0"
717 export TZ
718
719 # Build the source directory.
720
721 if [ $MODE_SOURCES -ne 0 ]; then
722   build_sources
723 fi
724
725 # Build the tar files.
726
727 if [ $MODE_TARFILES -ne 0 ]; then
728   build_tarfiles
729 fi
730
731 # Build diffs
732
733 if [ $MODE_DIFFS -ne 0 ]; then
734   # Possibly build diffs.
735   if [ -n "$OLD_TARS" ]; then
736     for old_tar in $OLD_TARS; do
737       build_diffs $old_tar
738     done
739   fi
740 fi
741
742 # Build gzip files
743 if [ $MODE_GZIP -ne 0 ]; then
744   build_gzip
745 fi
746
747 # Upload them to the FTP server.
748 if [ $MODE_UPLOAD -ne 0 ]; then
749   upload_files
750
751   # For snapshots, make some further updates.
752   if [ $SNAPSHOT -ne 0 ] && [ $LOCAL -ne 0 ]; then
753     announce_snapshot
754
755     # Update snapshot date file.
756     changedir ~
757     echo $DATE > .snapshot_date-${BRANCH}
758
759     # Remove working directory
760     rm -rf ${WORKING_DIRECTORY}
761   fi
762 fi