#!/bin/bash
set -e
set -o pipefail
set -x
regex=$1
name=$2
scripts=/mit/ghc/src/random
target=/mit/ghc/src/random/work-patching
mkdir $target/$name
egrep -rl "$regex" * | perl $scripts/just-package-from-logfile.pl > $target/$name/$name
while read -r file
do echo $file/$(perl $scripts/get-file-name-from-log.pl "$regex" < $file.log )
done < $target/$name/$name > $target/$name/files
mkdir $target/$name/p
pushd $target/$name/p
bash $scripts/unpack-to-patch.sh < ../$name