# @FUNCTION: estat

# @USAGE: <'%a'> <file>

# @DESCRIPTION:

# Portable version of GNU stat -c. See GNU stat(1) manpage.

# Its usage is limited to format specifiers that are actually implemented in a

# portable way.

# It supports only one format specifier, meaning "$(estat '%a%b' file)" is not

# allowed but "$(estat '%a' file)$(estat '%b' file)" should be used instead.

# estat currently implements the following specifiers from GNU stat: %a.

estat() {

	local stat_version="unknown"

	if $(stat --help 2>&1 | grep -q GNU) ; then

		stat_version="GNU"

	fi

	local fmt=$1; shift

	case ${fmt} in

		%a)

			if [ "${stat_version}" = "GNU" ] ; then

				stat -c "${fmt}" "$@"

			else

				find "$@" -maxdepth 0 -printf '%m'

			fi;;

		*) die "unhandled form";;

	esac

}