1

/* $Id$ */

     2

     3

#include "../stdafx.h"

     4

#include "../openttd.h"

     5

#include "os2_m.h"

     6

     7

#define INCL_DOS

     8

#define INCL_OS2MM

     9

#define INCL_WIN

    10

    11

#include <stdarg.h>

    12

#include <os2.h>

    13

#include <os2me.h>

    14

    15

/**********************

    16

 * OS/2 MIDI PLAYER

    17

 **********************/

    18

    19

/* Interesting how similar the MCI API in OS/2 is to the Win32 MCI API,

    20

 * eh? Anyone would think they both came from the same place originally! ;)

    21

 */

    22

    23

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

    24

{

    25

	va_list va;

    26

	char buf[512];

    27

	va_start(va, cmd);

    28

	vsprintf(buf, cmd, va);

    29

	va_end(va);

    30

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

    31

}

    32

    33

static void OS2MidiPlaySong(const char *filename)

    34

{

    35

	MidiSendCommand("close all");

    36

    37

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

    38

		return;

    39

    40

	MidiSendCommand("play song from 0");

    41

}

    42

    43

static void OS2MidiStopSong(void)

    44

{

    45

	MidiSendCommand("close all");

    46

}

    47

    48

static void OS2MidiSetVolume(byte vol)

    49

{

    50

	MidiSendCommand("set song audio volume %d", ((vol/127)*100));

    51

}

    52

    53

static bool OS2MidiIsSongPlaying(void)

    54

{

    55

	char buf[16];

    56

	mciSendString("status song mode", buf, sizeof(buf), NULL, 0);

    57

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

    58

}

    59

    60

static const char *OS2MidiStart(const char * const *parm)

    61

{

    62

	return 0;

    63

}

    64

    65

static void OS2MidiStop(void)

    66

{

    67

	MidiSendCommand("close all");

    68

}

    69

    70

const HalMusicDriver _os2_music_driver = {

    71

	OS2MidiStart,

    72

	OS2MidiStop,

    73

	OS2MidiPlaySong,

    74

	OS2MidiStopSong,

    75

	OS2MidiIsSongPlaying,

    76

	OS2MidiSetVolume,

    77

};