1 files changed, 0 insertions, 319 deletions

diff --git a/subr/build_init.subr b/subr/build_init.subr
deleted file mode 100644
index e6459a8..0000000
--- a/subr/build_init.subr
+++ /dev/null
@@ -1,319 +0,0 @@
-#
-# set +o errexit -o noglob -o nounset is assumed.
-#
-
-buildp_init_args() {
-	local	_foundfl=0 _group="" _pkg_names_unknown="" _rc=0	\
-		EX_PKG_BUILD_GROUPS EX_PKG_BUILD_GROUPS_NOAUTO; _status="";
-
-	case "${ARG_FETCH_FORCE}" in
-	ipv4)	DEFAULT_GIT_ARGS="$(rtl_lconcat "-4" "${DEFAULT_GIT_ARGS}")";
-		DEFAULT_WGET_ARGS="$(rtl_lconcat "-4" "${DEFAULT_WGET_ARGS}")"; ;;
-	ipv6)	DEFAULT_GIT_ARGS="$(rtl_lconcat "-6" "${DEFAULT_GIT_ARGS}")";
-		DEFAULT_WGET_ARGS="$(rtl_lconcat "-6" "${DEFAULT_WGET_ARGS}")"; ;;
-	esac;
-	if [ "${BUILD_HNAME:+1}" != 1 ]\
-	&& ! BUILD_HNAME="$(hostname)"; then
-		_rc=1; _status="failed to obtain hostname.";
-	elif [ "${ARG_DUMP_ON_ABORT:-0}" -eq 1 ]\
-	&&   [ "${ARG_RELAXED:-0}" -eq 1 ]; then
-		_rc=1; _status="--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.";
-	elif ! ex_pkg_process_restart_spec \$ARG_RESTART \$ARG_RESTART_AT \$ARG_RESTART_RECURSIVE; then
-		_rc=1; _status="failed to process -r specification: ${_status}.";
-	elif ! ex_pkg_load_groups; then
-		_rc=1; _status="failed to load build groups.";
-	else	if ! rtl_lmatch "${ARG_DIST:-}" "rpm" ","\
-		&& [ "${ARG_DUMP_IN:+1}" != 1 ]\
-		&& [ "${ARG_DUMP_ON_ABORT:-0}" -eq 0 ]; then
-			EX_PKG_BUILD_GROUPS="$(rtl_lfilter "${EX_PKG_BUILD_GROUPS}" "host_deps_rpm")";
-		fi;
-		if [ "${BUILD_GROUPS:+1}" != 1 ]; then
-			BUILD_GROUPS="${EX_PKG_BUILD_GROUPS}";
-		else	_foundfl=0; for _group in ${BUILD_GROUPS}; do
-				if rtl_lmatch "${EX_PKG_BUILD_GROUPS}" "${_group}"; then
-					_foundfl=1; break;
-				fi;
-			done;
-			if [ "${_foundfl}" -eq 0 ]; then
-				_foundfl=0; for _group in ${BUILD_GROUPS}; do
-					if rtl_lmatch "${EX_PKG_BUILD_GROUPS}" "${_group}"; then
-						_rc=1; _status="unknown build group \`${_group}'."; break;
-					fi;
-				done;
-			fi;
-		fi;
-		if [ "${_rc:-0}" -eq 0 ]; then
-			if [ "${ARG_DIST:+1}" = 1 ]; then
-				BUILD_GROUPS="$(rtl_lconcat "$(rtl_lfilter "${BUILD_GROUPS}" "dist")" "dist")";
-			fi;
-			if [ "${ARG_RESTART:+1}" = 1 ]\
-			&& ! 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="unknown package \`${_pkg_names_unknown}'."; ;;
-				*)	_rc=1; _status="unknown packages: $(rtl_subst "${_pkg_names_unknown}" " " ", ")"; ;;
-				esac;
-			fi;
-		fi;
-	fi; return "${_rc}";
-};
-
-buildp_init_env() {
-	local _fname="" _lang="${LANG:-C}" _lang_="" _name="" _rc=0; _status=""; _lang="${_lang%%_*}";
-
-	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)	\
-				etc/build.theme			\
-				;
-		do
-			if ! . "${_fname}"; then
-				printf "Error: failed to source \`%s'.\n" "${_fname}" >&2; exit 1;
-			fi;
-		done;
-		if [ -e "etc/build.theme.local" ]; then
-			if ! . "etc/build.theme.local"; then
-				printf "Error: failed to source \`%s'.\n" "etc/build.theme.local" >&2; exit 1;
-			fi;
-		fi;
-		for _name in build rtl; do
-			for _lang_ in ${_lang} C; do
-				_fname="etc/${_name}.msgs.${_lang_}";
-				if [ -e "${_fname}" ]; then
-					if ! . "${_fname}"; then
-						printf "Error: failed to source \`%s'.\n" "${_fname}" >&2; exit 1;
-					fi;
-					if [ -e "${_fname}.local" ]; then
-						if ! . "${_fname}.local"; then
-							printf "Error: failed to source \`%s'.\n" "${_fname}.local" >&2; exit 1;
-						fi;
-					fi; break;
-				fi;
-			done;
-		done;
-	fi; export LANG=C LC_ALL=C; 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="cannot create build directories.";
-	elif [ -e "${DEFAULT_BUILD_STATUS_IN_PROGRESS_FNAME}" ]; then
-		_rc=1; _status="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="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\" \"${MSG_build_aborted}\"" HUP INT TERM USR1 USR2;
-			rtl_log_msg "info" "${MSG_build_clean_prefix}";
-			for _pname in ${DEFAULT_CLEAR_PREFIX_PATHS}; do
-				if ! rtl_fileop rm "${PREFIX}/${_pname}"; then
-					_rc=1; _status="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_RESET_PKG=0;
-	ARG_RESTART=""; ARG_RESTART_AT=""; ARG_RESTART_RECURSIVE=""; ARG_VERBOSE=0; ARG_VERBOSE_TAGS="";
-
-	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="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; ;;
-		--help)
-			if [ -t 1 ]; then
-				cat etc/build.usage;
-			else
-				sed 's/\[[0-9]\+m//g' etc/build.usage;
-			fi; exit 0; ;;
-		--reset-state)	ARG_RESET_PKG=1; _shiftfl=1; ;;
-		-v*)		_opt="${1#-}"; while [ -n "${_opt}" ]; do
-					: $((ARG_VERBOSE+=1)); _opt="${_opt#?}";
-				done; _shiftfl=1; ;;
-		# {{{ --roar
-		--roar)		printf "%s\n" '
-                                 
-                                 
-%.           /\       /\    ROAR!
-`%%.             """       /     
- `%%            o _ o     /      
- //        ;   (__Y__)           
-((        /     `\_/             
- \\     .'\''                       
-  \\   /                         
-   \\/    \    | |               
-    \      )___| |               
-   (_____/__)))))))              '; 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:RxV: _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)
-				if [ -t 1 ]; then
-					cat etc/build.usage.short;
-				else
-					sed 's/\[[0-9]\+m//g' etc/build.usage.short;
-				fi; exit 0; ;;
-			p)	ARG_PARALLEL="${OPTARG}"; ;;
-			P)	ARG_PARALLEL="auto";
-				if [ -n "${2:-}" ]\
-				&& rtl_isnumber "${2}"; then
-					_rc=1; _status="maximum parallelisation job count is set with the \`-p jobs' option."; break
-				fi; ;;
-			r)	ARG_RESTART="${OPTARG}"; ;;
-			R)	ARG_RELAXED=1; ;;
-			x)	ARG_VERBOSE_TAGS="${ARG_VERBOSE_TAGS:+${ARG_VERBOSE_TAGS},}xtrace"; ;;
-			V)	ARG_VERBOSE_TAGS="${OPTARG}"; ;;
-			*)	cat etc/build.usage.short; 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="build group names must start with [a-zA-Z] (in argument \`${_arg}'.)"; ;;
-			*[!_a-zA-Z]*)	_rc=1; _status="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="failed to get CPU count.";
-			else
-				ARG_PARALLEL=$((${ARG_PARALLEL}/2));
-			fi; ;;
-		max)	if ! ARG_PARALLEL="$(rtl_get_cpu_count)"; then
-				_rc=1; _status="failed to get CPU count.";
-			fi; ;;
-		"")	ARG_PARALLEL=1; ;;
-		*)	if ! rtl_isnumber "${ARG_PARALLEL}"; then
-				_rc=1; _status="invalid jobs count \`${ARG_PARALLEL}'.";
-			fi; ;;
-		esac;
-		if [ "${_rc:-0}" -eq 0 ]; then
-			DEFAULT_BUILD_CPUS="${ARG_PARALLEL}";
-		fi;
-	fi;
-	return "${_rc}";
-};
-
-buildp_init_logging() {
-	local _tag="" _tags="" _rc=0; _status="";
-
-	rtl_log_clear_tags;
-	case "${ARG_VERBOSE}" in
-	0)	[ "${#ARG_VERBOSE_TAGS}" -eq 0 ] && rtl_log_enable_tags "${LOG_TAGS_normal}"; ;;
-	1)	rtl_log_enable_tags "${LOG_TAGS_verbose}"; ;;
-	*)	_rc=1; _status="invalid verbosity level (max. -v)"; ;;
-	esac;
-	if [ "${_rc}" -eq 0 ]; then
-		case "${ARG_VERBOSE_TAGS}" in
-		+*)	rtl_log_enable_tags "${LOG_TAGS_normal}";
-			ARG_VERBOSE_TAGS="${ARG_VERBOSE_TAGS#+}"; ;;
-		*)	;;
-		esac;
-		for _tag in $(rtl_llift "${ARG_VERBOSE_TAGS}" "," " "); do
-			case "${_tag}" in
-			all)		rtl_log_enable_tags "${LOG_TAGS_all}"; ;;
-			clear|none)	rtl_log_clear_tags; ;;
-			normal)		rtl_log_enable_tags "${LOG_TAGS_normal}"; ;;
-			verbose)	rtl_log_enable_tags "${LOG_TAGS_verbose}"; ;;
-			*)
-					_tags="$(rtl_lsearch_patternl "${LOG_TAGS_all}" "${_tag}" ",")";
-					if [ "${#_tags}" -gt 0 ]; then
-						rtl_log_enable_tags "${_tags}";
-					else
-						_rc=1; _status="invalid log tag or tag pattern \`${_tag}'"; break;
-					fi; ;;
-			esac;
-		done;
-	fi;
-	return "${_rc}";
-};
-
-buildp_init_prereqs() {
-	if ! rtl_check_prereqs ${DEFAULT_PREREQS}; 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 "${@}"		\
-	|| ! buildp_init_logging		\
-	|| ! ex_pkg_load_vars			\
-	|| ! buildp_init_prereqs		\
-	|| ! buildp_init_args			\
-	|| ! buildp_init_files; then
-		_rc=1; _status="${_status}";
-	fi; return "${_rc}";
-};
-
-# vim:filetype=sh foldmethod=marker