Mercurial > hg > xemacs-beta
view 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 source
#!/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