Mercurial > hg > xemacs-beta
view lib-src/tm-au @ 81:ebca3d831cea
Added tag r20-0b90 for changeset 1ce6082ce73f
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:06:45 +0200 |
| parents | 1ce6082ce73f |
| children | 6a378aca36af |
line wrap: on
line source
#!/bin/sh - # # $Id: tm-au,v 1.3 1997/01/11 20:13:51 steve Exp $ # PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH 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 ->" tmdecode $3 $1 $filename if [ "$AUDIOSERVER" = "" ]; then if [ `uname` = "IRIX" ]; then sfplay $filename else cat $filename > /dev/audio fi else autool -v 40 $filename fi trap 'rm -f $filename' 0 1 2 3 13 15 ;; "extract") echo "$2; $3 -> $filename" echo "extract to $filename" tmdecode $3 $1 $filename ;; esac
