git.chise.org Git - chise/xemacs-chise.git.1/blob - src/ntplay.c

   1 /* Sound in windows nt XEmacs.
   2    Copyright (C) 1998 Andy Piper.
   3
   4 This file is part of XEmacs.
   5
   6 XEmacs is free software; you can redistribute it and/or modify it
   7 under the terms of the GNU General Public License as published by the
   8 Free Software Foundation; either version 2, or (at your option) any
   9 later version.
  10
  11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with XEmacs; see the file COPYING.  If not, write to the Free
  18 Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  19 02111-1307, USA.*/
  20
  21 #include <windows.h>
  22 #include <config.h>
  23 #include <stdio.h>
  24 #include "sysfile.h"
  25 #include "lisp.h"
  26
  27 #if (defined (__CYGWIN32__) || defined(__MINGW32__)) && \
  28         CYGWIN_VERSION_DLL_MAJOR < 21
  29 extern BOOL WINAPI PlaySound(LPCSTR,HMODULE,DWORD);
  30 #else
  31 #include <mmsystem.h>
  32 #endif
  33 static void play_sound_data_1 (unsigned char *data, int length,
  34                                int volume, int convert);
  35
  36 void play_sound_file (char *sound_file, int volume)
  37 {
  38   DWORD flags = SND_ASYNC | SND_NODEFAULT | SND_FILENAME;
  39   OFSTRUCT ofs;
  40   Lisp_Object fname = Ffile_name_nondirectory (build_string (sound_file));
  41
  42   CHECK_STRING (fname);
  43   if (OpenFile (XSTRING_DATA (fname), &ofs, OF_EXIST) < 0)
  44     {
  45       /* file isn't in the path so read it as data */
  46       int size;
  47       unsigned char* data;
  48       int ofd = open (sound_file, O_RDONLY | OPEN_BINARY, 0);
  49
  50       if (ofd <0)
  51         return;
  52
  53       size = lseek (ofd, 0, SEEK_END);
  54       data = xmalloc (size);
  55       lseek (ofd, 0, SEEK_SET);
  56
  57       if (!data)
  58         {
  59           close (ofd);
  60           return;
  61         }
  62
  63       if (read (ofd, data, size) != size)
  64         {
  65           close (ofd);
  66           xfree (data);
  67           return;
  68         }
  69       close (ofd);
  70
  71       play_sound_data_1 (data, size, 100, FALSE);
  72     }
  73   else
  74     PlaySound (XSTRING_DATA (fname), NULL, flags);
  75 }
  76
  77 /* mswindows can't cope with playing a sound from alloca space so we
  78    have to convert if necessary */
  79 static void play_sound_data_1 (unsigned char *data, int length, int volume,
  80                                int convert_to_malloc)
  81 {
  82   DWORD flags = SND_ASYNC | SND_MEMORY | SND_NODEFAULT;
  83   static unsigned char* sound_data=0;
  84   if (sound_data)
  85     {
  86       PlaySound (NULL, NULL, flags);
  87       xfree (sound_data);
  88       sound_data=0;
  89     }
  90
  91   if (convert_to_malloc)
  92     {
  93       sound_data = xmalloc (length);
  94       memcpy (sound_data, data, length);
  95     }
  96   else
  97     sound_data = data;
  98
  99   PlaySound(sound_data, NULL, flags);
 100
 101   return;
 102 }
 103
 104 void play_sound_data (unsigned char *data, int length, int volume)
 105 {
 106   play_sound_data_1 (data, length, volume, TRUE);
 107 }