mirrors/flatcar-scripts
1
0
Fork 0
mirror of https://github.com/flatcar/scripts.git synced 2025-09-29 09:31:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

eclass/guile-utils: Sync with Gentoo

Browse Source 
It's from Gentoo commit c8af7eb1285a2683460618b71e2e9a14ca6badcd.
This commit is contained in:
Flatcar Buildbot 2024-10-21 07:06:37 +00:00
parent f24e79258a
commit f96e6f76d1
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
sdk_container/src/third_party/portage-stable/eclass/guile-utils.eclass vendored
View File

@ -46,7 +46,7 @@ BDEPEND="virtual/pkgconfig"
# Checks that GUILE_COMPAT is set to an array, and has no invalid # Checks that GUILE_COMPAT is set to an array, and has no invalid
# values. # values.
guile_check_compat() { guile_check_compat() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
if ! [[ ${GUILE_COMPAT@a} == *a* ]]; then if ! [[ ${GUILE_COMPAT@a} == *a* ]]; then
die "GUILE_COMPAT not set to an array" die "GUILE_COMPAT not set to an array"
@ -86,7 +86,7 @@ guile_check_compat
# Sets common variables that apply to all Guile packages, namely, # Sets common variables that apply to all Guile packages, namely,
# QA_PREBUILT. # QA_PREBUILT.
guile_set_common_vars() { guile_set_common_vars() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
# These aren't strictly speaking prebuilt. but they do generated a # These aren't strictly speaking prebuilt. but they do generated a
# nonstandard ELF object. # nonstandard ELF object.
@ -101,7 +101,7 @@ guile_set_common_vars() {
# Alters ${PKG_CONFIG_PATH} such that it does not contain any Guile # Alters ${PKG_CONFIG_PATH} such that it does not contain any Guile
# slots besides the ones required by the caller. # slots besides the ones required by the caller.
guile_filter_pkgconfig_path() { guile_filter_pkgconfig_path() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
local filtered_path= unfiltered_path path local filtered_path= unfiltered_path path
IFS=: read -ra unfiltered_path <<<"${PKG_CONFIG_PATH}" IFS=: read -ra unfiltered_path <<<"${PKG_CONFIG_PATH}"
@ -132,7 +132,7 @@ guile_filter_pkgconfig_path() {
# Generates GUILE_REQUIRED_USE/GUILE_DEPS/GUILE_USEDEP based on # Generates GUILE_REQUIRED_USE/GUILE_DEPS/GUILE_USEDEP based on
# GUILE_COMPAT, and populates IUSE. # GUILE_COMPAT, and populates IUSE.
guile_generate_depstrings() { guile_generate_depstrings() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
# Generate IUSE, REQUIRED_USE, GUILE_USEDEP # Generate IUSE, REQUIRED_USE, GUILE_USEDEP
local prefix="$1" depop="$2" local prefix="$1" depop="$2"
@ -169,7 +169,7 @@ guile_generate_depstrings() {
# @DESCRIPTION: # @DESCRIPTION:
# Marks site-ccache files not to be stripped. Operates on ${D}. # Marks site-ccache files not to be stripped. Operates on ${D}.
guile_unstrip_ccache() { guile_unstrip_ccache() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
local ccache local ccache
while read -r -d $'\0' ccache; do while read -r -d $'\0' ccache; do
@ -196,7 +196,7 @@ guile_unstrip_ccache() {
# - GUILE_SITECCACHEDIR - Path to the site-ccache directory, # - GUILE_SITECCACHEDIR - Path to the site-ccache directory,
# - GUILE_SITEDIR - Path to the site Scheme directory # - GUILE_SITEDIR - Path to the site Scheme directory
guile_export() { guile_export() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
local gver local gver
if [[ "${GUILE_CURRENT_VERSION}" ]]; then if [[ "${GUILE_CURRENT_VERSION}" ]]; then
@ -243,7 +243,7 @@ guile_export() {
# Creates a guile-config executable for a given Guile version, and # Creates a guile-config executable for a given Guile version, and
# inserts it into path. # inserts it into path.
guile_create_temporary_config() { guile_create_temporary_config() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
[[ ${1} ]] || die "Must specify a Guile version" [[ ${1} ]] || die "Must specify a Guile version"
@ -267,7 +267,7 @@ guile_create_temporary_config() {
# #
# http://debbugs.gnu.org/cgi/bugreport.cgi?bug=38112 # http://debbugs.gnu.org/cgi/bugreport.cgi?bug=38112
guile_bump_sources() { guile_bump_sources() {
debug-print-function ${FUNCNAME} "${@}" debug-print-function ${FUNCNAME} "$@"
einfo "bumping *.scm source files..." einfo "bumping *.scm source files..."
find "${S}" -name "*.scm" -exec touch {} + || die find "${S}" -name "*.scm" -exec touch {} + || die