mirror of
https://github.com/FWGS/xash3d-fwgs
synced 2024-12-12 03:50:45 +01:00
466 lines
9.2 KiB
C
466 lines
9.2 KiB
C
/*
|
|
snd_wav.c - wav format load & save
|
|
Copyright (C) 2010 Uncle Mike
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
*/
|
|
|
|
#include "soundlib.h"
|
|
|
|
static const byte *iff_data;
|
|
static const byte *iff_dataPtr;
|
|
static const byte *iff_end;
|
|
static const byte *iff_lastChunk;
|
|
static int iff_chunkLen;
|
|
|
|
/*
|
|
=================
|
|
GetLittleShort
|
|
=================
|
|
*/
|
|
static short GetLittleShort( void )
|
|
{
|
|
short val = 0;
|
|
|
|
val += (*(iff_dataPtr+0) << 0);
|
|
val += (*(iff_dataPtr+1) << 8);
|
|
iff_dataPtr += 2;
|
|
|
|
return val;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
GetLittleLong
|
|
=================
|
|
*/
|
|
static int GetLittleLong( void )
|
|
{
|
|
int val = 0;
|
|
|
|
val += (*(iff_dataPtr+0) << 0);
|
|
val += (*(iff_dataPtr+1) << 8);
|
|
val += (*(iff_dataPtr+2) <<16);
|
|
val += (*(iff_dataPtr+3) <<24);
|
|
iff_dataPtr += 4;
|
|
|
|
return val;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
FindNextChunk
|
|
=================
|
|
*/
|
|
static void FindNextChunk( const char *name )
|
|
{
|
|
while( 1 )
|
|
{
|
|
iff_dataPtr = iff_lastChunk;
|
|
|
|
if( iff_dataPtr >= iff_end )
|
|
{
|
|
// didn't find the chunk
|
|
iff_dataPtr = NULL;
|
|
return;
|
|
}
|
|
|
|
iff_dataPtr += 4;
|
|
iff_chunkLen = GetLittleLong();
|
|
|
|
if( iff_chunkLen < 0 )
|
|
{
|
|
iff_dataPtr = NULL;
|
|
return;
|
|
}
|
|
|
|
iff_dataPtr -= 8;
|
|
iff_lastChunk = iff_dataPtr + 8 + ((iff_chunkLen + 1) & ~1);
|
|
|
|
if( !Q_strncmp( iff_dataPtr, name, 4 ))
|
|
return;
|
|
}
|
|
}
|
|
|
|
/*
|
|
=================
|
|
FindChunk
|
|
=================
|
|
*/
|
|
static void FindChunk( const char *name )
|
|
{
|
|
iff_lastChunk = iff_data;
|
|
FindNextChunk( name );
|
|
}
|
|
|
|
/*
|
|
============
|
|
StreamFindNextChunk
|
|
============
|
|
*/
|
|
qboolean StreamFindNextChunk( file_t *file, const char *name, int *last_chunk )
|
|
{
|
|
char chunkName[4];
|
|
int iff_chunk_len;
|
|
|
|
while( 1 )
|
|
{
|
|
FS_Seek( file, *last_chunk, SEEK_SET );
|
|
|
|
if( FS_Eof( file ))
|
|
return false; // didn't find the chunk
|
|
|
|
FS_Seek( file, 4, SEEK_CUR );
|
|
FS_Read( file, &iff_chunk_len, sizeof( iff_chunk_len ));
|
|
if( iff_chunk_len < 0 )
|
|
return false; // didn't find the chunk
|
|
|
|
FS_Seek( file, -8, SEEK_CUR );
|
|
*last_chunk = FS_Tell( file ) + 8 + (( iff_chunk_len + 1 ) & ~1 );
|
|
FS_Read( file, chunkName, 4 );
|
|
|
|
if( !Q_strncmp( chunkName, name, 4 ))
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
/*
|
|
=============
|
|
Sound_LoadWAV
|
|
=============
|
|
*/
|
|
qboolean Sound_LoadWAV( const char *name, const byte *buffer, size_t filesize )
|
|
{
|
|
int samples, fmt;
|
|
qboolean mpeg_stream = false;
|
|
|
|
if( !buffer || filesize <= 0 )
|
|
return false;
|
|
|
|
iff_data = buffer;
|
|
iff_end = buffer + filesize;
|
|
|
|
// find "RIFF" chunk
|
|
FindChunk( "RIFF" );
|
|
|
|
if( !( iff_dataPtr && !Q_strncmp( iff_dataPtr + 8, "WAVE", 4 )))
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: %s missing 'RIFF/WAVE' chunks\n", name );
|
|
return false;
|
|
}
|
|
|
|
// get "fmt " chunk
|
|
iff_data = iff_dataPtr + 12;
|
|
FindChunk( "fmt " );
|
|
|
|
if( !iff_dataPtr )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: %s missing 'fmt ' chunk\n", name );
|
|
return false;
|
|
}
|
|
|
|
iff_dataPtr += 8;
|
|
fmt = GetLittleShort();
|
|
|
|
if( fmt != 1 )
|
|
{
|
|
if( fmt != 85 )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: %s not a microsoft PCM format\n", name );
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
// mpeg stream in wav container
|
|
mpeg_stream = true;
|
|
}
|
|
}
|
|
|
|
sound.channels = GetLittleShort();
|
|
if( sound.channels != 1 && sound.channels != 2 )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: only mono and stereo WAV files supported (%s)\n", name );
|
|
return false;
|
|
}
|
|
|
|
sound.rate = GetLittleLong();
|
|
iff_dataPtr += 6;
|
|
|
|
sound.width = GetLittleShort() / 8;
|
|
if( mpeg_stream ) sound.width = 2; // mp3 always 16bit
|
|
|
|
if( sound.width != 1 && sound.width != 2 )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: only 8 and 16 bit WAV files supported (%s)\n", name );
|
|
return false;
|
|
}
|
|
|
|
// get cue chunk
|
|
FindChunk( "cue " );
|
|
|
|
if( iff_dataPtr )
|
|
{
|
|
iff_dataPtr += 32;
|
|
sound.loopstart = GetLittleLong();
|
|
FindNextChunk( "LIST" ); // if the next chunk is a LIST chunk, look for a cue length marker
|
|
|
|
if( iff_dataPtr )
|
|
{
|
|
if( !Q_strncmp( iff_dataPtr + 28, "mark", 4 ))
|
|
{
|
|
// this is not a proper parse, but it works with CoolEdit...
|
|
iff_dataPtr += 24;
|
|
sound.samples = sound.loopstart + GetLittleLong(); // samples in loop
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
sound.loopstart = -1;
|
|
sound.samples = 0;
|
|
}
|
|
|
|
// find data chunk
|
|
FindChunk( "data" );
|
|
|
|
if( !iff_dataPtr )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: %s missing 'data' chunk\n", name );
|
|
return false;
|
|
}
|
|
|
|
iff_dataPtr += 4;
|
|
samples = GetLittleLong() / sound.width;
|
|
|
|
if( sound.samples )
|
|
{
|
|
if( samples < sound.samples )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: %s has a bad loop length\n", name );
|
|
return false;
|
|
}
|
|
}
|
|
else sound.samples = samples;
|
|
|
|
if( sound.samples <= 0 )
|
|
{
|
|
Con_DPrintf( S_ERROR "Sound_LoadWAV: file with %i samples (%s)\n", sound.samples, name );
|
|
return false;
|
|
}
|
|
|
|
sound.type = WF_PCMDATA;
|
|
sound.samples /= sound.channels;
|
|
|
|
// g-cont. get support for mp3 streams packed in wav container
|
|
// e.g. CAd menu sounds
|
|
if( mpeg_stream )
|
|
{
|
|
int hdr_size = (iff_dataPtr - buffer);
|
|
|
|
if(( filesize - hdr_size ) < FRAME_SIZE )
|
|
{
|
|
sound.tempbuffer = (byte *)Mem_Realloc( host.soundpool, sound.tempbuffer, FRAME_SIZE );
|
|
memcpy( sound.tempbuffer, buffer + (iff_dataPtr - buffer), filesize - hdr_size );
|
|
return Sound_LoadMPG( name, sound.tempbuffer, FRAME_SIZE );
|
|
}
|
|
|
|
return Sound_LoadMPG( name, buffer + hdr_size, filesize - hdr_size );
|
|
}
|
|
|
|
// Load the data
|
|
sound.size = sound.samples * sound.width * sound.channels;
|
|
sound.wav = Mem_Malloc( host.soundpool, sound.size );
|
|
|
|
memcpy( sound.wav, buffer + (iff_dataPtr - buffer), sound.size );
|
|
|
|
// now convert 8-bit sounds to signed
|
|
if( sound.width == 1 )
|
|
{
|
|
int i, j;
|
|
char *pData = sound.wav;
|
|
|
|
for( i = 0; i < sound.samples; i++ )
|
|
{
|
|
for( j = 0; j < sound.channels; j++ )
|
|
{
|
|
*pData = (byte)((int)((byte)*pData) - 128 );
|
|
pData++;
|
|
}
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
Stream_OpenWAV
|
|
=================
|
|
*/
|
|
stream_t *Stream_OpenWAV( const char *filename )
|
|
{
|
|
stream_t *stream;
|
|
int last_chunk = 0;
|
|
char chunkName[4];
|
|
int iff_data;
|
|
file_t *file;
|
|
short t;
|
|
|
|
if( !filename || !*filename )
|
|
return NULL;
|
|
|
|
// open
|
|
file = FS_Open( filename, "rb", false );
|
|
if( !file ) return NULL;
|
|
|
|
// find "RIFF" chunk
|
|
if( !StreamFindNextChunk( file, "RIFF", &last_chunk ))
|
|
{
|
|
Con_DPrintf( S_ERROR "Stream_OpenWAV: %s missing RIFF chunk\n", filename );
|
|
FS_Close( file );
|
|
return NULL;
|
|
}
|
|
|
|
FS_Read( file, chunkName, 4 );
|
|
if( !Q_strncmp( chunkName, "WAVE", 4 ))
|
|
{
|
|
Con_DPrintf( S_ERROR "Stream_OpenWAV: %s missing WAVE chunk\n", filename );
|
|
FS_Close( file );
|
|
return NULL;
|
|
}
|
|
|
|
// get "fmt " chunk
|
|
iff_data = FS_Tell( file ) + 4;
|
|
last_chunk = iff_data;
|
|
if( !StreamFindNextChunk( file, "fmt ", &last_chunk ))
|
|
{
|
|
Con_DPrintf( S_ERROR "Stream_OpenWAV: %s missing 'fmt ' chunk\n", filename );
|
|
FS_Close( file );
|
|
return NULL;
|
|
}
|
|
|
|
FS_Read( file, chunkName, 4 );
|
|
|
|
FS_Read( file, &t, sizeof( t ));
|
|
if( t != 1 )
|
|
{
|
|
Con_DPrintf( S_ERROR "Stream_OpenWAV: %s not a microsoft PCM format\n", filename );
|
|
FS_Close( file );
|
|
return NULL;
|
|
}
|
|
|
|
FS_Read( file, &t, sizeof( t ));
|
|
sound.channels = t;
|
|
|
|
FS_Read( file, &sound.rate, sizeof( int ));
|
|
|
|
FS_Seek( file, 6, SEEK_CUR );
|
|
|
|
FS_Read( file, &t, sizeof( t ));
|
|
sound.width = t / 8;
|
|
|
|
sound.loopstart = 0;
|
|
|
|
// find data chunk
|
|
last_chunk = iff_data;
|
|
if( !StreamFindNextChunk( file, "data", &last_chunk ))
|
|
{
|
|
Con_DPrintf( S_ERROR "Stream_OpenWAV: %s missing 'data' chunk\n", filename );
|
|
FS_Close( file );
|
|
return NULL;
|
|
}
|
|
|
|
FS_Read( file, &sound.samples, sizeof( int ));
|
|
sound.samples = ( sound.samples / sound.width ) / sound.channels;
|
|
|
|
// at this point we have valid stream
|
|
stream = Mem_Calloc( host.soundpool, sizeof( stream_t ));
|
|
stream->file = file;
|
|
stream->size = sound.samples * sound.width * sound.channels;
|
|
stream->buffsize = FS_Tell( file ); // header length
|
|
stream->channels = sound.channels;
|
|
stream->width = sound.width;
|
|
stream->rate = sound.rate;
|
|
stream->type = WF_PCMDATA;
|
|
|
|
return stream;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
Stream_ReadWAV
|
|
|
|
assume stream is valid
|
|
=================
|
|
*/
|
|
int Stream_ReadWAV( stream_t *stream, int bytes, void *buffer )
|
|
{
|
|
int remaining;
|
|
|
|
if( !stream->file ) return 0; // invalid file
|
|
|
|
remaining = stream->size - stream->pos;
|
|
if( remaining <= 0 ) return 0;
|
|
if( bytes > remaining ) bytes = remaining;
|
|
|
|
stream->pos += bytes;
|
|
FS_Read( stream->file, buffer, bytes );
|
|
|
|
return bytes;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
Stream_SetPosWAV
|
|
|
|
assume stream is valid
|
|
=================
|
|
*/
|
|
int Stream_SetPosWAV( stream_t *stream, int newpos )
|
|
{
|
|
// NOTE: stream->pos it's real file position without header size
|
|
if( FS_Seek( stream->file, stream->buffsize + newpos, SEEK_SET ) != -1 )
|
|
{
|
|
stream->pos = newpos;
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
Stream_GetPosWAV
|
|
|
|
assume stream is valid
|
|
=================
|
|
*/
|
|
int Stream_GetPosWAV( stream_t *stream )
|
|
{
|
|
return stream->pos;
|
|
}
|
|
|
|
/*
|
|
=================
|
|
Stream_FreeWAV
|
|
|
|
assume stream is valid
|
|
=================
|
|
*/
|
|
void Stream_FreeWAV( stream_t *stream )
|
|
{
|
|
if( stream->file )
|
|
FS_Close( stream->file );
|
|
Mem_Free( stream );
|
|
}
|