1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

#include "win32_m.h"

     5

#include <windows.h>

     6

#include <mmsystem.h>

     7

     8

static struct {

     9

	bool stop_song;

    10

	bool terminate;

    11

	bool playing;

    12

	int new_vol;

    13

	HANDLE wait_obj;

    14

	HANDLE thread;

    15

	UINT_PTR devid;

    16

	char start_song[260];

    17

} _midi;

    18

    19

static FMusicDriver_Win32 iFMusicDriver_Win32;

    20

    21

void MusicDriver_Win32::PlaySong(const char *filename)

    22

{

    23

	strcpy(_midi.start_song, filename);

    24

	_midi.playing = true;

    25

	_midi.stop_song = false;

    26

	SetEvent(_midi.wait_obj);

    27

}

    28

    29

void MusicDriver_Win32::StopSong()

    30

{

    31

	if (_midi.playing) {

    32

		_midi.stop_song = true;

    33

		_midi.start_song[0] = '\0';

    34

		SetEvent(_midi.wait_obj);

    35

	}

    36

}

    37

    38

bool MusicDriver_Win32::IsSongPlaying()

    39

{

    40

	return _midi.playing;

    41

}

    42

    43

void MusicDriver_Win32::SetVolume(byte vol)

    44

{

    45

	_midi.new_vol = vol;

    46

	SetEvent(_midi.wait_obj);

    47

}

    48

    49

static MCIERROR CDECL MidiSendCommand(const char* cmd, ...)

    50

{

    51

	va_list va;

    52

	char buf[512];

    53

    54

	va_start(va, cmd);

    55

	vsnprintf(buf, lengthof(buf), cmd, va);

    56

	va_end(va);

    57

	return mciSendStringA(buf, NULL, 0, 0);

    58

}

    59

    60

static bool MidiIntPlaySong(const char *filename)

    61

{

    62

	MidiSendCommand("close all");

    63

	if (MidiSendCommand("open \"%s\" type sequencer alias song", filename) != 0) return false;

    64

    65

	return MidiSendCommand("play song from 0") == 0;

    66

}

    67

    68

static void MidiIntStopSong()

    69

{

    70

	MidiSendCommand("close all");

    71

}

    72

    73

static void MidiIntSetVolume(int vol)

    74

{

    75

	DWORD v = (vol * 65535 / 127);

    76

	midiOutSetVolume((HMIDIOUT)_midi.devid, v + (v << 16));

    77

}

    78

    79

static bool MidiIntIsSongPlaying()

    80

{

    81

	char buf[16];

    82

	mciSendStringA("status song mode", buf, sizeof(buf), 0);

    83

	return strcmp(buf, "playing") == 0 || strcmp(buf, "seeking") == 0;

    84

}

    85

    86

static DWORD WINAPI MidiThread(LPVOID arg)

    87

{

    88

	do {

    89

		char *s;

    90

		int vol;

    91

    92

		vol = _midi.new_vol;

    93

		if (vol != -1) {

    94

			_midi.new_vol = -1;

    95

			MidiIntSetVolume(vol);

    96

		}

    97

    98

		s = _midi.start_song;

    99

		if (s[0] != '\0') {

   100

			_midi.playing = MidiIntPlaySong(s);

   101

			s[0] = '\0';

   102

   103

			// Delay somewhat in case we don't manage to play.

   104

			if (!_midi.playing) WaitForMultipleObjects(1, &_midi.wait_obj, FALSE, 5000);

   105

		}

   106

   107

		if (_midi.stop_song && _midi.playing) {

   108

			_midi.stop_song = false;

   109

			_midi.playing = false;

   110

			MidiIntStopSong();

   111

		}

   112

   113

		if (_midi.playing && !MidiIntIsSongPlaying()) _midi.playing = false;

   114

   115

		WaitForMultipleObjects(1, &_midi.wait_obj, FALSE, 1000);

   116

	} while (!_midi.terminate);

   117

   118

	MidiIntStopSong();

   119

	return 0;

   120

}

   121

   122

const char *MusicDriver_Win32::Start(const char * const *parm)

   123

{

   124

	MIDIOUTCAPS midicaps;

   125

	UINT nbdev;

   126

	UINT_PTR dev;

   127

	char buf[16];

   128

   129

	mciSendStringA("capability sequencer has audio", buf, lengthof(buf), 0);

   130

	if (strcmp(buf, "true") != 0) return "MCI sequencer can't play audio";

   131

   132

	memset(&_midi, 0, sizeof(_midi));

   133

	_midi.new_vol = -1;

   134

   135

	/* Get midi device */

   136

	_midi.devid = MIDI_MAPPER;

   137

	for (dev = 0, nbdev = midiOutGetNumDevs(); dev < nbdev; dev++) {

   138

		if (midiOutGetDevCaps(dev, &midicaps, sizeof(midicaps)) == 0 && (midicaps.dwSupport & MIDICAPS_VOLUME)) {

   139

			_midi.devid = dev;

   140

			break;

   141

		}

   142

	}

   143

   144

	if (NULL == (_midi.wait_obj = CreateEvent(NULL, FALSE, FALSE, NULL))) return "Failed to create event";

   145

   146

	/* The lpThreadId parameter of CreateThread (the last parameter)

   147

	 * may NOT be NULL on Windows 95, 98 and ME. */

   148

	DWORD threadId;

   149

	if (NULL == (_midi.thread = CreateThread(NULL, 8192, MidiThread, 0, 0, &threadId))) return "Failed to create thread";

   150

   151

	return NULL;

   152

}

   153

   154

void MusicDriver_Win32::Stop()

   155

{

   156

	_midi.terminate = true;

   157

	SetEvent(_midi.wait_obj);

   158

	WaitForMultipleObjects(1, &_midi.thread, true, INFINITE);

   159

	CloseHandle(_midi.wait_obj);

   160

	CloseHandle(_midi.thread);

   161

}