Mercurial > hg > xemacs-beta
diff lib-src/tm-au @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:56 +0200 |
| parents | |
| children | 49a24b4fd526 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib-src/tm-au Mon Aug 13 08:46:56 2007 +0200 @@ -0,0 +1,40 @@ +#!/bin/sh - +# +# $Id: tm-au,v 1.1.1.1 1996/12/18 03:52:12 steve Exp $ +# + +if [ "$TM_TMP_DIR" = "" ]; then + TM_TMP_DIR=/tmp + export TM_TMP_DIR +fi + +if [ "$5" = "" ]; then + filename="$TM_TMP_DIR/mime$$.au" +else + filename="$TM_TMP_DIR/$5" +fi + + +case "$4" in +"play") + 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