Mercurial > hg > xemacs-beta

comparison lib-src/tm-au @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 1ce6082ce73f
children 364816949b59
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1 #!/bin/sh - 1 #!/bin/sh -
2 # 2 #
3 # $Id: tm-au,v 1.3 1997/01/11 20:13:51 steve Exp $ 3 # $Id: tm-au,v 1.4 1997/01/23 05:29:22 steve Exp $
4 # 4 #
5 5
6 PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH 6 PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH
7 7
8 if [ "$TM_TMP_DIR" = "" ]; then 8 if [ "$TM_TMP_DIR" = "" ]; then
20 case "$4" in 20 case "$4" in
21 "play") 21 "play")
22 echo "$2; $3 ->" 22 echo "$2; $3 ->"
23 tmdecode $3 $1 $filename 23 tmdecode $3 $1 $filename
24 if [ "$AUDIOSERVER" = "" ]; then 24 if [ "$AUDIOSERVER" = "" ]; then
25 if [ `uname` = "IRIX" ]; then 25 case "`uname`" in
26 sfplay $filename 26 IRIX ) sfplay $filename ;;
27 else 27 OSF1 ) decsound -play $filename ;;
28 cat $filename > /dev/audio 28 * ) cat $filename > /dev/audio ;;
29 fi 29 esac
30 else 30 else
31 autool -v 40 $filename 31 autool -v 40 $filename
32 fi 32 fi
33
33 trap 'rm -f $filename' 0 1 2 3 13 15 34 trap 'rm -f $filename' 0 1 2 3 13 15
34 ;; 35 ;;
35 "extract") 36 "extract")
36 echo "$2; $3 -> $filename" 37 echo "$2; $3 -> $filename"
37 echo "extract to $filename" 38 echo "extract to $filename"