Mercurial > hg > xemacs-beta
diff lib-src/tm-au @ 86:364816949b59 r20-0b93
Import from CVS: tag r20-0b93
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:09:02 +0200 |
parents | 6a378aca36af |
children | 0d2f883870bc |
line wrap: on
line diff
--- a/lib-src/tm-au Mon Aug 13 09:08:31 2007 +0200 +++ b/lib-src/tm-au Mon Aug 13 09:09:02 2007 +0200 @@ -1,7 +1,23 @@ #!/bin/sh - # -# $Id: tm-au,v 1.4 1997/01/23 05:29:22 steve Exp $ +# $Id: tm-au,v 1.5 1997/01/30 02:22:29 steve Exp $ # +# Copyright 1994,1995,1996,1997 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with GNU Emacs; see the file COPYING. If not, write to the +# Free Software Foundation, Inc., 59 Temple Place - Suite 330, +# Boston, MA 02111-1307, USA. PATH=${PATH:-/usr/bin:/bin}:`dirname $0 2>/dev/null`; export PATH @@ -22,15 +38,14 @@ echo "$2; $3 ->" tmdecode $3 $1 $filename if [ "$AUDIOSERVER" = "" ]; then - case "`uname`" in - IRIX ) sfplay $filename ;; - OSF1 ) decsound -play $filename ;; - * ) cat $filename > /dev/audio ;; - esac + if [ `uname` = "IRIX" ]; then + sfplay $filename + else + cat $filename > /dev/audio + fi else - autool -v 40 $filename + autool -v 40 $filename fi - trap 'rm -f $filename' 0 1 2 3 13 15 ;; "extract")