#!/bin/sh -
# $Id$
# 
# Copyright (C) 2009-2011  Internet Systems Consortium ("ISC")
# 
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
# 
# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
# AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
#
# This script grovels the log from a Subversion repository, looking
# for deletion events, to make it easier to figure out what revision
# number to specify when pulling deleted content from the repository.
#
# The contortions to insert XSL commands into the XML stream produced
# by Subversion are a bit odd, but avoid the need for temporary files.
# We use awk and xsltproc because they're fast.

svn log --xml --verbose ${1+"$@"} |
awk '
  {
    print;
  }
  NR == 1 {
    print "<!DOCTYPE log [";
    print "  <!ATTLIST xsl:stylesheet id ID #REQUIRED>";
    print "]>";
    print "<?xml-stylesheet type=\"text/xml\" href=\"#xslt\"?>";
  }
  NR == 2 {
    print "<xsl:stylesheet id=\"xslt\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" version=\"1.0\">";
    print "  <xsl:output method=\"text\" encoding=\"US-ASCII\"/>";
    print "  <xsl:variable name=\"D\">D</xsl:variable>";
    print "  <xsl:template match=\"/\">";
    print "    <xsl:for-each select=\"/log/logentry\">";
    print "      <xsl:variable name=\"rev\" select=\"@revision\"/>";
    print "      <xsl:variable name=\"date\" select=\"date\"/>";
    print "      <xsl:for-each select=\"paths/path[@action = $D]\">";
    print "        <xsl:value-of select=\"$date\"/>";
    print "        <xsl:text> </xsl:text>";
    print "        <xsl:value-of select=\"$rev\"/>";
    print "        <xsl:text> </xsl:text>";
    print "        <xsl:value-of select=\".\"/>";
    print "        <xsl:text>&#10;</xsl:text>";
    print "      </xsl:for-each>";
    print "    </xsl:for-each>";
    print "  </xsl:template>";
    print "</xsl:stylesheet>";
  }
' |
xsltproc - |
sort -k 2 |
awk '{ printf "%6d  %s  %s\n", $2, $1, $3 }'