#!/usr/pkg/bin/perl -w
#
# $NetBSD$
#
# Copyright (c) 2003, The NetBSD Foundation, Inc.
#
# This code was originally contributed to the NetBSD Foundation, Inc.
# by Julio Merino <jmmv@NetBSD.org>.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in
#    the documentation and/or other materials provided with the
#    distribution.
# 3. Neither the name of author nor the names of its contributors may
#    be used to endorse or promote products derived from this software
#    without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND
# CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
# INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER
# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#

use POSIX qw(strftime);

$PKGSRCDIR = $ENV{PKGSRCDIR};
if (! $PKGSRCDIR) {
    $PKGSRCDIR = "/usr/pkgsrc";
}

$USER = $ENV{USER};

sub usage {
    print STDERR "usage: revbump [-p pkgsrcdir] [-u user] [cat1/pkg1 ... catN/pkgN]\n\n";
    print STDERR "If no packages are given as arguments, the list is read from stdin.\n";
    print STDERR "Packages for which revision cannot be bumped are written to stdout.\n";
    print STDERR "$PKGSRCDIR/doc/CHANGES.revbump is created with a list of all bumps.\n";
    print STDERR "$PKGSRCDIR/doc/CHANGES.log is created with a template commit log.\n";
    exit 0;
}

sub revbump {
    my $pkgdir = shift;
    my ($pkg, $pkgver, $error, $done, $rev, $oldmk, $newmk);
    local (*OLDMK, *MAKE);

    $pkgdir =~ /\/(.*)$/;
    $pkg = $1;

    $oldmk = "$PKGSRCDIR/$pkgdir/Makefile";
    open(OLDMK, $oldmk);
    $error = 0;
    while (<OLDMK>) {
        last if (/^PKGREVISION/);
        if (/^\.include.*Makefile\..*/) {
            $error = 1;
            last;
        }
    }
    if ($error == 1) {
        close(OLDMK);
        newchanges($pkg, "FIXME");
        return 0;
    }

    seek(OLDMK, 0, 0);
    $newmk = "$oldmk.new";
    open(NEWMK, ">$newmk");

    $done = 0;
    while (<OLDMK>) {
        if ($done == 0 && /^PKGREVISION=([ \t]+)([0-9]+)$/) {
            $done = $2 + 1;
            print NEWMK "PKGREVISION=${1}${done}\n";
        } elsif ($done == 0 && /^WRKSRC=([ \t]+)/) {
            print NEWMK "PKGREVISION=\t${1}1\n";
            print NEWMK $_;
            $done = 1;
        } elsif ($done == 0 && /^CATEGORIES=([ \t]+)/) {
            print NEWMK "PKGREVISION=${1}1\n";
            print NEWMK $_;
            $done = 1;
        } else {
            print NEWMK $_;
        }
    }

    if ($done == 0) {
        close(NEWMK);
        close(OLDMK);
        unlink "$newmk";
        return 0;
    }

    close(NEWMK);
    close(OLDMK);
    unlink "$oldmk";
    rename("$newmk", "$oldmk");

    open(MAKE, '-|', "cd $PKGSRCDIR/$pkgdir ; make show-var VARNAME=PKGVERSION");
    $pkgver = <MAKE>;
    chop $pkgver;
    close(MAKE);
    newchanges($pkg, $pkgver);

    return 1;
}

sub newchanges {
    my ($pkg, $pkgver) = @_;
    my $fdate;
    local *CHANGES;

    open(CHANGES, ">>$PKGSRCDIR/doc/CHANGES.revbump");
    $fdate = strftime "%F", gmtime;
    print CHANGES "\tUpdated $pkg to $pkgver [$USER $fdate]\n";
    close(CHANGES);
}

sub writelog {
    my ($len, $pkg);
    local *LOG;

    open(LOG, ">>$PKGSRCDIR/doc/CHANGES.log");
    print LOG "Note revision bumps for the following packages:\n";

    $len = 4;
    print LOG "    ";
    while (@_) {
        $pkg = shift;

        $len += length($pkg) + 2;
        if ($len > 79) {
            print LOG "\n    ";
            $len = 4 + length($pkg) + 2;
        }
        print LOG "$pkg";
        if (scalar @_ > 0) {
            print LOG ", ";
        } else {
            print LOG "\n";
        }
    }

    print LOG "Reason: ...\n";
    close(LOG);
}

@PACKAGES = ();

while (@ARGV) {
    $arg = shift;
    if ($arg eq '-h') {
        usage();
    } elsif ($arg eq '-p') {
        $PKGSRCDIR = shift;
    } elsif ($arg eq '-u') {
        $USER = shift;
    } else {
        push @PACKAGES, $arg;
    }
}

if (! -d $PKGSRCDIR || ! -d "$PKGSRCDIR/doc" || ! -d "$PKGSRCDIR/mk") {
    print STDERR "Invalid pkgsrc directory $PKGSRCDIR\n";
    exit 1;
}

if (! @PACKAGES) {
    while (<STDIN>) {
        chop;
        push @PACKAGES, $_;
    }
}

@valid = ();
foreach $pkg (@PACKAGES) {
    if (! -f "$PKGSRCDIR/$pkg/Makefile") {
        print "$pkg\n";
    } else {
        print "$pkg\n" if revbump("$pkg") == 0;
        $pkg =~ /\/(.*)$/;
        push @valid, $1;
    }
}
writelog(@valid);

exit 0;