#!/bin/sh
# $Id; m2vmp2cut.sh $
#
# Author: Tomi Ollila -- too ät iki piste fi
#
#	Copyright (c) 2008 Tomi Ollila
#	    All rights reserved
#
# Created: Wed Apr 23 21:40:17 EEST 2008 too
# Last modified: Mon Aug 18 19:25:06 EEST 2008 too

e2 () { echo "$@" >&2; }
die () { e2 "$@"; exit 1; }
usage () { e2; e2 Usage: m2vmp2cut '[(file|dir)]' $cc '[(file|dir)]' "$@"; die; }
needvar () { [ x"$1" = x ] && { shift 1; "$@"; }; }

x () { echo + "$@"; "$@"; }

M2VMP2CUT_CMD_PATH=`cd \`dirname "$0"\`; pwd`
case $M2VMP2CUT_CMD_PATH in
    *' '*) die Too lazy to support Spaces in \'$M2VMP2CUT_CMD_PATH\' ;; esac
export M2VMP2CUT_CMD_PATH

#echo $M2VMP2CUT_CMD_PATH

# no interactive behaviour in batch mode...
case $1 in --batch) batch=1; shift ;; *) batch= ;; esac

file= dir=
filedir () {
	case $dir in '') ;; *) return 1 ;; esac
	case "$1" in '') die m2vmp2cut $cm: file/directory arg missing ;; esac
	if test -f "$1"
 	then
 		dn=`dirname "$1"`; basename=`basename "$1"`
 		od=`echo $basename | sed 's/\.[^.]*$//'`.d
 		file=$1	dir=$dn/$od
 	elif test -d "$1"
 	then
 		file= dir=$1
 	else
 		die "'$1': not a file or directory"
 	fi
	return 0
}

#case $1 in '') ;; *) test -f "$1" -o -d "$1" && { filedir "$1";shift; } ;; esac

# do not show this in command list
cmd_vermatch ()
{
	case $1 in 6) exit 0;; *) exit 1 ;; esac
}

cmd_lvev6frames () # Legacy m2vmp2cut support; dig cutpoints from ~/.lve/* file
{
	$M2VMP2CUT_CMD_PATH/lvev6frames.pl
}

chkindexes ()
{
	test -f "$1/video.index" \
		|| $M2VMP2CUT_CMD_PATH/m2vscan "$1/video.m2v" "$1/video.index"
	test -f "$1/audio.scan" \
		|| $M2VMP2CUT_CMD_PATH/mp2cutpoints \
			--scan "$1/audio.mp2" "$1/audio.scan"
}

cmd_demux () # Demux mpeg2 file with ProjectX for further editing...
{
	filedir "$1" && shift

	test -h $M2VMP2CUT_CMD_PATH/ProjectX.jar || { \
	  e2 Symbolic link \'$M2VMP2CUT_CMD_PATH/ProjectX.jar\' does not exist
	  die Please provide link and try again
	}
	pjxjar=`LC_ALL=C ls -l $M2VMP2CUT_CMD_PATH/ProjectX.jar | sed 's/.* //'`
	test -f $pjxjar || {
	  e2 ProjectX jar file \'$pjxjar\' does not exist
	  die Fix this or it\'s symbolic link reference \'$M2VMP2CUT_CMD_PATH/ProjectX.jar\'
	}
	test -d "$dir" && die "Directory '$dir' is on the way (demuxed already)?"
	mkdir "$dir"
	ln -s "../$basename" "$dir/$basename"
	x java -jar "$pjxjar" -ini /dev/null "$dir/$basename"
	cd "$dir"
	ln -s *.m2v video.m2v
	ln -s *.mp2 audio.mp2
	chkindexes .
}

cmd_select () # Select parts from video with a graphical tool
{
	filedir "$1" && shift
	test -f "$dir/video.m2v" || die "'$dir/video.m2v' does not exist"
	chkindexes "$dir"
	x $M2VMP2CUT_CMD_PATH/m2vcut-gui \
		"$dir/video.index" "$dir/video.m2v" "$dir/cutpoints"
	test -f "$dir/cutpoints.1" && { case `wc "$dir/cutpoints"` in
		*' '1' '*) cat "$dir/cutpoints.1" >> "$dir/cutpoints";; esac; }
}

