Mercurial > hg > xemacs-beta
diff lib-src/tm-au @ 98:0d2f883870bc r20-1b1
Import from CVS: tag r20-1b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:13:56 +0200 |
parents | 364816949b59 |
children |
line wrap: on
line diff
--- a/lib-src/tm-au Mon Aug 13 09:12:43 2007 +0200 +++ b/lib-src/tm-au Mon Aug 13 09:13:56 2007 +0200 @@ -1,6 +1,6 @@ #!/bin/sh - # -# $Id: tm-au,v 1.5 1997/01/30 02:22:29 steve Exp $ +# $Id: tm-au,v 1.6 1997/02/15 22:20:26 steve Exp $ # # Copyright 1994,1995,1996,1997 Free Software Foundation, Inc. @@ -38,14 +38,15 @@ echo "$2; $3 ->" tmdecode $3 $1 $filename if [ "$AUDIOSERVER" = "" ]; then - if [ `uname` = "IRIX" ]; then - sfplay $filename - else - cat $filename > /dev/audio - fi + case "`uname`" in + IRIX ) sfplay $filename ;; + OSF1 ) decsound -play $filename ;; + * ) cat $filename > /dev/audio ;; + esac else - autool -v 40 $filename + autool -v 40 $filename fi + trap 'rm -f $filename' 0 1 2 3 13 15 ;; "extract")