irachel

# Copyright 2021, 2022, 2024 Oğuz İsmail Uysal <oguzismailuysal@gmail.com>
#
# 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
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.

retry() {
	rachel "$@"
	case $? in
	0) echo 'more? [y]es, [n]o (default: no)' >&2
		read reply
		case $reply in
		[yY]*)
			shift 2
			skip=`expr $skip + 1`
			retry -s $skip $*
		esac
		exit 0 ;;
	1) ;;
	*) exit
	esac
}

skip=0

set -- -s 0 -- "$@"

while true; do
	retry "$@"

	args=`echo $* | sed 's/ [^ ]*$//'`
	target=`echo $* | sed 's/.* //'`
	low=`expr $target - 1` high=`expr $target + 1`

	while true; do
		echo "try again? [+] $high, [-] $low, [new target], [n]o" >&2
		read reply
		case $reply in
		+) target=$high; high=`expr $high + 1` ;;
		-) target=$low; low=`expr $low - 1` ;;
		n) exit 1 ;;
		*) set -- $args "$reply"
			break
		esac

		retry $args $target
	done
done

# vim: ft=sh