1

/* $Id$ */

     2

     3

/** @file os2_m.cpp Music playback on OS/2. */

     4

     5

#include "../stdafx.h"

     6

#include "../openttd.h"

     7

#include "os2_m.h"

     8

     9

#define INCL_DOS

    10

#define INCL_OS2MM

    11

#define INCL_WIN

    12

    13

#include <stdarg.h>

    14

#include <os2.h>

    15

#include <os2me.h>

    16

    17

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

    18

 * OS/2 MIDI PLAYER

    19

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

    20

    21

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

    22

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

    23

 */

    24

    25

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

    26

{

    27

	va_list va;

    28

	char buf[512];

    29

	va_start(va, cmd);

    30

	vseprintf(buf, lastof(buf), cmd, va);

    31

	va_end(va);

    32

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

    33

}

    34

    35

static FMusicDriver_OS2 iFMusicDriver_OS2;

    36

    37

void MusicDriver_OS2::PlaySong(const char *filename)

    38

{

    39

	MidiSendCommand("close all");

    40

    41

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

    42

		return;

    43

    44

	MidiSendCommand("play song from 0");

    45

}

    46

    47

void MusicDriver_OS2::StopSong()

    48

{

    49

	MidiSendCommand("close all");

    50

}

    51

    52

void MusicDriver_OS2::SetVolume(byte vol)

    53

{

    54

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

    55

}

    56

    57

bool MusicDriver_OS2::IsSongPlaying()

    58

{

    59

	char buf[16];

    60

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

    61

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

    62

}

    63

    64

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

    65

{

    66

	return 0;

    67

}

    68

    69

void MusicDriver_OS2::Stop()

    70

{

    71

	MidiSendCommand("close all");

    72

}