#!/bin/sh
#-
# Copyright (c) 2014 The FreeBSD Foundation
# All rights reserved.
#
# This software were developed by Glen Barber
# under sponsorship from the FreeBSD Foundation.
#
# 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.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
#
# $FreeBSD: stable/11/release/scripts/relnotes-search.sh 275613 2014-12-08 15:45:07Z gjb $
#

set -C

setglobal PATH = '"/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin'"
export PATH

proc usage {
	echo "Usage:"
	echo -n "$[basename $(0)] [-rNNNNNN]"
	echo " [-l /path/for/output] /path/to/branch"
	echo " -r: The oldest commit to include in the search"
	echo ""
	exit 1
}

proc main {
	while getopts "l:r:" arg {
		match $(arg) {
			with l
				# Disallow '-rNNNNNN' argument for oldest
				# revision # from becoming the log file
				# accidentally.
				setglobal where = $(OPTARG##-r*)
				test -z $(where) && usage
				if test -e $(where) {
					echo "Log file already exists:"
					echo "  ($(where))"
					return 2
				}
				
			with r
				setglobal rev = $(OPTARG##-r)
				setglobal c = $[echo -n $(rev) | tr -d '0-9' | wc -c]
				if test $(c) -ne 0 {
					echo "Revision number must be numeric."
					return 2
				}
				# Since the last specified revision is
				# specified, mangle the variable to
				# make svn syntax happy.
				setglobal rev = ""-r$(rev):rHEAD""
				
			with *
				usage
				
		}
	}
	shift $shExpr(' ${OPTIND} - 1 ')

	# This assumes a local working copy, which svn search
	# allows exactly one repository path (although the root
	# can still be the path).
	test "$Argc" -ne 1 && usage

	# If no log file, write to stdout.
	test -z $(where) && setglobal where = '/dev/stdout'

	setglobal svn = ''
	# Where is svn?
	for s in [/usr/bin /usr/local/bin] {
		if test -x $(s)/svn {
			setglobal svn = "$(s)/svn"
			break
		}
		if test -x $(s)/svnlite {
			setglobal svn = "$(s)/svnlite"
			break
		}
	}
	# Did we find svn?
	if test -z $(svn) {
		echo "svn(1) binary not found."
		return 2
	}
	# Is more than one path specified?  (This should never
	# be triggered, because the argument count is checked
	# above, but better safe than sorry.)
	if test $Argc -gt 1 {
		echo "Cannot specify more than one working path."
		return 2
	}
	# Does the directory exist?
	if test ! -d $(1) {
		echo "Specified path ($(1)) is not a directory."
		return 2
	}
	# Is it a subversion repository checkout?
	$(svn) info $(1) >/dev/null !2 > !1
	if test "$Status" -ne 0 {
		echo "Cannot determine svn repository information for $(1)"
		return 2
	}

	# All tests passed.  Let's see what can possibly go wrong
	# from here.  The search string specified should match this
	# in PCRE speak: ':[\t ]*'
	$(svn) log $(rev) --search 'Relnotes:*[A-Za-z0-9]*' $(1) > $(where)
	return $?
}

main $(@)
exit $?