tcl: allow passing in extra wrapper args through tclWrapperArgs

This commit is contained in:
Sandro Jäckel 2021-06-17 20:39:44 +02:00
parent 6f910f41f4
commit 4109b119c2
No known key found for this signature in database
GPG key ID: 3AF5A43A3EECC2E5

View file

@ -2,6 +2,8 @@
# * wrap any installed executables with a wrapper that configures TCLLIBPATH # * wrap any installed executables with a wrapper that configures TCLLIBPATH
# * write a setup hook that extends the TCLLIBPATH of any anti-dependencies # * write a setup hook that extends the TCLLIBPATH of any anti-dependencies
tclWrapperArgs=( ${tclWrapperArgs-} )
# Add a directory to TCLLIBPATH, provided that it exists # Add a directory to TCLLIBPATH, provided that it exists
_addToTclLibPath() { _addToTclLibPath() {
local tclPkg="$1" local tclPkg="$1"
@ -50,10 +52,12 @@ wrapTclBins() {
return return
fi fi
tclWrapperArgs+=(--prefix TCLLIBPATH ' ' "$TCLLIBPATH")
find "$tclBinsDir" -type f -executable -print | find "$tclBinsDir" -type f -executable -print |
while read -r someBin; do while read -r someBin; do
echo "Adding TCLLIBPATH wrapper for $someBin" echo "Adding TCLLIBPATH wrapper for $someBin"
wrapProgram "$someBin" --prefix TCLLIBPATH ' ' "$TCLLIBPATH" wrapProgram "$someBin" "${tclWrapperArgs[@]}"
done done
} }