Fixed building of Debian-native packages without any 'orig-*' archive.
[macros.git] / AutoGen.pm
index 8519a75..09e2744 100644 (file)
@@ -1,8 +1,8 @@
 #! /usr/bin/perl
 # 
 # $Id$
-# Module to generate all the initial makefiles etc.
-# Copyright (C) 2002 Jan Kratochvil <project-macros@jankratochvil.net>
+# autoautotools aware of CVS and rpm/deb.
+# Copyright (C) 2002-2003 Jan Kratochvil <project-macros@jankratochvil.net>
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -43,6 +43,9 @@ HERE
                }
        die "You are missing some modules - install them by:\n"
                                        ."\tperl -MCPAN -e 'install qw(".join(" ",@missing).")'\n"
+                                       ."If you see messages: Writing Makefile for <packagename> -- NOT OK\n"
+                                       ."you may did not have installed make(1) while configuring Perl CPAN.\n"
+                                       ."Install make(1) and type 'o conf init' in: perl -MCPAN -e shell\n"
                        if @missing;
        }
 
@@ -56,9 +59,12 @@ Beware: '.basename($0).' is a tool only for maintainers!
 Supported parameters:
  --rpm       Build RPM packages locally (needs /usr/src/(redhat|packages)/ access)
  --rpmtest   Build RPM like "rpm" but w/o gpg/pgp signing
+ --deb       Build DEB packages locally
+ --debtest   Build DEB like "deb" but w/o gpg/pgp signing
+ --dist      Prepare all build files but do not run the final "./configure"
+ --copy      Behave exactly like in default mode but copy all instead of symlinks
  --clean     Standard cleanup method
  --fullclean Like clean but even the .cvsignore files are removed
- --copy      Behave exactly like in default mode but copy all instead of symlinks
  -h|--help   Print this help message.
 '.($Options{"help"} || "");
 }
@@ -225,21 +231,28 @@ my($class,%args)=@_;
                        @origs=glob $glob;
                        confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
                        }
-               my($base,$ext)=($origs[0]=~/^orig-(.*)[.]tar[.](gz|Z|bz2)$/);
+               my($origbase,$ext)=($origs[0]=~/^orig-(.*)[.]tar[.](gz|Z|bz2)$/);
                _copy $origs[0],_rpmeval("_sourcedir")."/".($origs[0]=~/^orig-(.*)$/)[0];
                _system "tar x".($ext eq "bz2" ? "j" : "z")."f ".$origs[0];
-               _mkdir $base."-orig";
+               _mkdir $origbase."-orig";
                # FIXME: Copy also dot-prefixed files!
-               _move \1,$base."/*",$base."-orig/";
-               _system "tar xzf $name-*.tar.gz";
+               _move \1,$origbase."/*",$origbase."-orig/";
+               rmdir $origbase or confess "rmdir $origbase: $!";
+               my @ours;
+               for my $glob ("$name-*.tar.gz") {
+                       @ours=glob $glob;
+                       confess "Invalid glob $glob: ".join(",",@ours) if 1!=@ours;
+                       }
+               my($ourbase)=($ours[0]=~/^(.*)[.]tar[.]gz$/);
+               _system "tar xzf ".$ours[0];
                # Use single-argument system() as we need shell redirection.
                # FIXME: Use directory-independent _cleanfiles(), not root-directory '.cvsignore'.
                #        "-X -" does not work, it needs to be stat(2)able file.
                _system "diff -ruP -X .cvsignore -I '".'[$]\(Id\|RCSfile\)\>.*[$]'."'"
-                               ." $base-orig/ $base/"
+                               ." $origbase-orig/ $ourbase/"
                                ." >"._rpmeval("_sourcedir")."/".$patch,
                                sub { $_[0]==0 || $_[0]==1; };  # diff(1) returns non-zero return code on any diffs.
