From f21dbd337fcce7e0a97994b9f3cd689a15d1ddfe Mon Sep 17 00:00:00 2001 From: Robb Matzke Date: Thu, 30 Jul 1998 14:26:54 -0500 Subject: [svn-r548] ./bin/release Simplified greatly. When run from the top of the hdf5 source tree with no arguments a new tar file is created in the `releases' directory. When given one or more of the words `tar', `compress', `gzip', or `bzip2' each type of archive is created. The name of the releases directory can be changed with the `-d DIR' switch. --- bin/release | 341 +++++++++++++++++++----------------------------------------- 1 file changed, 105 insertions(+), 236 deletions(-) diff --git a/bin/release b/bin/release index dab9fbe..6f88a24 100755 --- a/bin/release +++ b/bin/release @@ -1,245 +1,114 @@ -#! /usr/local/bin/perl -w -require 5.003; -use Cwd; +#!/bin/sh -# Builds a release. Arguments are zero or more of the words. +# Make a release of hdf5. The command-line switches are: # -# tar -- build a tar file *.tar -# compress -- build a compressed tar file *.tar.Z -# gzip -- build a compressed tar file *.tar.gz -# bzip2 -- build a compressed tar file *.tar.bz2 +# -d DIR The name of the directory where the releas(es) should be +# placed. By default, the directory is ./releases +# +# The other command-line options are the names of the programs to use +# for compressing the resulting tar archive (if none are given then +# `tar' is assumed): # -# If no arguments are given then `gzip' is assumed. If the only argument -# is the word `all' then all forms are used. - -$releases = "./releases"; # Directory for release tarballs - -############################################################################## -# Read version info, return an array (MAJOR,MINOR,RELEASE) or -# a string "MAJOR.MINOR.RELEASE" +# tar -- use tar and don't do any compressing. +# compress -- use compress and append `.Z' to the output name. +# gzip -- use gzip with `-9' and append `.gz' to the output name. +# bzip2 -- use bzip2 with `-9' and append `.bz2' to the output name. # -sub getver () { - my @ver; - open SRC, "./src/H5public.h" or die "cannot read HDF5 version"; - while () { - $ver[0] = $1 if /define\s+H5_VERS_MAJOR\s+(\d+)/; - $ver[1] = $1 if /define\s+H5_VERS_MINOR\s+(\d+)/; - $ver[2] = $1 if /define\s+H5_VERS_RELEASE\s+(\d+)/; - } - close SRC; - wantarray ? @ver : "$ver[0].$ver[1].$ver[2]"; -} - -############################################################################## -# Set version information. Input is a string or an array. +# Examples: # -sub setver ($;$$) { - my @ver = @_; - local $_; - - if ($ver[0]=~/\D/) { - @ver = $ver[0] =~ /^(\d+)\.(\d+)\.(\d+)$/ or return ""; - } - - $_ = `cat ./src/H5public.h`; - s/(define\s+H5_VERS_MAJOR\s+)(\d+)/$1$ver[0]/; - s/(define\s+H5_VERS_MINOR\s+)(\d+)/$1$ver[1]/; - s/(define\s+H5_VERS_RELEASE\s+)(\d+)/$1$ver[2]/; - open SRC, "> ./src/H5public.h" or return ""; - print SRC $_; - close SRC; - - return 1; -} - -############################################################################## -# Make sure MANIFEST contains all the necessary files. If we are running -# under CVS then look at the CVS/Entries files to get the names that should -# be in the manifest. Otherwise we really can't do anything. +# $ release +# releases/hdf5-1.0.38.tar # -sub manifest () { - my ($fname, %manifest); - my $nprobs=0; - - # We can't do anything if we're not running under cvs. - return "" unless -d "CVS"; - - # Read the files from the manifest. - open MANIFEST, "MANIFEST" or die "unable to read manifest"; - while () { - chomp; - $manifest{$_} = 1; - } - close MANIFEST; - - # Read files from CVS/Entries - open FIND, "find . -name Entries -print | sort |" or - die "unable to find CVS entries"; - while (defined($fname=)) { - chomp $fname; - my ($dir) = $fname =~ m%(.*)/CVS/Entries%; - open ENTRIES, $fname or die "unable to open $fname"; - while () { - my ($ename); - next unless ($ename) = m%^/([^/]+)/[^-]%; - $ename = "$dir/" . $ename; - if (exists $manifest{$ename}) { - delete $manifest{$ename}; - } else { - print "NEW: $ename\n"; - $nprobs++; - } - } - close ENTRIES; - } - close FIND; - - for (sort keys %manifest) { - print "OLD: $_\n"; - $nprobs++; - } - - if ($nprobs) { - print "Please add the new files to MANIFEST and remove the old\n"; - print "files and try again. The MANIFEST should contain all files\n"; - print "that are to be distributed for a release.\n"; - exit 1; - } -} - - -############################################################################## -# Build a release +# $ release gzip +# releases/hdf5-1.0.38.tar.gz +# +# $ release -d /tmp tar compress gzip bzip2 +# /tmp/hdf5-1.0.38.tar +# /tmp/hdf5-1.0.38.tar.Z +# /tmp/hdf5-1.0.38.tar.gz +# /tmp/hdf5-1.0.38.tar.bz2 # -sub release (@) { - my @types = @_; - my ($ver, $status, $created_symlink); - my ($batch) = 0; - local $_; - - if (@types>0 && $types[0] =~ /^-?-batch$/) { - $batch = 1; - shift @types; - } - - # Make sure no one forgot to update MANIFEST - manifest; - - # Make sure the version number is correct. - $ver = getver; - if ($batch) { - print "Releasing version $ver\n"; - } else { - print "HDF version to release [$ver] "; - return "" unless defined ($_=); - chomp; - (setver ($ver=$_) or die "cannot set version") if /\S/; - } - - # Update the README file to contain the new version and date - # information. - my $today = sprintf "19%02d-%02d-%02d %02d:%02d UTC", (gmtime)[5,4,3,2,1]; - $_ = `cat README`; - s[^(This is hdf5-)\d+.\d+.\d+( released on )(\d+-?){3} \d+:\d+ UTC] - [$1$ver$2$today]s; - system ("cp -p README README~"); - open README, ">README" or die "unable to open README: $!\n"; - print README; - close README; - - # Move default top-level makefile into place. - $status = system "cp Makefile.dist Makefile"; - die "cannot install default Makefile" if $status >> 8; - - # Make sure release directory exists - (mkdir $releases, 0777 or die "cannot create $releases") - unless -d $releases; - die "no manifest" unless -r "MANIFEST"; - - # We build the release from above the root of the source tree so the - # hdf5 directory appears as part of the name in the tar file. We create - # a temporary symlink called something like `hdf5-1.0.0a' that points to - # our current working directory. - $_ = cwd; - my ($parent,$root) = m%(.*)/(.*)$% or die "cannot split directory"; - if ($root ne "hdf5-$ver" && ! -e "../hdf5-$ver") { - symlink $root, "../hdf5-$ver" or die "cannot create link"; - $created_symlink = 1; - } - my $name = "$root/$releases/hdf5-$ver"; - - # Build the releases. - @types = ("gzip") unless @types; - @types = qw/tar gzip compress bzip2/ if 1==@types && "all" eq $types[0]; - $_ = `cat MANIFEST`; - s/^\.\///mg; - @filelist = ("Makefile", split /\s*\n/, $_); - $filelist = join " ", map {"hdf5-$ver/$_"} @filelist; - - chdir ".." or die; - for (@types) { - print "Compressing with $_...\n"; - - /^tar$/ && do { - $status = system "tar cf $name.tar $filelist"; - next; - }; - - /^gzip$/ && do { - $status = system "tar cf - $filelist |gzip -9 >$name.tar.gz"; - next; - }; - - /^compress$/ && do { - $status = system "tar cf - $filelist |compress -c >$name.tar.Z"; - next; - }; - - /^bzip2$/ && do { - $status = system "tar cf - $filelist |bzip2 -9 >$name.tar.bz2"; - next; - }; - } continue { - print STDERR "$_ failed\n" if $status >> 8; - } - chdir $root or die; - - # Remove the temporary symlink we created above. - unlink "../hdf5-$ver" if $created_symlink; - - - # Update version info - if ($batch) { - my ($v1,$v2,$v3) = $ver =~ /^(\d+)\.(\d+)\.(\d+)$/; - $v3 += 1; - setver ($ver = "$v1.$v2.$v3") or die "cannot set version"; - print "Development version set to $ver\n"; - } else { - print <&2 +if [ ! -d $DEST ]; then + echo " Destination directory $DEST does not exist" 1>&2 + exit 1 +fi + +# Check that all the files in MANIFEST exist and that (if this is a +# CVS checkout) that all the CVS-managed files appear in the +# MANIFEST. +test "$verbose" && echo " Checking manifest..." 1>&2 +test -f MANIFEST || exit 1 +for file in `cat MANIFEST`; do + if [ ! -f $file ]; then + echo "- $file" + fail=yes + fi +done +for cvs in `find . -type d -name CVS -print`; do + path=`echo $cvs |sed s+/CVS++` + for file in `cut -d/ -f2 $cvs/Entries`; do + if (grep $path/$file MANIFEST >/dev/null); then + : + else + echo "+ $path/$file" + fail=yes + fi + done +done +if [ "X$fail" = "Xyes" ]; then + cat 1>&2 <); - chomp; - (setver ($ver=$_) or die "cannot set version") if /\S/; - - if (-d "CVS") { - my $tag = $ver; - $tag =~ s/\./-/g; - print "Tag CVS sources with \"$tag\"? [n] "; - chomp ($_ = ); - if ($_ eq 'y') { - print "Tagging CVS sources...\n"; - my $status = system "cvs tag -R $tag"; - die "cvs tag failed" if $status >> 8; - } - } - } - - return 1; -} - -release @ARGV; + exit 1 +fi + +# Prepare the source tree for a release. +test -h ../hdf5-$VERS && rm ../hdf5-$VERS +(cd ..; ln -s hdf5 hdf5-$VERS || exit 1) +mv Makefile ../Makefile.x 2>/dev/null #might fail +cp -p Makefile.dist Makefile +test "$verbose" && echo " Running tar..." 1>&2 +(cd ..; tar cf x.tar `sed s+^.+hdf5-$VERS+ hdf5/MANIFEST` || exit 1) + +# Compress +for comp in $methods; do + case $comp in + tar) + cp -p ../x.tar $DEST/hdf5-$VERS.tar;; + compress) + test "$verbose" && echo " Running compress..." 1>&2 + compress -c <../x.tar >$DEST/hdf5-$VERS.tar.Z;; + gzip) + test "$verbose" && echo " Running gzip..." 1>&2 + gzip -9 <../x.tar >$DEST/hdf5-$VERS.tar.gz;; + bzip2) + test "$verbose" && echo " Running bzip2..." 1>&2 + bzip2 -9 <../x.tar >$DEST/hdf5-$VERS.tar.gz;; + esac +done + +# Remove temporary things +test -f ../Makefile.x && mv ../Makefile.x Makefile +rm -f ../hdf5-$VERS +rm -f ../x.tar +exit 0 -- cgit v0.12