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

	UINT_PTR devid;

    15

	char start_song[260];

    16

} _midi;

    17

    18

static void Win32MidiPlaySong(const char *filename)

    19

{

    20

	strcpy(_midi.start_song, filename);

    21

	_midi.playing = true;

    22

	_midi.stop_song = false;

    23

	SetEvent(_midi.wait_obj);

    24

}

    25

    26

static void Win32MidiStopSong()

    27

{

    28

	if (_midi.playing) {

    29

		_midi.stop_song = true;

    30

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

    31

		SetEvent(_midi.wait_obj);

    32

	}

    33

}

    34

    35

static bool Win32MidiIsSongPlaying()

    36

{

    37

	return _midi.playing;

    38

}

    39

    40

static void Win32MidiSetVolume(byte vol)

    41

{

    42

	_midi.new_vol = vol;

    43

	SetEvent(_midi.wait_obj);

    44

}

    45

    46

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

    47

{

    48

	va_list va;

    49

	char buf[512];

    50

    51

	va_start(va, cmd);

    52

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

    53

	va_end(va);

    54

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

    55

}

    56

    57

static bool MidiIntPlaySong(const char *filename)

    58

{

    59

	MidiSendCommand("close all");

    60

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

    61

    62

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

    63

}

    64

    65

static void MidiIntStopSong()

    66

{

    67

	MidiSendCommand("close all");

    68

}

    69

    70

static void MidiIntSetVolume(int vol)

    71

{

    72

	DWORD v = (vol * 65535 / 127);

    73

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

    74

}

    75

    76

static bool MidiIntIsSongPlaying()

    77

{

    78

	char buf[16];

    79

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

    80

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

    81

}

    82

    83

static DWORD WINAPI MidiThread(LPVOID arg)

    84

{

    85

	_midi.wait_obj = CreateEvent(NULL, FALSE, FALSE, NULL);

    86

    87

	do {

    88

		char *s;

    89

		int vol;

    90

    91

		vol = _midi.new_vol;

    92

		if (vol != -1) {

    93

			_midi.new_vol = -1;

    94

			MidiIntSetVolume(vol);

    95

		}

    96

    97

		s = _midi.start_song;

    98

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

    99

			_midi.playing = MidiIntPlaySong(s);

   100

			s[0] = '\0';

   101

   102

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

   103

			if (!_midi.playing) Sleep(5000);

   104

		}

   105

   106

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

   107

			_midi.stop_song = false;

   108

			_midi.playing = false;

   109

			MidiIntStopSong();

   110

		}

   111

   112

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

   113

   114

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

   115

	} while (!_midi.terminate);

   116

   117

	DeleteObject(_midi.wait_obj);

   118

	return 0;

   119

}

   120

   121

static const char *Win32MidiStart(const char * const *parm)

   122

{

   123

	MIDIOUTCAPS midicaps;

   124

	DWORD threadId;

   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 (CreateThread(NULL, 8192, MidiThread, 0, 0, &threadId) == NULL) return "Failed to create thread";

   145

   146

	return NULL;

   147

}

   148

   149

static void Win32MidiStop()

   150

{

   151

	_midi.terminate = true;

   152

	SetEvent(_midi.wait_obj);

   153

}

   154

   155

const HalMusicDriver _win32_music_driver = {

   156

	Win32MidiStart,

   157

	Win32MidiStop,

   158

	Win32MidiPlaySong,

   159

	Win32MidiStopSong,

   160

	Win32MidiIsSongPlaying,

   161

	Win32MidiSetVolume,

   162

};