xemacs-beta: src/nas.c comparison

comparison src/nas.c @ 2108:8de911beca70

[xemacs-hg @ 2004-06-02 09:16:14 by didierv] C++ related fixes

author	didierv
date	Wed, 02 Jun 2004 09:16:21 +0000
parents	18d2b8dabcf7
children	f18c80177dfe

comparison

equal deleted inserted replaced

-:91e93aba4aae
+:8de911beca70
 * Permission to use, copy, modify, distribute, and sell this software and
 * its documentation for any purpose is hereby granted without fee, provided
 * that the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name Network Computing Devices, Inc. not be
 * used in advertising or publicity pertaining to distribution of this
 * software without specific, written prior permission.
 *
 * THIS SOFTWARE IS PROVIDED 'AS-IS'.  NETWORK COMPUTING DEVICES, INC.,
 * DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING WITHOUT
 * LIMITATION ALL IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
 * PARTICULAR PURPOSE, OR NONINFRINGEMENT.  IN NO EVENT SHALL NETWORK
 * COMPUTING DEVICES, INC., BE LIABLE FOR ANY DAMAGES WHATSOEVER, INCLUDING
 /* This file Mule-ized by Ben Wing, 5-15-01. */
 /* There are four compile-time options.
 *
 * XTOOLKIT	This will be part of an Xt program.
 *
 * XTEVENTS	The playing will be supervised asynchronously by the Xt event
 *		loop.  If not set, playing will be completed within the call
 *		to play_file etc.
 *
 * ROBUST_PLAY	Causes errors in nas to be caught.  This means that the
 *		program will attempt not to die if the nas server does.
 *
 * CACHE_SOUNDS	Causes the sounds to be played in buckets in the NAS
 seems unnecessarily complex.
 */
 #undef LITTLE_ENDIAN
 #undef BIG_ENDIAN
