OSDN Git Service

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