new-func revision 70e5a7403f0e0a3bd292b8287c5fed5772c15270
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff#!/usr/bin/perl
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff#
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# Copyright (C) 2005, 2007 Internet Systems Consortium, Inc. ("ISC")
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff#
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# Permission to use, copy, modify, and/or distribute this software for any
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# purpose with or without fee is hereby granted, provided that the above
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# copyright notice and this permission notice appear in all copies.
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff#
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac# PERFORMANCE OF THIS SOFTWARE.
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac# $Id: new-func,v 1.4 2007/06/19 23:47:24 tbox Exp $
3437829f938dbb44527d91fbbc5f430a1243c5a5JnRouvignac
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# Given two CHANGES files, list [bug] entries present in the
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# first one but not in the second one.
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff#
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffuse FileHandle;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
4e484729ee513a955ba0d28dc846c551e358d034JnRouvignac# $/ = "";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# Read the CHANGES file $fn and return a hash of change
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff# texts and categories indexed by change number.
4e484729ee513a955ba0d28dc846c551e358d034JnRouvignac
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffsub readfile {
b3cff78c48ecc67651caae8a38a93f11f2c4af1ematthew my ($fn) = @_;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my $fh = new FileHandle($fn, "r")
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff or die "open: $fn: $!";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my $changes = { };
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my ($changeid, $category);
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $changeid = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $category = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff while (<$fh>) {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff if (m/^\s*(\d+)\.\s+\[(\w+)\]/) {
4e484729ee513a955ba0d28dc846c551e358d034JnRouvignac $changeid = $1;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $category = $2;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff # print "*** $1 $2\n";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff } elsif (m/---.* released ---/) {
1fb3b71900dd86f429e9d79a8d8b3e6391af76e0JnRouvignac $changeid = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $category = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff next;
1fb3b71900dd86f429e9d79a8d8b3e6391af76e0JnRouvignac } elsif (m/^# /) {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $changeid = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $category = "none";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff next;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff }
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff if ($changeid eq "none") {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff next;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff }
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $changeid =~ s/\.$//;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $changes->{$changeid}->{text} .= $_;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $changes->{$changeid}->{category} = $category;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff }
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff return $changes;
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff}
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff@ARGV == 2 || @ARGV == 3 or die "usage: $0 changes-file-1 changes-file-2\n";
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffmy $c1 = readfile($ARGV[0]);
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffmy $c2 = readfile($ARGV[1]);
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffif (@ARGV == 3) {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff $c3 = readfile($ARGV[2]);
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff} else {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my $c3 = { };
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff}
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduffforeach my $c (sort {$a <=> $b} keys %$c1) {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my $category = $c1->{$c}->{category};
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff my $text = $c1->{$c}->{text};
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff if ($category eq "func" && !exists($c2->{$c}) && !exists($c3->{$c})) {
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff print $c1->{$c}->{text};
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff }
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff}
d25372dc8e65a9ed019a88fdf659ca61313f1b31jcduff