This commit was generated by cvs2svn to compensate for changes in r491,

[elisp/tm.git] / methods / tm-au

diff --git a/methods/tm-au b/methods/tm-au
index fe65855..ae38d8e 100755 (executable)
--- a/methods/tm-au
+++ b/methods/tm-au
@@ -1,29 +1,40 @@
-#!/bin/sh
+#!/bin/sh -
+#
+# $Id: tm-au,v 3.2 1996/03/25 12:35:55 morioka Exp $
+#
+
 if [ "$TM_TMP_DIR" = "" ]; then
        TM_TMP_DIR=/tmp
        export TM_TMP_DIR
 fi
 
 if [ "$5" = "" ]; then
-  filename="$TM_TMP_DIR/mime$$.au"
+       filename="$TM_TMP_DIR/mime$$.au"
 else
-  filename="$TM_TMP_DIR/$5"
+       filename="$TM_TMP_DIR/$5"
 fi
 
-echo "$2; $3 -> $filename"
-
-tmdecode $3 $1 $filename
-
 
 case "$4" in
 "play")
-        if [ "$AUDIOSERVER" = "" ]; then
-          cat $filename >/dev/audio
-        else
-          autool -v 40 $filename
-        fi
+       echo "$2; $3 ->"
+       if [ "$AUDIOSERVER" = "" ]; then
+               if [ `uname` = "IRIX" ]; then
+                       tmdecode $3 $1 $filename
+                       sfplay $filename
+                       trap 'rm -f $filename' 0 1 2 3 13 15
+               else
+                       tmdecode $3 $1 /dev/audio
+               fi
+       else
+               tmdecode $3 $1 $filename
+               autool -v 40 $filename
+               trap 'rm -f $filename' 0 1 2 3 13 15
+       fi
        ;;
 "extract")
+       echo "$2; $3 -> $filename"
        echo "extract to $filename"
+       tmdecode $3 $1 $filename
        ;;
 esac