Mercurial > hg > xemacs-beta

comparison lib-src/tm-au @ 10:49a24b4fd526 r19-15b6

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