-               _remove \1,$base,$base."-orig";
+               _remove \1,$ourbase,$origbase."-orig";
                }
        _system(join(" ","rpmbuild",
                        "-ba",
@@ -267,11 +280,14 @@ my($class,%args)=@_;
        _system "make distdir";
        # Copy 'orig' archive after &_prepdist which would delete it.
        my @origs;
-       for my $glob ("orig-$name-*.tar.{gz,Z}") {
+       my $base;
+       for my $glob ("orig-$name-*.tar.{gz,Z,bz2}") {
                @origs=glob $glob;
                if (@origs) {
                        confess "Invalid glob $glob: ".join(",",@origs) if 1!=@origs;
-                       (my $deborig=$origs[0])=~s/^orig-([^-]+)-(.*)([.]tar[.][^.]+)$/$1_$2.orig$3/;
+                       $origs[0]=~/^orig-([^-]+)-(.*)([.]tar[.][^.]+)$/;
+                       my $deborig="$1_$2.orig$3";
+                       $base="$1-$2";
                        _copy $origs[0],$deborig;
                        }
                }
@@ -280,11 +296,13 @@ my($class,%args)=@_;
                @subdirs=glob $glob;
                confess "Invalid glob $glob: ".join(",",@subdirs) if 1!=@subdirs;
                }
-       _system(join(" ","cd ".$subdirs[0].";dpkg-buildpackage",
+       $base||=$subdirs[0];
+       rename $subdirs[0],$base or confess "$!";
+       _system(join(" ","cd ".$base.";dpkg-buildpackage",
                        "-rfakeroot",
                        ($args{"sign"} ? () : ("-us","-uc")),
                        ));
-       _remove \1,$subdirs[0];
+       _remove \1,$base;
        _system "ls -l ${name}*_[0-9]*";
        exit 0; # should never return
 }
@@ -341,6 +359,7 @@ sub _cleanfiles
                                                ./debian/tmp ./debian/<name>
                                                ./<name>*_[0-9]*
                                                ./macros/macros.dep
+                                               ./macros/glade-w.sh
                                                ./po/Makefile.in.in ./po/POTFILES* ./po/cat-id-tbl.c ./po/cat-id-tbl.tmp
                                                ./po/*.gmo ./po/*.mo ./po/stamp-cat-id ./po/<name>.pot ./po/ChangeLog
                                                ./po/Makevars ./po/Makevars.template ./po/Rules-quot ./po/*.sed ./po/*.sin ./po/*.header
@@ -475,8 +494,8 @@ my($class,%options)=@_;
                          "cleanfilesfordir=s",sub { print "$_\n" for (_cleanfilesfordir $_[1]); exit 0; },
                          "dist"     ,\$Options{"ARGV_dist"},
                          "copy!"    ,\$Options{"ARGV_copy"},
-                         "fullclean",\$Options{"ARGV_fullclean"},
                          "clean"    ,\$Options{"ARGV_clean"},
+                         "fullclean",\$Options{"ARGV_fullclean"},
                        "h|help"     ,sub { print _help(); exit 0; },
                        $Options{"GetOptions_args"},
                        ) || @ARGV;
@@ -585,6 +604,7 @@ my($class,%options)=@_;
      cat $tmp/out
      rm -f $tmp/out
 CONFIGURE_SUBST_X_EOF
+       _remove "nocheck","./configure.orig";   # It is usually produced by 'CONFIGURE_SUBST_X'.
        # Why it is left there after RedHat autoconf-2.53-8 ?
        _remove "nocheck",\1,"autom4te-*.cache";
 
@@ -603,9 +623,283 @@ CONFIGURE_SUBST_X_EOF
 1;
 __END__
 
-Tested with:
-       RedHat autoconf-2.53-8
-       RedHat automake-1.6.3-1
-       RedHat gettext-0.11.4-3
-       RedHat libtool-1.4.2-12
-       RedHat perl-5.8.0-48
+=head1 NAME
+
+AutoGen - autoautotools aware of CVS and rpm/deb
+
+
+=head1 SYNOPSIS
+
+ use lib "./macros/";
+ use AutoGen;
+ AutoGen->run(
+               "name"=>"fooproject",
+               "COPYRIGHT_HOLDER"=>'Joe <joe@com>',
+               "ARGV"=>\@ARGV,
+               );
+
+
+=head1 ABSTRACT
+
+Projects usually have their B<autogen.sh> script files to run B<autoconf>(1),
+B<automake>(1) and similiar tools. This project has some additional features:
+
+=over
+
+=item
+
+Clean the checkout directory without B<Makefile>s for 'make clean'.
+
+=item
+
+Maintain B<.cvsignore> files containing the files being cleaned.
+
+=item
+
+Single-command package building of B<.rpm>/B<.deb> out of CVS checkout.
+
+=item
+
+Supports: B<gettext>, B<glib-gettext>, B<libtool>, B<autoconf>, B<automake>.
+
+=back
+
+
+=head1 OPTIONS
+
+B<AutoGen> module itself parses its command-line arguments from B<"ARGV"> field
+of the hash passed to B<&AutoGen->run>. Its initial double-dash ('B<-->')
+prefixes can be omitted.
+
+B<AutoGen> will build the sources for development purposes in the current
+directory if no other packaging options were given.
+
+=over
+
+=item B<--rpm>
+
+Build B<.rpm> packages. Either you need access to directory B</usr/src/redhat/>
+(or B</usr/src/packages/> etc.) or you should set B<%_usrsrc> (default
+B</usr/src/>) elsewhere in your B<$HOME/.rpmmacros>:
+       %_usrsrc /home/joe/src
+
+As the resulting package will be digitally signed you should also set signing
+properties in your B<$HOME/.rpmmacros>:
+       %_signature gpg
+       %_gpg_name  Joe <joe@com>
+
+=item B<--rpmtest>
+
+The same as B<--rpm> but the resulting package will not be I<GnuPG> digitally
+signed. I<GnuPG> passphrase is requested in the middle of package building
+which would be very discomfortable during project development.
+
+=item B<--deb>
+
+Build B<.deb> packages.
+
+=item B<--debtest>
+
+The same as B<--deb> but the resulting package will not be I<GnuPG> digitally
+signed. I<GnuPG> passphrase is requested in the middle of package building
+which would be very discomfortable during project development.
+
+=item B<--dist>
+
+Prepare all build files but do not run the final B<./configure>. The resulting
+directory is similiar to the one produced by B<make dist> but DO NOT
+INTERCHANGE THEM!
+
+=item B<--copy>
+
+Some distribution files are created just as symlinks to the system ones by
+default. This option forces their copy such as B<make dist> does.
+
+=item B<--clean>
+
+Clean all files not belonging to the CVS repository. You SHOULD backup your
+directory first during B<AutoGen> bootstrap. Only B<.cvsignore> files are
+left in our directory tree.
+
+=item B<--fullclean>
+
+Similiar to B<--clean> option but even B<.cvsignore> files get deleted.
+
+=item B<-h|--help>
+
+Print short help message describing these I<OPTIONS>.
+
+=back
+
+
+=head1 CONFIGURATION
+
+B<&AutoGen->run> method is passed configuration hash by your B<autogen.pl>.
+Its possible fields:
+
+=over
+
+=item B<name>
+
+Project basename - it should contain no special characters.
+
+
+=item B<ARGV>
+
+Pass here B<\@ARGV> from the user.
+
+
+=item B<clean>
+
+Array specifying files to be cleaned during B<./autogen.pl clean> and put into
+B<.cvsignore> files. You still should add these entries also to B<CLEANFILES>,
+B<DISTCLEANFILES> or B<MAINTAINERCLEANFILES> variables of B<Makefile.am>s.
+
+There are several formats of B<clean> field possible entries:
+
+=over
+
+=item B<./path/to/file.c>
+
+Full project-basedir relative path to the deleted file. Rule applies only to
+the one specified directory. Although B<path/to/file.c> would be also possible
+it is not recommended to have unified format with B<./only_basedir.c> entries
+to delete file just in the root directory (as B<only_basedir.c> would delete
+it in ALL subdirectories incl. the root one).
+
+=item B<basename.c>
+
+Delete B<basename_generated.c> found in any subdirectory of the project.
+It has the same effect as B<./*/basename_generated.c> entry.
+
+=item B<./subdir/*/name.c>
+
+Delete B<name.c> in B<./subdir> and all of its subdirector descendants.
+Entry B<subdir/*/name.c> would have the same effect.
+
+=back
+
+
+=item B<prep>
+
+B<CODE> reference run to prepare the sources being built in the current
+directory (if no packaging options given). Check for needed B<autotools>
+versions required to build B<configure> script by
+B<AutoGen->checkcommandversion>. Other version checks belong to B<configure.ac>
+instead.
+
+Referenced B<CODE> must return true value.
+
+
+=item B<ChangeLog>
+
+Alternative name of B<ChangeLog>, defaults to "B<ChangeLog>". You should define
+alternative name if patching existing package with its own B<ChangeLog>.
+
+
+=item B<gtk-doc-dir>
+
+Optional directory name where B<gtkdocize>(1) generated files reside.
+
+
+=back
+
+
+=head1 FUNCTIONS
+
+=over
+
+=item B<AutoGen->checkcommandversion>(B<$command>,B<$minimal_version>)
+
+Functions runs B<$command --version> and checks the resulting version number
+against given B<$minimal_version>. Currently only the first 2 version numbers
+are parsed.
+
+
+=back
+
+
+=head1 PATCHED PACKAGES
+
+This section applies to projects where you patch foreign existing packages.
+
+=over
+
+=item
+
+Use the following alternate B<autogen.pl> prolog if your branch does not belong
+to the B<MAIN> CVS branch:
+ BEGIN {
+       # 'macros' could got checked out empty by our '-r captive' tag.
+       if (!-f "./macros/AutoGen.pm") {
+               do { system $_ and die "$_: $!"; } for ("cvs co -A macros");
+               }
+       }
+ use lib "./macros/";
+ use AutoGen;
+
+=item
+
+Put B<fooproject-1.2.3.tar.gz> archive to the project root directory
+as B<orig-fooproject-1.2.3.tar.gz>.
+
+=item
+
+Set B<$VERSION> in B<configure.ac> file with you vendor prefix such as
+B<1.2.3joe1>. Set B<$VERSION_BASE> to B<1.2.3> and B<$VERSION_EXT> to B<joe1>.
+B<AC_SUBST>() them both.
+
+=item B<.spec> file changes
+
+=over
+
+=item
+
+Change B<Version: @VERSION@> to B<Version: @VERSION_BASE@>.
+
+=item
+
+Change (expected) line B<Release: 1> to B<Release: 1@VERSION_EXT@>.
+
+=item
+
+Change B<Source: ...@VERSION@.tar.gz> to B<Source: ...@VERSION_BASE@.tar.gz>.
+
+=item
+
+Add line B<Patch1: @PACKAGE@-@VERSION_BASE@-@VERSION_EXT@.patch>.
+This patch file name is not mandatory.
+
+=item
+
+Remember to call B<autotools> commands manually in the B<%build>
+section if their source files were modified in your vendor branch.
+
+=back
+
+=item B<debian>-specific changes
+
+=over
+
+=item
+
+Include both B<debian/changelog.in> and B<debian/changelog> to B<Makefile.am>.
+
+=item
+
+Include B<debian/changelog> to B<clean> field in B<autogen.pl>.
+
+=item
+
+Use B<@VERSION@> in B<debian/changelog.in>. Package will be built as
+Debian-native package (no I<.diff> file) as the patches are not just for Debian
+packages, it is a new package (read: dpkg does not support branch patches).
+
+=back
+
+=back
+
+=head1 AUTHOR
+
+Jan Kratochvil <B<project-macros@jankratochvil.net>>,
+               I<http://www.jankratochvil.net/>