2004-05-13 19:14:49 +00:00
|
|
|
#! /bin/sh
|
|
|
|
|
2005-01-25 11:55:43 +00:00
|
|
|
#set -x
|
2004-05-12 09:35:51 +00:00
|
|
|
|
2010-08-25 20:44:28 +00:00
|
|
|
while read x y drv rest; do
|
2004-05-12 09:35:51 +00:00
|
|
|
|
2010-08-25 20:44:28 +00:00
|
|
|
echo "HOOK for $drv" >&2
|
2004-05-12 09:35:51 +00:00
|
|
|
|
2010-08-25 20:44:28 +00:00
|
|
|
outPath=`sed 's/Derive(\[("out",\"\([^\"]*\)\".*/\1/' $drv`
|
2004-05-12 09:35:51 +00:00
|
|
|
|
2010-08-25 20:44:28 +00:00
|
|
|
echo "output path is $outPath" >&2
|
2004-05-12 09:35:51 +00:00
|
|
|
|
2010-08-25 20:44:28 +00:00
|
|
|
if `echo $outPath | grep -q input-1`; then
|
|
|
|
echo "# accept" >&2
|
|
|
|
read inputs
|
|
|
|
read outputs
|
|
|
|
mkdir $outPath
|
|
|
|
echo "BAR" > $outPath/foo
|
|
|
|
else
|
|
|
|
echo "# decline" >&2
|
|
|
|
fi
|
|
|
|
|
|
|
|
done
|