static qboolean S_MODPLUG_CodecOpenStream (snd_stream_t *stream)
{
/* need to load the whole file into memory and pass it to libmodplug */
byte *moddata;
long len;
int mark;
len = FS_filelength (&stream->fh);
mark = Hunk_LowMark();
moddata = (byte *) Hunk_Alloc(len);
FS_fread(moddata, 1, len, &stream->fh);
S_MODPLUG_SetSettings(stream);
stream->priv = ModPlug_Load(moddata, len);
Hunk_FreeToLowMark(mark); /* free original file data */
if (!stream->priv)
{
Con_DPrintf("Could not load module %s\n", stream->name);
return false;
}
ModPlug_Seek((ModPlugFile*)stream->priv, 0);
#if 0
/* default volume (128) sounds rather low? */
ModPlug_SetMasterVolume((ModPlugFile*)stream->priv, 384); /* 0-512 */
#endif
return true;
}
static int modplug_read_seek(AVFormatContext *s, int stream_idx, int64_t ts, int flags)
{
ModPlugContext *modplug = s->priv_data;
ModPlug_Seek(modplug->f, (int)ts);
if (modplug->video_stream)
modplug->packet_count = ts / modplug->ts_per_packet;
return 0;
}
//! \brief Seek to a given time
int64_t Seek(void* context, int64_t time)
{
if (!context)
return -1;
ModPlug_Seek((ModPlugFile*)context, (int)time);
return time;
}
static int MODPLUG_rewind(Sound_Sample *sample)
{
Sound_SampleInternal *internal = (Sound_SampleInternal *) sample->opaque;
ModPlugFile *module = (ModPlugFile *) internal->decoder_private;
ModPlug_Seek(module, 0);
return(1);
} /* MODPLUG_rewind */
void mixaudio(void *unused, Uint8 *stream, int len) {
//printf("short=%d, Uint8=%d len=%d\n", sizeof(short), sizeof(Uint8), len);
memset(stream, 0, len);
int read = ModPlug_Read(m_Sounds[m_CurrentSound], stream, len);
if (read == 0) {
ModPlug_Seek(m_Sounds[m_CurrentSound], 0);
}
}
static int MODPLUG_seek(Sound_Sample *sample, Uint32 ms)
{
Sound_SampleInternal *internal = (Sound_SampleInternal *) sample->opaque;
ModPlugFile *module = (ModPlugFile *) internal->decoder_private;
/* Assume that this will work. */
ModPlug_Seek(module, ms);
return(1);
} /* MODPLUG_seek */
/**
* @brief Decodes a chunk of the previously loaded SPC data into PCM data.
* @param decoded_data pointer to where you want the decoded data to be written
* @param nb_samples number of samples to write
*/
void ItDecoder::decode(void* decoded_data, int nb_samples) {
// decode from the IT data the specified number of PCM samples
int bytes_read = ModPlug_Read(modplug_file, decoded_data, nb_samples);
if (bytes_read == 0) {
// on some systems, we have to make the music loop manually
ModPlug_Seek(modplug_file, 0);
}
}
static gboolean
xmms_modplug_seek (xmms_xform_t *xform, guint samples)
{
xmms_modplug_data_t *data;
g_return_val_if_fail (xform, FALSE);
data = xmms_xform_private_data_get (xform);
ModPlug_Seek (data->mod, (int) ((gdouble)1000 * samples / 44100));
return TRUE;
}
static gint64
xmms_modplug_seek (xmms_xform_t *xform, gint64 samples,
xmms_xform_seek_mode_t whence, xmms_error_t *error)
{
xmms_modplug_data_t *data;
g_return_val_if_fail (xform, -1);
g_return_val_if_fail (samples >= 0, -1);
g_return_val_if_fail (whence == XMMS_XFORM_SEEK_SET, -1);
data = xmms_xform_private_data_get (xform);
ModPlug_Seek (data->mod, (int) ((gdouble)1000 * samples / 44100));
return samples;
}
void ModPlay::fillBuffer(size_t buffer)
{
WAVEHDR* hdr = &headers[buffer];
waveOutUnprepareHeader(hWaveOut, hdr, sizeof(WAVEHDR));
int total = 0;
while(total != BUFSIZE)
{
int read = ModPlug_Read(modFile, hdr->lpData, BUFSIZE - total);
if(read == 0)
{
ModPlug_Seek(modFile, 0);
}
total += read;
}
waveOutPrepareHeader(hWaveOut, hdr, sizeof(WAVEHDR));
waveOutWrite(hWaveOut, hdr, sizeof(WAVEHDR));
}
int main(int argc, char* argv[])
{
long size;
char *filedata;
term_size terminal;
ModPlugFile *f2;
int mlen;
struct timeval tvstart;
struct timeval tv;
struct timeval tvpause, tvunpause;
struct timeval tvptotal;
char status[161];
char songname[41];
char notpaus[4];
int loop=0; // kontest
int songsplayed = 0;
int nFiles = 0, fnOffset[100];
int i;
ModPlug_Settings settings;
ModPlug_GetSettings(&settings);
ao_device *device;
ao_sample_format format = {0};
int default_driver;
ao_initialize();
default_driver = ao_default_driver_id();
for (i=1; i<argc; i++) {
/* check if arguments need to be parsed */
if (argv[i][0] == '-') {
if (strstr(argv[i],"-h")) {
printf("\n");
help(argv[0],0);
} else if (strstr(argv[i],"-v")) {
versioninfo();
exit(0);
} else if (strstr(argv[i],"-l")) {
loop=1;
continue;
} else if (strstr(argv[i],"-ao")) {
default_driver = ao_driver_id(argv[++i]);
continue;
}
if (argv[i][1] == '-') { // not a song
if (strstr(argv[i],"--help")) {
help(argv[0],0);
} else if (strstr(argv[i],"--version")) {
versioninfo();
exit(0);
}
continue;
}
}
/* "valid" filename - store it */
fnOffset[nFiles++] = i;
}
format.bits = 16;
format.channels = 2;
format.rate = 44100;
format.byte_format = AO_FMT_LITTLE;
// printf("Default driver = %i\n", default_driver);
char buffer[128];
int result, nread;
struct pollfd pollfds;
int timeout = 1; /* Timeout in msec. */
int pause=0;
int mono=0;
int bits=0;
int song;
// [rev--dly--] [sur--dly--] [bas--rng--]
int rev=0; // a
int revdly=0; // s
int sur=0; // d
int surdly=0; // y
int bas=0; // x
int basrng=0; // c
/* Initialize pollfds; we're looking at input, stdin */
pollfds.fd = 0; /* stdin */
pollfds.events = POLLIN; /* Wait for input */
if (argc==1) {
help(argv[0],1);
}
if (!get_term_size(STDIN_FILENO,&terminal)) {
fprintf(stderr,"warning: failed to get terminal size\n");
}
srand(time(NULL));
for (song=0; song<nFiles; song++) {
char *filename = argv[fnOffset[song]];
/* -- Open driver -- */
if (default_driver == ao_driver_id("wav")) {
device = ao_open_file(default_driver, "output.wav", 1, &format, NULL /*no options*/);
} else {
device = ao_open_live(default_driver, &format, NULL /* no options */);
}
if (device == NULL) {
fprintf(stderr, "Error opening device. (%s)\n", filename);
fprintf(stderr, "ERROR: %i\n", errno);
return 1;
}
printf("%s ",filename);
printf("[%d/%d]",song+1,nFiles);
filedata = getFileData(filename, &size);
if (filedata == NULL) continue;
printf(" [%ld]\n",size);
// Note: All "Basic Settings" must be set before ModPlug_Load.
settings.mResamplingMode = MODPLUG_RESAMPLE_FIR; /* RESAMP */
settings.mChannels = 2;
settings.mBits = 16;
settings.mFrequency = 44100;
settings.mStereoSeparation = 128;
settings.mMaxMixChannels = 256;
/* insert more setting changes here */
ModPlug_SetSettings(&settings);
f2 = ModPlug_Load(filedata, size);
if (!f2) {
printf("could not load %s\n", filename);
close(audio_fd);
free(filedata); /* ? */
} else {
songsplayed++;
/* settings.mFlags=MODPLUG_ENABLE_OVERSAMPLING | \
MODPLUG_ENABLE_NOISE_REDUCTION | \
MODPLUG_ENABLE_REVERB | \
MODPLUG_ENABLE_MEGABASS | \
MODPLUG_ENABLE_SURROUND;*/
// settings.mReverbDepth = 100; /* 0 - 100 */ * [REV--DLY--]
// settings.mReverbDelay = 200; /* 40 - 200 ms 00-FF */
// settings.mSurroundDepth = 100; /* 0 - 100 */ [SUR--DLY--]
// settings.mSurroundDelay = 40; /* 5 - 40 ms */
// settings.mBassAmount = 100; /* 0 - 100 */ [BAS--RNG--]
// settings.mBassRange = 100; /* 10 - 100 hz */
// [REV--DLY--] [SUR--DLY--] [BAS--RNG--]
// [rev--dly--] [sur--dly--] [bas--rng--]
set_keypress();
strcpy(songname, ModPlug_GetName(f2));
/* if no modplug "name" - use last 41 characters of filename */
if (strlen(songname)==0) {
int l = strlen(filename);
char *st = filename;
if (l >= 41) st = filename + l - 41;
strncpy(songname,st,41);
songname[40] = 0;
}
sprintf(status,"[1Gplaying %s (%%d.%%d/%d\") (%%d/%%d/%%d) \b\b\b\b",songname,ModPlug_GetLength(f2)/1000);
if (loop) sprintf(status,"[1Glooping %s (%%d.%%d/%d\") (%%d/%%d/%%d) \b\b\b\b",songname,ModPlug_GetLength(f2)/1000);
gettimeofday(&tvstart,NULL);
tvptotal.tv_sec=tvptotal.tv_usec=0;
mlen=1;
while(mlen!=0) {
if (mlen==0) { break; }
if (!pause) {
gettimeofday(&tv,NULL);
mlen = ModPlug_Read(f2,audio_buffer,BUF_SIZE);
if (mlen > 0 && ao_play(device, audio_buffer, mlen) == 0) {
perror("audio write");
exit(1);
}
}
printf(status,tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec,tv.tv_usec/100000,format.rate,format.channels,settings.mBits/*,rev,revdly,sur,surdly,bas,basrng*/);
fflush(stdout);
if ((mlen==0) && (loop==1)) {
/*printf("LOOPING NOW\n");*/
ModPlug_Seek(f2,0);
gettimeofday(&tvstart,NULL);
mlen=ModPlug_Read(f2,audio_buffer,BUF_SIZE);
tvptotal.tv_sec=tvptotal.tv_usec=0;
}
result = poll(&pollfds, 1, timeout);
switch (result) {
case 0:
/*printf(".");*/
break;
case -1:
perror("select");
exit(1);
default:
if (pollfds.revents && POLLIN) {
nread = read(0, buffer, 1); /* s/nread/1/2 */
if (nread == 0) {
printf("keyboard done\n");
exit(0);
} else {
buffer[nread] = 0;
/* printf("%s", buffer); */
if (buffer[0]=='q') { mlen=0; song=nFiles; } /* quit */
if (buffer[0]=='f') {
if ((tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec+10) < (ModPlug_GetLength(f2)/1000)) {
ModPlug_Seek(f2,(tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec)*1000+10000);
tvstart.tv_sec-=10;
}
} /* forward 10" */
if (buffer[0]=='b') {
if ((tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec-10) > 0) {
ModPlug_Seek(f2,(tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec)*1000-10000);
tvstart.tv_sec+=10;
}
} /* backward 10" */
/*
if (buffer[0]=='i') {
printf("\n");
} */
/*
if (buffer[0]=='a') {
rev++; settings.mReverbDepth=rev;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='A') {
rev--; settings.mReverbDepth=rev;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='s') {
revdly++; settings.mReverbDelay=revdly;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='S') {
revdly--; settings.mReverbDelay=revdly;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='d') {
sur++; settings.mSurroundDepth=sur;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='D') {
sur--; settings.mSurroundDepth=sur;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='y') {
surdly++; settings.mSurroundDelay=surdly;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='Y') {
surdly--; settings.mSurroundDelay=surdly;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='x') {
bas++; settings.mBassAmount=bas;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='X') {
bas--; settings.mBassAmount=bas;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='c') {
basrng++; settings.mBassRange=basrng;
ModPlug_SetSettings(&settings);
}
if (buffer[0]=='C') {
basrng--; settings.mBassRange=basrng;
ModPlug_SetSettings(&settings);
}
*/
if (buffer[0]=='n') {
if (song<argc) { mlen=0; pause=0; }
}
if (buffer[0]=='N') {
if (song>1) { song-=2; mlen=0; pause=0; }
}
if (buffer[0]=='r') {
song=(int) ((float)(argc-1)*rand()/(RAND_MAX+1.0));
mlen=0; pause=0;
// ioctl(audio_fd,SNDCTL_DSP_RESET,0);
/* printf("\n[%d?]\n",song+1); */
}
/*if (buffer[0]=='R') {
song=(int) ((float)(argc-1)*rand()/(RAND_MAX+1.0));
mlen=0; pause=0;
}*/
/* if (buffer[0]=='m') {
// mono/stereo
mono^=1;
if (mono) format.channels=1; else format.channels=2;
ioctl(audio_fd,SNDCTL_DSP_RESET,0);
if (ioctl(audio_fd, SNDCTL_DSP_CHANNELS, &channels) == -1) {
perror("SNDCTL_DSP_CHANNELS");
exit(1);
}
if (mono) settings.mChannels=1; else settings.mChannels=2;
ModPlug_SetSettings(&settings);
f2=ModPlug_Load(d,size);
ModPlug_Seek(f2,(tv.tv_sec-tvstart.tv_sec-tvptotal.tv_sec)*1000+10000);
}
*/
if (buffer[0]=='l') {
loop^=1;
if (loop) {
memcpy(status+4,"loop",4);
} else {
memcpy(status+4,"play",4);
}
} /* loop */
if (buffer[0]=='p') {
pause^=1;
if (pause) {
gettimeofday(&tvpause,NULL);
memcpy(notpaus,status+4,4);
memcpy(status+4,"paus",4);
} else {
gettimeofday(&tvunpause,NULL);
memcpy(status+4,notpaus,4);
tvptotal.tv_sec+=tvunpause.tv_sec-tvpause.tv_sec;
tvptotal.tv_usec+=tvunpause.tv_usec-tvpause.tv_usec;
/* printf(status,tv.tv_sec-tvstart.tv_sec,tv.tv_usec/100000); */
}
} /* pause */
}
}
}
}
printf("\n");
reset_keypress();
ModPlug_Unload(f2);
ao_close(device);
fprintf(stderr, "Closing audio device.\n");
free(filedata);
} /* valid module */
} /* for */
ao_shutdown();
return 0;
}
/* Start playback of a given modplug stream */
void modplug_play(modplug_data *music)
{
ModPlug_Seek(music->file,0);
music->playing=1;
}
static void
mod_decode(struct decoder *decoder, struct input_stream *is)
{
ModPlugFile *f;
ModPlug_Settings settings;
GByteArray *bdatas;
struct audio_format audio_format;
int ret;
char audio_buffer[MODPLUG_FRAME_SIZE];
enum decoder_command cmd = DECODE_COMMAND_NONE;
bdatas = mod_loadfile(decoder, is);
if (!bdatas) {
g_warning("could not load stream\n");
return;
}
ModPlug_GetSettings(&settings);
/* alter setting */
settings.mResamplingMode = MODPLUG_RESAMPLE_FIR; /* RESAMP */
settings.mChannels = 2;
settings.mBits = 16;
settings.mFrequency = 44100;
/* insert more setting changes here */
ModPlug_SetSettings(&settings);
f = ModPlug_Load(bdatas->data, bdatas->len);
g_byte_array_free(bdatas, TRUE);
if (!f) {
g_warning("could not decode stream\n");
return;
}
audio_format_init(&audio_format, 44100, SAMPLE_FORMAT_S16, 2);
assert(audio_format_valid(&audio_format));
decoder_initialized(decoder, &audio_format,
is->seekable, ModPlug_GetLength(f) / 1000.0);
do {
ret = ModPlug_Read(f, audio_buffer, MODPLUG_FRAME_SIZE);
if (ret <= 0)
break;
cmd = decoder_data(decoder, NULL,
audio_buffer, ret,
0);
if (cmd == DECODE_COMMAND_SEEK) {
float where = decoder_seek_where(decoder);
ModPlug_Seek(f, (int)(where * 1000.0));
decoder_command_finished(decoder);
}
} while (cmd != DECODE_COMMAND_STOP);
ModPlug_Unload(f);
}
/*****************************************************************************
* Control:
*****************************************************************************/
static int Control( demux_t *p_demux, int i_query, va_list args )
{
demux_sys_t *p_sys = p_demux->p_sys;
double f, *pf;
vlc_tick_t i64;
vlc_tick_t *pi64;
switch( i_query )
{
case DEMUX_CAN_SEEK:
*va_arg( args, bool * ) = true;
return VLC_SUCCESS;
case DEMUX_GET_POSITION:
pf = va_arg( args, double* );
if( p_sys->i_length > 0 )
{
double current = date_Get( &p_sys->pts ) - VLC_TICK_0;
double length = p_sys->i_length;
*pf = current / length;
return VLC_SUCCESS;
}
return VLC_EGENERIC;
case DEMUX_SET_POSITION:
f = va_arg( args, double );
i64 = f * p_sys->i_length;
if( i64 >= 0 && i64 <= p_sys->i_length )
{
ModPlug_Seek( p_sys->f, MS_FROM_VLC_TICK(i64) );
date_Set( &p_sys->pts, VLC_TICK_0 + i64 );
return VLC_SUCCESS;
}
return VLC_EGENERIC;
case DEMUX_GET_TIME:
*va_arg( args, vlc_tick_t * ) = date_Get( &p_sys->pts );
return VLC_SUCCESS;
case DEMUX_GET_LENGTH:
pi64 = va_arg( args, vlc_tick_t * );
*pi64 = p_sys->i_length;
return VLC_SUCCESS;
case DEMUX_SET_TIME:
i64 = va_arg( args, vlc_tick_t );
if( likely(i64 >= 0) && i64 <= p_sys->i_length )
{
ModPlug_Seek( p_sys->f, MS_FROM_VLC_TICK( i64 ) );
date_Set( &p_sys->pts, VLC_TICK_0 + i64 );
return VLC_SUCCESS;
}
return VLC_EGENERIC;
case DEMUX_HAS_UNSUPPORTED_META:
{
bool *pb_bool = va_arg( args, bool* );
*pb_bool = false; /* FIXME I am not sure of this one */
return VLC_SUCCESS;
}
case DEMUX_GET_META:
{
vlc_meta_t *p_meta = va_arg( args, vlc_meta_t * );
unsigned i_num_samples = ModPlug_NumSamples( p_sys->f ),
i_num_instruments = ModPlug_NumInstruments( p_sys->f );
unsigned i_num_patterns = ModPlug_NumPatterns( p_sys->f ),
i_num_channels = ModPlug_NumChannels( p_sys->f );
// unsigned modType = ModPlug_GetModuleType( p_sys->f );
char psz_temp[2048]; /* 32 * 240 max, but only need start */
char *psz_module_info, *psz_instrument_info;
unsigned i_temp_index = 0;
const char *psz_name = ModPlug_GetName( p_sys->f );
if( psz_name && *psz_name && IsUTF8( psz_name ) )
vlc_meta_SetTitle( p_meta, psz_name );
/* Comment field from artist - not in every type of MOD */
psz_name = ModPlug_GetMessage( p_sys->f );
if( psz_name && *psz_name && IsUTF8( psz_name ) )
vlc_meta_SetDescription( p_meta, psz_name );
/* Instruments only in newer MODs - so don't show if 0 */
if( asprintf( &psz_instrument_info, ", %i Instruments",
i_num_instruments ) >= 0 )
{
if( asprintf( &psz_module_info,
"%i Channels, %i Patterns\n"
"%i Samples%s\n",
i_num_channels, i_num_patterns, i_num_samples,
( i_num_instruments ? psz_instrument_info : "" ) ) >= 0 )
{
vlc_meta_AddExtra( p_meta, "Module Information",
psz_module_info );
free( psz_module_info );
}
free( psz_instrument_info );
}
/* Make list of instruments (XM, IT, etc) */
if( i_num_instruments )
{
i_temp_index = 0;
for( unsigned i = 0; i < i_num_instruments && i_temp_index < sizeof(psz_temp); i++ )
{
char lBuffer[33];
ModPlug_InstrumentName( p_sys->f, i, lBuffer );
if ( !lBuffer[0] || !IsUTF8( lBuffer ) ) continue;
i_temp_index += snprintf( &psz_temp[i_temp_index], sizeof(psz_temp) - i_temp_index, "%s\n", lBuffer );
}
vlc_meta_AddExtra( p_meta, "Instruments", psz_temp );
}
/* Make list of samples */
for( unsigned int i = 0; i < i_num_samples && i_temp_index < sizeof(psz_temp); i++ )
{
char psz_buffer[33];
ModPlug_SampleName( p_sys->f, i, psz_buffer );
if ( !psz_buffer[0] || !IsUTF8( psz_buffer ) ) continue;
i_temp_index += snprintf( &psz_temp[i_temp_index], sizeof(psz_temp) - i_temp_index, "%s\n", psz_buffer );
}
vlc_meta_AddExtra( p_meta, "Samples", psz_temp );
return VLC_SUCCESS;
}
case DEMUX_GET_FPS: /* meaningless */
return VLC_EGENERIC;
case DEMUX_CAN_PAUSE:
case DEMUX_CAN_CONTROL_PACE:
case DEMUX_GET_PTS_DELAY:
case DEMUX_SET_PAUSE_STATE:
return demux_vaControlHelper( p_demux->s, 0, -1, 0, 1, i_query, args );
default:
return VLC_EGENERIC;
}
}
/* Jump (seek) to a given position (time is in seconds) */
void modplug_jump_to_time(modplug_data *music, double time)
{
ModPlug_Seek(music->file,(int)(time*1000));
}
static int S_MODPLUG_CodecRewindStream (snd_stream_t *stream)
{
ModPlug_Seek((ModPlugFile*)stream->priv, 0);
return 0;
}
void decode_seek( double p_seconds,abort_callback & p_abort )
{
long seek_ms = audio_math::time_to_samples( p_seconds, 1000 );
ModPlug_Seek(m_player,seek_ms);
first_block = true;
}
void sfMod::Mod::onSeek(sf::Time timeOffset)
{
ModPlug_Seek(file_, static_cast<int>(timeOffset.asMilliseconds()));
}
