#include "stdafx.h"

#include "openttd.h"

#include "music/os2_m.h"

#define INCL_DOS

#define INCL_OS2MM

#define INCL_WIN

#include <stdarg.h>

#include <os2.h>

#include <os2me.h>

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

 * OS/2 MIDI PLAYER

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

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

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

 */

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

{

	va_list va;

	char buf[512];

	va_start(va, cmd);

	vsprintf(buf, cmd, va);

	va_end(va);

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

}

static void OS2MidiPlaySong(const char *filename)

{

	MidiSendCommand("close all");

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

		return;

	MidiSendCommand("play song from 0");

}

static void OS2MidiStopSong(void)

{

	MidiSendCommand("close all");

}

static void OS2MidiSetVolume(byte vol)

{

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

}

static bool OS2MidiIsSongPlaying(void)

{

	char buf[16];

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

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

}

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

{

	return 0;

}

static void OS2MidiStop(void)

{

	MidiSendCommand("close all");

}

const HalMusicDriver _os2_music_driver = {

	OS2MidiStart,

	OS2MidiStop,

	OS2MidiPlaySong,

	OS2MidiStopSong,

	OS2MidiIsSongPlaying,

	OS2MidiSetVolume,

};

#ifndef MUSIC_OS2_H

#define MUSIC_OS2_H

#include "hal.h"

extern const HalMusicDriver _os2_music_driver;

#endif

114

8

driver.c

12

dummy_land.c

9

economy.c

8

engine.c

12

engine_gui.c

8

fileio.c

5

gfx.c

11

graph_gui.c

industry_cmd.c

14

industry_gui.c

intro_gui.c

11

landscape.c

10

main_gui.c

map.c

5

md5.c

9

minilzo.c

6

misc.c

misc_cmd.c

10

misc_gui.c

7

mixer.c

14

music\null_m.c

13

music\os2_m.c

11

music_gui.c

9

namegen.c

9

network.c

16

network_client.c

14

network_data.c

18

network_gamelist.c

13

network_gui.c

16

network_server.c

13

network_udp.c

8

newgrf.c

10

news_gui.c

5

npf.c

oldloader.c

9

openttd.c

11

order_cmd.c

11

order_gui.c

5

os2.c

10

pathfind.c

5

pbs.c

12

player_gui.c

9

players.c

6

pool.c

7

queue.c

6

rail.c

0

52

1

0

MItem

10

rail_cmd.c

4

COBJ

376

WVList

0

377

rail_gui.c

378

379

380

381

5

rev.c

382

384

WVList

ActionStates

386

5

&Make

10

road_cmd.c

road_gui.c

13

roadveh_cmd.c

13

roadveh_gui.c

saveload.c

12

screenshot.c

5

sdl.c

settings.c

14

settings_gui.c

10

ship_cmd.c

10

ship_gui.c

7

signs.c

14

smallmap_gui.c

7

sound.c

14

sound\null_s.c

13

sound\sdl_s.c

sprite.c

13

spritecache.c

station_cmd.c