1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/bin/bash
RUN_SERIAL=false
PROG="${PROG:-./freecell-solver-multi-thread-solve}"
MAX_BOARD="32000"
while getopts "spt:" flag ; do
# Run the serial scan first.
if [ "$flag" = "s" ] ; then
RUN_SERIAL=true
# Run the multi-process version instead of the multi-threaded version.
elif [ "$flag" = "p" ] ; then
PROG="./freecell-solver-fork-solve"
# Maximal board - mnemonic - "to".
elif [ "$flag" = "t" ] ; then
MAX_BOARD="$OPTARG"
fi
done
while [ $OPTIND -ne 1 ] ; do
shift
let OPTIND--
done
MIN="${1:-1}"
shift
MAX="${1:-6}"
shift
OUT_DIR="${OUT_DIR:-.}"
ARGS="${ARGS:--l gi}"
# strip * > /dev/null 2>&1
DUMPS_DIR="$OUT_DIR/$(date +"DUMPS-%s")"
mkdir -p "$DUMPS_DIR"
p_dir="__p"
if ! test -e "$p_dir" ; then
cp -R "$(dirname "$0")"/../Presets "$p_dir"
cp "Presets/presetrc" "$p_dir/"
P="$(cd "$p_dir"/presets && pwd)" \
perl -lpi -e 's!\A(dir=).*\z!$1$ENV{P}/!ms' ./"$p_dir"/presetrc
fi
export FREECELL_SOLVER_PRESETRC="$(ls $(pwd)/"$p_dir"/presetrc)"
if $RUN_SERIAL ; then
echo "Testing Serial Run"
./freecell-solver-range-parallel-solve 1 "$MAX_BOARD" 4000 $ARGS | tee "$DUMPS_DIR"/dump
fi
for NUM in $(seq "$MIN" "$MAX") ; do
echo "Testing $NUM"
$PROG 1 "$MAX_BOARD" 4000 \
--iters-update-on 10000000 \
--num-workers "$NUM" \
$ARGS \
| tee "$(printf "%s/dump%.3i" "$DUMPS_DIR" "$NUM")"
done
|
