BINDINGS?=java glib python perl qt4

all: testall analyzeall


analyzeall:
	( for i in $(BINDINGS) ; do \
	  \
	  	  export RESULT=0 ;\
		  echo "Test results for $${i}" ;\
		  if [[ "`cat $${i}*.server.log 2>/dev/null | wc -l`" == "0" ]]; then \
		  		echo -e "\033[31mFailed to generate test data for $${i}.\033[39m";\
				continue;\
		  fi; \
	         \
		  echo -n "   Tested against: " ;\
		  echo `ls *$${i}*.*.log 2>/dev/null | sed 's/\..*$$//;s/-/\n/g' | sort -u` ;\
	      \
		  echo -n "   Passes: " ;\
	        echo -ne "\033[32m";\
	        cat $${i}*.client.log 2>/dev/null | grep -c pass ;\
	        echo -ne "\033[39m";\
	      \
	     ((x=0));\
	     ((y=0));\
	     for j in `grep fail $${i}*client.log | cut -d' ' -f1`; do \
	        if grep $$j java/cross-test-ignore &>/dev/null; then \
	           ((x++)); \
	        else \
	           ((y++)); \
	        fi; \
	     done;\
	      \
		  echo -n "   Fails: " ;\
	        if [[ "$$y" == "0" ]]; then \
	           echo -ne "\033[32m";\
	        else \
	           echo -ne "\033[31m";\
				  export RESULT=-100 ;\
	        fi; \
	        echo -n $$y ;\
	        echo -e "\033[39m";\
	      \
		  echo -ne "\033[31m";\
		  for j in $${i}*.client.log; do \
		  	 for k in `grep fail $$j  2>/dev/null| cut -d' ' -f 3`; do \
	          if ! grep `grep "fail $$k" < $$j | cut -d' ' -f1` $${i}/cross-test-ignore &>/dev/null; then \
	            echo "     " `grep "fail $$k" < $$j | cut -d' ' -f1`: `grep "^report $${k}:" < $$j | sed 's/^[^:]*://'`; \
	         fi; \
			 done ;\
		  done ;\
		  echo -e "\033[39m";\
	     \
		  echo -n "   Ignored Fails: " ;\
	        if [[ "$$x" == "0" ]]; then \
	           echo -ne "\033[32m";\
	        else \
	           echo -ne "\033[33m";\
				  export RESULT=$$(( $$RESULT + 10 )); \
	        fi; \
	        echo -n $$x ;\
	        echo -e "\033[39m";\
	      \
		  echo -ne "\033[33m";\
		  for j in $${i}*.client.log; do \
		  	 for k in `grep fail $$j  2>/dev/null| cut -d' ' -f 1 | sort -u`; do \
	          if grep $$k $${i}/cross-test-ignore &>/dev/null; then \
	            echo "      " $$k; \
	         fi; \
			 done ;\
		  done ;\
		  echo -e "\033[39m";\
	     \
		  echo "   $${i} failed to test: " ;\
	      \
		  echo -n "   bindings: " ;\
		  echo -ne "\033[33m";\
		  for j in $(BINDINGS); do \
		  		if [ ! -s $${i}-$${j}.server.log ]; then \
					echo -n $${j} " "; \
				fi; \
		  done; \
		  echo -e "\033[39m";\
	   \
		  echo -n "   functions: " ;\
		  if grep untested *$${i}.server.log &>/dev/null; then \
			  echo -ne "\033[33m";\
			  export RESULT=$$(( $$RESULT + 10 )); \
		  else \
			  echo -ne "\033[32m";\
		  fi; \
		  cat *$${i}.server.log 2>/dev/null | grep -c untested$$ ;\
		  echo -ne "\033[39m";\
	     \
		  echo "   not-ignored untested functions: " ;\
		  echo -ne "\033[33m";\
		  for j in `cat *$${i}.server.log 2>/dev/null | grep untested$$ | cut -d' ' -f1 | sort -u`; do \
	          if ! grep $$j $${i}/cross-test-ignore &>/dev/null; then \
	            echo "      " $$j; \
	          fi; \
	     done ; \
		  echo -e "\033[39m";\
		  echo -n "   Verdict: ";\
		  if (( $$RESULT == 0 )); then\
		  		echo -e "\033[32mPASSED\033[39m";\
		  elif (( $$RESULT > 0 )); then\
		  		echo -e "\033[33mPARTIAL\033[39m";\
		  else \
		  		echo -e "\033[31mFAIL\033[39m";\
			fi; \
	done )
	

testall:
	( for i in $(BINDINGS) ; do \
		 for j in $(BINDINGS) ; do \
			make -s SERV=$$i CLI=$$j check ;\
		 done \
	  done)

clean:
	rm -f -- *log
	rm -f address pid tmp-session-bus monitor

check:
	( dbus-daemon --config-file=tmp-session.conf --print-pid --print-address=5 --fork >pid 5>address ; \
	  export DBUS_SESSION_BUS_ADDRESS=$$(cat address |sed "s,\./,`pwd`/,") ;\
	  dbus-monitor > monitor &\
	  sleep 1;\
	  make -sC $(SERV) cross-test-compile ;\
	  make -sC $(SERV) cross-test-server > $(SERV)-$(CLI).server.log &\
	  make -sC $(CLI) cross-test-compile ;\
	  sleep 1;\
	  make -sC $(CLI) cross-test-client > $(SERV)-$(CLI).client.log ;\
	  kill $$(cat pid) )