#
# Copyright (c) 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 LucĂa Andrea Illanes Albornoz <lucia@luciaillanes.de>
# set +o errexit -o noglob -o nounset is assumed.
#
#
# exp_pkg_check_restart_at() - XXX
# @_rstatus: out reference to status string
# @_rspec_at: in reference to restart build step list
#
# Calling convention: in ref. @_rspec_at
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_check_restart_at() {
local _epcra_rstatus="${1#\$}" _epcra_rspec_at="${2#\$}" \
_epcra_len=0 _epcra_rc=0 _epcra_spec_at="";
if ! rtl_llift2 "${_epcra_rspec_at}" \$_epcra_spec_at "," " "\
|| ! rtl_lfilter \$_epcra_spec_at "${DEFAULT_BUILD_STEPS} ALL LAST"\
|| ! rtl_llength \$_epcra_spec_at \$_epcra_len; then
_epcra_rc=1;
elif [ "${_epcra_len}" -gt 0 ]; then
_epcra_rc=1;
rtl_setrstatus "${_epcra_rstatus}" 'unknown build step(s) \`'"${_epcra_spec_at}"''\''';
fi;
return "${_epcra_rc}";
};
#
# exp_pkg_expand_restart_at_spec() - XXX
# @_rstatus: out reference to status string
# @_rset: in reference to restart virtual build step set
# @_rspec_at: inout reference to restart build step list
#
# Calling convention: in ref. @_rset, inout ref. @_rspec_at
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_expand_restart_at_spec() {
local _eperas_rstatus="${1#\$}" _eperas_rset="${2#\$}" _eperas_rspec_at="${3#\$}" \
_eperas_at="" _eperas_rc=0 _eperas_spec_at="" _eperas_spec_at_="";
eval _eperas_spec_at='${'"${_eperas_rspec_at}"'}';
case "${_eperas_spec_at}" in
ALL|LAST|"")
;;
^*)
_eperas_spec_at="${_eperas_spec_at#^}";
if exp_pkg_expand_restart_at_virtual \
"${_eperas_rstatus}" \
"${_eperas_spec_at}" \$_eperas_spec_at \
"${_eperas_rset}" \
&& exp_pkg_check_restart_at "${_eperas_rstatus}" \$_eperas_spec_at;
then
rtl_llift2 \$DEFAULT_BUILD_STEPS "${_eperas_rspec_at}" " " ",";
rtl_llift2 \$_eperas_spec_at \$_eperas_spec_at_ "," " ";
for _eperas_at in ${_eperas_spec_at_}; do
rtl_lfilter "${_eperas_rspec_at}" "${_eperas_at}" ",";
done; rtl_lfilter "${_eperas_rspec_at}" "finish" ",";
else
_eperas_rc=1;
fi; ;;
\<=*|\<*|\>=*|\>*)
exp_pkg_expand_restart_at_spec_cmp \
"${_eperas_rstatus}" \
"${_eperas_rset}" "${_eperas_rspec_at}";
_eperas_rc="${?}"; ;;
*)
if ! exp_pkg_expand_restart_at_virtual \
"${_eperas_rstatus}" \
"${_eperas_spec_at}" "${_eperas_rspec_at}" \
"${_eperas_rset}"; then
_eperas_rc=1;
fi; ;;
esac;
if [ "${_eperas_rc}" -eq 0 ]; then
if ! exp_pkg_check_restart_at "${_eperas_rstatus}" "${_eperas_rspec_at}"; then
_epprs_rc=1;
elif eval [ '"${'"${_eperas_rspec_at}"':+1}"' != 1 ]; then
_epprs_rc=1;
rtl_setrstatus "${_eperas_rstatus}" 'zero-length build step list';
fi;
fi;
return "${_eperas_rc}";
};
#
# exp_pkg_expand_restart_at_spec_cmp() - XXX
# @_rstatus: out reference to status string
# @_rset: in reference to restart virtual build step set
# @_rspec_at: inout reference to restart build step list
#
# Calling convention: in ref. @_rset, inout ref. @_rspec_at
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_expand_restart_at_spec_cmp() {
local _eperasc_rstatus="${1#\$}" _eperasc_rset="${2#\$}" _eperasc_rspec_at="${3#\$}" \
_eperasc_at="" _eperasc_eqfl="" _eperasc_foundfl="" _eperasc_ltfl="" _eperasc_rc=0 \
_eperasc_spec_at="" _eperasc_spec_at0="";
eval _eperasc_spec_at0='${'"${_eperasc_rspec_at}"'}';
[ "${_eperasc_spec_at0#<}" = "${_eperasc_spec_at0}" ]; _eperasc_ltfl="${?}";
if [ "${_eperasc_spec_at0#[<>]=}" != "${_eperasc_spec_at0}" ]; then
_eperasc_spec_at0="${_eperasc_spec_at0#[<>]=}"; _eperasc_eqfl=1;
else
_eperasc_spec_at0="${_eperasc_spec_at0#[<>]}"; _eperasc_eqfl=0;
fi; _eperasc_spec_at="";
if exp_pkg_expand_restart_at_virtual \
"${_eperasc_rstatus}" \
"${_eperasc_spec_at0%%,*}" \$_eperasc_spec_at0 \
"${_eperasc_rset}" \
&& exp_pkg_check_restart_at "${_eperasc_rstatus}" \$_eperasc_spec_at0; then
if [ \( "${_eperasc_eqfl}" -eq 1 \) -a \( "${_eperasc_ltfl}" -eq 1 \) ]\
|| [ \( "${_eperasc_eqfl}" -eq 0 \) -a \( "${_eperasc_ltfl}" -eq 0 \) ]; then
_eperasc_spec_at0="${_eperasc_spec_at0##*,}";
elif [ \( "${_eperasc_eqfl}" -eq 1 \) -a \( "${_eperasc_ltfl}" -eq 0 \) ]\
|| [ \( "${_eperasc_eqfl}" -eq 0 \) -a \( "${_eperasc_ltfl}" -eq 1 \) ]; then
_eperasc_spec_at0="${_eperasc_spec_at0%%,*}";
fi;
_eperasc_foundfl=0; for _eperasc_at in ${DEFAULT_BUILD_STEPS}; do
if [ "${_eperasc_ltfl}" -eq 1 ]; then
if [ "${_eperasc_at}" = "${_eperasc_spec_at0%%,*}" ]; then
if [ "${_eperasc_eqfl}" -eq 1 ]; then
_eperasc_spec_at="${_eperasc_spec_at:+${_eperasc_spec_at},}${_eperasc_at}";
fi; break;
fi;
else
if [ "${_eperasc_at}" = "${_eperasc_spec_at0%%,*}" ]; then
_eperasc_foundfl=1; [ "${_eperasc_eqfl}" -eq 0 ] && continue;
fi; [ "${_eperasc_foundfl}" -eq 0 ] && continue;
fi;
_eperasc_spec_at="${_eperasc_spec_at:+${_eperasc_spec_at},}${_eperasc_at}";
done;
else
_eperasc_rc=1;
fi;
eval ${_eperasc_rspec_at}='${_eperasc_spec_at}';
return "${_eperasc_rc}";
};
#
# exp_pkg_expand_restart_at_virtual() - XXX
# @_rstatus: out reference to status string
# @_spec_at: restart build step list
# @_rspec_at_new: out reference to new restart build step list
# @_rset: inout reference to restart virtual build step set
#
# Calling convention: inout ref. @_rspec_recursive
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_expand_restart_at_virtual() {
local _epera_rstatus="${1#\$}" _epera_spec_at="${2}" _epera_rspec_at_new="${3#\$}" \
_epera_rset="${4#\$}" \
_epera_at="" _epera_IFS0="${IFS:- }" _epera_rc=0 _epera_spec_at_new="" \
IFS;
eval ${_epera_rspec_at_new}=;
IFS=","; set -- ${_epera_spec_at}; IFS="${_epera_IFS0}";
while [ "${#}" -gt 0 ]; do
_epera_at="${1}"; shift;
if [ "${_epera_at#@}" != "${_epera_at}" ]; then
_epera_at="${_epera_at#@}";
_epera_rc=1;
rtl_setrstatus "${_epera_rstatus}" 'invalid virtual build step \`'"${_epera_at}"''\''';
if [ "${_epera_at%[!0-9a-zA-Z_]*}" != "${_epera_at}" ]; then
_epera_rc=1;
elif eval [ '"${'"${_epera_rset}${_epera_at}"':+1}"' = 1 ]; then
eval _epera_at='${'"${_epera_rset}${_epera_at}"'}';
else
_epera_rc=1;
rtl_setrstatus "${_epera_rstatus}" 'unknown virtual build step \`'"${_epera_at}"''\''';
fi;
fi;
eval ${_epera_rspec_at_new}='${'"${_epera_rspec_at_new}"':+${'"${_epera_rspec_at_new}"'},}${_epera_at}';
done;
return "${_epera_rc}";
};
#
# exp_pkg_expand_restart_recursive() - XXX
# @_rspec: inout reference to restart {specification,package name list}
# @_rrecursive: out reference to recursion flag
#
# Calling convention: inout ref. @_rspec, out ref. @_rrecursive
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_expand_restart_recursive() {
local _eperr_rspec="${1#\$}" _eperr_rrecursive="${2#\$}" _eperr_spec="";
eval _eperr_spec='${'"${_eperr_rspec}"'}';
case "${_eperr_spec}" in
\*\*\*[a-zA-Z]*)
eval ${_eperr_rspec}='${_eperr_spec#\*\*\*}' ${_eperr_rrecursive}=3; ;;
\*\*[a-zA-Z]*) eval ${_eperr_rspec}='${_eperr_spec#\*\*}' ${_eperr_rrecursive}=2; ;;
\*[a-zA-Z]*) eval ${_eperr_rspec}='${_eperr_spec#\*}' ${_eperr_rrecursive}=1; ;;
ALL) eval ${_eperr_rrecursive}=2; ;;
LAST) eval ${_eperr_rrecursive}=0; ;;
esac;
return 0;
};
#
# exp_pkg_expand_restart_spec() - XXX
# @_rstatus: out reference to status string
# @_rspec: inout reference to restart {specification,package name list}
# @_rspec_at: out reference to restart build step list
#
# Calling convention: inout ref. @_rspec, out ref. @_rspec_at, out ref. @_rrecursive
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_expand_restart_spec() {
local _epers_rstatus="${1#\$}" _epers_rspec="${2#\$}" _epers_rspec_at="${3#\$}" \
_epers_last_pkg="" _epers_rc=0 _epers_spec="" _epers_spec_at="" _epers_spec_at0="";
eval _epers_spec='${'"${_epers_rspec}"'}';
case "${_epers_spec}" in
"") eval ${_epers_rspec_at}=; ;;
ALL) eval ${_epers_rspec_at}=ALL; ;;
LAST|LAST:*)
case "${_epers_spec}" in
LAST) eval ${_epers_rspec_at}=LAST; ;;
LAST:*) eval ${_epers_rspec_at}='${_epers_spec#LAST:}'; ;;
esac;
if [ "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME:+1}" = 1 ]\
&& [ -e "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}" ]; then
if read -r _epers_last_pkg <"${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}"\
&& rtl_fileop rm "${DEFAULT_BUILD_LAST_FAILED_PKG_FNAME}"; then
eval ${_epers_rspec}='${_epers_last_pkg}';
else
_epers_rc=1;
rtl_setrstatus "${_epers_rstatus}" 'failed to read or clear status of last failed package \`'"${_epers_last_pkg}"''\''';
fi;
else
_epers_rc=1;
rtl_setrstatus "${_epers_rstatus}" 'cannot rebuild last failed package';
fi; ;;
*:*) eval ${_epers_rspec}='${_epers_spec%:*}' ${_epers_rspec_at}='${_epers_spec#*:}'; ;;
*) eval ${_epers_rspec_at}= ${_epers_rspec_at}=ALL; ;;
esac;
return "${_epers_rc}";
};
#
# exp_pkg_init_restart_at_virtual() - XXX
# @_rset: out reference to restart virtual build step set
#
# Calling convention: out ref. @_rset
# Returns: zero (0) on success, non-zero (>0) on failure
#
exp_pkg_init_restart_at_virtual() {
local _eperav_rset="${1#\$}" _eperav_step="" _eperav_step_virtual="" _epera_steps="";
rtl_lfilter2 \$DEFAULT_BUILD_STEPS \$_epera_steps "finish";
for _eperav_step in ${_epera_steps}; do
_eperav_step_virtual="${_eperav_step%%_*}";
if eval [ '"${'"${_eperav_rset}${_eperav_step_virtual}"':+1}"' != 1 ]; then
eval ${_eperav_rset}='"${'"${_eperav_rset}"':+${'"${_eperav_rset}"'},}${_eperav_step_virtual}"';
fi;
eval ${_eperav_rset}${_eperav_step_virtual}='"${'"${_eperav_rset}${_eperav_step_virtual}"':+${'"${_eperav_rset}${_eperav_step_virtual}"'},}${_eperav_step}"';
done;
return 0;
};
#
# ex_pkg_process_restart_spec() - XXX
# @_rstatus: out reference to status string
# @_rspec: inout reference to restart {specification,package name list}
# @_rspec_at: out reference to restart build step list
# @_rrecursive: out reference to restart recursion flag
#
# Calling convention: inout ref. @_rspec, out ref. @_rspec_at
# Returns: zero (0) on success, non-zero (>0) on failure
#
ex_pkg_process_restart_spec() {
local _epprs_rstatus="${1#\$}" _epprs_rspec="${2#\$}" _epprs_rspec_at="${3#\$}" \
_epprs_rrecursive="${4#\$}" \
_epprs_at="" _epprs_rc=0 _epprs_spec_at_new="" _epprs_step="" _epprs_step1="" \
_epprs_virtual_set="";
if eval [ '"${'"${_epprs_rspec}"':+1}"' = 1 ]; then
if exp_pkg_init_restart_at_virtual \$_epprs_virtual_set \
&& exp_pkg_expand_restart_spec "${_epprs_rstatus}" "${_epprs_rspec}" \$_epprs_spec_at_new \
&& exp_pkg_expand_restart_recursive "${_epprs_rspec}" "${_epprs_rrecursive}" \
&& exp_pkg_expand_restart_at_spec "${_epprs_rstatus}" \$_epprs_virtual_set \$_epprs_spec_at_new;
then
eval ${_epprs_rspec_at}=;
case "${_epprs_spec_at_new}" in
ALL|LAST)
eval ${_epprs_rspec_at}='${_epprs_spec_at_new}'; ;;
*)
for _epprs_at in ${DEFAULT_BUILD_STEPS}; do
if rtl_lmatch \$_epprs_at "${_epprs_spec_at_new}" ","; then
eval ${_epprs_rspec_at}='${'"${_epprs_rspec_at}"':+${'"${_epprs_rspec_at}"'},}${_epprs_at}';
fi;
done;
if eval [ '"${'"${_epprs_rspec_at}"'##*,}"' != "finish" ]; then
rtl_lfilter2 "${_epprs_rspec_at}" \$_epprs_step "clean,finish" ","; _epprs_step="${_epprs_step##*,}";
rtl_lfilter2 \$DEFAULT_BUILD_STEPS \$_epprs_step1 "clean finish"; _epprs_step1="${_epprs_step1##* }";
if [ "${_epprs_step}" = "${_epprs_step1}" ]; then
eval ${_epprs_rspec_at}='${'"${_epprs_rspec_at}"':+${'"${_epprs_rspec_at}"'},}finish';
fi;
fi; ;;
esac;
rtl_llift "${_epprs_rspec}" "," " " || _epprs_rc=1;
else
_epprs_rc=1;
fi;
rtl_sunset \$_epprs_virtual_set;
fi;
return "${_epprs_rc}";
};
# vim:filetype=sh textwidth=0