SoundStream.st
changeset 36 d046fe84ea67
parent 31 e223f3cf2995
child 45 6768d3213025
--- a/SoundStream.st	Fri Aug 05 03:06:59 1994 +0200
+++ b/SoundStream.st	Fri Aug 05 03:08:16 1994 +0200
@@ -20,10 +20,18 @@
 SoundStream comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.10 1994-08-05 01:07:13 claus Exp $
 '!
 
 %{
 #ifdef IRIS
+# ifndef IRIX5
+#  define IRIS_AUDIO
+# endif
+#endif
+
+#ifdef IRIS_AUDIO
 # include <audio.h>
 # define MKAUDIO(o)  (ALport)(_intVal(o))
 #endif
@@ -47,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.9 1994-06-02 17:20:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.10 1994-08-05 01:07:13 claus Exp $
 "
 !
 
@@ -530,7 +538,7 @@
         ^ nil
     ].
 %{
-#ifdef IRIS
+#ifdef IRIS_AUDIO
   {
     ALconfig config;
     ALport p;
@@ -631,7 +639,7 @@
      (at least I dont know). Use with ByteArrays only."
 
 %{
-#ifdef IRIS
+#ifdef IRIS_AUDIO
   {
     ALport p;
     int cnt, offs;
@@ -678,7 +686,7 @@
      Use with ByteArrays only."
 
 %{
-#ifdef IRIS
+#ifdef IRIS_AUDIO
   {
     ALport p;
     int cnt, offs;
@@ -719,7 +727,7 @@
     "wait until all sound has been played"
 
 %{ 
-#ifdef IRIS
+#ifdef IRIS_AUDIO
     ALport p;
 
     if (_INST(filePointer) != nil) {
@@ -746,7 +754,7 @@
         ^ super closeFile
     ].
 %{ 
-#ifdef IRIS
+#ifdef IRIS_AUDIO
     ALcloseport(MKAUDIO(_INST(filePointer)));
 #endif
 %}