#!/bin/bash

isnum() {
    grep -xq '[0-9]\+' <<<"$1"
}

findfile() {
    local file tail eq eqt m
    for file in "$1"*; do
	tail="${file#$1}"
	eq="${tail%.*}"
	m=n
	if [ "${eq%% *}" -eq "$2" ] 2>/dev/null; then
	    if [[ "$eq" == *\ * ]]; then
		eqt="${eq#* }"
	    else
		eqt=
	    fi
	    m=y
	elif [ "${eq:0:${#2}}" = "$2" ]; then
	    eqt="${eq:${#2}}"
	    if [ "${eqt:0:1}" = " " -o -z "$eqt" ]; then
		eqt="${eqt# }"
		m=y
	    fi
	fi
	if [ "$m" = y ]; then
	    if [ "$eqt" = "$3" -o "$eqt" = "($3)" ]; then
		echo "$file"
		return 0
	    fi
	fi
    done
    return 1
}

origargs=("$0" "$@")
cmdline=(mplayer -fs -ass)

while [ "${1:0:1}" = - ]; do
    a="$1"
    shift
    case "$a" in
	-h)
	    echo "usage: planime [-ht] [-s PAR VAL] [NAME-QUAL] [EP|.] [TYPE-QUAL]" >&2
	    exit 0
	    ;;
	-t)
	    cmdline=("${cmdline[@]}" -ao oss:/dev/dsp1)
	    ;;
	-A)
	    while :; do
		a="$1"
		shift
		if [ "$a" = \; ]; then
		    break;
		fi
		cmdline=("${cmdline[@]}" "$a")
	    done
	    ;;
	-s)
	    savepar="$1"
	    shift
	    saveval="$1"
	    shift
	    ;;
    esac
done

base="$(basename "$(pwd)")"
nextep=n
file=
tqual=
if [ $# -eq 0 ]; then
    nextep=y
    if [ -r curser ]; then
	base="$base $(<curser)"
    fi
elif [ $# -eq 1 ]; then
    if [ -r "$1" ]; then
	file="$1"
    else
	if findfile "$base - " "$1" >/dev/null; then
	    ep="$1"
	else
	    nextep=y
	    base="$base $1"
	fi
    fi
elif [ $# -eq 2 ]; then
    if findfile "$base - " "$1" "$2" >/dev/null; then
	ep="$1"
	tqual="$2"
    else
	if [ "$1" = . -a -r curser ]; then
	    base="$base $(<curser)"
	else
	    base="$base $1"
	fi
	ep="$2"
    fi
else
    if [ "$1" = . -a -r curser ]; then
	base="$base $(<curser)"
    else
	base="$base $1"
    fi
    ep="$2"
    tqual="$3"
fi
if [ "$ep" = . ]; then nextep=y; fi
if [ "$nextep" = y -a -r nextep ]; then
    ep="$(<nextep)"
    if ! isnum "$ep"; then
	echo "planime: nextep is non-numeric" >&2
	exit 1
    fi
fi
if [ -z "$file" ]; then
    file="$(findfile "$base - " "$ep" "$tqual")"
fi

if [ -z "$file" -o ! -r "$file" ]; then
    echo "planime: no matching file found" >&2
    exit 1
fi

case "${file##*.}" in
    ogm)
	defopts=(-aid 1 -sid 0)
	;;
    mkv)
	defopts=(-slang eng -alang jpn)
	;;
esac

ifile=".${file}.info"

if [ -n "$savepar" ]; then
    if [ -r "$ifile" ]; then
	egrep -v "^${savepar} " "$ifile" >"$ifile.new"
	mv -f "$ifile.new" "$ifile"
    fi
    echo "$savepar $saveval" >>"$ifile"
    exit 0
fi

unset delay

if [ -r "$ifile" ]; then
    exec 3<&0
    exec 0<"$ifile"
    while read par arg; do
	if [ "$par" = delay ]; then
	    cmdline=("${cmdline[@]}" -delay "$arg")
	elif [ "$par" = aspect ]; then
	    cmdline=("${cmdline[@]}" -aspect "$arg")
	fi
    done
    exec 0<&3
    exec 3<&-
else
    cmdline=("${cmdline[@]}" "${defopts[@]}")
fi

if [ "`hostname`" = pc6 ]; then chwp=y; fi

if [ "$chwp" = y ]; then (sleep 2; randomwp) & fi
"${cmdline[@]}" "$file"

if [ "$nextep" = y ]; then
    echo "0. Save and continue (or Space)"
    echo "1. Continue without saving"
    echo "2. Save and exit (or Enter)"
    echo "3. Exit without saving (or any key)"
    IFS= read -sn1 c
    save=n
    cont=n
    case "$c" in
	0|" ")
	    save=y
	    cont=y
	    ;;
	1)
	    cont=y
	    ;;
	2|"")
	    save=y
	    ;;
    esac
    if [ "$save" = y ]; then
	let ep++
	echo "$ep" >nextep
    fi
    if [ "$cont" = y ]; then
	exec "${origargs[@]}"
    else
	echo "nextep is $ep"
    fi
fi