X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/interpretor/preprocessor/faust-0.9.47mr3/tools/faust2appls/faust2graphviewer

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/tools/faust2appls/faust2graphviewer b/interpretor/preprocessor/faust-0.9.47mr3/tools/faust2appls/faust2graphviewer
new file mode 100755
index 0000000..cb55f74
--- /dev/null
+++ b/interpretor/preprocessor/faust-0.9.47mr3/tools/faust2appls/faust2graphviewer
@@ -0,0 +1,41 @@
+#!/bin/bash
+
+# Usage.
+print_usage() 
+{
+    echo Usage : args of faust2graphviewer should be a \'.dsp\' file, or a list of \'.dsp\' files.
+}
+
+
+#    prepare how we are going to open .pdf files
+if [[ $(uname) == Darwin ]]; then
+    OPEN=open
+else
+	OPEN=xdg-open
+fi
+
+
+
+#    Main loop of this script :
+for FILEPATH in $@ ; do
+    if [ -f $FILEPATH ] ; then
+	FILENAME=`basename $FILEPATH` &&
+	case $FILENAME in
+	    *.dsp )  
+		faust -o /dev/null -vec --task-graph $FILEPATH &&
+		dot -Tpdf $FILEPATH.dot -o ${FILEPATH%.dsp}-graph.pdf &&
+		rm $FILEPATH.dot &&
+		${OPEN} ${FILEPATH%.dsp}-graph.pdf 
+		;;
+	    * )
+		echo error : \'$FILEPATH\' does not have a \'.dsp\' extension.
+		exit 2
+		;;
+	esac	
+    else
+	print_usage
+	exit 1
+    fi
+done
+exit 0
+