cmd_cut () # Cut using m2vmp2cut.pl for the work...
{
	filedir "$1" && shift
	x $M2VMP2CUT_CMD_PATH/m2vmp2cut.pl --dir="$dir" ${1:+"$@"}
}

cmd_play () # Play resulting file with mplayer
{
	filedir "$1" && shift
	f="$dir"/m2vmp2cut-work/out.mpg
	test -f "$f" || die "'$f' does not exist"
	x mplayer ${1:+"$@"} "$f"
}

cmd_move () # Move final file to a new location (and name)
{
	filedir "$1" && shift
	needvar "$1" usage '<destfile>'
	f="$dir"/m2vmp2cut-work/out.mpg
	test -f "$f" || die "'$f' does not exist"
	x mv "$f" "$1"
}

cmd_getyuv () # get selected parts of mpeg2 video as yuv(4mpeg) frames
{
	case $1 in examp*) exec $M2VMP2CUT_CMD_PATH/getyuv.pl examples ;; esac
	filedir "$1" && shift
	x $M2VMP2CUT_CMD_PATH/getyuv.pl "$dir"
}

cmd_getmp2 () # get selected parts of mp2 audio
{
	case $1 in examp*) exec $M2VMP2CUT_CMD_PATH/getmp2.sh examples ;; esac
	filedir "$1" && shift
	x $M2VMP2CUT_CMD_PATH/getmp2.sh "$dir"
}

cmd_contrib () # contrib material, encoding scripts etc...
{
	M2VMP2CUT_CMD_DIRNAME=`dirname "$M2VMP2CUT_CMD_PATH"`
	case $1 in '')
		echo
		echo Append one of these to your command line to continue.
		echo Unambiquous prefix will do...
		echo
		cd $M2VMP2CUT_CMD_DIRNAME/contrib
		ls -1 | while read line
		do
			sed -n '2 { s/./ '"$line"'                    /
				    s/\(.\{16\}\) */\1/p; q; }' $line
		done
		echo; exit 0
	esac
	for f in `ls -1 $M2VMP2CUT_CMD_DIRNAME/contrib`
	do
		case $f in
		    $1) fp= ff=$1 fm=$1 break ;;
		    $1*) fp=$ff; ff="$f $ff"; fm=$f ;;
		esac
	done
	case $ff in '') die "'$1': not found." ;; esac
	case $fp in '') ;; *) die "contrib: ambiquous match: $ff" ;; esac
	shift
	export M2VMP2CUT_CMD_DIRNAME
	$M2VMP2CUT_CMD_DIRNAME/contrib/$fm ${1:+"$@"}
}

cmd_help () # Help of all or some of the commands above
{
	case $1 in '') 	cut -d: -f 2- <<.
	:
	: Enter help <command-name> or '.' to see help of all commands at once.
	:
	: The <file>/<directory> argument can be given before or after the
	: command. Also, if <file> arg is given when <directory> is expected
	: the needed directory is tried to be deduced from given file name.
	:
.
	exit 0 ;; esac
	echo
	sed -n "s|^#h $1[^:]*:||p" "$0"
}

cmd_example () # simple example commands
{
	cut -d: -f 2- >&2 <<.
	:
	: Simple example commands. In select/cut/play '<dir>' can be used.
	: (<file> is for user convenience...).
	: The <file>/<dir> option can also be given after command name...
	:
	: m2vmp2cut <file> demux
	: m2vmp2cut <file> select
	: m2vmp2cut <file> cut
	: m2vmp2cut <file> play
	:
	: In above, there was basic workflow. 'select' gui provides a test
	: option -- but if you want to re-test, run these.
	:
	: m2vmp2cut <file> cut --test=200
	: m2vmp2cut <file> play
	:
	: getyuv and getmp2 has their own examples. Enter 'example' to their
	: command lines to see those.
	:
.
}

