#

# set +o errexit -o noglob -o nounset is assumed.

#

buildp_init_args() {

	local _group="" _last_pkg="" _pkg_names_unknown="" _rc=0; _status="";

	if [ -z "${BUILD_HNAME:-}" ]\

	&& ! BUILD_HNAME="$(hostname)"; then

		_rc=1; _status="Error: failed to obtain hostname.";

	elif [ "${ARG_DUMP_ON_ABORT:-0}" -eq 1 ]\

	&& [ "${ARG_RELAXED:-0}" -eq 1 ]; then

		_rc=1; _status="Error: --dump-on-abort excludes -R.";

	elif [ "${ARG_AS_NEEDED:-0}" -eq 1 ]\

	&& [ -e "${PREFIX}/build.gitref" ]\

	&& [ "$(git rev-parse HEAD)" = "$(cat "${PREFIX}/build.gitref")" ]; then

		_rc=0; _status="Git repository has not changed since last build and --as-needed was specified.";

	else	case "${ARG_FETCH_FORCE}" in

		ipv4)	DEFAULT_GIT_ARGS="$(rtl_lconcat "-4" "${DEFAULT_GIT_ARGS}")";

			DEFAULT_WGET_ARGS="$(rtl_lconcat "-4" "${DEFAULT_GIT_ARGS}")"; ;;

		ipv6)	DEFAULT_GIT_ARGS="$(rtl_lconcat "-6" "${DEFAULT_GIT_ARGS}")";

			DEFAULT_WGET_ARGS="$(rtl_lconcat "-6" "${DEFAULT_GIT_ARGS}")"; ;;

		esac;

		case "${ARG_RESTART}" in

		\*\*\*[a-zA-Z]*)

				ARG_RESTART="${ARG_RESTART#\*\*\*}"; ARG_RESTART_RECURSIVE=3; ;;

		\*\*[a-zA-Z]*)	ARG_RESTART="${ARG_RESTART#\*\*}"; ARG_RESTART_RECURSIVE=2; ;;

		\*[a-zA-Z]*)	ARG_RESTART="${ARG_RESTART#\*}"; ARG_RESTART_RECURSIVE=1; ;;

		ALL)		ARG_RESTART_AT=ALL; ARG_RESTART_RECURSIVE=2; ;;

		LAST)		ARG_RESTART_AT=ALL; ARG_RESTART_RECURSIVE=0;

				if [ -n "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}" ]\

				&& [ -e "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}" ]; then

					_last_pkg="$(cat "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}")";

					rtl_fileop rm "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}";

					rtl_state_clear "${BUILD_WORKDIR}" "${_last_pkg}";

					ARG_RESTART="${_last_pkg}";

				else

					_rc=1; _status="Error: cannot rebuild last failed package.";

				fi; ;;

		esac;

		if [ "${_rc:-0}" -eq 0 ]; then

			case "${ARG_RESTART}" in

			*:*)		ARG_RESTART_AT="${ARG_RESTART#*:}"; ARG_RESTART="$(rtl_llift "${ARG_RESTART%%:*}" "," " ")"; ;;

			*)		ARG_RESTART="$(rtl_llift "${ARG_RESTART}" "," " ")"; ARG_RESTART_AT=ALL; ;;

			esac;

			if ! ex_pkg_load_groups; then

				_rc=1; _status="Error: failed to load build groups.";

			else	if ! rtl_lmatch "${ARG_DIST:-}" "rpm" ","\

				&& [ -z "${ARG_DUMP_IN:-}" ]\

				&& [ "${ARG_DUMP_ON_ABORT:-0}" -eq 0 ]; then

					EX_PKG_BUILD_GROUPS="$(rtl_lfilter "${EX_PKG_BUILD_GROUPS}" "host_deps_rpm")";

				fi;

				if [ -z "${BUILD_GROUPS}" ]; then

					BUILD_GROUPS="${EX_PKG_BUILD_GROUPS}";

				else	for _group in ${BUILD_GROUPS}; do

						if ! rtl_lmatch "${EX_PKG_BUILD_GROUPS}" "${_group}"; then

							_rc=1; _status="Error: unknown build group \`${_group}'."; break;

						fi;

					done;

				fi;

				if [ "${_rc:-0}" -eq 0 ]; then

					if [ -n "${ARG_DIST}" ]; then

						BUILD_GROUPS="$(rtl_lconcat "$(rtl_lfilter "${BUILD_GROUPS}" "dist")" "dist")";

					fi;

					if [ -n "${ARG_RESTART}" ] && ! rtl_lmatch "${ARG_RESTART}" "ALL LAST"; then

						for _pkg_name in ${ARG_RESTART}; do

							if ! ex_pkg_find_package "${BUILD_GROUPS}" "${_pkg_name}" >/dev/null; then

								_pkg_names_unknown="$(rtl_lconcat "${_pkg_names_unknown}" "${_pkg_name}")";

							fi;

						done;

						case "$(rtl_llength "${_pkg_names_unknown}")" in

						0)	;;

						1)	_rc=1; _status="Error: unknown package \`${_pkg_names_unknown}'."; ;;

						*)	_rc=1; _status="Error: unknown packages: $(rtl_subst "${_pkg_names_unknown}" " " ", ")"; ;;

						esac;

					fi;

				fi;

			fi;

		fi;

	fi; return "${_rc}";

};

