304 lines
7.1 KiB
C
304 lines
7.1 KiB
C
|
/*
|
||
|
|
* libopenmpt_example_c_mem.c
|
||
|
|
* --------------------------
|
||
|
|
* Purpose: libopenmpt C API example
|
||
|
|
* Notes : PortAudio is used for sound output.
|
||
|
|
* Authors: OpenMPT Devs
|
||
|
|
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Usage: libopenmpt_example_c_mem SOMEMODULE
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <memory.h>
|
||
|
|
#include <stdint.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
#include <libopenmpt/libopenmpt.h>
|
||
|
|
|
||
|
|
#include <portaudio.h>
|
||
|
|
|
||
|
|
#define BUFFERSIZE 480
|
||
|
|
#define SAMPLERATE 48000
|
||
|
|
|
||
|
|
static int16_t left[BUFFERSIZE];
|
||
|
|
static int16_t right[BUFFERSIZE];
|
||
|
|
static int16_t * const buffers[2] = { left, right };
|
||
|
|
static int16_t interleaved_buffer[BUFFERSIZE * 2];
|
||
|
|
static int is_interleaved = 0;
|
||
|
|
|
||
|
|
static void libopenmpt_example_logfunc( const char * message, void * userdata ) {
|
||
|
|
(void)userdata;
|
||
|
|
if ( message ) {
|
||
|
|
fprintf( stderr, "openmpt: %s\n", message );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static int libopenmpt_example_errfunc( int error, void * userdata ) {
|
||
|
|
(void)userdata;
|
||
|
|
(void)error;
|
||
|
|
return OPENMPT_ERROR_FUNC_RESULT_DEFAULT & ~OPENMPT_ERROR_FUNC_RESULT_LOG;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void libopenmpt_example_print_error( const char * func_name, int mod_err, const char * mod_err_str ) {
|
||
|
|
if ( !func_name ) {
|
||
|
|
func_name = "unknown function";
|
||
|
|
}
|
||
|
|
if ( mod_err == OPENMPT_ERROR_OUT_OF_MEMORY ) {
|
||
|
|
mod_err_str = openmpt_error_string( mod_err );
|
||
|
|
if ( !mod_err_str ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "OPENMPT_ERROR_OUT_OF_MEMORY" );
|
||
|
|
} else {
|
||
|
|
fprintf( stderr, "Error: %s\n", mod_err_str );
|
||
|
|
openmpt_free_string( mod_err_str );
|
||
|
|
mod_err_str = NULL;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
if ( !mod_err_str ) {
|
||
|
|
mod_err_str = openmpt_error_string( mod_err );
|
||
|
|
if ( !mod_err_str ) {
|
||
|
|
fprintf( stderr, "Error: %s failed.\n", func_name );
|
||
|
|
} else {
|
||
|
|
fprintf( stderr, "Error: %s failed: %s\n", func_name, mod_err_str );
|
||
|
|
}
|
||
|
|
openmpt_free_string( mod_err_str );
|
||
|
|
mod_err_str = NULL;
|
||
|
|
}
|
||
|
|
fprintf( stderr, "Error: %s failed: %s\n", func_name, mod_err_str );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
typedef struct blob_t {
|
||
|
|
size_t size;
|
||
|
|
void * data;
|
||
|
|
} blob_t;
|
||
|
|
|
||
|
|
static void free_blob( blob_t * blob ) {
|
||
|
|
if ( blob ) {
|
||
|
|
if ( blob->data ) {
|
||
|
|
free( blob->data );
|
||
|
|
blob->data = 0;
|
||
|
|
}
|
||
|
|
blob->size = 0;
|
||
|
|
free( blob );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#if ( defined( _WIN32 ) || defined( WIN32 ) ) && ( defined( _UNICODE ) || defined( UNICODE ) )
|
||
|
|
static blob_t * load_file( const wchar_t * filename ) {
|
||
|
|
#else
|
||
|
|
static blob_t * load_file( const char * filename ) {
|
||
|
|
#endif
|
||
|
|
blob_t * result = 0;
|
||
|
|
|
||
|
|
blob_t * blob = 0;
|
||
|
|
FILE * file = 0;
|
||
|
|
long tell_result = 0;
|
||
|
|
|
||
|
|
blob = malloc( sizeof( blob_t ) );
|
||
|
|
if ( !blob ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
memset( blob, 0, sizeof( blob_t ) );
|
||
|
|
|
||
|
|
#if ( defined( _WIN32 ) || defined( WIN32 ) ) && ( defined( _UNICODE ) || defined( UNICODE ) )
|
||
|
|
file = _wfopen( filename, L"rb" );
|
||
|
|
#else
|
||
|
|
file = fopen( filename, "rb" );
|
||
|
|
#endif
|
||
|
|
if ( !file ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( fseek( file, 0, SEEK_END ) != 0 ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
tell_result = ftell( file );
|
||
|
|
if ( tell_result < 0 ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
if ( (unsigned long)(size_t)(unsigned long)tell_result != (unsigned long)tell_result ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
blob->size = (size_t)tell_result;
|
||
|
|
|
||
|
|
if ( fseek( file, 0, SEEK_SET ) != 0 ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
blob->data = malloc( blob->size );
|
||
|
|
if ( !blob->data ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
memset( blob->data, 0, blob->size );
|
||
|
|
|
||
|
|
if ( fread( blob->data, 1, blob->size, file ) != blob->size ) {
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
result = blob;
|
||
|
|
blob = 0;
|
||
|
|
goto cleanup;
|
||
|
|
|
||
|
|
fail:
|
||
|
|
|
||
|
|
result = 0;
|
||
|
|
|
||
|
|
cleanup:
|
||
|
|
|
||
|
|
if ( blob ) {
|
||
|
|
free_blob( blob );
|
||
|
|
blob = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( file ) {
|
||
|
|
fclose( file );
|
||
|
|
file = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
return result;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if ( defined( _WIN32 ) || defined( WIN32 ) ) && ( defined( _UNICODE ) || defined( UNICODE ) )
|
||
|
|
#if defined( __clang__ ) && !defined( _MSC_VER )
|
||
|
|
int wmain( int argc, wchar_t * argv[] );
|
||
|
|
#endif
|
||
|
|
int wmain( int argc, wchar_t * argv[] ) {
|
||
|
|
#else
|
||
|
|
int main( int argc, char * argv[] ) {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
int result = 0;
|
||
|
|
blob_t * blob = 0;
|
||
|
|
openmpt_module * mod = 0;
|
||
|
|
int mod_err = OPENMPT_ERROR_OK;
|
||
|
|
const char * mod_err_str = NULL;
|
||
|
|
size_t count = 0;
|
||
|
|
PaError pa_error = paNoError;
|
||
|
|
int pa_initialized = 0;
|
||
|
|
PaStream * stream = 0;
|
||
|
|
|
||
|
|
if ( argc != 2 ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Wrong invocation. Use 'libopenmpt_example_c_mem SOMEMODULE'." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if ( defined( _WIN32 ) || defined( WIN32 ) ) && ( defined( _UNICODE ) || defined( UNICODE ) )
|
||
|
|
if ( wcslen( argv[1] ) == 0 ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Wrong invocation. Use 'libopenmpt_example_c_mem SOMEMODULE'." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
#else
|
||
|
|
if ( strlen( argv[1] ) == 0 ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Wrong invocation. Use 'libopenmpt_example_c_mem SOMEMODULE'." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
blob = load_file( argv[1] );
|
||
|
|
if ( !blob ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "load_file() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
mod = openmpt_module_create_from_memory2( blob->data, blob->size, &libopenmpt_example_logfunc, NULL, &libopenmpt_example_errfunc, NULL, &mod_err, &mod_err_str, NULL );
|
||
|
|
if ( !mod ) {
|
||
|
|
libopenmpt_example_print_error( "openmpt_module_create_from_memory2()", mod_err, mod_err_str );
|
||
|
|
openmpt_free_string( mod_err_str );
|
||
|
|
mod_err_str = NULL;
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
pa_error = Pa_Initialize();
|
||
|
|
if ( pa_error != paNoError ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Pa_Initialize() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
pa_initialized = 1;
|
||
|
|
|
||
|
|
is_interleaved = 0;
|
||
|
|
pa_error = Pa_OpenDefaultStream( &stream, 0, 2, paInt16 | paNonInterleaved, SAMPLERATE, paFramesPerBufferUnspecified, NULL, NULL );
|
||
|
|
if ( pa_error == paSampleFormatNotSupported ) {
|
||
|
|
is_interleaved = 1;
|
||
|
|
pa_error = Pa_OpenDefaultStream( &stream, 0, 2, paInt16, SAMPLERATE, paFramesPerBufferUnspecified, NULL, NULL );
|
||
|
|
}
|
||
|
|
if ( pa_error != paNoError ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Pa_OpenStream() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
if ( !stream ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Pa_OpenStream() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
pa_error = Pa_StartStream( stream );
|
||
|
|
if ( pa_error != paNoError ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Pa_StartStream() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
|
||
|
|
while ( 1 ) {
|
||
|
|
|
||
|
|
openmpt_module_error_clear( mod );
|
||
|
|
count = is_interleaved ? openmpt_module_read_interleaved_stereo( mod, SAMPLERATE, BUFFERSIZE, interleaved_buffer ) : openmpt_module_read_stereo( mod, SAMPLERATE, BUFFERSIZE, left, right );
|
||
|
|
mod_err = openmpt_module_error_get_last( mod );
|
||
|
|
mod_err_str = openmpt_module_error_get_last_message( mod );
|
||
|
|
if ( mod_err != OPENMPT_ERROR_OK ) {
|
||
|
|
libopenmpt_example_print_error( "openmpt_module_read_stereo()", mod_err, mod_err_str );
|
||
|
|
openmpt_free_string( mod_err_str );
|
||
|
|
mod_err_str = NULL;
|
||
|
|
}
|
||
|
|
if ( count == 0 ) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
pa_error = is_interleaved ? Pa_WriteStream( stream, interleaved_buffer, (unsigned long)count ) : Pa_WriteStream( stream, buffers, (unsigned long)count );
|
||
|
|
if ( pa_error == paOutputUnderflowed ) {
|
||
|
|
pa_error = paNoError;
|
||
|
|
}
|
||
|
|
if ( pa_error != paNoError ) {
|
||
|
|
fprintf( stderr, "Error: %s\n", "Pa_WriteStream() failed." );
|
||
|
|
goto fail;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
result = 0;
|
||
|
|
|
||
|
|
goto cleanup;
|
||
|
|
|
||
|
|
fail:
|
||
|
|
|
||
|
|
result = 1;
|
||
|
|
|
||
|
|
cleanup:
|
||
|
|
|
||
|
|
if ( stream ) {
|
||
|
|
if ( Pa_IsStreamActive( stream ) == 1 ) {
|
||
|
|
Pa_StopStream( stream );
|
||
|
|
}
|
||
|
|
Pa_CloseStream( stream );
|
||
|
|
stream = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( pa_initialized ) {
|
||
|
|
Pa_Terminate();
|
||
|
|
pa_initialized = 0;
|
||
|
|
(void)pa_initialized;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( mod ) {
|
||
|
|
openmpt_module_destroy( mod );
|
||
|
|
mod = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( blob ) {
|
||
|
|
free_blob( blob );
|
||
|
|
blob = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
return result;
|
||
|
|
}
|