Mercurial > hg > xemacs-beta

comparison lib-src/tm-au @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents
children 49a24b4fd526
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 #!/bin/sh -
2 #
3 # $Id: tm-au,v 1.1.1.1 1996/12/18 03:52:12 steve Exp $
4 #
5
6 if [ "$TM_TMP_DIR" = "" ]; then
7 TM_TMP_DIR=/tmp
8 export TM_TMP_DIR
9 fi
10
11 if [ "$5" = "" ]; then
12 filename="$TM_TMP_DIR/mime$$.au"
13 else
14 filename="$TM_TMP_DIR/$5"
15 fi
16
17
18 case "$4" in
19 "play")
20 echo "$2; $3 ->"
21 if [ "$AUDIOSERVER" = "" ]; then
22 if [ `uname` = "IRIX" ]; then
23 tmdecode $3 $1 $filename
24 sfplay $filename
25 trap 'rm -f $filename' 0 1 2 3 13 15
26 else
27 tmdecode $3 $1 /dev/audio
28 fi
29 else
30 tmdecode $3 $1 $filename
31 autool -v 40 $filename
32 trap 'rm -f $filename' 0 1 2 3 13 15
33 fi
34 ;;
35 "extract")
36 echo "$2; $3 -> $filename"
37 echo "extract to $filename"
38 tmdecode $3 $1 $filename
39 ;;
40 esac