buildp_init_env() {

	local _fname="" _rc=0; _status="";

	if ! cd "${0%/*}"; then

		printf "Error: failed to change working directory to \`${0%/*}'." >&2; exit 1;

	elif ! umask 022; then

		printf "Error: failed to set umask(2).\n" >&2; exit 1;

	elif ! BUILD_USER="$(id -nu)"; then

		printf "Error: failed to obtain username." >&2; exit 1;

	else	for _fname in $(find subr.rtl -name *.subr) $(find subr -name *.subr); do

			if ! . "${_fname}"; then

				printf "Error: failed to source \`%s'.\n" "${_fname}"; exit 1;

			fi;

		done;

	fi; return "${_rc}";

};

buildp_init_files() {

	local _log_last_fname="" _log_last_num=1 _rc=0; _status=""

	if ! rtl_fileop mkdir "${BUILD_DLCACHEDIR}" "${BUILD_WORKDIR}"\

	|| rtl_lmatch "${ARG_DIST}" "rpm" ","\

	&& ! rtl_fileop mkdir "${PREFIX_RPM}"; then

		_rc=1; _status="Error: cannot create build directories.";

	elif [ -e "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then

		_rc=1; _status="Error: another build targeting this architecture and build type is currently in progress.";

	elif ! rtl_clean_env "${DEFAULT_CLEAR_ENV_VARS_EXCEPT}"; then

		_rc=1; _status="Error: failed to clean environment.";

	elif ! rtl_check_path_vars "${DEFAULT_CHECK_PATH_VARS}"; then

		_rc=1; _status="${_status}";

	else	export TMP="${BUILD_WORKDIR}" TMPDIR="${BUILD_WORKDIR}";

		touch "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}";

		if [ -e "${DEFAULT_BUILD_LOG_FNAME}" ]; then

			while [ -e "${DEFAULT_BUILD_LOG_FNAME}.${_log_last_num}" ]; do

				: $((_log_last_num+=1));

			done;

			_log_last_fname="${DEFAULT_BUILD_LOG_FNAME}.${_log_last_num}";

			rtl_fileop mv "${DEFAULT_BUILD_LOG_FNAME}" "${_log_last_fname}";

			rtl_fileop ln_symbolic "${_log_last_fname}" "${DEFAULT_BUILD_LOG_LAST_FNAME}";

		fi;

		rtl_fileop touch "${DEFAULT_BUILD_LOG_FNAME}"; rtl_log_set_fname "${DEFAULT_BUILD_LOG_FNAME}";

		if rtl_lmatch "${ARG_CLEAN_BUILDS}" "prefix" ","; then

			trap "rm -f \"${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}\" 2>/dev/null; rtl_log_msg fatalexit \"Build aborted.\"" HUP INT TERM USR1 USR2;

			rtl_log_msg info "-C prefix specified, cleaning prefix...";

			for _pname in ${DEFAULT_CLEAR_PREFIX_PATHS}; do

				if ! rtl_fileop rm "${PREFIX}/${_pname}"; then

					_rc=1; _status="Error: failed to remove \`${PREFIX}/${_pname}'."; break;

				fi;

			done;

			trap - HUP INT TERM USR1 USR2;

		fi;

		export PATH="${PREFIX}/bin${PATH:+:${PATH}}";

	fi;

	return "${_rc}";

};

buildp_init_getopts() {

	local _arg="" _opt="" _rc=0 _shiftfl=0 OPTIND=0; _status="";

	: ${ARCH:="nt64"}; : ${BUILD_KIND:="debug"};

	ARG_AS_NEEDED=0; ARG_CLEAN_BUILDS=""; ARG_DEBUG_MINIPIX=0; ARG_DIST=""; ARG_DUMP_IN="";

	ARG_DUMP_ON_ABORT=0; ARG_FETCH_FORCE=""; ARG_PARALLEL=1; ARG_RELAXED=0; ARG_RESTART="";

	ARG_RESTART_AT=""; ARG_RESTART_RECURSIVE=""; ARG_VERBOSE=0;

	while [ "${#}" -gt 0 ]; do

		case "${1}" in

		--as-needed)	ARG_AS_NEEDED=1; _shiftfl=1; ;;

		--dump-in)	if [ "${#}" -ge 2 ]; then

					ARG_DUMP_IN="${2}"; ARG_DUMP_ON_ABORT=1; _shiftfl=2;

				else

					_rc=1; _status="Error: missing argument to option --dump-in.";

				fi; ;;

		--dump-on-abort)

				ARG_DUMP_ON_ABORT=1; _shiftfl=1; ;;

		--debug-minipx)	ARG_DEBUG_MINIPIX=1; _shiftfl=1; ;;

		-v*)		_opt="${1#-}"; while [ -n "${_opt}" ]; do

					: $((ARG_VERBOSE+=1)); _opt="${_opt#?}";

				done; _shiftfl=1; ;;

		# {{{ --roar

		--roar)		printf "%s\n" '

