1

/* $Id$ */

     2

     3

/** @file win32_m.cpp Music playback for Windows. */

     4

     5

#include "../stdafx.h"

     6

#include "win32_m.h"

     7

#include <windows.h>

     8

#include <mmsystem.h>

     9

    10

static struct {

    11

	bool stop_song;

    12

	bool terminate;

    13

	bool playing;

    14

	int new_vol;

    15

	HANDLE wait_obj;

    16

	HANDLE thread;

    17

	UINT_PTR devid;

    18

	char start_song[MAX_PATH];

    19

} _midi;

    20

    21

static FMusicDriver_Win32 iFMusicDriver_Win32;

    22

    23

void MusicDriver_Win32::PlaySong(const char *filename)

    24

{

    25

	strcpy(_midi.start_song, filename);

    26

	_midi.playing = true;

    27

	_midi.stop_song = false;

    28

	SetEvent(_midi.wait_obj);

    29

}

    30

    31

void MusicDriver_Win32::StopSong()

    32

{

    33

	if (_midi.playing) {

    34

		_midi.stop_song = true;

    35

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

    36

		SetEvent(_midi.wait_obj);

    37

	}

    38

}

    39

    40

bool MusicDriver_Win32::IsSongPlaying()

    41

{

    42

	return _midi.playing;

    43

}

    44

    45

void MusicDriver_Win32::SetVolume(byte vol)

    46

{

    47

	_midi.new_vol = vol;

    48

	SetEvent(_midi.wait_obj);

    49

}

    50

    51

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

    52

{

    53

	va_list va;

    54

	TCHAR buf[512];

    55

    56

	va_start(va, cmd);

    57

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

    58

	va_end(va);

    59

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

    60

}

    61

    62

static bool MidiIntPlaySong(const char *filename)

    63

{

    64

	MidiSendCommand(_T("close all"));

    65

    66

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

    67

		/* Let's try the "short name" */

    68

		TCHAR buf[MAX_PATH];

    69

		if (GetShortPathName(OTTD2FS(filename), buf, MAX_PATH) == 0) return false;

    70

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

    71

	}

    72

    73

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

    74

}

    75

    76

static void MidiIntStopSong()

    77

{

    78

	MidiSendCommand(_T("close all"));

    79

}

    80

    81

static void MidiIntSetVolume(int vol)

    82

{

    83

	DWORD v = (vol * 65535 / 127);

    84

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

    85

}

    86

    87

static bool MidiIntIsSongPlaying()

    88

{

    89

	char buf[16];

    90

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

    91

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

    92

}

    93

    94

static DWORD WINAPI MidiThread(LPVOID arg)

    95

{

    96

	do {

    97

		char *s;

    98

		int vol;

    99

   100

		vol = _midi.new_vol;

   101

		if (vol != -1) {

   102

			_midi.new_vol = -1;

   103

			MidiIntSetVolume(vol);

   104

		}

   105

   106

		s = _midi.start_song;

   107

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

   108

			_midi.playing = MidiIntPlaySong(s);

   109

			s[0] = '\0';

   110

   111

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

   112

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

   113

		}

   114

   115

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

   116

			_midi.stop_song = false;

   117

			_midi.playing = false;

   118

			MidiIntStopSong();

   119

		}

   120

   121

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

   122

   123

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

   124

	} while (!_midi.terminate);

   125

   126

	MidiIntStopSong();

   127

	return 0;

   128

}

   129

   130

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

   131

{

   132

	MIDIOUTCAPS midicaps;

   133

	UINT nbdev;

   134

	UINT_PTR dev;

   135

	char buf[16];

   136

   137

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

   138

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

   139

   140

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

   141

	_midi.new_vol = -1;

   142

   143

	/* Get midi device */

   144

	_midi.devid = MIDI_MAPPER;

   145

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

   146

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

   147

			_midi.devid = dev;

   148

			break;

   149

		}

   150

	}

   151

   152

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

   153

   154

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

   155

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

   156

	DWORD threadId;

   157

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

   158

   159

	return NULL;

   160

}

   161

   162

void MusicDriver_Win32::Stop()

   163

{

   164

	_midi.terminate = true;

   165

	SetEvent(_midi.wait_obj);

   166

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

   167

	CloseHandle(_midi.wait_obj);

   168

	CloseHandle(_midi.thread);

   169

}