/
music_mod.c
354 lines (313 loc) · 7.91 KB
1
/*
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SDL_mixer: An audio mixer library based on the SDL library
Copyright (C) 1997-2012 Sam Lantinga <slouken@libsdl.org>
This software is provided 'as-is', without any express or implied
warranty. In no event will the authors be held liable for any damages
arising from the use of this software.
Permission is granted to anyone to use this software for any purpose,
including commercial applications, and to alter it and redistribute it
freely, subject to the following restrictions:
1. The origin of this software must not be misrepresented; you must not
claim that you wrote the original software. If you use this software
in a product, an acknowledgment in the product documentation would be
appreciated but is not required.
2. Altered source versions must be plainly marked as such, and must not be
misrepresented as being the original software.
3. This notice may not be removed or altered from any source distribution.
20
21
22
23
24
25
26
27
28
*/
/* $Id: music_mod.c 4211 2008-12-08 00:27:32Z slouken $ */
#ifdef MOD_MUSIC
/* This file supports MOD tracker music streams */
#include "SDL_mixer.h"
29
#include "dynamic_mod.h"
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#include "music_mod.h"
#include "mikmod.h"
#define SDL_SURROUND
#ifdef SDL_SURROUND
#define MAX_OUTPUT_CHANNELS 6
#else
#define MAX_OUTPUT_CHANNELS 2
#endif
/* Reference for converting mikmod output to 4/6 channels */
static int current_output_channels;
static Uint16 current_output_format;
static int music_swap8;
static int music_swap16;
48
/* Initialize the MOD player, with the given mixer settings
49
50
51
52
53
This function returns 0, or -1 if there was an error.
*/
int MOD_init(SDL_AudioSpec *mixerfmt)
{
CHAR *list;
54
55
if ( !Mix_Init(MIX_INIT_MOD) ) {
56
return -1;
57
}
58
59
60
61
62
63
64
65
66
67
68
/* Set the MikMod music format */
music_swap8 = 0;
music_swap16 = 0;
switch (mixerfmt->format) {
case AUDIO_U8:
case AUDIO_S8: {
if ( mixerfmt->format == AUDIO_S8 ) {
music_swap8 = 1;
}
69
*mikmod.md_mode = 0;
70
71
72
73
74
75
76
77
78
79
80
81
82
}
break;
case AUDIO_S16LSB:
case AUDIO_S16MSB: {
/* See if we need to correct MikMod mixing */
#if SDL_BYTEORDER == SDL_LIL_ENDIAN
if ( mixerfmt->format == AUDIO_S16MSB ) {
#else
if ( mixerfmt->format == AUDIO_S16LSB ) {
#endif
music_swap16 = 1;
}
83
*mikmod.md_mode = DMODE_16BITS;
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
}
break;
default: {
Mix_SetError("Unknown hardware audio format");
return -1;
}
}
current_output_channels = mixerfmt->channels;
current_output_format = mixerfmt->format;
if ( mixerfmt->channels > 1 ) {
if ( mixerfmt->channels > MAX_OUTPUT_CHANNELS ) {
Mix_SetError("Hardware uses more channels than mixerfmt");
return -1;
}
99
*mikmod.md_mode |= DMODE_STEREO;
100
}
101
102
103
104
105
106
107
108
109
110
*mikmod.md_mixfreq = mixerfmt->freq;
*mikmod.md_device = 0;
*mikmod.md_volume = 96;
*mikmod.md_musicvolume = 128;
*mikmod.md_sndfxvolume = 128;
*mikmod.md_pansep = 128;
*mikmod.md_reverb = 0;
*mikmod.md_mode |= DMODE_HQMIXER|DMODE_SOFT_MUSIC|DMODE_SURROUND;
list = mikmod.MikMod_InfoDriver();
111
if ( list )
112
mikmod.MikMod_free(list);
113
else
114
115
116
mikmod.MikMod_RegisterDriver(mikmod.drv_nos);
list = mikmod.MikMod_InfoLoader();
117
if ( list )
118
mikmod.MikMod_free(list);
119
else
120
121
122
123
mikmod.MikMod_RegisterAllLoaders();
if ( mikmod.MikMod_Init(NULL) ) {
Mix_SetError("%s", mikmod.MikMod_strerror(*mikmod.MikMod_errno));
124
125
126
127
128
129
130
131
132
return -1;
}
return 0;
}
/* Uninitialize the music players */
void MOD_exit(void)
{
133
134
135
if (mikmod.MikMod_Exit) {
mikmod.MikMod_Exit();
}
136
137
138
139
140
}
/* Set the volume for a MOD stream */
void MOD_setvolume(MODULE *music, int volume)
{
141
mikmod.Player_SetVolume((SWORD)volume);
142
143
144
145
146
}
typedef struct
{
MREADER mr;
147
148
149
150
151
/* struct MREADER in libmikmod <= 3.2.0-beta2
* doesn't have iobase members. adding them here
* so that if we compile against 3.2.0-beta2, we
* can still run OK against 3.2.0b3 and newer. */
long iobase, prev_iobase;
152
153
long offset;
long eof;
154
155
156
SDL_RWops *rw;
} LMM_MREADER;
157
int LMM_Seek(struct MREADER *mr,long to,int dir)
158
{
159
160
161
LMM_MREADER* lmmmr = (LMM_MREADER*)mr;
if ( dir == SEEK_SET ) {
to += lmmmr->offset;
162
163
if (to < lmmmr->offset)
return -1;
164
}
165
return (SDL_RWseek(lmmmr->rw, to, dir) < lmmmr->offset)? -1 : 0;
166
167
168
}
long LMM_Tell(struct MREADER *mr)
{
169
170
LMM_MREADER* lmmmr = (LMM_MREADER*)mr;
return SDL_RWtell(lmmmr->rw) - lmmmr->offset;
171
172
173
}
BOOL LMM_Read(struct MREADER *mr,void *buf,size_t sz)
{
174
175
LMM_MREADER* lmmmr = (LMM_MREADER*)mr;
return SDL_RWread(lmmmr->rw, buf, sz, 1);
176
177
178
179
}
int LMM_Get(struct MREADER *mr)
{
unsigned char c;
180
181
182
183
184
LMM_MREADER* lmmmr = (LMM_MREADER*)mr;
if ( SDL_RWread(lmmmr->rw, &c, 1, 1) ) {
return c;
}
return EOF;
185
186
187
}
BOOL LMM_Eof(struct MREADER *mr)
{
188
long offset;
189
190
191
LMM_MREADER* lmmmr = (LMM_MREADER*)mr;
offset = LMM_Tell(mr);
return offset >= lmmmr->eof;
192
193
194
195
196
197
198
199
200
}
MODULE *MikMod_LoadSongRW(SDL_RWops *rw, int maxchan)
{
LMM_MREADER lmmmr = {
{ LMM_Seek, LMM_Tell, LMM_Read, LMM_Get, LMM_Eof },
0,
0,
0
};
201
lmmmr.offset = SDL_RWtell(rw);
202
SDL_RWseek(rw, 0, RW_SEEK_END);
203
lmmmr.eof = SDL_RWtell(rw);
204
SDL_RWseek(rw, lmmmr.offset, RW_SEEK_SET);
205
lmmmr.rw = rw;
206
return mikmod.Player_LoadGeneric((MREADER*)&lmmmr, maxchan, 0);
207
208
209
}
/* Load a MOD stream from an SDL_RWops object */
210
MODULE *MOD_new_RW(SDL_RWops *rw, int freerw)
211
{
212
213
MODULE *module;
214
215
/* Make sure the mikmod library is loaded */
if ( !Mix_Init(MIX_INIT_MOD) ) {
216
217
218
if ( freerw ) {
SDL_RWclose(rw);
}
219
220
221
return NULL;
}
222
module = MikMod_LoadSongRW(rw,64);
223
if (!module) {
224
Mix_SetError("%s", mikmod.MikMod_strerror(*mikmod.MikMod_errno));
225
226
227
if ( freerw ) {
SDL_RWclose(rw);
}
228
229
230
231
232
233
234
235
236
237
238
239
return NULL;
}
/* Stop implicit looping, fade out and other flags. */
module->extspd = 1;
module->panflag = 1;
module->wrap = 0;
module->loop = 0;
#if 0 /* Don't set fade out by default - unfortunately there's no real way
to query the status of the song or set trigger actions. Hum. */
module->fadeout = 1;
#endif
240
241
242
243
if ( freerw ) {
SDL_RWclose(rw);
}
244
245
246
247
248
249
return module;
}
/* Start playback of a given MOD stream */
void MOD_play(MODULE *music)
{
250
mikmod.Player_Start(music);
251
252
253
254
255
}
/* Return non-zero if a stream is currently playing */
int MOD_playing(MODULE *music)
{
256
return mikmod.Player_Active();
257
258
259
260
261
262
263
264
265
266
}
/* Play some of a stream previously started with MOD_play() */
int MOD_playAudio(MODULE *music, Uint8 *stream, int len)
{
if (current_output_channels > 2) {
int small_len = 2 * len / current_output_channels;
int i;
Uint8 *src, *dst;
267
mikmod.VC_WriteBytes((SBYTE *)stream, small_len);
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
/* and extend to len by copying channels */
src = stream + small_len;
dst = stream + len;
switch (current_output_format & 0xFF) {
case 8:
for ( i=small_len/2; i; --i ) {
src -= 2;
dst -= current_output_channels;
dst[0] = src[0];
dst[1] = src[1];
dst[2] = src[0];
dst[3] = src[1];
if (current_output_channels == 6) {
dst[4] = src[0];
dst[5] = src[1];
}
}
break;
case 16:
for ( i=small_len/4; i; --i ) {
src -= 4;
dst -= 2 * current_output_channels;
dst[0] = src[0];
dst[1] = src[1];
dst[2] = src[2];
dst[3] = src[3];
dst[4] = src[0];
dst[5] = src[1];
dst[6] = src[2];
dst[7] = src[3];
if (current_output_channels == 6) {
dst[8] = src[0];
dst[9] = src[1];
dst[10] = src[2];
dst[11] = src[3];
}
}
break;
}
} else {
309
mikmod.VC_WriteBytes((SBYTE *)stream, len);
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
}
if ( music_swap8 ) {
Uint8 *dst;
int i;
dst = stream;
for ( i=len; i; --i ) {
*dst++ ^= 0x80;
}
} else
if ( music_swap16 ) {
Uint8 *dst, tmp;
int i;
dst = stream;
for ( i=(len/2); i; --i ) {
tmp = dst[0];
dst[0] = dst[1];
dst[1] = tmp;
dst += 2;
}
}
return 0;
}
/* Stop playback of a stream previously started with MOD_play() */
void MOD_stop(MODULE *music)
{
338
mikmod.Player_Stop();
339
340
341
342
343
}
/* Close the given MOD stream */
void MOD_delete(MODULE *music)
{
344
mikmod.Player_Free(music);
345
346
347
348
349
}
/* Jump (seek) to a given position (time is in seconds) */
void MOD_jump_to_time(MODULE *music, double time)
{
350
/* FIXME: WRONG: THIS IS NOT A TIME SEEK */
351
mikmod.Player_SetPosition((UWORD)time);
352
353
354
}
#endif /* MOD_MUSIC */