env/mblaze/m.sh

#!/bin/sh
# mblaze.env
# Written in 2020 by Lucas
# CC0 1.0 Universal/Public domain - No rights reserved
#
# To the extent possible under law, the author(s) have dedicated all
# copyright and related and neighboring rights to this software to the
# public domain worldwide. This software is distributed without any
# warranty. You should have received a copy of the CC0 Public Domain
# Dedication along with this software. If not, see
# <http://creativecommons.org/publicdomain/zero/1.0/>.

usage()
{
	cat - <<. >&2
Usage:
	${0##*/} f|fetch
	${0##*/} l|list [dirs...]
	${0##*/} r|read dir [dirs...]
	${0##*/} s|scan [-a] dir [dirs...]
.
	exit 1
}

m_fetch_usage()
{
	printf "Usage: %s f|fetch\n" "${0##*/}" >&2
	exit 1
}

m_read_usage()
{
	printf "Usage: %s r|read dir [dirs...]\n" "${0##*/}" >&2
	exit 1
}

m_scan_usage()
{
	printf "Usage: %s s|scan [-a] dir [dirs...]\n" "${0##*/}" >&2
	exit 1
}

m_fetch()
{
	if [ $# -ne 0 ]; then
		m_fetch_usage
	fi
	printf "%s: fetch TBD.\n" >&2
	exit 1
}

m_list()
{
	pwd=$(pwd)
	# cut(1) lists are 1-based, and +1 for leading slash
	mdirs "${@:-.}" | sort -t / | cut -c $((${#pwd} + 2))- | mlist -i
}

m_read()
{
	if [ $# -eq 0 ]; then
		m_read_usage
	fi

	mdirs "$@" | mlist -s | msort -d | mthread | mless
}

m_scan()
{
	mlist_flags=-s
	while getopts a flag; do
		case $flag in
		a)
			mlist_flags=
			;;
		*)
			m_scan_usage
			;;
		esac
	done
	shift $(($OPTIND - 1))

	if [ $# -eq 0 ]; then
		m_scan_usage
	fi

	mdirs "$@" | mlist $mlist_flags | msort -d | mthread | mseq -S | mscan
}

if [ $# -lt 1 ]; then
	usage
fi
cmd=$1
shift

case $cmd in
f|fetch)
	m_fetch "$@"
	;;
l|list)
	m_list "$@"
	;;
r|read)
	m_read "$@"
	;;
s|scan)
	m_scan "$@"
	;;
*)
	usage
	;;
esac