2005-02-16 11:13:18 +00:00
|
|
|
makeWrapper() {
|
2008-01-18 11:28:41 +00:00
|
|
|
local original=$1
|
|
|
|
local wrapper=$2
|
|
|
|
local params varName value command separator n fileNames
|
2008-06-14 21:45:58 +01:00
|
|
|
local flagsBefore flags
|
2005-02-16 11:13:18 +00:00
|
|
|
|
2012-01-18 20:16:00 +00:00
|
|
|
mkdir -p "$(dirname $wrapper)"
|
2005-02-16 11:13:18 +00:00
|
|
|
|
|
|
|
echo "#! $SHELL -e" > $wrapper
|
|
|
|
|
|
|
|
params=("$@")
|
|
|
|
for ((n = 2; n < ${#params[*]}; n += 1)); do
|
|
|
|
p=${params[$n]}
|
|
|
|
|
2005-03-09 19:07:23 +00:00
|
|
|
if test "$p" = "--set"; then
|
|
|
|
varName=${params[$((n + 1))]}
|
|
|
|
value=${params[$((n + 2))]}
|
|
|
|
n=$((n + 2))
|
|
|
|
echo "export $varName=$value" >> $wrapper
|
|
|
|
fi
|
|
|
|
|
2008-01-18 11:28:41 +00:00
|
|
|
if test "$p" = "--run"; then
|
|
|
|
command=${params[$((n + 1))]}
|
|
|
|
n=$((n + 1))
|
|
|
|
echo "$command" >> $wrapper
|
|
|
|
fi
|
|
|
|
|
2005-03-13 20:43:04 +00:00
|
|
|
if test "$p" = "--suffix" -o "$p" = "--prefix"; then
|
2005-02-16 11:13:18 +00:00
|
|
|
varName=${params[$((n + 1))]}
|
|
|
|
separator=${params[$((n + 2))]}
|
|
|
|
value=${params[$((n + 3))]}
|
|
|
|
n=$((n + 3))
|
2005-02-16 11:24:40 +00:00
|
|
|
if test -n "$value"; then
|
2005-03-13 20:43:04 +00:00
|
|
|
if test "$p" = "--suffix"; then
|
|
|
|
echo "export $varName=\$$varName\${$varName:+$separator}$value" >> $wrapper
|
|
|
|
else
|
|
|
|
echo "export $varName=$value\${$varName:+$separator}\$$varName" >> $wrapper
|
|
|
|
fi
|
2005-02-16 11:24:40 +00:00
|
|
|
fi
|
2005-02-16 11:13:18 +00:00
|
|
|
fi
|
2005-02-16 11:38:52 +00:00
|
|
|
|
|
|
|
if test "$p" = "--suffix-each"; then
|
|
|
|
varName=${params[$((n + 1))]}
|
|
|
|
separator=${params[$((n + 2))]}
|
|
|
|
values=${params[$((n + 3))]}
|
|
|
|
n=$((n + 3))
|
|
|
|
for value in $values; do
|
|
|
|
echo "export $varName=\$$varName\${$varName:+$separator}$value" >> $wrapper
|
|
|
|
done
|
|
|
|
fi
|
|
|
|
|
2009-07-16 12:22:37 +01:00
|
|
|
if test "$p" = "--suffix-contents" -o "$p" = "--prefix-contents"; then
|
2005-02-16 11:38:52 +00:00
|
|
|
varName=${params[$((n + 1))]}
|
|
|
|
separator=${params[$((n + 2))]}
|
|
|
|
fileNames=${params[$((n + 3))]}
|
|
|
|
n=$((n + 3))
|
|
|
|
for fileName in $fileNames; do
|
2009-07-16 12:22:37 +01:00
|
|
|
if test "$p" = "--suffix-contents"; then
|
|
|
|
echo "export $varName=\$$varName\${$varName:+$separator}$(cat $fileName)" >> $wrapper
|
|
|
|
else
|
|
|
|
echo "export $varName=$(cat $fileName)\${$varName:+$separator}\$$varName" >> $wrapper
|
|
|
|
fi
|
2005-02-16 11:38:52 +00:00
|
|
|
done
|
|
|
|
fi
|
2008-06-14 21:45:58 +01:00
|
|
|
|
|
|
|
if test "$p" = "--add-flags"; then
|
|
|
|
flags=${params[$((n + 1))]}
|
|
|
|
n=$((n + 1))
|
|
|
|
flagsBefore="$flagsBefore $flags"
|
|
|
|
fi
|
2005-02-16 11:13:18 +00:00
|
|
|
done
|
|
|
|
|
2009-04-05 19:13:59 +01:00
|
|
|
# Note: extraFlagsArray is an array containing additional flags
|
|
|
|
# that may be set by --run actions.
|
2015-08-21 00:28:31 +01:00
|
|
|
echo exec -a '"$0"' "$original" $flagsBefore '"${extraFlagsArray[@]}"' '"$@"' >> $wrapper
|
|
|
|
|
2005-02-16 11:13:18 +00:00
|
|
|
chmod +x $wrapper
|
|
|
|
}
|
2005-02-16 11:38:52 +00:00
|
|
|
|
|
|
|
addSuffix() {
|
|
|
|
suffix=$1
|
|
|
|
shift
|
|
|
|
for name in "$@"; do
|
|
|
|
echo "$name$suffix"
|
|
|
|
done
|
|
|
|
}
|
|
|
|
|
|
|
|
filterExisting() {
|
|
|
|
for fn in "$@"; do
|
|
|
|
if test -e "$fn"; then
|
|
|
|
echo "$fn"
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
}
|
2008-01-18 10:29:58 +00:00
|
|
|
|
|
|
|
# Syntax: wrapProgram <PROGRAM> <MAKE-WRAPPER FLAGS...>
|
|
|
|
wrapProgram() {
|
|
|
|
local prog="$1"
|
2014-09-02 17:45:41 +01:00
|
|
|
local hidden="$(dirname "$prog")/.$(basename "$prog")"-wrapped
|
2008-01-18 10:29:58 +00:00
|
|
|
mv $prog $hidden
|
|
|
|
makeWrapper $hidden $prog "$@"
|
|
|
|
}
|