From 9a0b88bf7777c153dc46ace22db74ef24d51583a Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Tue, 29 Apr 2008 12:55:25 +0000
Subject: update release date to actual date

git-svn-id: svn+q:///qpdf/trunk@599 71b93d88-0707-0410-a8cf-f5a4172ac649
---
 make_dist | 165 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 165 insertions(+)
 create mode 100755 make_dist

(limited to 'make_dist')

diff --git a/make_dist b/make_dist
new file mode 100755
index 00000000..5ea2c646
--- /dev/null
+++ b/make_dist
@@ -0,0 +1,165 @@
+#!/usr/bin/env perl
+#
+# This program creates a source distribution of qpdf.  For details,
+# see README.maintainer.
+#
+
+require 5.008;
+BEGIN { $^W = 1; }
+use strict;
+use Cwd;
+use IO::File;
+
+my $whoami = ($0 =~ m,([^/\\]*)$,) ? $1 : $0;
+#my $dirname = ($0 =~ m,(.*)[/\\][^/\\]+$,) ? $1 : ".";
+
+usage() unless @ARGV >= 1;
+my $srcdir = shift(@ARGV);
+my $run_tests = 1;
+if (@ARGV)
+{
+    if ($ARGV[0] eq '--no-tests')
+    {
+	$run_tests = 0;
+    }
+    else
+    {
+	usage();
+    }
+}
+$srcdir =~ s,/$,,;
+usage() unless $srcdir =~ m/^qpdf-(\d+\.\d+(?:\.(a|b|rc)\d+)?)$/;
+my $version = $1;
+usage() unless -d $srcdir;
+
+my $pwd = getcwd();
+cd($srcdir);
+
+# Check versions
+my $fh = safe_open("configure.ac");
+my $config_version = 'unknown';
+while (<$fh>)
+{
+    if (m/^AC_INIT\(qpdf,([^\)]+)\)/)
+    {
+	$config_version = $1;
+	last;
+    }
+}
+$fh->close();
+
+$fh = safe_open("qpdf/qpdf.cc");
+my $code_version = 'unknown';
+while (<$fh>)
+{
+    if (m/whoami << \" version ([^\"]+)\"/)
+    {
+	$code_version = $1;
+	last;
+    }
+}
+$fh->close();
+
+$fh = safe_open("manual/qpdf-manual.xml");
+my $doc_version = 'unknown';
+while (<$fh>)
+{
+    if (m/swversion "([^\"]+)\"/)
+    {
+	$doc_version = $1;
+	last;
+    }
+}
+$fh->close();
+
+$fh = safe_open("qpdf.spec");
+my $spec_version = 'unknown';
+while (<$fh>)
+{
+    if (m/Version: (.*)$/)
+    {
+	$spec_version = $1;
+	last;
+    }
+}
+
+my $version_error = 0;
+if ($version ne $config_version)
+{
+    print "$whoami: configure.ac version = $config_version\n";
+    $version_error = 1;
+}
+if ($version ne $code_version)
+{
+    print "$whoami: qpdf.cc version = $code_version\n";
+    $version_error = 1;
+}
+if ($version ne $doc_version)
+{
+    print "$whoami: qpdf-manual.xml version = $doc_version\n";
+    $version_error = 1;
+}
+if ($version ne $spec_version)
+{
+    print "$whoami: qpdf.spec version = $spec_version\n";
+    $version_error = 1;
+}
+if ($version_error)
+{
+    die "$whoami: version numbers are not consistent\n";
+}
+
+run("autoconf");
+run("./configure --enable-doc-maintenance");
+run("make build_manual");
+run("make distclean");
+cd($pwd);
+run("tar czvf $srcdir.tar.gz-candidate $srcdir");
+if ($run_tests)
+{
+    cd($srcdir);
+    run("./configure");
+    run("make check");
+    cd($pwd);
+}
+rename "$srcdir.tar.gz-candidate", "$srcdir.tar.gz" or die;
+
+print "
+Source distribution created as $srcdir.tar.gz
+You can now remove $srcdir.
+If this is a release, don't forget to tag the version control system and
+make a backup of the release tar file.
+
+";
+
+sub safe_open
+{
+    my $file = shift;
+    my $fh = new IO::File("<$file") or die "$whoami: can't open $file: $!";
+    $fh;
+}
+
+sub run
+{
+    my $cmd = shift;
+    system($cmd) == 0 or die "$whoami: $cmd failed\n";
+}
+
+sub cd
+{
+    my $dir = shift;
+    chdir($dir) or die;
+}
+
+sub usage
+{
+    die "
+Usage: $whoami qpdf-version [ --no-tests ]
+
+qpdf-version must be a directory containing a pristine export of that
+version of qpdf from the version control system.  Use of --no-tests
+can be used for internally testing releases, but do not use it for a
+real release.
+
+";
+}
-- 
cgit v1.2.3-54-g00ecf