#! /bin/sh
# Copyright (C) 2004  Laboratoire d'Informatique de Paris 6 (LIP6),
# département Systèmes Répartis Coopératifs (SRC), Université Pierre
# et Marie Curie.
#
# This file is part of Spot, a model checking library.
#
# Spot is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# Spot is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
# License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Spot; see the file COPYING.  If not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.


# Check for the reduc visitor

#. ./defs || exit 1
if [ $1 ]; then
    FICH=$1
else
    FICH="formules.ltl"
fi

#####################################
rm output? result_bri.test -f
for opt in bri ##b r i br bi rb ri ib ir bri bir rbi rib ibr irb
  do
  for f in `awk '{print $1}' $FICH`
    do
    if [ ! $f = "####" ]; then
	#echo $f;
	if ./reduc "$f" >> result_$opt.test;
	    then
	    #echo $f >> output1
	#    if  ../tgbatest/ltl2tgba -f "$f" >> output1; then #automate FM
	#	echo "" >> output1
	#    else
	#	echo $f;
	#    fi
	  #echo "'$f' is reduce ($NB)"
	    (( NB += 1 ));
	else
	    (( NB = NB ));
	    #echo "reduc failed to reduce '$f'";
	fi
    fi
  done
  #echo "$NB formula reduce"
  (( NB = 0 ));
done
#####################################

#ftmp=""
#for f in `sed -e "s/\(.* reduce to \)/'1'/" result_bri.test`
#  do
#  if [ $ftmp = "" ]; then
#      echo $ftmp;
#      ftmp="";
#  else
#      echo $f;
#      ftmp="$ftmp $f";
#      echo $ftmp;
#  fi
#  echo $f >> output2
#  ../tgbatest/ltl2tgba -f "$f" >> output2 #automate FM
#  echo "" >> output2
#done

##############################################
#exit 0
##############################################

SUM1=0
SUM2=0
AVG=0
for res in `awk '{print $1}' result_bri.test`
do
  SUM1=$(expr $res + $SUM1)
done
#echo $SUM1

for res in `awk '{print $2}' result_bri.test`
do
  SUM2=$(expr $res + $SUM2)
done
(( SUM2 *= 100 ))
#echo $SUM2

if [ ! $SUM1 = 0 ]; then
    AVG=$(expr $SUM2 / $SUM1)
fi

#AVG=$(expr $AVG / $NB)
#AVG=$(expr $AVG)
#echo "average reduce $AVG %"

exit 0;

### Formule qui ne passe pas !! => Segmentation fault !!
#'(((p2)R((X(p2))U(X(1))))*(p0))*((p1)R((p2)R(p0)))'
#'(((p2)R((X(p2))U(X(1))))*(p0))'
#'((p1)R((p2)R(p0)))'

#'(p0 R (Gp0 U (p0 U Xp1)))'


#'(((!p)*(X(X(p))))*((p)R((q)+(!q))))+((!q)U(q))'
#'X(((p1)R(1))*((0)R((p0)+(p1))))'
#'((p0)U(0))U(((0)R(0))*(X(p2)))'
#'(((X(1))R(1))U((0)R(1)))R(p0)'
#'((X(p0))R(X(p2)))+((0)R((((p2)+(0))*(p0))R(0)))'
#'((X(0))+((0)R(p2)))U(((p0)R((p2)*(p2)))R(X(p2)))'
#'(p1)R(((p2)R(1))R(((p1)U((1)U(p0)))R((p2)U(0))))'
#'(((X(p0))R(X(p0)))R((p0)R(1)))*((0)R((p1)R(0)))'
#'(((p1)R(X(p2)))R((0)+((1)U(1))))U((X(1))R(p2))'

(((!p)*(X(X(p))))*((p)R((q)+(!q))))+((!q)U(q))
X(((p1)R(1))*((0)R((p0)+(p1))))
((p0)U(0))U(((0)R(0))*(X(p2)))
(((X(1))R(1))U((0)R(1)))R(p0)
((X(p0))R(X(p2)))+((0)R((((p2)+(0))*(p0))R(0)))
((X(0))+((0)R(p2)))U(((p0)R((p2)*(p2)))R(X(p2)))
(p1)R(((p2)R(1))R(((p1)U((1)U(p0)))R((p2)U(0))))
(((X(p0))R(X(p0)))R((p0)R(1)))*((0)R((p1)R(0)))
(((p1)R(X(p2)))R((0)+((1)U(1))))U((X(1))R(p2))