?[49;37m                ?[41;97m     ?[49;37m            ?[0m

?[49;37m             ?[41;97m           ?[49;37m         ?[0m

?[103;31m%.?[49;37m          ?[41;33m ?[103;33m/\?[41;31m  ?[41;97m     ?[103;33m/\?[41;97m ?[49;97m   ROAR!?[0m

?[103;31m`%%.?[49;37m        ?[41;33m ?[41;31m  ?[103;31m  ?[103;33m"""?[103;31m ?[103;30m ?[41;30m   ?[49;97m  /?[49;37m     ?[0m

?[49;37m ?[103;31m`%%?[49;37m        ?[41;97m ?[103;97m   ?[103;32mo?[103;97m ?[103;30m_?[103;97m ?[103;32mo?[103;97m   ?[41;31m ?[49;97m /?[49;37m      ?[0m

?[49;37m ?[103;30m//?[49;37m        ?[103;30m;?[41;33m  ?[103;31m ?[103;33m(__?[103;30mY?[103;33m__)?[103;30m ?[41;31m ?[41;97m ?[49;37m        ?[0m

?[103;30m((?[49;37m        ?[103;30m/?[103;33m ?[103;97m  ?[41;97m  ?[103;33m`\_/?[41;30m ?[41;97m  ?[49;37m          ?[0m

?[49;37m ?[103;30m\\?[49;37m     ?[103;30m.'\''  ?[103;97m  ?[103;31m  ?[41;31m     ?[49;37m            ?[0m

?[49;37m  ?[103;30m\\?[49;37m   ?[103;30m/?[103;97m         ?[41;97m   ?[49;37m             ?[0m

?[49;37m   ?[103;30m\\/   ?[103;97m ?[103;30m\?[103;97m    ?[103;30m|?[103;33m ?[103;30m|?[49;37m               ?[0m

?[49;37m    ?[103;30m\?[103;33m      ?[103;30m)___|?[103;33m ?[103;30m|?[49;37m               ?[0m

?[49;37m   ?[103;30m(_____/__)))))))?[49;37m              ?[0m'; exit 0; ;;

		# }}}

		*)		_shiftfl=0; ;;

		esac;

		if [ "${_rc}" -ne 0 ]; then

			break;

		elif [ "${_shiftfl}" -gt 0 ]; then

			shift "${_shiftfl}"; continue;

		elif getopts a:b:C:D:F:hp:Pr:R _opt; then

			case "${_opt}" in

			a)	ARCH="${OPTARG}"; ;;

			b)	BUILD_KIND="${OPTARG}"; ;;

			C)	ARG_CLEAN_BUILDS="${OPTARG}"; ;;

			D)	ARG_DIST="${OPTARG}"; ;;

			F)	ARG_FETCH_FORCE="${OPTARG}"; ;;

			h)	cat etc/build.usage; exit 0; ;;

			p)	ARG_PARALLEL="${OPTARG}"; ;;

			P)	ARG_PARALLEL="auto";

				if [ -n "${2:-}" ]\

				&& rtl_isnumber "${2}"; then

					_rc=1; _status="Error: maximum parallelisation job count is set with the \`-p jobs' option."; break

				fi; ;;

			r)	ARG_RESTART="${OPTARG}"; ;;

			R)	ARG_RELAXED=1; ;;

			*)	cat etc/build.usage; exit 1; ;;

			esac; shift $((${OPTIND}-1)); OPTIND=1;

		else	if rtl_match "${1}" "=*"; then

				BUILD_GROUPS_INHIBIT_DEPS=1; _arg="${1#=}";

			else

				_arg="${1}";

			fi;

			case "${_arg}" in

			*=*)		rtl_set_var_unsafe "${_arg%%=*}" "${_arg#*=}"; ;;

			[^a-zA-Z]*)	_rc=1; _status="Error: build group names must start with [a-zA-Z] (in argument \`${_arg}'.)"; ;;

			*[^_a-zA-Z]*)	_rc=1; _status="Error: build group names must not contain [^_a-zA-Z] (in argument \`${_arg}'.)"; ;;

			*)		BUILD_GROUPS="$(rtl_lconcat "${BUILD_GROUPS}" "${_arg}")"; ;;

			esac; shift;

		fi;

	done;

	if [ "${_rc:-0}" -eq 0 ]; then

		case "${ARG_PARALLEL}" in

		auto)	if ! ARG_PARALLEL="$(rtl_get_cpu_count)"; then

				_rc=1; _status="Error: failed to get CPU count.";

			else

				ARG_PARALLEL=$((${ARG_PARALLEL}/2));

			fi; ;;

		"")	ARG_PARALLEL=1; ;;

		*)	if ! rtl_isnumber "${ARG_PARALLEL}"; then

				_rc=1; _status="Error: invalid jobs count \`${ARG_PARALLEL}'.";

			fi; ;;

		esac;

		if [ "${_rc:-0}" -eq 0 ]; then

			DEFAULT_BUILD_CPUS="${ARG_PARALLEL}";

			case "${ARG_VERBOSE:-0}" in

			0)	rtl_fileop_set_log 0; rtl_log_set_lvl 0; ;;

			1)	rtl_fileop_set_log 0; rtl_log_set_lvl 2; ;;

			2)	rtl_fileop_set_log 0; rtl_log_set_lvl 2; ;;

			3)	rtl_fileop_set_log 0; rtl_log_set_lvl 2; ;;

			4)	rtl_fileop_set_log 1; rtl_log_set_lvl 3; ;;

			*)	_rc=1; _status="Error: invalid verbosity level (max. -vvvv)"; ;;

			esac;

		fi;

	fi;

	return "${_rc}";

};

buildp_init_getopts_help() {

	local _opt="";

	while getopts a:b:C:D:Fhp:Pr:R _opt 2>/dev/null; do

	case "${_opt}" in

	h)	cat etc/build.usage; exit 0; ;;

	esac; done; shift $((${OPTIND}-1));

};

buildp_init_prereqs() {

	if ! rtl_check_prereqs \

			awk bunzip2 bzip2 cat chmod cmake cp date find flock	\

			g++ gcc git grep gunzip gzip hostname id install kill	\

			ln lzip make mkdir mkfifo mktemp mv paste patch perl	\

			pgrep pkill printf readlink rm sed sha256sum sort	\

			stat tail tar test touch tr uniq wget xz zip; then

		printf "%s\n" "${_status}" >&2; exit 1;

	elif ! awk -V 2>/dev/null | grep -q "^GNU Awk "; then

		printf "Error: awk(1) in \$PATH must be GNU Awk." >&2; exit 1;

	elif ! (FNAME="$(mktemp)" && { trap "rm -f \"\${FNAME}\"" EXIT;		\

			sed -i'' -e '' "${FNAME}" >/dev/null 2>&1; }); then

		printf "Error: sed(1) in \${PATH} does not support the \`-i' option.\n" >&2; exit 1;

	fi;

};

build_init() {

	local _rc=0; _status="";

	if ! buildp_init_env			\

	|| ! buildp_init_getopts_help "${@}"	\

	|| ! buildp_init_prereqs		\

	|| ! buildp_init_getopts "${@}"		\

	|| ! ex_pkg_load_vars			\

	|| ! buildp_init_args			\

	|| ! buildp_init_files; then

		_rc=1; _status="${_status}";

	fi; return "${_rc}";

};

# vim:filetype=sh