+EXTERN_C
+{
 #include <audio/audiolib.h>
 #include <audio/soundlib.h>
 #include <audio/snd.h>
 #include <audio/wave.h>
 #include <audio/fileutil.h>
+}
 /* NAS <= 1.2p5 <audio/fileutil.h> doesn't define the NAS_ versions */
 #ifndef NAS_LITTLE_ENDIAN
 # define NAS_LITTLE_ENDIAN LITTLE_ENDIAN
 # define NAS_BIG_ENDIAN BIG_ENDIAN
 AuDefaultErrorHandler = NULL;
 # endif
 #endif
 #ifdef XTEVENTS
 input_id = AuXtAppAddAudioHandler (app_context, aud);
 #endif
 #ifdef CACHE_SOUNDS
 AuSetCloseDownMode (aud, AuCloseDownRetainPermanent, NULL);
 #endif
 	    }
 	}
 else
 	my_buf = (AuPointer) buf;
 id = AuSoundCreateBucketFromData (aud,
 					s,
 					my_buf,
 					AuAccessAllMasks,
 					NULL,
 					NULL);
 if (buf == NULL)
 	free (my_buf);
 }
 AuFreeBucketAttributes (aud, n, list);
 }
 sounds_in_play++;
 AuSoundPlayFromBucket (aud,
 			 id,
 			 AuNone,
 			 AuFixedPointFromFraction (volume, 100),
 			 doneCB, (AuPointer) &sounds_in_play,
 			 1,
 			 NULL, NULL,
 			 NULL, NULL);
 }
 #endif /* CACHE_SOUNDS */
 void nas_wait_for_sounds (void);
 void
 nas_wait_for_sounds (void)
 {
 AuEvent         ev;
 	{
 	  Extbyte *m;
 	  /* attempt to reconect */
 	  if ((m = nas_init_play (aud_server)) != NULL)
 	    {
 #ifdef ROBUST_PLAY
 	      EMACS_SIGNAL (SIGPIPE, old_sigpipe);
 #endif
 	      return 0;
 	    }
 #else
 if (!NILP (Vsynchronous_sounds))
 nas_wait_for_sounds ();
 #endif
 SoundCloseFile (s);
 #ifdef ROBUST_PLAY
 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
 #endif
 static AuBool
 CatchIoErrorAndJump (AuServer *old_aud)
 {
 if (old_aud)
 sound_warn ("Audio Server connection broken");
 else
 sound_warn ("Audio Server connection broken because of signal");
 #ifdef XTEVENTS
 #ifdef XTOOLKIT
 AuXtAppRemoveAudioHandler (aud, input_id);
 #endif
 if (aud)
 AuCloseServer (aud);
 aud = NULL;
 if (aud)
 AuCloseServer (aud);
 aud = NULL;
 sounds_in_play = 0;
 longjmp (AuXtErrorJump, 1);
 #endif /* XTEVENTS */
 return 0;
 }
 SIGTYPE
 if (i==8)
 {
 strcpy (s = (Extbyte *) malloc (10), name);
 }
 else
 {
 strcpy (s = (Extbyte *) malloc (15), "short sound");
 }
 return s;
 }
 /* Code to do a pseudo-open on a data buffer. Only for snd files at the
 moment.
 */
 static SndInfo *
 SndOpenDataForReading (const Char_Binary *data,
 		       int length)
 memcpy (&si->h, data, sizeof (SndHeader));
 if (NAS_LITTLE_ENDIAN)
 {
 Char_Binary            n;
 swapl (&si->h.magic, n);
 swapl (&si->h.dataOffset, n);
 swapl (&si->h.dataSize, n);
 swapl (&si->h.format, n);
 swapl (&si->h.sampleRate, n);
 /* Like fread, but for a buffer in memory */
 static int
 dread (void* buf, size_t size, size_t nitems)
 {
 size_t nread = size * nitems;
 if (file_posn + nread <= file_len)
 {
 memcpy(buf, (Char_Binary *) file_data + file_posn, size * nitems);
 file_posn += nread;
 return nitems;
 RiffChunk       ck;
 RIFF_FOURCC     fourcc;
 AuInt32            fileSize;
 WaveInfo       *wi;
 if (!(wi = (WaveInfo *) malloc(sizeof(WaveInfo))))
 return NULL;
 wi->comment = NULL;
 wi->dataOffset = wi->format = wi->writing = 0;
 dopen(data, length);
 if (!readChunk(&ck) ||
 cmpID(&ck.ckID, RIFF_RiffID) ||
 !readFourcc(&fourcc) ||
 cmpID(&fourcc, RIFF_WaveID))
 Err();
 if (!wi->comment)
 wi->comment = NameFromData (data + wi->dataOffset,
 				length - wi->dataOffset);
 wi->fp = NULL;
 return wi;
 }
 static Sound
 return NULL;
 if ((s->formatInfo = SndOpenDataForReading ((Char_Binary *) data, length)) != NULL)
 {
 #if (AudioLibraryVersionMajor >= 2 ) && (AudioLibraryVersionMinor >= 3)
 if ((toProc = SoundFileGetProc(SoundFileFormatSnd,
 				     SoundFileInfoProcTo)) == NULL)
 	{
 	  SndCloseFile ((SndInfo *) (s->formatInfo));
 	  free (s);
 	}
 }
 else if ((s->formatInfo = WaveOpenDataForReading ((Char_Binary *) data, length)) != NULL)
 {
 #if (AudioLibraryVersionMajor >= 2 ) && (AudioLibraryVersionMinor >= 3)
 if ((toProc = SoundFileGetProc(SoundFileFormatWave,
 				     SoundFileInfoProcTo)) == NULL)
 	{
 	  WaveCloseFile ((WaveInfo *) (s->formatInfo));
 	  free (s);

Mercurial > hg > xemacs-beta

comparison src/nas.c @ 2108:8de911beca70