re PR libfortran/47567 (Wrong output for small absolute values with F editing)
[gcc.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-go-${RELEASE} ${GO_DIRS}
290 maybe_build_tarfile gcc-java-${RELEASE} ${JAVA_DIRS}
291 maybe_build_tarfile gcc-objc-${RELEASE} ${OBJECTIVEC_DIRS}
292 maybe_build_tarfile gcc-testsuite-${RELEASE} ${TESTSUITE_DIRS}
293
294 # The core is everything else.
295 EXCLUDES=""
296 for x in ${ADA_DIRS} ${CPLUSPLUS_DIRS} ${FORTRAN95_DIRS}\
297 ${GO_DIRS} ${JAVA_DIRS} ${OBJECTIVEC_DIRS} ${TESTSUITE_DIRS}; do
298 EXCLUDES="${EXCLUDES} --exclude $x"
299 done
300 build_tarfile gcc-core-${RELEASE} ${EXCLUDES} \
301 `basename ${SOURCE_DIRECTORY}`
302 }
303
304 # Build .gz files.
305 build_gzip() {
306 for f in ${FILE_LIST}; do
307 target=${f%.bz2}.gz
308 (${BZIP2} -d -c $f | ${GZIP} > ${target}) || error "Could not create ${target}"
309 done
310 }
311
312 # Build diffs against an old release.
313 build_diffs() {
314 old_dir=${1%/*}
315 old_file=${1##*/}
316 old_vers=${old_file%.tar.bz2}
317 old_vers=${old_vers#gcc-}
318 inform "Building diffs against version $old_vers"
319 for f in gcc gcc-ada gcc-g++ gcc-fortran gcc-go gcc-java gcc-objc gcc-testsuite gcc-core; do
320 old_tar=${old_dir}/${f}-${old_vers}.tar.bz2
321 new_tar=${WORKING_DIRECTORY}/${f}-${RELEASE}.tar.bz2
322 if [ ! -e $old_tar ]; then
323 inform "$old_tar not found; not generating diff file"
324 elif [ ! -e $new_tar ]; then
325 inform "$new_tar not found; not generating diff file"
326 else
327 build_diff $old_tar gcc-${old_vers} $new_tar gcc-${RELEASE} \
328 ${f}-${old_vers}-${RELEASE}.diff.bz2
329 fi
330 done
331 }
332
333 # Build an individual diff.
334 build_diff() {
335 changedir "${WORKING_DIRECTORY}"
336 tmpdir=gccdiff.$$
337 mkdir $tmpdir || error "Could not create directory $tmpdir"
338 changedir $tmpdir
339 (${BZIP2} -d -c $1 | ${TAR} xf - ) || error "Could not unpack $1 for diffs"
340 (${BZIP2} -d -c $3 | ${TAR} xf - ) || error "Could not unpack $3 for diffs"
341 ${DIFF} $2 $4 > ../${5%.bz2}
342 if [ $? -eq 2 ]; then
343 error "Trouble making diffs from $1 to $3"
344 fi
345 ${BZIP2} ../${5%.bz2} || error "Could not generate ../$5"
346 changedir ..
347 rm -rf $tmpdir
348 FILE_LIST="${FILE_LIST} $5"
349 }
350
351 # Upload the files to the FTP server.
352 upload_files() {
353 inform "Uploading files"
354
355 changedir "${WORKING_DIRECTORY}"
356
357 # Make sure the directory exists on the server.
358 if [ $LOCAL -eq 0 ]; then
359 ${SSH} -l ${GCC_USERNAME} ${GCC_HOSTNAME} \
360 mkdir -p "${FTP_PATH}/diffs"
361 UPLOAD_PATH="${GCC_USERNAME}@${GCC_HOSTNAME}:${FTP_PATH}"
362 else
363 mkdir -p "${FTP_PATH}/diffs" \
364 || error "Could not create \`${FTP_PATH}'"
365 UPLOAD_PATH=${FTP_PATH}
366 fi
367
368 # Then copy files to their respective (sub)directories.
369 for x in gcc*.gz gcc*.bz2; do
370 if [ -e ${x} ]; then
371 # Make sure the file will be readable on the server.
372 chmod a+r ${x}
373 # Copy it.
374 case ${x} in
375 *.diff.*)
376 SUBDIR="diffs/";
377 ;;
378 *)
379 SUBDIR="";
380 esac
381 ${SCP} ${x} ${UPLOAD_PATH}/${SUBDIR} \
382 || error "Could not upload ${x}"
383 fi
384 done
385 }
386
387 # Print description if snapshot exists.
388 snapshot_print() {
389 if [ -e ${RELEASE}/$1 ]; then
390 hash=`openssl md5 ${RELEASE}/$1 | sed -e 's#(.*)##' -e 's# *= *#=#'`
391 hash2=`openssl sha1 ${RELEASE}/$1 | sed -e 's#(.*)##' -e 's# *= *#=#'`
392
393 printf " %-37s%s\n\n %s\n %s\n\n" "$1" "$2" "$hash" "$hash2" \
394 >> ${SNAPSHOT_README}
395
396 echo " <tr><td><a href=\"$1\">$1</a></td>" >> ${SNAPSHOT_INDEX}
397 echo " <td>$2</td></tr>" >> ${SNAPSHOT_INDEX}
398 fi
399 }
400
401 # Announce a snapshot, both on the web and via mail.
402 announce_snapshot() {
403 inform "Updating links and READMEs on the FTP server"
404
405 TEXT_DATE=`date --date=$DATE +%B\ %d,\ %Y`
406 SNAPSHOT_README=${RELEASE}/README
407 SNAPSHOT_INDEX=${RELEASE}/index.html
408
409 changedir "${SNAPSHOTS_DIR}"
410 echo \
411 "Snapshot gcc-"${RELEASE}" is now available on
412 ftp://gcc.gnu.org/pub/gcc/snapshots/"${RELEASE}"/
413 and on various mirrors, see http://gcc.gnu.org/mirrors.html for details.
414
415 This snapshot has been generated from the GCC "${BRANCH}" SVN branch
416 with the following options: "svn://gcc.gnu.org/svn/gcc/${SVNBRANCH} revision ${SVNREV}"
417
418 You'll find:
419 " > ${SNAPSHOT_README}
420
421 echo \
422 "<html>
423
424 <head>
425 <title>GCC "${RELEASE}" Snapshot</title>
426 </head>
427
428 <body>
429 <h1>GCC "${RELEASE}" Snapshot</h1>
430
431 <p>The <a href =\"http://gcc.gnu.org/\">GCC Project</a> makes
432 periodic snapshots of the GCC source tree available to the public
433 for testing purposes.</p>
434
435 <p>If you are planning to download and use one of our snapshots, then
436 we highly recommend you join the GCC developers list. Details for
437 how to sign up can be found on the GCC project home page.</p>
438
439 <p>This snapshot has been generated from the GCC "${BRANCH}" SVN branch
440 with the following options: <code>"svn://gcc.gnu.org/svn/gcc/${SVNBRANCH} revision ${SVNREV}"</code></p>
441
442 <table>" > ${SNAPSHOT_INDEX}
443
444 snapshot_print gcc-${RELEASE}.tar.bz2 "Complete GCC (includes all of below)"
445 snapshot_print gcc-core-${RELEASE}.tar.bz2 "C front end and core compiler"
446 snapshot_print gcc-ada-${RELEASE}.tar.bz2 "Ada front end and runtime"
447 snapshot_print gcc-fortran-${RELEASE}.tar.bz2 "Fortran front end and runtime"
448 snapshot_print gcc-g++-${RELEASE}.tar.bz2 "C++ front end and runtime"
449 snapshot_print gcc-go-${RELEASE}.tar.bz2 "Go front end and runtime"
450 snapshot_print gcc-java-${RELEASE}.tar.bz2 "Java front end and runtime"
451 snapshot_print gcc-objc-${RELEASE}.tar.bz2 "Objective-C front end and runtime"
452 snapshot_print gcc-testsuite-${RELEASE}.tar.bz2 "The GCC testsuite"
453
454 echo \
455 "Diffs from "${BRANCH}"-"${LAST_DATE}" are available in the diffs/ subdirectory.
456
457 When a particular snapshot is ready for public consumption the LATEST-"${BRANCH}"
458 link is updated and a message is sent to the gcc list. Please do not use
459 a snapshot before it has been announced that way." >> ${SNAPSHOT_README}
460
461 echo \
462 "</table>
463 <p>Diffs from "${BRANCH}"-"${LAST_DATE}" are available in the
464 <a href=\"diffs/\">diffs/ subdirectory</a>.</p>
465
466 <p>When a particular snapshot is ready for public consumption the LATEST-"${BRANCH}"
467 link is updated and a message is sent to the gcc list. Please do not use
468 a snapshot before it has been announced that way.</p>
469
470 <hr />
471
472 <address>
473 <a href=\"mailto:gcc@gcc.gnu.org\">gcc@gcc.gnu.org</a>
474 <br />
475 Last modified "${TEXT_DATE}"
476 </address>
477 </body>
478
479 </html>" >> ${SNAPSHOT_INDEX}
480
481 rm -f LATEST-${BRANCH}
482 ln -s ${RELEASE} LATEST-${BRANCH}
483
484 inform "Sending mail"
485
486 export QMAILHOST=gcc.gnu.org
487 mail -s "gcc-${RELEASE} is now available" gcc@gcc.gnu.org < ${SNAPSHOT_README}
488 }
489
490 ########################################################################
491 # Initialization
492 ########################################################################
493
494 LC_ALL=C
495 export LC_ALL
496
497 # Today's date.
498 DATE=`date "+%Y%m%d"`
499 LONG_DATE=`date "+%Y-%m-%d"`
500
501 SVN=${SVN:-svn}
502 # The CVS server containing the GCC repository.
503 SVN_SERVER="gcc.gnu.org"
504 # The path to the repository on that server.
505 SVN_REPOSITORY="/svn/gcc"
506 # The username to use when connecting to the server.
507 SVN_USERNAME="${USER}"
508
509 # The machine to which files will be uploaded.
510 GCC_HOSTNAME="gcc.gnu.org"
511 # The name of the account on the machine to which files are uploaded.
512 GCC_USERNAME="gccadmin"
513 # The directory in which the files will be placed (do not use ~user syntax).
514 FTP_PATH=/var/ftp/pub/gcc
515 # The directory in which snapshots will be placed.
516 SNAPSHOTS_DIR=${FTP_PATH}/snapshots
517
518 # The major number for the release. For release `3.0.2' this would be
519 # `3'
520 RELEASE_MAJOR=""
521 # The minor number for the release. For release `3.0.2' this would be
522 # `0'.
523 RELEASE_MINOR=""
524 # The revision number for the release. For release `3.0.2' this would
525 # be `2'.
526 RELEASE_REVISION=""
527 # The complete name of the release.
528 RELEASE=""
529
530 # The name of the branch from which the release should be made, in a
531 # user-friendly form.
532 BRANCH=""
533
534 # The name of the branch from which the release should be made, as used
535 # for our version control system.
536 SVNBRANCH=""
537
538 # The tag to apply to the sources used for the release.
539 TAG=""
540
541 # The old tarballs from which to generate diffs.
542 OLD_TARS=""
543
544 # The directory that will be used to construct the release. The
545 # release itself will be placed in a subdirectory of this directory.
546 DESTINATION=${HOME}
547 # The subdirectory.
548 WORKING_DIRECTORY=""
549 # The directory that will contain the GCC sources.
550 SOURCE_DIRECTORY=""
551
552 # The directories that should be part of the various language-specific
553 # tar files. These are all relative to the top of the source tree.
554 ADA_DIRS="gcc/ada libada gnattools"
555 CPLUSPLUS_DIRS="gcc/cp libstdc++-v3"
556 FORTRAN95_DIRS="gcc/fortran libgfortran"
557 GO_DIRS="gcc/go libgo libffi"
558 JAVA_DIRS="gcc/java libjava libffi boehm-gc"
559 OBJECTIVEC_DIRS="gcc/objc gcc/objcp libobjc"
560 TESTSUITE_DIRS="gcc/testsuite"
561
562 # Non-zero if this is the final release, rather than a prerelease.
563 FINAL=0
564
565 # Non-zero if we are building a snapshot, and don't build gcc or
566 # include generated files.
567 SNAPSHOT=0
568
569 # Non-zero if we are running locally on gcc.gnu.org, and use local CVS
570 # and copy directly to the FTP directory.
571 LOCAL=0
572
573 # Major operation modes.
574 MODE_GZIP=0
575 MODE_DIFFS=0
576 MODE_SOURCES=0
577 MODE_TARFILES=0
578 MODE_UPLOAD=0
579
580 # List of archive files generated; used to create .gz files from .bz2.
581 FILE_LIST=""
582
583 # Programs we use.
584
585 BZIP2="${BZIP2:-bzip2}"
586 CVS="${CVS:-cvs -f -Q -z9}"
587 DIFF="${DIFF:-diff -Nrcpad}"
588 ENV="${ENV:-env}"
589 GZIP="${GZIP:-gzip --best}"
590 SCP="${SCP:-scp -p}"
591 SSH="${SSH:-ssh}"
592 TAR="${TAR:-tar}"
593
594 ########################################################################
595 # Command Line Processing
596 ########################################################################
597
598 # Parse the options.
599 while getopts "d:fr:u:t:p:s:l" ARG; do
600 case $ARG in
601 d) DESTINATION="${OPTARG}";;
602 r) RELEASE="${OPTARG}";;
603 t) TAG="${OPTARG}";;
604 u) SVN_USERNAME="${OPTARG}";;
605 f) FINAL=1;;
606 s) SNAPSHOT=1
607 BRANCH=${OPTARG%:*}
608 SVNBRANCH=${OPTARG#*:}
609 ;;
610 l) LOCAL=1
611 SCP=cp
612 PATH=~:/usr/local/bin:$PATH;;
613 p) OLD_TARS="${OLD_TARS} ${OPTARG}"
614 if [ ! -f ${OPTARG} ]; then
615 error "-p argument must name a tarball"
616 fi;;
617 \?) usage;;
618 esac
619 done
620 shift `expr ${OPTIND} - 1`
621
622 # Handle the major modes.
623 while [ $# -ne 0 ]; do
624 case $1 in
625 diffs) MODE_DIFFS=1;;
626 gzip) MODE_GZIP=1;;
627 sources) MODE_SOURCES=1;;
628 tarfiles) MODE_TARFILES=1;;
629 upload) MODE_UPLOAD=1;;
630 all) MODE_SOURCES=1; MODE_TARFILES=1; MODE_DIFFS=1; MODE_UPLOAD=1;
631 if [ $SNAPSHOT -ne 1 ]; then
632 # Only for releases and pre-releases.
633 MODE_GZIP=1;
634 fi
635 ;;
636 *) error "Unknown mode $1";;
637 esac
638 shift
639 done
640
641 # Perform consistency checking.
642 if [ ${LOCAL} -eq 0 ] && [ -z ${SVN_USERNAME} ]; then
643 error "No username specified"
644 fi
645
646 if [ ! -d ${DESTINATION} ]; then
647 error "\`${DESTINATION}' is not a directory"
648 fi
649
650 if [ $SNAPSHOT -eq 0 ]; then
651 if [ -z ${RELEASE} ]; then
652 error "No release number specified"
653 fi
654
655 # Compute the major and minor release numbers.
656 RELEASE_MAJOR=`echo $RELEASE | awk --assign FS=. '{ print $1; }'`
657 RELEASE_MINOR=`echo $RELEASE | awk --assign FS=. '{ print $2; }'`
658 RELEASE_REVISION=`echo $RELEASE | awk --assign FS=. '{ print $3; }'`
659
660 if [ -z "${RELEASE_MAJOR}" ] || [ -z "${RELEASE_MINOR}" ]; then
661 error "Release number \`${RELEASE}' is invalid"
662 fi
663
664 # Compute the full name of the release.
665 if [ -z "${RELEASE_REVISION}" ]; then
666 RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}"
667 else
668 RELEASE="${RELEASE_MAJOR}.${RELEASE_MINOR}.${RELEASE_REVISION}"
669 fi
670
671 # Compute the name of the branch, which is based solely on the major
672 # and minor release numbers.
673 SVNBRANCH="branches/gcc-${RELEASE_MAJOR}_${RELEASE_MINOR}-branch"
674
675 # If this is not a final release, set various parameters accordingly.
676 if [ ${FINAL} -ne 1 ]; then
677 RELEASE="${RELEASE}-RC-${DATE}"
678 FTP_PATH="${SNAPSHOTS_DIR}/${RELEASE}"
679 else
680 FTP_PATH="${FTP_PATH}/releases/gcc-${RELEASE}/"
681 fi
682 else
683 RELEASE=${BRANCH}-${DATE}
684 FTP_PATH="${FTP_PATH}/snapshots/${RELEASE}"
685
686 # If diffs are requested when building locally on gcc.gnu.org, we (usually)
687 # know what the last snapshot date was and take the corresponding tarballs,
688 # unless the user specified tarballs explicitly.
689 if [ $MODE_DIFFS -ne 0 ] && [ $LOCAL -ne 0 ] && [ -z "${OLD_TARS}" ]; then
690 LAST_DATE=`cat ~/.snapshot_date-${BRANCH}`
691 OLD_TARS=${SNAPSHOTS_DIR}/${BRANCH}-${LAST_DATE}/gcc-${BRANCH}-${LAST_DATE}.tar.bz2
692 fi
693 fi
694
695 # Compute the name of the WORKING_DIRECTORY and the SOURCE_DIRECTORY.
696 WORKING_DIRECTORY="${DESTINATION}/gcc-${RELEASE}"
697 SOURCE_DIRECTORY="${WORKING_DIRECTORY}/gcc-${RELEASE}"
698
699 # Recompute the names of all the language-specific directories,
700 # relative to the WORKING_DIRECTORY.
701 ADA_DIRS=`adjust_dirs ${ADA_DIRS}`
702 CPLUSPLUS_DIRS=`adjust_dirs ${CPLUSPLUS_DIRS}`
703 FORTRAN95_DIRS=`adjust_dirs ${FORTRAN95_DIRS}`
704 GO_DIRS=`adjust_dirs ${GO_DIRS}`
705 JAVA_DIRS=`adjust_dirs ${JAVA_DIRS}`
706 OBJECTIVEC_DIRS=`adjust_dirs ${OBJECTIVEC_DIRS}`
707 TESTSUITE_DIRS=`adjust_dirs ${TESTSUITE_DIRS}`
708
709 # Set up SVNROOT.
710 if [ $LOCAL -eq 0 ]; then
711 SVNROOT="svn+ssh://${SVN_USERNAME}@${SVN_SERVER}${SVN_REPOSITORY}"
712 else
713 SVNROOT="file:///svn/gcc"
714 fi
715 export SVNROOT
716
717 ########################################################################
718 # Main Program
719 ########################################################################
720
721 # Set the timezone to UTC
722 TZ="UTC0"
723 export TZ
724
725 # Build the source directory.
726
727 if [ $MODE_SOURCES -ne 0 ]; then
728 build_sources
729 fi
730
731 # Build the tar files.
732
733 if [ $MODE_TARFILES -ne 0 ]; then
734 build_tarfiles
735 fi
736
737 # Build diffs
738
739 if [ $MODE_DIFFS -ne 0 ]; then
740 # Possibly build diffs.
741 if [ -n "$OLD_TARS" ]; then
742 for old_tar in $OLD_TARS; do
743 build_diffs $old_tar
744 done
745 fi
746 fi
747
748 # Build gzip files
749 if [ $MODE_GZIP -ne 0 ]; then
750 build_gzip
751 fi
752
753 # Upload them to the FTP server.
754 if [ $MODE_UPLOAD -ne 0 ]; then
755 upload_files
756
757 # For snapshots, make some further updates.
758 if [ $SNAPSHOT -ne 0 ] && [ $LOCAL -ne 0 ]; then
759 announce_snapshot
760
761 # Update snapshot date file.
762 changedir ~
763 echo $DATE > .snapshot_date-${BRANCH}
764
765 # Remove working directory
766 rm -rf ${WORKING_DIRECTORY}
767 fi
768 fi