1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

#include "../openttd.h"

     5

#include "win32_m.h"

     6

#include <windows.h>

     7

#include <mmsystem.h>

     8

     9

static struct {

    10

	bool stop_song;

    11

	bool terminate;

    12

	bool playing;

    13

	int new_vol;

    14

	HANDLE wait_obj;

    15

	UINT_PTR devid;

    16

	char start_song[260];

    17

} _midi;

    18

    19

static void Win32MidiPlaySong(const char *filename)

    20

{

    21

	strcpy(_midi.start_song, filename);

    22

	_midi.playing = true;

    23

	_midi.stop_song = false;

    24

	SetEvent(_midi.wait_obj);

    25

}

    26

    27

static void Win32MidiStopSong(void)

    28

{

    29

	if (_midi.playing) {

    30

		_midi.stop_song = true;

    31

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

    32

		SetEvent(_midi.wait_obj);

    33

	}

    34

}

    35

    36

static bool Win32MidiIsSongPlaying(void)

    37

{

    38

	return _midi.playing;

    39

}

    40

    41

static void Win32MidiSetVolume(byte vol)

    42

{

    43

	_midi.new_vol = vol;

    44

	SetEvent(_midi.wait_obj);

    45

}

    46

    47

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

    48

{

    49

	va_list va;

    50

	char buf[512];

    51

    52

	va_start(va, cmd);

    53

	vsprintf(buf, cmd, va);

    54

	va_end(va);

    55

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

    56

}

    57

    58

static bool MidiIntPlaySong(const char *filename)

    59

{

    60

	MidiSendCommand("close all");

    61

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

    62

		return false;

    63

    64

	if (MidiSendCommand("play song from 0") != 0)

    65

		return false;

    66

	return true;

    67

}

    68

    69

static void MidiIntStopSong(void)

    70

{

    71

	MidiSendCommand("close all");

    72

}

    73

    74

static void MidiIntSetVolume(int vol)

    75

{

    76

	DWORD v = (vol * 65535 / 127);

    77

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

    78

}

    79

    80

static bool MidiIntIsSongPlaying(void)

    81

{

    82

	char buf[16];

    83

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

    84

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

    85

}

    86

    87

static DWORD WINAPI MidiThread(LPVOID arg)

    88

{

    89

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

    90

    91

	do {

    92

		char *s;

    93

		int vol;

    94

    95

		vol = _midi.new_vol;

    96

		if (vol != -1) {

    97

			_midi.new_vol = -1;

    98

			MidiIntSetVolume(vol);

    99

		}

   100

   101

		s = _midi.start_song;

   102

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

   103

			_midi.playing = MidiIntPlaySong(s);

   104

			s[0] = '\0';

   105

   106

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

   107

			if (!_midi.playing) {

   108

				Sleep(5000);

   109

			}

   110

		}

   111

   112

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

   113

			_midi.stop_song = false;

   114

			_midi.playing = false;

   115

			MidiIntStopSong();

   116

		}

   117

   118

		if (_midi.playing && !MidiIntIsSongPlaying())

   119

			_midi.playing = false;

   120

   121

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

   122

	} while (!_midi.terminate);

   123

   124

	DeleteObject(_midi.wait_obj);

   125

	return 0;

   126

}

   127

   128

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

   129

{

   130

	MIDIOUTCAPS midicaps;

   131

	DWORD threadId;

   132

	UINT nbdev;

   133

	UINT_PTR dev;

   134

	char buf[16];

   135

   136

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

   137

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

   138

   139

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

   140

	_midi.new_vol = -1;

   141

   142

	/* Get midi device */

   143

	_midi.devid = MIDI_MAPPER;

   144

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

   145

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

   146

			_midi.devid = dev;

   147

			break;

   148

		}

   149

	}

   150

   151

	if (CreateThread(NULL, 8192, MidiThread, 0, 0, &threadId) == NULL)

   152

		return "Failed to create thread";

   153

   154

	return NULL;

   155

}

   156

   157

static void Win32MidiStop(void)

   158

{

   159

	_midi.terminate = true;

   160

	SetEvent(_midi.wait_obj);

   161

}

   162

   163

const HalMusicDriver _win32_music_driver = {

   164

	Win32MidiStart,

   165

	Win32MidiStop,

   166

	Win32MidiPlaySong,

   167

	Win32MidiStopSong,

   168

	Win32MidiIsSongPlaying,

   169

	Win32MidiSetVolume,

   170

};