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[MAX_PATH];

    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 TCHAR* cmd, ...)

    50

{

    51

	va_list va;

    52

	TCHAR buf[512];

    53

    54

	va_start(va, cmd);

    55

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

    56

	va_end(va);

    57

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

    58

}

    59

    60

static bool MidiIntPlaySong(const char *filename)

    61

{

    62

	MidiSendCommand(_T("close all"));

    63

    64

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

    65

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

    66

		TCHAR buf[MAX_PATH];

    67

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

    68

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

    69

	}

    70

    71

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

    72

}

    73

    74

static void MidiIntStopSong()

    75

{

    76

	MidiSendCommand(_T("close all"));

    77

}

    78

    79

static void MidiIntSetVolume(int vol)

    80

{

    81

	DWORD v = (vol * 65535 / 127);

    82

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

    83

}

    84

    85

static bool MidiIntIsSongPlaying()

    86

{

    87

	char buf[16];

    88

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

    89

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

    90

}

    91

    92

static DWORD WINAPI MidiThread(LPVOID arg)

    93

{

    94

	do {

    95

		char *s;

    96

		int vol;

    97

    98

		vol = _midi.new_vol;

    99

		if (vol != -1) {

   100

			_midi.new_vol = -1;

   101

			MidiIntSetVolume(vol);

   102

		}

   103

   104

		s = _midi.start_song;

   105

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

   106

			_midi.playing = MidiIntPlaySong(s);

   107

			s[0] = '\0';

   108

   109

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

   110

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

   111

		}

   112

   113

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

   114

			_midi.stop_song = false;

   115

			_midi.playing = false;

   116

			MidiIntStopSong();

   117

		}

   118

   119

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

   120

   121

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

   122

	} while (!_midi.terminate);

   123

   124

	MidiIntStopSong();

   125

	return 0;

   126

}

   127

   128

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

   129

{

   130

	MIDIOUTCAPS midicaps;

   131

	UINT nbdev;

   132

	UINT_PTR dev;

   133

	char buf[16];

   134

   135

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

   136

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

   137

   138

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

   139

	_midi.new_vol = -1;

   140

   141

	/* Get midi device */

   142

	_midi.devid = MIDI_MAPPER;

   143

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

   144

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

   145

			_midi.devid = dev;

   146

			break;

   147

		}

   148

	}

   149

   150

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

   151

   152

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

   153

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

   154

	DWORD threadId;

   155

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

   156

   157

	return NULL;

   158

}

   159

   160

void MusicDriver_Win32::Stop()

   161

{

   162

	_midi.terminate = true;

   163

	SetEvent(_midi.wait_obj);

   164

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

   165

	CloseHandle(_midi.wait_obj);

   166

	CloseHandle(_midi.thread);

   167

}