/*
** .WV input plug-in for WavPack
** Copyright (c) 2000 - 2006, Conifer Software, All Rights Reserved
*/
#include <windows.h>
#include <fcntl.h>
#include <stdio.h>
#include <mmreg.h>
#include <msacm.h>
#include <math.h>
#include <sys/stat.h>
#include <io.h>
#include <strsafe.h>
#include "in2.h"
#include "wavpack.h"
#include "resource.h"
#include "wasabi/winamp/wa_ipc.h"
#include "wasabi/wasabi.h"
#include "wasabi/nu/autochar.h"
#include "wasabi/nu/autowide.h"
#define fileno _fileno
static float calculate_gain(WavpackContext *wpc, bool allowDefault=true);
#define PLUGIN_VERSION "2.8.1"
//#define DEBUG_CONSOLE
//#define ANSI_METADATA
#define UNICODE_METADATA
//#define OLD_INFO_DIALOG
// post this to the main window at end of file (after playback as stopped)
#define WM_WA_MPEG_EOF WM_USER+2
#define MAX_NCH 8
static struct wpcnxt {
WavpackContext *wpc; // WavPack context provided by library
float play_gain; // playback gain (for replaygain support)
//int soft_clipping; // soft clipping active for playback
int output_bits; // 16, 24, or 32 bits / sample
long sample_buffer[576*MAX_NCH*2]; // sample buffer
float error [MAX_NCH]; // error term for noise shaping
char lastfn[MAX_PATH]; // filename stored for comparisons only
wchar_t w_lastfn[MAX_PATH]; // w_filename stored for comparisons only
FILE *wv_id, *wvc_id; // file pointer when we use reader callbacks
} curr, edit, info;
int decode_pos_ms; // current decoding position, in milliseconds
int paused; // are we paused?
int seek_needed; // if != -1, it is the point that the decode thread should seek to, in ms.
#define ALLOW_WVC 0x1
#define REPLAYGAIN_TRACK 0x2
#define REPLAYGAIN_ALBUM 0x4
#define SOFTEN_CLIPPING 0x8
#define PREVENT_CLIPPING 0x10
#define ALWAYS_16BIT 0x20 // new flags added for version 2.5
#define ALLOW_MULTICHANNEL 0x40
#define REPLAYGAIN_24BIT 0x80
int config_bits = ALLOW_WVC | ALLOW_MULTICHANNEL; // all configuration goes here
int killDecodeThread=0; // the kill switch for the decode thread
HANDLE thread_handle=INVALID_HANDLE_VALUE; // the handle to the decode thread
DWORD WINAPI __stdcall DecodeThread(void *b); // the decode thread procedure
static api_service* WASABI_API_SVC;
static api_language* WASABI_API_LNG;
static api_config *AGAVE_API_CONFIG;
static api_memmgr *WASABI_API_MEMMGR;
HINSTANCE WASABI_API_LNG_HINST = 0, WASABI_API_ORIG_HINST = 0;
static char file_extensions[128] = {"WV\0WavPack Files (*.WV)\0"};
// function definitions for the In_Module stucture
void about (HWND hwndParent);
void init();
void quit();
void getfileinfo(const char *filename, char *title, int *length_in_ms);
int infoDlg(const char *fn, HWND hwnd);
int isourfile(const char *fn);
int play(const char *fn);
void pause();
void unpause();
int ispaused();
void stop();
int getlength();
int getoutputtime();
void setoutputtime(int time_in_ms);
void setvolume(int volume);
void setpan(int pan);
void eq_set(int on, char data [10], int preamp);
In_Module mod = // the output module
{
IN_VER,
"WavPack Decoder v"PLUGIN_VERSION,
0, // hMainWindow
0, // hDllInstance
file_extensions,
1, // is_seekable
1, // uses output
about,
about,
init,
quit,
getfileinfo,
infoDlg,
isourfile,
play,
pause,
unpause,
ispaused,
stop,
getlength,
getoutputtime,
setoutputtime,
setvolume,
setpan,
0,0,0,0,0,0,0,0,0, // vis stuff
0,0, // dsp
eq_set,
NULL, // setinfo
0 // out_mod
};
static BOOL CALLBACK WavPackDlgProc(HWND, UINT, WPARAM, LPARAM);
extern long dump_alloc (void);
int DoAboutMessageBox(HWND parent, wchar_t* title, wchar_t* message)
{
MSGBOXPARAMSW msgbx = {sizeof(MSGBOXPARAMSW),0};
msgbx.lpszText = message;
msgbx.lpszCaption = title;
msgbx.lpszIcon = MAKEINTRESOURCEW(102);
msgbx.hInstance = GetModuleHandle(0);
msgbx.dwStyle = MB_USERICON;
msgbx.hwndOwner = parent;
return MessageBoxIndirectW(&msgbx);
}
void about(HWND hwndParent)
{
wchar_t about_string[512];
#ifdef DEBUG_ALLOC
sprintf (about_string, "alloc_count = %d", dump_alloc ());
#else
StringCchPrintfW(about_string, 512, WASABI_API_LNGSTRINGW(IDS_ABOUT_MESSAGE), PLUGIN_VERSION, "1998-2010", __DATE__);
#endif
DoAboutMessageBox(hwndParent, WASABI_API_LNGSTRINGW(IDS_ABOUT), about_string);
}
void init() /* any one-time initialization goes here (configuration reading, etc) */
{
if (mod.hMainWindow)
{
// load all of the required wasabi services from the winamp client
WASABI_API_SVC = (api_service *)SendMessage(mod.hMainWindow, WM_WA_IPC, 0, IPC_GET_API_SERVICE);
if (WASABI_API_SVC == (api_service *)1)
WASABI_API_SVC=0;
WASABI_API_SVC->service_register(&albumArtFactory);
}
ServiceBuild(AGAVE_API_CONFIG, AgaveConfigGUID);
ServiceBuild(WASABI_API_LNG, languageApiGUID);
ServiceBuild(WASABI_API_MEMMGR, memMgrApiServiceGuid);
// need to have this initialised before we try to do anything with localisation features
WASABI_API_START_LANG(mod.hDllInstance,InWvLangGuid);
static char szDescription[256];
StringCchPrintfA(szDescription,256,WASABI_API_LNGSTRING(IDS_DESCRIPTION),PLUGIN_VERSION);
mod.description = szDescription;
// set the file extension to the localised version
char tmp [64], *tmp_ptr = tmp, *fex_ptr = file_extensions;
WASABI_API_LNGSTRING_BUF(IDS_FILETYPE, tmp, sizeof (tmp));
*fex_ptr++ = 'W';
*fex_ptr++ = 'V';
*fex_ptr++ = 0;
while (*tmp_ptr)
*fex_ptr++ = *tmp_ptr++;
*fex_ptr++ = 0;
*fex_ptr++ = 0;
}
#ifdef DEBUG_CONSOLE
HANDLE debug_console=INVALID_HANDLE_VALUE; // debug console
void debug_write (char *str)
{
static int cant_debug;
if (cant_debug)
return;
if (debug_console == INVALID_HANDLE_VALUE) {
AllocConsole ();
#if 1
debug_console = GetStdHandle (STD_OUTPUT_HANDLE);
#else
debug_console = CreateConsoleScreenBuffer (GENERIC_WRITE, FILE_SHARE_WRITE,
NULL, CONSOLE_TEXTMODE_BUFFER, NULL);
#endif
if (debug_console == INVALID_HANDLE_VALUE) {
MessageBox(NULL, "Can't get a console handle", "WavPack",MB_OK);
cant_debug = 1;
return;
}
else if (!SetConsoleActiveScreenBuffer (debug_console)) {
MessageBox(NULL, "Can't activate console buffer", "WavPack",MB_OK);
cant_debug = 1;
return;
}
}
WriteConsole (debug_console, str, strlen (str), NULL, NULL);
}
#endif
void quit() /* one-time deinit, such as memory freeing */
{
#ifdef DEBUG_CONSOLE
if (debug_console != INVALID_HANDLE_VALUE) {
FreeConsole ();
if (debug_console != GetStdHandle (STD_OUTPUT_HANDLE))
CloseHandle (debug_console);
debug_console = INVALID_HANDLE_VALUE;
}
#endif
ServiceRelease(AGAVE_API_CONFIG, AgaveConfigGUID);
ServiceRelease(WASABI_API_LNG, languageApiGUID);
ServiceRelease(WASABI_API_MEMMGR, memMgrApiServiceGuid);
WASABI_API_SVC->service_deregister(&albumArtFactory);
}
// used for detecting URL streams.. unused here. strncmp(fn,"http://",7) to detect HTTP streams, etc
int isourfile(const char *fn)
{
return 0;
}
int play(const char *fn)
{
int num_chans, sample_rate;
char error[128];
int maxlatency;
int thread_id;
int open_flags;
#ifdef DEBUG_CONSOLE
sprintf (error, "play (%s)\n", fn);
debug_write (error);
#endif
open_flags = OPEN_TAGS | OPEN_NORMALIZE;
if (config_bits & ALLOW_WVC)
open_flags |= OPEN_WVC;
if (!(config_bits & ALLOW_MULTICHANNEL))
open_flags |= OPEN_2CH_MAX;
curr.wpc = WavpackOpenFileInput(fn, error, open_flags, 0);
if (!curr.wpc) // error opening file, just return error
return -1;
num_chans = WavpackGetReducedChannels(curr.wpc);
sample_rate = WavpackGetSampleRate(curr.wpc);
curr.output_bits = WavpackGetBitsPerSample(curr.wpc) > 16 ? 24 : 16;
if (config_bits & ALWAYS_16BIT)
curr.output_bits = 16;
else if ((config_bits & (REPLAYGAIN_TRACK | REPLAYGAIN_ALBUM)) &&
(config_bits & REPLAYGAIN_24BIT))
curr.output_bits = 24;
if (num_chans > MAX_NCH) // don't allow too many channels!
{
WavpackCloseFile(curr.wpc);
return -1;
}
curr.play_gain = calculate_gain(curr.wpc);
lstrcpyn(curr.lastfn, fn, MAX_PATH);
paused = 0;
decode_pos_ms = 0;
seek_needed = -1;
maxlatency = mod.outMod->Open(sample_rate, num_chans, curr.output_bits, -1, -1);
if (maxlatency < 0) // error opening device
{
curr.wpc = WavpackCloseFile(curr.wpc);
return -1;
}
// dividing by 1000 for the first parameter of setinfo makes it
// display 'H'... for hundred.. i.e. 14H Kbps.
mod.SetInfo(0, (sample_rate + 500) / 1000, num_chans, 1);
// initialize vis stuff
mod.SAVSAInit(maxlatency, sample_rate);
mod.VSASetInfo(sample_rate, num_chans);
mod.outMod->SetVolume(-666); // set the output plug-ins default volume
killDecodeThread=0;
thread_handle = (HANDLE)CreateThread (NULL, 0, (LPTHREAD_START_ROUTINE) DecodeThread, (void *) &killDecodeThread, 0, (LPDWORD)&thread_id);
if (SetThreadPriority(thread_handle, THREAD_PRIORITY_HIGHEST) == 0) {
curr.wpc = WavpackCloseFile(curr.wpc);
return -1;
}
return 0;
}
void pause()
{
#ifdef DEBUG_CONSOLE
debug_write ("pause ()\n");
#endif
paused = 1;
mod.outMod->Pause(1);
}
void unpause()
{
#ifdef DEBUG_CONSOLE
debug_write ("unpause ()\n");
#endif
paused = 0;
mod.outMod->Pause(0);
}
int ispaused()
{
return paused;
}
void stop()
{
#ifdef DEBUG_CONSOLE
debug_write ("stop ()\n");
#endif
if (thread_handle != INVALID_HANDLE_VALUE)
{
killDecodeThread = 1;
if (WaitForSingleObject(thread_handle, INFINITE) == WAIT_TIMEOUT)
{
MessageBox(mod.hMainWindow,"error asking thread to die!\n", "error killing decode thread", 0);
TerminateThread(thread_handle,0);
}
CloseHandle(thread_handle);
thread_handle = INVALID_HANDLE_VALUE;
}
if (curr.wpc)
curr.wpc = WavpackCloseFile(curr.wpc);
mod.outMod->Close();
mod.SAVSADeInit();
}
int getlength()
{
return (int)(WavpackGetNumSamples (curr.wpc) * 1000.0 / WavpackGetSampleRate (curr.wpc));
}
int getoutputtime()
{
if (seek_needed == -1)
return decode_pos_ms + (mod.outMod->GetOutputTime () - mod.outMod->GetWrittenTime ());
else
return seek_needed;
}
void setoutputtime (int time_in_ms)
{
#ifdef DEBUG_CONSOLE
char str [40];
sprintf (str, "setoutputtime (%d)\n", time_in_ms);
debug_write (str);
#endif
seek_needed = time_in_ms;
}
void setvolume (int volume)
{
mod.outMod->SetVolume(volume);
}
void setpan (int pan)
{
mod.outMod->SetPan(pan);
}
static void generate_format_string(WavpackContext *wpc, wchar_t *string, int maxlen, int wide);
static void AnsiToUTF8(char *string, int len);
static int UTF8ToWideChar(const char *pUTF8, wchar_t *pWide);
static void UTF8ToAnsi(char *string, int len);
int infoDlg(const char *fn, HWND hwnd)
{
#ifdef OLD_INFO_DIALOG
char string[2048];
wchar_t w_string[2048];
WavpackContext *wpc;
int open_flags;
open_flags = OPEN_TAGS | OPEN_NORMALIZE;
if (config_bits & ALLOW_WVC)
open_flags |= OPEN_WVC;
if (!(config_bits & ALLOW_MULTICHANNEL))
open_flags |= OPEN_2CH_MAX;
wpc = WavpackOpenFileInput(fn, string, open_flags, 0);
if (wpc)
{
int mode = WavpackGetMode(wpc);
//generate_format_string(wpc, string, sizeof (string), 1);
wchar_t *temp = (wchar_t *)malloc(sizeof(string) * sizeof(wchar_t));
generate_format_string(wpc, temp, sizeof(string), 0);
lstrcpyn(string, AutoChar(temp, CP_UTF8), sizeof(string));
free(temp);
if (WavpackGetMode(wpc) & MODE_VALID_TAG)
{
char value [128];
if (config_bits & (REPLAYGAIN_TRACK | REPLAYGAIN_ALBUM))
{
int local_clipping = 0;
float local_gain;
local_gain = calculate_gain(wpc);
if (local_gain != 1.0)
StringCchPrintf(string + strlen (string), 2048, "Gain: %+.2f dB %s\n",
log10 (local_gain) * 20.0, local_clipping ? "(w/soft clipping)" : "");
}
if (WavpackGetTagItem(wpc, "title", value, sizeof (value)))
{
if (!(mode & MODE_APETAG))
AnsiToUTF8(value, sizeof (value));
StringCchPrintf(string + strlen (string), 2048, "\nTitle: %s", value);
}
if (WavpackGetTagItem(wpc, "artist", value, sizeof (value)))
{
if (!(mode & MODE_APETAG))
AnsiToUTF8(value, sizeof (value));
StringCchPrintf(string + strlen (string), 2048, "\nArtist: %s", value);
}
if (WavpackGetTagItem (wpc, "album", value, sizeof (value)))
{
if (!(mode & MODE_APETAG))
AnsiToUTF8(value, sizeof (value));
StringCchPrintf (string + strlen (string), 2048, "\nAlbum: %s", value);
}
if (WavpackGetTagItem (wpc, "genre", value, sizeof (value)))
{
if (!(mode & MODE_APETAG))
AnsiToUTF8(value, sizeof (value));
StringCchPrintf(string + strlen (string), 2048, "\nGenre: %s", value);
}
if (WavpackGetTagItem (wpc, "comment", value, sizeof (value)))
{
if (!(mode & MODE_APETAG))
AnsiToUTF8(value, sizeof (value));
StringCchPrintf(string + strlen (string), 2048, "\nComment: %s", value);
}
if (WavpackGetTagItem(wpc, "year", value, sizeof (value)))
StringCchPrintf(string + strlen (string), 2048, "\nYear: %s", value);
if (WavpackGetTagItem(wpc, "track", value, sizeof (value)))
StringCchPrintf(string + strlen (string), 2048, "\nTrack: %s", value);
StringCchCat(string, 2048, "\n");
}
UTF8ToWideChar(string, w_string);
MessageBoxW(hwnd, w_string, L"WavPack File Info Box", MB_OK);
wpc = WavpackCloseFile(wpc);
}
else
MessageBox(hwnd, string, "WavPack Decoder", MB_OK);
return 0;
#else
return 1;
#endif
}
void getfileinfo(const char *filename, char *title, int *length_in_ms)
{
if (!filename || !*filename) // currently playing file
{
if (length_in_ms)
*length_in_ms = getlength ();
if (title)
{
if (WavpackGetTagItem(curr.wpc, "title", NULL, 0))
{
char art [128], ttl [128];
WavpackGetTagItem(curr.wpc, "title", ttl, sizeof (ttl));
if (WavpackGetMode(curr.wpc) & MODE_APETAG)
UTF8ToAnsi(ttl, sizeof (ttl));
if (WavpackGetTagItem(curr.wpc, "artist", art, sizeof (art)))
{
if (WavpackGetMode(curr.wpc) & MODE_APETAG)
UTF8ToAnsi(art, sizeof (art));
StringCchPrintf(title, GETFILEINFO_TITLE_LENGTH, "%s - %s", art, ttl);
}
else
lstrcpyn(title, ttl, GETFILEINFO_TITLE_LENGTH);
}
else
{
char *p = curr.lastfn + strlen (curr.lastfn);
while (*p != '\\' && p >= curr.lastfn)
p--;
lstrcpyn(title, ++p, GETFILEINFO_TITLE_LENGTH);
}
}
}
else // some other file
{
WavpackContext *wpc;
char error [128];
int open_flags;
if (length_in_ms)
*length_in_ms = -1000;
if (title)
*title = 0;
open_flags = OPEN_TAGS | OPEN_NORMALIZE;
if (config_bits & ALLOW_WVC)
open_flags |= OPEN_WVC;
if (!(config_bits & ALLOW_MULTICHANNEL))
open_flags |= OPEN_2CH_MAX;
wpc = WavpackOpenFileInput(filename, error, open_flags, 0);
if (wpc)
{
if (length_in_ms)
*length_in_ms = (int)(WavpackGetNumSamples(wpc) * 1000.0 / WavpackGetSampleRate(wpc));
if (title && WavpackGetTagItem(wpc, "title", NULL, 0))
{
char art [128], ttl [128];
WavpackGetTagItem(wpc, "title", ttl, sizeof (ttl));
if (WavpackGetMode(wpc) & MODE_APETAG)
UTF8ToAnsi(ttl, sizeof (ttl));
if (WavpackGetTagItem(wpc, "artist", art, sizeof (art)))
{
if (WavpackGetMode(wpc) & MODE_APETAG)
UTF8ToAnsi(art, sizeof (art));
StringCchPrintf(title, GETFILEINFO_TITLE_LENGTH, "%s - %s", art, ttl);
}
else
lstrcpyn(title, ttl, GETFILEINFO_TITLE_LENGTH);
}
wpc = WavpackCloseFile(wpc);
}
if (title && !*title)
{
char *p = (char*)filename + strlen (filename);
while (*p != '\\' && p >= filename) p--;
lstrcpyn(title, ++p, GETFILEINFO_TITLE_LENGTH);
}
}
}
void eq_set(int on, char data [10], int preamp)
{
// most plug-ins can't even do an EQ anyhow.. I'm working on writing
// a generic PCM EQ, but it looks like it'll be a little too CPU
// consuming to be useful :)
}
static int read_samples(struct wpcnxt *cnxt, int num_samples);
DWORD WINAPI __stdcall DecodeThread(void *b)
{
int num_chans, sample_rate;
int done = 0;
memset(curr.error, 0, sizeof (curr.error));
num_chans = WavpackGetReducedChannels(curr.wpc);
sample_rate = WavpackGetSampleRate(curr.wpc);
while (!*((int *)b) )
{
if (seek_needed != -1)
{
int seek_position = seek_needed;
int bc = 0;
seek_needed = -1;
if (seek_position > getlength() - 1000 && getlength() > 1000)
seek_position = getlength() - 1000; // don't seek to last second
mod.outMod->Flush(decode_pos_ms = seek_position);
if (WavpackSeekSample(curr.wpc, (int)(sample_rate / 1000.0 * seek_position))) {
decode_pos_ms = (int)(WavpackGetSampleIndex(curr.wpc) * 1000.0 / sample_rate);
mod.outMod->Flush(decode_pos_ms);
continue;
}
else
done = 1;
}
if (done) {
mod.outMod->CanWrite();
if (!mod.outMod->IsPlaying()) {
PostMessage(mod.hMainWindow, WM_WA_MPEG_EOF, 0, 0);
return 0;
}
Sleep(10);
}
else if (mod.outMod->CanWrite() >= ((576 * num_chans * (curr.output_bits / 8)) << (mod.dsp_isactive () ? 1 : 0)))
{
int tsamples = read_samples (&curr, 576) * num_chans;
int tbytes = tsamples * (curr.output_bits/8);
if (tsamples)
{
mod.SAAddPCMData((char *) curr.sample_buffer, num_chans, curr.output_bits, decode_pos_ms);
mod.VSAAddPCMData((char *) curr.sample_buffer, num_chans, curr.output_bits, decode_pos_ms);
decode_pos_ms = (int)(WavpackGetSampleIndex(curr.wpc) * 1000.0 / sample_rate);
if (mod.dsp_isactive())
tbytes = mod.dsp_dosamples ((short *) curr.sample_buffer,
tsamples / num_chans, curr.output_bits, num_chans, sample_rate) * (num_chans * (curr.output_bits/8));
mod.outMod->Write ((char *) curr.sample_buffer, tbytes);
}
else
done = 1;
}
else
{
mod.SetInfo((int) ((WavpackGetInstantBitrate (curr.wpc) + 500.0) / 1000.0), -1, -1, 1);
Sleep(20);
}
}
return 0;
}
/********* These functions provide the "transcoding" mode of winamp. *********/
extern "C" __declspec (dllexport) intptr_t winampGetExtendedRead_open (const char *fn, int *size, int *bps, int *nch, int *srate)
{
struct wpcnxt *cnxt = (struct wpcnxt *)malloc(sizeof (struct wpcnxt));
int num_chans, sample_rate, open_flags;
char error[128];
#ifdef DEBUG_CONSOLE
sprintf (error, "Read_open (%s)\n", fn);
debug_write (error);
#endif
if (!cnxt)
return 0;
memset(cnxt, 0, sizeof (struct wpcnxt));
open_flags = OPEN_NORMALIZE | OPEN_WVC;
if (!(config_bits & ALLOW_MULTICHANNEL) || *nch == 2)
open_flags |= OPEN_2CH_MAX;
if (config_bits & (REPLAYGAIN_TRACK | REPLAYGAIN_ALBUM))
open_flags |= OPEN_TAGS;
cnxt->wpc = WavpackOpenFileInput(fn, error, open_flags, 0);
if (!cnxt->wpc) // error opening file, just return error
{
free (cnxt);
return 0;
}
num_chans = WavpackGetReducedChannels(cnxt->wpc);
sample_rate = WavpackGetSampleRate(cnxt->wpc);
if (num_chans > MAX_NCH)
{
WavpackCloseFile(cnxt->wpc);
free (cnxt);
return 0;
}
if (*bps != 16 && *bps != 24 && *bps != 32)
{
cnxt->output_bits = WavpackGetBitsPerSample(cnxt->wpc) > 16 ? 24 : 16;
if (config_bits & ALWAYS_16BIT)
cnxt->output_bits = 16;
else if ((config_bits & (REPLAYGAIN_TRACK | REPLAYGAIN_ALBUM)) &&
(config_bits & REPLAYGAIN_24BIT))
cnxt->output_bits = 24;
}
else
cnxt->output_bits = *bps;
if (num_chans > MAX_NCH) // don't allow too many channels!
{
WavpackCloseFile(cnxt->wpc);
free (cnxt);
return 0;
}
*nch = num_chans;
*srate = sample_rate;
*bps = cnxt->output_bits;
*size = WavpackGetNumSamples(cnxt->wpc) * (*bps / 8) * (*nch);
cnxt->play_gain = calculate_gain(cnxt->wpc);
#ifdef DEBUG_CONSOLE
sprintf (error, "Read_open success! nch=%d, srate=%d, bps=%d, size=%d\n",
*nch, *srate, *bps, *size);
debug_write (error);
#endif
return (intptr_t) cnxt;
}
extern "C" __declspec (dllexport) intptr_t winampGetExtendedRead_getData (intptr_t handle, char *dest, int len, int *killswitch)
{
struct wpcnxt *cnxt = (struct wpcnxt *)handle;
int num_chans = WavpackGetReducedChannels(cnxt->wpc);
int bytes_per_sample = num_chans * cnxt->output_bits / 8;
int used = 0;
#ifdef DEBUG_CONSOLE
char error [128];
#endif
while (used < len && !*killswitch)
{
int nsamples = (len - used) / bytes_per_sample, tsamples;
if (!nsamples)
break;
else if (nsamples > 576)
nsamples = 576;
tsamples = read_samples(cnxt, nsamples) * num_chans;
if (tsamples)
{
int tbytes = tsamples * (cnxt->output_bits/8);
memcpy (dest + used, cnxt->sample_buffer, tbytes);
used += tbytes;
}
else
break;
}
#ifdef DEBUG_CONSOLE
sprintf (error, "Read_getData (%d), actualy read %d\n", len, used);
debug_write (error);
#endif
return used;
}
extern "C" __declspec (dllexport) int winampGetExtendedRead_setTime (intptr_t handle, int millisecs)
{
struct wpcnxt *cnxt = (struct wpcnxt *) handle;
int sample_rate = WavpackGetSampleRate(cnxt->wpc);
return WavpackSeekSample(cnxt->wpc, (int)(sample_rate / 1000.0 * millisecs));
}
extern "C" __declspec (dllexport) void winampGetExtendedRead_close (intptr_t handle)
{
struct wpcnxt *cnxt = (struct wpcnxt *) handle;
#ifdef DEBUG_CONSOLE
char error [128];
sprintf (error, "Read_close ()\n");
debug_write (error);
#endif
WavpackCloseFile(cnxt->wpc);
free (cnxt);
}
/* This is a generic function to read WavPack samples and convert them to a
* form usable by winamp. It includes conversion of any WavPack format
* (including ieee float) to 16, 24, or 32-bit integers (with noise shaping
* for the 16-bit case) and replay gain implementation (with optional soft
* clipping). It is used by both the regular "play" code and the newer
* transcoding functions.
*
* The num_samples parameter is the number of "composite" samples to
* convert and is limited currently to 576 samples for legacy reasons. The
* return value is the number of samples actually converted and will be
* equal to the number requested unless an error occurs or the end-of-file
* is encountered. The converted samples are stored (interleaved) at
* cnxt->sample_buffer[].
*/
static int read_samples (struct wpcnxt *cnxt, int num_samples)
{
int num_chans = WavpackGetReducedChannels(cnxt->wpc), samples, tsamples;
samples = WavpackUnpackSamples(cnxt->wpc, (int32_t*) cnxt->sample_buffer, num_samples);
tsamples = samples * num_chans;
if (tsamples)
{
if (!(WavpackGetMode(cnxt->wpc) & MODE_FLOAT))
{
float scaler = (float) (1.0 / ((unsigned long) 1 << (WavpackGetBytesPerSample(cnxt->wpc) * 8 - 1)));
float *fptr = (float *) cnxt->sample_buffer;
long *lptr = cnxt->sample_buffer;
int cnt = tsamples;
while (cnt--)
*fptr++ = *lptr++ * scaler;
}
if (cnxt->play_gain != 1.0)
{
float *fptr = (float *) cnxt->sample_buffer;
int cnt = tsamples;
double outval;
while (cnt--)
{
outval = *fptr * cnxt->play_gain;
/*if (cnxt->soft_clipping)
{
if (outval > 0.75)
outval = 1.0 - (0.0625 / (outval - 0.5));
else if (outval < -0.75)
outval = -1.0 - (0.0625 / (outval + 0.5));
}*/
*fptr++ = (float) outval;
}
}
if (cnxt->output_bits == 16)
{
float *fptr = (float *) cnxt->sample_buffer;
short *sptr = (short *) cnxt->sample_buffer;
int cnt = samples, ch;
while (cnt--)
for (ch = 0; ch < num_chans; ++ch)
{
int dst;
*fptr -= cnxt->error [ch];
if (*fptr >= 1.0)
dst = 32767;
else if (*fptr <= -1.0)
dst = -32768;
else
dst = (int) floor (*fptr * 32768.0);
cnxt->error [ch] = (float)(dst / 32768.0 - *fptr++);
*sptr++ = dst;
}
}
else if (cnxt->output_bits == 24)
{
unsigned char *cptr = (unsigned char *) cnxt->sample_buffer;
float *fptr = (float *) cnxt->sample_buffer;
int cnt = tsamples;
long outval;
while (cnt--) {
if (*fptr >= 1.0)
outval = 8388607;
else if (*fptr <= -1.0)
outval = -8388608;
else
outval = (int) floor (*fptr * 8388608.0);
*cptr++ = (unsigned char) outval;
*cptr++ = (unsigned char) (outval >> 8);
*cptr++ = (unsigned char) (outval >> 16);
fptr++;
}
}
else if (cnxt->output_bits == 32)
{
float *fptr = (float *) cnxt->sample_buffer;
long *sptr = (long *) cnxt->sample_buffer;
int cnt = tsamples;
while (cnt--)
{
if (*fptr >= 1.0)
*sptr++ = 8388607 << 8;
else if (*fptr <= -1.0)
*sptr++ = -8388608 << 8;
else
*sptr++ = ((int) floor (*fptr * 8388608.0)) << 8;
fptr++;
}
}
}
return samples;
}
extern "C" __declspec (dllexport) In_Module * winampGetInModule2()
{
return &mod;
}
// This code provides an interface between the reader callback mechanism that
// WavPack uses internally and the standard fstream C library.
static int32_t read_bytes(void *id, void *data, int32_t bcount)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return (int32_t) fread(data, 1, bcount, file);
else
return 0;
}
static uint32_t get_pos(void *id)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return ftell(file);
else
return -1;
}
static int set_pos_abs(void *id, uint32_t pos)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return fseek(file, pos, SEEK_SET);
else
return 0;
}
static int set_pos_rel(void *id, int32_t delta, int mode)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return fseek(file, delta, mode);
else
return -1;
}
static int push_back_byte(void *id, int c)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return ungetc(c, file);
else
return EOF;
}
static uint32_t get_length(void *id)
{
FILE *file = id ? *(FILE**)id : NULL;
struct stat statbuf;
if (!file || fstat (fileno (file), &statbuf) || !(statbuf.st_mode & S_IFREG))
return 0;
else
return statbuf.st_size;
}
static int can_seek(void *id)
{
FILE *file = id ? *(FILE**)id : NULL;
struct stat statbuf;
return file && !fstat (fileno (file), &statbuf) && (statbuf.st_mode & S_IFREG);
}
static int32_t write_bytes(void *id, void *data, int32_t bcount)
{
FILE *file = id ? *(FILE**)id : NULL;
if (file)
return (int32_t) fwrite (data, 1, bcount, file);
else
return 0;
}
static WavpackStreamReader freader = {
read_bytes, get_pos, set_pos_abs,
set_pos_rel, push_back_byte,
get_length, can_seek, write_bytes
};
/* These functions provide UNICODE support for the winamp media library */
static int metadata_we_can_write(const char *metadata);
static void close_context(struct wpcnxt *cxt)
{
if (cxt->wpc)
WavpackCloseFile(cxt->wpc);
if (cxt->wv_id)
fclose(cxt->wv_id);
if (cxt->wvc_id)
fclose(cxt->wvc_id);
memset(cxt, 0, sizeof (*cxt));
}
#ifdef ANSI_METADATA
extern "C" __declspec (dllexport) int winampGetExtendedFileInfo(char *filename, char *metadata, char *ret, int retlen)
{
int open_flags = OPEN_TAGS;
char error[128];
int retval = 0;
#ifdef DEBUG_CONSOLE
sprintf (error, "winampGetExtendedFileInfo (%s)\n", metadata);
debug_write (error);
#endif
if (!_stricmp(metadata, "type"))
{
ret[0] = '0';
ret[1] = 0;
return 1;
}
else if (!_stricmp(metadata, "family"))
{
int len;
const char *p;
if (!filename || !filename[0]) return 0;
len = lstrlen(filename);
if (len < 3 || '.' != filename[len - 3]) return 0;
p = &filename[len - 2];
if (!_stricmp(p, "wv")) { WASABI_API_LNGSTRING_BUF(IDS_FAMILY_STRING, ret, retlen); return 1; }
return 0;
}
if (!filename || !*filename)
return retval;
if (!_stricmp(metadata, "length")) { /* even if no file, return a 1 and write "0" */
StringCchPrintf(ret, retlen, "%d", 0);
retval = 1;
}
if (!info.wpc || strcmp(filename, info.lastfn) || !_stricmp(metadata, "formatinformation"))
{
close_context(&info);
if (!(info.wv_id = fopen(filename, "rb")))
return retval;
if (config_bits & ALLOW_WVC)
{
int length = strlen(filename) + 10;
char *wvc_name = (char *)malloc(length);
if (wvc_name)
{
lstrcpyn(wvc_name, filename, length);
StringCchCat(wvc_name, length, "c");
info.wvc_id = fopen(wvc_name, "rb");
free(wvc_name);
}
}
info.wpc = WavpackOpenFileInputEx(&freader, &info.wv_id, info.wvc_id ? &info.wvc_id : NULL, error, open_flags, 0);
if (!info.wpc)
{
close_context(&info);
return retval;
}
lstrcpyn(info.lastfn, filename, MAX_PATH);
info.w_lastfn [0] = 0;
}
if (!_stricmp(metadata, "formatinformation"))
{
wchar_t *temp = (wchar_t *)malloc(retlen * sizeof(wchar_t));
generate_format_string(info.wpc, temp, retlen, 0);
lstrcpyn(ret, AutoChar(temp), retlen);
free(temp);
retval = 1;
}
else if (!_stricmp(metadata, "length"))
{
StringCchPrintf(ret, retlen, "%d", (int)(WavpackGetNumSamples(info.wpc) * 1000.0 / WavpackGetSampleRate(info.wpc)));
retval = 1;
}
else if (!_stricmp(metadata, "lossless"))
{
StringCchPrintf (ret, retlen, "%d", (WavpackGetMode(info.wpc) & MODE_LOSSLESS) ? 1 : 0);
retval = 1;
}
else if (!_stricmp(metadata, "numsamples"))
{
StringCchPrintf(ret, retlen, "%d", WavpackGetNumSamples(info.wpc));
retval = 1;
}
else if (!_stricmp(metadata, "mime"))
{
lstrcpyn(ret, L"audio/x-wavpack", retlen);
retval = 1;
}
else if (!_stricmp(metadata, "gain"))
{
StringCchPrintf(ret, retlen, "%-+.2f dB", calculate_gain(info.wpc, false));
retval = 1;
}
else if (WavpackGetTagItem(info.wpc, metadata, ret, retlen))
{
if (!_stricmp(metadata, "rating"))
{
int rating = atoi(ret);
// appears to be generally 0-5 or 0-100
if (rating > 10) {
rating /= 20;
}
// or maybe we're dealing with a 1-10 range
else if (rating > 5) {
rating /= 2;
}
// otherwise it is hopefully in the 0-5 range
StringCchPrintf(ret, retlen, "%u", rating);
}
else
{
if (WavpackGetMode(info.wpc) & MODE_APETAG)
{
UTF8ToAnsi(ret, retlen);
}
}
retval = 1;
}
else if (metadata_we_can_write(metadata))
{
if (retlen)
*ret = 0;
retval = 1;
}
// This is a little ugly, but since the WavPack library has read the tags off the
// files, we can close the files (but not the WavPack context) now so that we don't
// leave handles open. We may access the file again for the "formatinformation"
// field, so we reopen the file if we get that one.
if (info.wv_id)
{
fclose(info.wv_id);
info.wv_id = NULL;
}
if (info.wvc_id)
{
fclose(info.wvc_id);
info.wvc_id = NULL;
}
return retval;
}
#endif
#ifdef UNICODE_METADATA
extern "C" __declspec (dllexport) int winampGetExtendedFileInfoW (wchar_t *filename, char *metadata, wchar_t *ret, int retlen)
{
char error[128], res[256];
int open_flags = OPEN_TAGS;
int retval = 0;
#ifdef DEBUG_CONSOLE
sprintf (error, "winampGetExtendedFileInfoW (%s)\n", metadata);
debug_write (error);
#endif
if (!_stricmp(metadata, "type"))
{
ret[0] = '0';
ret[1] = 0;
return 1;
}
else if (!_stricmp(metadata, "family"))
{
int len;
const wchar_t *p;
if (!filename || !filename[0]) return 0;
len = lstrlenW(filename);
if (len < 3 || L'.' != filename[len - 3]) return 0;
p = &filename[len - 2];
if (!_wcsicmp(p, L"wv")) { WASABI_API_LNGSTRINGW_BUF(IDS_FAMILY_STRING, ret, retlen); return 1; }
return 0;
}
if (!filename || !*filename)
return retval;
if (!_stricmp(metadata, "length")) /* even if no file, return a 1 and write "0" */
{
StringCchPrintfW(ret, retlen, L"%d", 0);
retval = 1;
}
if (!info.wpc || wcscmp(filename, info.w_lastfn) || !_stricmp(metadata, "formatinformation"))
{
close_context(&info);
if (!(info.wv_id = _wfopen(filename, L"rb")))
return retval;
if (config_bits & ALLOW_WVC) {
int length = wcslen(filename) + 10;
wchar_t *wvc_name = (wchar_t *)malloc(length * sizeof(wchar_t));
if (wvc_name) {
lstrcpynW(wvc_name, filename, length);
StringCchCatW(wvc_name, length, L"c");
info.wvc_id = _wfopen(wvc_name, L"rb");
free(wvc_name);
}
}
info.wpc = WavpackOpenFileInputEx(&freader, &info.wv_id, info.wvc_id ? &info.wvc_id : NULL, error, open_flags, 0);
if (!info.wpc)
{
close_context(&info);
return retval;
}
lstrcpynW(info.w_lastfn, filename, MAX_PATH);
info.lastfn[0] = 0;
}
if (!_stricmp(metadata, "formatinformation"))
{
generate_format_string(info.wpc, ret, retlen, 0);
retval = 1;
}
else if (!_stricmp (metadata, "length"))
{
StringCchPrintfW(ret, retlen, L"%d", (int)(WavpackGetNumSamples(info.wpc) * 1000.0 / WavpackGetSampleRate(info.wpc)));
retval = 1;
}
else if (!_stricmp(metadata, "lossless"))
{
StringCchPrintfW(ret, retlen, L"%d", (WavpackGetMode(info.wpc) & MODE_LOSSLESS) ? 1 : 0);
retval = 1;
}
else if (!_stricmp(metadata, "gain"))
{
StringCchPrintfW(ret, retlen, L"%-+.2f dB", calculate_gain(info.wpc, false));
retval = 1;
}
else if (!_stricmp(metadata, "numsamples"))
{
StringCchPrintfW(ret, retlen, L"%d", WavpackGetNumSamples(info.wpc));
retval = 1;
}
else if (!_stricmp(metadata, "mime"))
{
lstrcpynW(ret, L"audio/x-wavpack", retlen);
retval = 1;
}
else if (WavpackGetTagItem(info.wpc, metadata, res, sizeof (res)))
{
if (!_stricmp(metadata, "rating"))
{
int rating = atoi(res);
// appears to be generally 0-5 or 0-100
if (rating > 10) {
rating /= 20;
}
// or maybe we're dealing with a 1-10 range
else if (rating > 5) {
rating /= 2;
}
// otherwise it is hopefully in the 0-5 range
StringCchPrintfW(ret, retlen, L"%u", rating);
}
else
{
if (!(WavpackGetMode(info.wpc) & MODE_APETAG))
lstrcpynW(ret, AutoWide(res), retlen);
else
lstrcpynW(ret, AutoWide(res, CP_UTF8), retlen);
}
retval = 1;
}
else if (metadata_we_can_write (metadata))
{
if (retlen)
*ret = 0;
retval = 1;
}
// This is a little ugly, but since the WavPack library has read the tags off the
// files, we can close the files (but not the WavPack context) now so that we don't
// leave handles open. We may access the file again for the "formatinformation"
// field, so we reopen the file if we get that one.
if (info.wv_id)
{
fclose (info.wv_id);
info.wv_id = NULL;
}
if (info.wvc_id)
{
fclose (info.wvc_id);
info.wvc_id = NULL;
}
return retval;
}
#endif
#ifdef ANSI_METADATA
extern "C" int __declspec (dllexport) winampSetExtendedFileInfo(const char *filename, const char *metadata, char *val)
{
char error[128];
#ifdef DEBUG_CONSOLE
sprintf (error, "winampSetExtendedFileInfo (%s=%s)\n", metadata, val);
debug_write (error);
#endif
if (!filename || !*filename || !metadata_we_can_write(metadata))
return 0;
if (!edit.wpc || strcmp(filename, edit.lastfn))
{
if (edit.wpc)
WavpackCloseFile(edit.wpc);
edit.wpc = WavpackOpenFileInput(filename, error, OPEN_TAGS | OPEN_EDIT_TAGS, 0);
if (!edit.wpc)
return 0;
lstrcpyn(edit.lastfn, filename, MAX_PATH);
edit.w_lastfn [0] = 0;
}
if (strlen(val))
return WavpackAppendTagItem(edit.wpc, metadata, val, strlen (val));
else
return WavpackDeleteTagItem(edit.wpc, metadata);
}
#endif
#ifdef UNICODE_METADATA
extern "C" int __declspec (dllexport) winampSetExtendedFileInfoW(const wchar_t *filename, const char *metadata, wchar_t *val)
{
char error[128], utf8_val[256];
lstrcpyn(utf8_val,AutoChar(val, CP_UTF8),sizeof(utf8_val) - 1);
#ifdef DEBUG_CONSOLE
sprintf (error, "winampSetExtendedFileInfoW (%s=%s)\n", metadata, utf8_val);
debug_write (error);
#endif
if (!filename || !*filename || !metadata_we_can_write(metadata))
return 0;
if (!edit.wpc || wcscmp(filename, edit.w_lastfn))
{
if (edit.wpc)
{
WavpackCloseFile(edit.wpc);
edit.wpc = NULL;
}
if (edit.wv_id)
fclose(edit.wv_id);
if (!(edit.wv_id = _wfopen(filename, L"r+b")))
return 0;
edit.wpc = WavpackOpenFileInputEx(&freader, &edit.wv_id, NULL, error, OPEN_TAGS | OPEN_EDIT_TAGS, 0);
if (!edit.wpc)
{
fclose(edit.wv_id);
return 0;
}
lstrcpynW(edit.w_lastfn, filename, MAX_PATH);
edit.lastfn [0] = 0;
}
if (strlen(utf8_val))
return WavpackAppendTagItem(edit.wpc, metadata, utf8_val, strlen (utf8_val));
else
return WavpackDeleteTagItem(edit.wpc, metadata);
}
#endif
extern "C" int __declspec (dllexport) winampWriteExtendedFileInfo(void)
{
#ifdef DEBUG_CONSOLE
debug_write ("winampWriteExtendedFileInfo ()\n");
#endif
if (edit.wpc)
{
WavpackWriteTag(edit.wpc);
WavpackCloseFile(edit.wpc);
edit.wpc = NULL;
}
if (edit.wv_id)
{
fclose(edit.wv_id);
edit.wv_id = NULL;
}
close_context(&info); // make sure we re-read info on any open files
return 1;
}
// return 1 if you want winamp to show it's own file info dialogue, 0 if you want to show your own (via In_Module.InfoBox)
// if returning 1, remember to implement winampGetExtendedFileInfo("formatinformation")!
extern "C" __declspec(dllexport) int winampUseUnifiedFileInfoDlg(const wchar_t * fn)
{
return 1;
}
static const char *writable_metadata [] = {
"track", "genre", "year", "comment", "artist",
"album", "title", "albumartist", "composer",
"publisher", "disc", "tool", "encoder", "bpm",
"category", "rating",
"replaygain_track_gain", "replaygain_track_peak",
"replaygain_album_gain", "replaygain_album_peak"
};
#define NUM_KNOWN_METADATA (sizeof (writable_metadata) / sizeof (writable_metadata [0]))
static int metadata_we_can_write(const char *metadata)
{
if (!metadata || !*metadata)
return 0;
for (int i = 0; i < NUM_KNOWN_METADATA; ++i)
if (!_stricmp(metadata, writable_metadata[i]))
return 1;
return 0;
}
static void generate_format_string(WavpackContext *wpc, wchar_t *string, int maxlen, int wide)
{
int mode = WavpackGetMode(wpc);
unsigned char md5_sum[16];
wchar_t modes[256];
wchar_t fmt[256];
WASABI_API_LNGSTRINGW_BUF(IDS_ENCODER_VERSION, fmt, sizeof(fmt));
StringCchPrintfW(string, maxlen, fmt, WavpackGetVersion(wpc));
while (*string && string++ && maxlen--);
WASABI_API_LNGSTRINGW_BUF(IDS_SOURCE, fmt, sizeof (fmt));
StringCchPrintfW(string, maxlen, fmt, WavpackGetBitsPerSample(wpc),
WASABI_API_LNGSTRINGW((WavpackGetMode(wpc) & MODE_FLOAT) ? IDS_FLOATS : IDS_INTS),
WavpackGetSampleRate(wpc));
while (*string && string++ && maxlen--);
if (WavpackGetNumChannels(wpc) > 2)
{
WASABI_API_LNGSTRINGW_BUF(IDS_MULTICHANNEL, fmt, sizeof (fmt));
StringCchPrintfW(string, maxlen, fmt, WavpackGetNumChannels(wpc));
while (*string && string++ && maxlen--);
}
else if (WavpackGetNumChannels(wpc) == 2)
{
WASABI_API_LNGSTRINGW_BUF(IDS_STEREO, fmt, sizeof (fmt));
StringCchPrintfW(string, maxlen, fmt);
while (*string && string++ && maxlen--);
}
else
{
WASABI_API_LNGSTRINGW_BUF(IDS_MONO, fmt, sizeof (fmt));
StringCchPrintfW(string, maxlen, fmt);
while (*string && string++ && maxlen--);
}
modes [0] = 0;
if (WavpackGetMode(wpc) & MODE_HYBRID)
{
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW(IDS_HYBRID));
StringCchCatW(modes, 256, L" ");
}
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW((WavpackGetMode(wpc) & MODE_LOSSLESS) ? IDS_LOSSLESS : IDS_LOSSY));
if (WavpackGetMode(wpc) & MODE_FAST)
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW(IDS_FAST));
else if (WavpackGetMode(wpc) & MODE_VERY_HIGH)
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW(IDS_VHIGH));
else if (WavpackGetMode(wpc) & MODE_HIGH)
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW(IDS_HIGH));
if (WavpackGetMode(wpc) & MODE_EXTRA)
StringCchCatW(modes, 256, WASABI_API_LNGSTRINGW(IDS_EXTRA));
StringCchPrintfW(string, maxlen, L"%s:%s %s\n",
WASABI_API_LNGSTRINGW(IDS_MODES),
(wide || lstrlenW(modes) < 24) ? L"" : L"\n", modes);
while (*string && string++ && maxlen--);
if (WavpackGetRatio(wpc) != 0.0)
{
wchar_t str_kbps[32];
StringCchPrintfW(string, maxlen, L"%s: %d %s \n",
WASABI_API_LNGSTRINGW(IDS_BITRATE),
(int)((WavpackGetAverageBitrate(wpc, TRUE) + 500.0) / 1000.0),
WASABI_API_LNGSTRINGW_BUF(IDS_KBPS, str_kbps, sizeof(str_kbps)));
while (*string && string++ && maxlen--);
StringCchPrintfW(string, maxlen, L"%s: %.2f : 1 \n",
WASABI_API_LNGSTRINGW(IDS_RATIO), 1.0 / WavpackGetRatio(wpc));
while (*string && string++ && maxlen--);
}
if (WavpackGetMD5Sum(wpc, md5_sum))
{
wchar_t md5s1 [17], md5s2 [17];
int i;
for (i = 0; i < 8; ++i)
{
StringCchPrintfW(md5s1 + i * 2, sizeof(md5s1), L"%02x", md5_sum [i]);
StringCchPrintfW(md5s2 + i * 2, sizeof(md5s2), L"%02x", md5_sum [i+8]);
}
StringCchPrintfW(string, maxlen, (wide ? L"%s: %s%s\n" : L"%s:\n %s\n %s\n"),
WASABI_API_LNGSTRINGW(IDS_MD5), md5s1, md5s2);
}
}
///////////////////// native "C" functions required for AlbumArt support ///////////////////////////
#ifdef DEBUG_CONSOLE
static char temp_buff [256];
static char *wide2char (const wchar_t *src)
{
char *dst = temp_buff;
while (*src)
*dst++ = (char) *src++;
*dst = 0;
return temp_buff;
}
#endif
int WavPack_HandlesExtension(const wchar_t *extension)
{
return !_wcsicmp(extension, L"wv");
}
int WavPack_GetAlbumArt(const wchar_t *filename, const wchar_t *type, void **bits, size_t *len, wchar_t **mime_type)
{
char *buffer;
char error[128];
int tag_size, i;
int retval = 1;
#ifdef DEBUG_CONSOLE
sprintf (error, "WavPack_GetAlbumArt (%s)\n", wide2char (type));
debug_write (error);
#endif
if (!filename || !*filename || _wcsicmp(type, L"cover"))
return retval;
if (!info.wpc || wcscmp(filename, info.w_lastfn))
{
close_context(&info);
if (!(info.wv_id = _wfopen(filename, L"rb")))
return retval;
if (config_bits & ALLOW_WVC)
{
int length = wcslen(filename) + 10;
wchar_t *wvc_name = (wchar_t *)malloc(length * sizeof(wchar_t));
if (wvc_name)
{
lstrcpynW(wvc_name, filename, length);
StringCchCatW(wvc_name, length, L"c");
info.wvc_id = _wfopen(wvc_name, L"rb");
free(wvc_name);
}
}
info.wpc = WavpackOpenFileInputEx(&freader, &info.wv_id, info.wvc_id ? &info.wvc_id : NULL, error, OPEN_TAGS, 0);
if (!info.wpc)
{
close_context(&info);
return retval;
}
lstrcpynW(info.w_lastfn, filename, MAX_PATH);
info.lastfn[0] = 0;
}
tag_size = WavpackGetBinaryTagItem(info.wpc, "Cover Art (Front)", NULL, 0);
if (!tag_size)
return retval;
buffer = (char*)WASABI_API_MEMMGR->sysMalloc(tag_size);
WavpackGetBinaryTagItem(info.wpc, "Cover Art (Front)", buffer, tag_size);
for (i = 0; i < tag_size - 1; ++i)
if (!buffer[i] && strrchr(buffer, '.')) {
char *ext = strrchr(buffer, '.') + 1;
wchar_t *wcptr;
wcptr = *mime_type = (wchar_t*)WASABI_API_MEMMGR->sysMalloc(strlen(ext) * 2 + 2);
while (*ext)
*wcptr++ = *ext++;
*wcptr = 0;
*bits = buffer;
*len = tag_size - i - 1;
memmove(buffer, buffer + i + 1, *len);
retval = 0;
#ifdef DEBUG_CONSOLE
sprintf (error, "WavPack_GetAlbumArt (\"%s\", %d) success!\n", wide2char (*mime_type), *len);
debug_write (error);
#endif
}
if (retval)
WASABI_API_MEMMGR->sysFree(buffer);
// This is a little ugly, but since the WavPack library has read the tags off the
// files, we can close the files (but not the WavPack context) now so that we don't
// leave handles open. We may access the file again for the "formatinformation"
// field, so we reopen the file if we get that one.
if (info.wv_id)
{
fclose(info.wv_id);
info.wv_id = NULL;
}
if (info.wvc_id)
{
fclose(info.wvc_id);
info.wvc_id = NULL;
}
return retval;
}
int WavPack_SetAlbumArt(const wchar_t *filename, const wchar_t *type, void *bits, size_t len, const wchar_t *mime_type)
{
#if 1
return 2; // return 2 to indicate "read-only" cover art for now
#else
char error [128], name [50], *cp;
int tag_size, retval = 0;
unsigned char *buffer;
#ifdef DEBUG_CONSOLE
sprintf (error, "WavPack_SetAlbumArt (%s)\n", wide2char (mime_type));
debug_write (error);
#endif
if (!filename || !*filename || _wcsicmp (type, L"cover") || wcslen (mime_type) > 16)
return 1;
strcpy (name, "Cover Art (Front)");
cp = name + strlen (name);
*cp++ = '.';
while (*mime_type)
*cp++ = (char) *mime_type++;
*cp = 0;
tag_size = strlen (name) + 1 + len;
buffer = malloc (tag_size);
strcpy (buffer, name);
memcpy (buffer + strlen (buffer) + 1, bits, len);
if (!edit.wpc || wcscmp (filename, edit.w_lastfn)) {
if (edit.wpc) {
WavpackCloseFile (edit.wpc);
edit.wpc = NULL;
}
if (edit.wv_id)
fclose (edit.wv_id);
if (!(edit.wv_id = _wfopen (filename, L"r+b"))) {
free (buffer);
return 1;
}
edit.wpc = WavpackOpenFileInputEx (&freader, &edit.wv_id, NULL, error, OPEN_TAGS | OPEN_EDIT_TAGS, 0);
if (!edit.wpc) {
fclose (edit.wv_id);
free (buffer);
return 1;
}
wcscpy (edit.w_lastfn, filename);
edit.lastfn [0] = 0;
}
retval = WavpackAppendTagItem (edit.wpc, "Cover Art (Front)", buffer, tag_size);
free (buffer);
if (retval) {
winampWriteExtendedFileInfo ();
return 0;
}
else {
close_context (&edit);
return 1;
}
#endif
}
int WavPack_DeleteAlbumArt(const wchar_t *filename, const wchar_t *type)
{
#if 1
return 2; // return 2 to indicate "read-only" cover art for now
#else
char error [128];
#ifdef DEBUG_CONSOLE
sprintf (error, "WavPack_DeleteAlbumArt ()\n");
debug_write (error);
#endif
if (!filename || !*filename || _wcsicmp (type, L"cover"))
return 0;
if (!edit.wpc || wcscmp (filename, edit.w_lastfn)) {
if (edit.wpc) {
WavpackCloseFile (edit.wpc);
edit.wpc = NULL;
}
if (edit.wv_id)
fclose (edit.wv_id);
if (!(edit.wv_id = _wfopen (filename, L"r+b")))
return 1;
edit.wpc = WavpackOpenFileInputEx (&freader, &edit.wv_id, NULL, error, OPEN_TAGS | OPEN_EDIT_TAGS, 0);
if (!edit.wpc) {
fclose (edit.wv_id);
return 1;
}
wcscpy (edit.w_lastfn, filename);
edit.lastfn [0] = 0;
}
if (WavpackDeleteTagItem (edit.wpc, "Cover Art (Front)")) {
winampWriteExtendedFileInfo ();
return 0;
}
else {
close_context (&edit);
return 1;
}
#endif
}
//////////////////////////////////////////////////////////////////////////////
// This function uses the ReplayGain mode selected by the user and the info //
// stored in the specified tag to determine the gain value used to play the //
// file and whether "soft clipping" is required. Note that the gain is in //
// voltage scaling (not dB), so a value of 1.0 (not 0.0) is unity gain. //
//////////////////////////////////////////////////////////////////////////////
static float calculate_gain(WavpackContext *wpc, bool allowDefault)
{
if (AGAVE_API_CONFIG->GetBool(playbackConfigGroupGUID, L"replaygain", false))
{
float dB = 0, peak = 1.0f;
char gain[128] = "", peakVal[128] = "";
_locale_t C_locale = WASABI_API_LNG->Get_C_NumericLocale();
switch (AGAVE_API_CONFIG->GetUnsigned(playbackConfigGroupGUID, L"replaygain_source", 0))
{
case 0: // track
if ((!WavpackGetTagItem(wpc, "replaygain_track_gain", gain, sizeof(gain)) || !gain[0])
&& !AGAVE_API_CONFIG->GetBool(playbackConfigGroupGUID, L"replaygain_preferred_only", false))
WavpackGetTagItem(wpc, "replaygain_album_gain", gain, sizeof(gain));
if ((!WavpackGetTagItem(wpc, "replaygain_track_peak", peakVal, sizeof(peakVal)) || !peakVal[0])
&& !AGAVE_API_CONFIG->GetBool(playbackConfigGroupGUID, L"replaygain_preferred_only", false))
WavpackGetTagItem(wpc, "replaygain_album_peak", peakVal, sizeof(peakVal));
break;
case 1:
if ((!WavpackGetTagItem(wpc, "replaygain_album_gain", gain, sizeof(gain)) || !gain[0])
&& !AGAVE_API_CONFIG->GetBool(playbackConfigGroupGUID, L"replaygain_preferred_only", false))
WavpackGetTagItem(wpc, "replaygain_track_gain", gain, sizeof(gain));
if ((!WavpackGetTagItem(wpc, "replaygain_album_peak", peakVal, sizeof(peakVal)) || !peakVal[0])
&& !AGAVE_API_CONFIG->GetBool(playbackConfigGroupGUID, L"replaygain_preferred_only", false))
WavpackGetTagItem(wpc, "replaygain_track_peak", peakVal, sizeof(peakVal));
break;
}
if (gain[0])
{
if (gain[0] == L'+')
dB = (float)_atof_l(&gain[1],C_locale);
else
dB = (float)_atof_l(gain,C_locale);
}
else if (allowDefault)
{
dB = AGAVE_API_CONFIG->GetFloat(playbackConfigGroupGUID, L"non_replaygain", -6.0);
return powf(10.0f, dB / 20.0f);
}
if (peakVal[0])
{
peak = (float)_atof_l(peakVal,C_locale);
}
switch (AGAVE_API_CONFIG->GetUnsigned(playbackConfigGroupGUID, L"replaygain_mode", 1))
{
case 0: // apply gain
return powf(10.0f, dB / 20.0f);
case 1: // apply gain, but don't clip
return min(powf(10.0f, dB / 20.0f), 1.0f / peak);
case 2: // normalize
return 1.0f / peak;
case 3: // prevent clipping
if (peak > 1.0f)
return 1.0f / peak;
else
return 1.0f;
}
}
return 1.0f; // no gain
}
// Convert a Ansi string into its Unicode UTF-8 format equivalent. The
// conversion is done in-place so the maximum length of the string buffer must
// be specified because the string may become longer or shorter. If the
// resulting string will not fit in the specified buffer size then it is
// truncated.
#ifdef OLD_INFO_DIALOG
static void AnsiToUTF8(char *string, int len)
{
int max_chars = (int) strlen(string);
wchar_t *temp = (wchar_t *) malloc((max_chars + 1) * 2);
MultiByteToWideChar(CP_ACP, 0, string, -1, temp, max_chars + 1);
lstrcpyn(string, AutoChar(temp, CP_UTF8), len);
free(temp);
}
#endif
// Convert Unicode UTF-8 string to wide format. UTF-8 string must be NULL
// terminated. Resulting wide string must be able to fit in provided space
// and will also be NULL terminated. The number of characters converted will
// be returned (not counting terminator).
static int UTF8ToWideChar(const char *pUTF8, wchar_t *pWide)
{
int trail_bytes = 0;
int chrcnt = 0;
while (*pUTF8)
{
if (*pUTF8 & 0x80)
{
if (*pUTF8 & 0x40)
{
if (trail_bytes)
{
trail_bytes = 0;
chrcnt++;
}
else
{
char temp = *pUTF8;
while (temp & 0x80)
{
trail_bytes++;
temp <<= 1;
}
pWide [chrcnt] = temp >> trail_bytes--;
}
}
else if (trail_bytes)
{
pWide [chrcnt] = (pWide [chrcnt] << 6) | (*pUTF8 & 0x3f);
if (!--trail_bytes)
chrcnt++;
}
}
else
pWide [chrcnt++] = *pUTF8;
pUTF8++;
}
pWide [chrcnt] = 0;
return chrcnt;
}
// Convert a Unicode UTF-8 format string into its Ansi equivalent. The
// conversion is done in-place so the maximum length of the string buffer must
// be specified because the string may become longer or shorter. If the
// resulting string will not fit in the specified buffer size then it is
// truncated.
static void UTF8ToAnsi(char *string, int len)
{
int max_chars = (int)strlen(string);
wchar_t *temp = (wchar_t *)malloc((max_chars + 1) * 2);
int act_chars = UTF8ToWideChar(string, temp);
while (act_chars)
{
memset (string, 0, len);
if (WideCharToMultiByte(CP_ACP, 0, temp, act_chars, string, len - 1, NULL, NULL))
break;
else
act_chars--;
}
if (!act_chars)
*string = 0;
free (temp);
}
extern "C" __declspec(dllexport) int winampUninstallPlugin(HINSTANCE hDllInst, HWND hwndDlg, int param)
{
// as we're not hooking anything and have no settings we can support an on-the-fly uninstall action
return IN_PLUGIN_UNINSTALL_NOW;
}