StructuralCharacterizationOfPlanningProblems/analisis98.sh at master · ppGodel/StructuralCharacterizationOfPlanningProblems · GitHub

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!/bin/bash
ADIR=$(pwd)/CompetitionResults/IPC1998
BBDIR=$(pwd)/ScriptFiles
tg=15
to=10
AFILE=$(pwd)/ScriptFiles/result98.csv
BFILE=$(pwd)/ScriptFiles/result98_1.csv

function findlocal()
{
    echo "Procesando $1"
    plf=$(find $1 -maxdepth 1 -type f -iname '*.pddl')
    domf=$(find $1 -maxdepth 1 -type f -iname '*domain*')
    if [ -z "$domf" ]; then
	domf=$2
    fi
    dfn=$(basename "$domf")
    for p in $plf; do
	pn=$(basename "$p")
	#ppn=$(echo ${pn%.pddl})
	if [ "$pn" == "$dfn" ]; then
	    continue
	fi
#	echo "Archivos $dfn $pn $BBDIR"
#	fp=2
#	hs=0
#	hg=0
	#echo "FFFFILE           $pn $nbc"
	faux=$(awk -F, -v apn="$pn" -v anbc="$nbc" '$5==anbc && $2==apn {print $0}' $AFILE)
	IFS=',' read -a values <<< "$faux"
	fp=${values[5]}
	hs=${values[6]}
	hg=${values[7]}
	ipn=${values[0]}
	#echo "${values[5]} ${values[6]}"
	#awk -F, -v apn="$pn" -v anbc="$nbc" '$2==apn && $5==anbc {print $0}' $AFILE #| while IFS=, read v1 v2 v3 v4 v5 v6 v7 v8 v9;
	#do fp=$v6; hs=$v7; hg=$v8; done
	echo "$fp $hs $hg"

	if [[ ( ! -z "$hs"  &&  "$hs" == "0" ) || ( ! -z "$hg"  &&  "$hg" == "1" ) ]]; then
	#if [ ! -f "$RDIR$nbc-$typn-$fn.txt" ] ; then
	    echo "File $pn will be reprocessed $(date)"
	    $BBDIR/blackbox -o $domf -f $p -x -M 32760 -maxauto 50 -solver -maxsec $tg graphplan -then -maxsec $to walksat -then -maxsec $to satz -then -maxsec $to compact > "$(pwd)/ExperimentResults/PlanningGraphs/solutions/IPC1998/$nbc/$nbc-$pn.txt"
	    planle=$(sed -n "/Begin plan/,/End plan/p" "$(pwd)/ExperimentResults/PlanningGraphs/solutions/IPC1998/$nbc/$nbc-$pn.txt" | wc -l)
	    if(($planle > 0)); then
		    planl=$(($planle-2))
		    echo "plan finded! $planl $(date)"
		    awk -F, -v pl="$planl" -v apn="$pn" -v anbc="$nbc" 'BEGIN{FS=OFS=","} $5==anbc && $2==apn {$7=pl}1' $AFILE > $BFILE
#		    echo "$bf"
#		    echo "$bf" > $BFILE
	    fi
	    mv "$(pwd)/$ipn.json" "$(pwd)/ExperimentResults/PlanningGraphs/graphs/IPC1998/$nbc/"
#	else
#	    echo "File exists $pn skip"

	fi


    done

    for directory in $1*; do
	if [[ -d $directory ]] && [ "$directory" != "$1" ]; then
	    echo "directorio y p $directory $domf"
	    findlocal $directory/ $domf
	fi
    done
}


if [ ! -z "$1" ]; then
    ADIR=$1
fi
if [ ! -z "$2" ]; then
    BBDIR=$2
fi
if [ ! -z "$3" ] && [ $4> 0 ]; then
    tg=$3
fi
if [ ! -z "$4" ] && [ $5 > 0 ]; then
    to=$4
fi

for dp in $ADIR;
do
    if [[ -d $dp ]]; then
        bn=$(basename "$dp")
	echo "Competencia" $bn
	for dcp in $dp/domains/*; do
	    if [[ -d $dcp ]]; then
		nbc=$(basename $dcp)
#		if [ "$nbc" != "gripper" ] && [ "$nbc" != "assembly" ] && [ "$nbc" != "logistics" ];then
		    echo "Dominio" $nbc
		    findlocal $dcp
#		fi
#		for typ in $dcp/*; do
#		    typn=$(basename $typ)
#		    echo "Tipo" $typn
#		    domf=$(find $dcp -type f -iname '*domain*')
#		    domn=$(basename $domf)
#		#echo $(find $dcp -type f -iname '*.pddl')
#		    filelist=$(find $dcp -type f -iname '*.pddl' | sort -n)
#		    for f in $filelist; do
#			fn=$(basename $f)
#			if [ "$fn" != "$domn" ]; then
#			    $BBDIR/blackbox -o $domf -f $f -x -M 9999 -solver -maxsec $tg graphplan -then -maxsec $to walksat -then -maxsec $to satz -then -maxsec $to compact > "$(pwd)/ExperimentsResults/PlanningGraphs/$nbc-$typn-$fn.txt"
#			fi
#		    done
#		done
#		fi
	    fi
	done
    fi
done