From xemacs-m  Wed Jan 22 02:55:16 1997
Received: from server21.digital.fr (server21.digital.fr [193.56.15.21])
          by xemacs.org (8.8.4/8.8.4) with ESMTP
	  id CAA04181 for <xemacs-beta@xemacs.org>; Wed, 22 Jan 1997 02:55:15 -0600 (CST)
Received: from mail.vbo.dec.com (mail.vbo.dec.com [16.36.208.34]) by server21.digital.fr (8.7.5/8.7) with ESMTP id JAA25810; Wed, 22 Jan 1997 09:58:34 +0100 (MET)
Received: from vbormc.vbo.dec.com (vbormc.vbo.dec.com [16.36.208.94]) by mail.vbo.dec.com (8.7.3/8.7) with ESMTP id JAA24108; Wed, 22 Jan 1997 09:56:21 +0100 (MET)
Received: from clusaz.gvc.dec.com (clusaz.gvc.dec.com [16.184.176.21]) by vbormc.vbo.dec.com (8.7.3/8.7) with SMTP id JAA24011; Wed, 22 Jan 1997 09:50:38 +0100
Received: from fornet.gvc.dec.com by clusaz.gvc.dec.com (5.65v3.2/1.1.10.5/04Jan97-0611PM)
	id AA03785; Wed, 22 Jan 1997 09:53:36 +0100
Received: by fornet.gvc.dec.com; (5.65v3.2/1.1.8.2/23Sep96-1024AM)
	id AA05464; Wed, 22 Jan 1997 09:53:15 +0100
Date: Wed, 22 Jan 1997 09:53:15 +0100
Message-Id: <9701220853.AA05464@fornet.gvc.dec.com>
From: Steve Carney <carney@gvc.dec.com>
To: xemacs-beta@xemacs.org, Oscar.Figueiredo@di.epfl.ch
Subject: tm-au patch for Digital UNIX
Reply-To: carney@gvc.dec.com
X-Face: (d*XRr}%:j,s*8+_o];-"-<<Sd1>H?Ds*>_vV}6DVjhNkjSRW0z^9[WBrbtMma>lyW6u>r(
 9U_m6J0kh7U=q?(h[7<YtS!Cu[Yl)D_XSCy5+tw>_2qr&4S=n|A*ScV]5BR{3]YXk$!,4l2vh9B]}&
 0p"&#\I

Enclosed is a small universal patch for tm to play audio on Digital
Unix.

        Steve

--- tm-au.dist	Wed Jan 15 10:25:09 1997
+++ tm-au	Wed Jan 22 09:38:14 1997
@@ -22,14 +22,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")

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Steve Carney        TEL:[41](22)782.90.60  http://www-digital.cern.ch/carney/
carney@gvc.dec.com  FAX:[41](22)782.94.92 