# ---

case $1 in '')
        echo
        echo Usage: m2vmp2cut '[-batch] [(file|dir)] <command> [(file|dir)] [args]'
        echo
        echo m2vmp2cut commands available:
        echo
        sed -n '/^cmd_[a-z]/ { s/cmd_/ /; s/ () [ -#]*/                       /
			  s/\(.\{15\}\) */\1/p; }' $0
        echo
        echo Commands may be abbreviated down to no ambiguity
        echo
        exit 0 ;;
esac

cmd=$1 cmd2=${2:-none}

#case $cmd in
#        c) cmd=colorset ;;
#esac

cc= cp= cm= cc2= cp2= cm2=
for m in `LC_ALL=C sed -n 's/^cmd_\([a-z0-9_]*\) (.*/\1/p' $0`
do
        case $m in
                $cmd) cp= cc=$cmd  cm=$cmd;  break ;;
                $cmd*) cp=$cc; cc="$m $cc"; cm=$m ;;
                $cmd2*) cp2=$cc2; cc2="$m $cc2"; cm2=$m ;;
        esac
done

case "$cc$cc2" in '') die $0: $cmd or $cmd2 -- command not found;; esac

case $cp in  '') ;; *) die $0: $cmd: -- ambiquous commands: matches $cc ;; esac
case $cp2 in '') ;; *) die $0: $cmd2: -- ambiquous commands: matches $cc2;; esac

case $cc in '') cm=$cm2; filedir "$1"; shift ;; esac
shift
unset cc2 cp2 cm2 cc cp

cmd=$cm
cmd_$cm ${1:+"$@"}
exit $?

# fixme: move these to separate doc file (w/ locale extension)

#h lvev6frames: lvev6frames (no options)
#h lvev6frames:
#h lvev6frames: Old versions of m2vmp2cut supported using lve-generated
#h lvev6frames: "edit lists" for cutpoint information. With lvev6frames
#h lvev6frames: these old edits can be used with this m2vmp2cut version
#h lvev6frames:

#h demux: demux <filename>
#h demux:
#h demux: m2vmp2cut reguires mpeg files to be demuxed to elementary streams
#h demux: before cutting. This command uses ProjectX to do the demuxing.
#h demux: A separate directory (based on source filename) is created for
#h demux: output files. Note that this doubles the disk usage of a particular
#h demux: source file.
#h demux:

#h select: select <directory>
#h select:
#h select: This command uses new m2vcut-gui graphical utility for searching
#h select: cutpoints. This work is done frame-accurately.
#h select:

#h cut: cut <directory> [options] ...
#h cut:
#h cut: This command is wrapper to m2vmp2cut.pl (which used to be the frontend
#h cut: of m2vmp2cut in old versions). This command has extensive help of
#h cut: it's own. Note that this (again) adds one third of disk usage so far
#h cut: when this creates final output file.
#h cut:

#h play: play <directory> [options]
#h play:
#h play: This command runs mplayer for the file created with cut command
#h play:

#h move: move <directory> <destfile>
#h move:
#h move: Moves final output file to a new destination.
#h move:

#h getyuv: getyuv [<directory>|examples]
#h getyuv:
#h getyuv: Decodes selected mpeg2 frames as a stream of yuv4mpeg pictures.
#h getyuv: useful for further encoding.
#h getyuv:

#h getmp2: getmp2 [<directory>|examples]
#h getmp2:
#h getmp2: Extracts selected mp2 audio data, to be muxed with (re-encoded)
#h getmp2: video. Mp2 data can be used as is, or as encoded to mp3 or vorbis...
#h getmp2:

#h contrib: contrib
#h contrib:
#h contrib: Contribution material. Mostly encoding scripts. The command line
#h contrib: interface of the programs these scripts invoke may change over
#h contrib: time -- there is less quarantees that these work in future than
#h contrib: other m2vmp2cut functionality, in short term period...
#h contrib: