winamp/Src/external_dependencies/openmpt-trunk/libopenmpt/xmp-openmpt.cpp
2024-09-24 14:54:57 +02:00

1894 lines
56 KiB
C++

/*
* xmp-openmpt.cpp
* ---------------
* Purpose: libopenmpt xmplay input plugin implementation
* Notes : (currently none)
* Authors: OpenMPT Devs
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
*/
#ifndef NO_XMPLAY
#ifndef _CRT_SECURE_NO_WARNINGS
#define _CRT_SECURE_NO_WARNINGS
#endif
#if !defined(WINVER) && !defined(_WIN32_WINDOWS)
#ifndef _WIN32_WINNT
#define _WIN32_WINNT 0x0501 // _WIN32_WINNT_WINXP
#endif
#endif
#if !defined(MPT_BUILD_RETRO)
#if defined(_MSC_VER)
#define MPT_WITH_MFC
#endif
#else
#if defined(_WIN32_WINNT)
#if (_WIN32_WINNT >= 0x0501)
#if defined(_MSC_VER)
#define MPT_WITH_MFC
#endif
#endif
#endif
#endif
#if defined(MPT_WITH_MFC)
#define _AFX_NO_MFC_CONTROLS_IN_DIALOGS // Avoid binary bloat from linking unused MFC controls
#endif // MPT_WITH_MFC
#ifndef NOMINMAX
#define NOMINMAX
#endif
#if defined(MPT_WITH_MFC)
#include <afxwin.h>
#include <afxcmn.h>
#endif // MPT_WITH_MFC
#include <windows.h>
#include <WindowsX.h>
#ifdef LIBOPENMPT_BUILD_DLL
#undef LIBOPENMPT_BUILD_DLL
#endif
#ifdef _MSC_VER
#ifndef _CRT_SECURE_NO_WARNINGS
#define _CRT_SECURE_NO_WARNINGS
#endif
#ifndef _SCL_SECURE_NO_WARNINGS
#define _SCL_SECURE_NO_WARNINGS
#endif
#endif // _MSC_VER
#include <cctype>
#include <cstring>
#include <tchar.h>
#include "libopenmpt.hpp"
#include "libopenmpt_ext.hpp"
#include "libopenmpt_plugin_settings.hpp"
#include "libopenmpt_plugin_gui.hpp"
#include "svn_version.h"
#if defined(OPENMPT_VERSION_REVISION)
static const char * xmp_openmpt_string = "OpenMPT (" OPENMPT_API_VERSION_STRING "." OPENMPT_API_VERSION_STRINGIZE(OPENMPT_VERSION_REVISION) ")";
#else
static const char * xmp_openmpt_string = "OpenMPT (" OPENMPT_API_VERSION_STRING ")";
#endif
#define USE_XMPLAY_FILE_IO
#define USE_XMPLAY_ISTREAM
#include "xmplay/xmpin.h"
// Shortcut block assigned to the OpenMPT plugin by un4seen.
enum {
openmpt_shortcut_first = 0x21000,
openmpt_shortcut_tempo_decrease = openmpt_shortcut_first,
openmpt_shortcut_tempo_increase,
openmpt_shortcut_pitch_decrease,
openmpt_shortcut_pitch_increase,
openmpt_shortcut_switch_interpolation,
openmpt_shortcut_last = 0x21fff,
openmpt_shortcut_ex = 0x80000000, // Use extended version of the shortcut callback
};
#include <algorithm>
#include <fstream>
#include <iomanip>
#include <iostream>
#include <iterator>
#include <map>
#include <queue>
#include <sstream>
#include <string>
#include <cmath>
#include <pugixml.hpp>
#define SHORT_TITLE "xmp-openmpt"
#define SHORTER_TITLE "openmpt"
static CRITICAL_SECTION xmpopenmpt_mutex;
class xmpopenmpt_lock {
public:
xmpopenmpt_lock() {
EnterCriticalSection( &xmpopenmpt_mutex );
}
~xmpopenmpt_lock() {
LeaveCriticalSection( &xmpopenmpt_mutex );
}
};
static XMPFUNC_IN * xmpfin = nullptr;
static XMPFUNC_MISC * xmpfmisc = nullptr;
static XMPFUNC_REGISTRY * xmpfregistry = nullptr;
static XMPFUNC_FILE * xmpffile = nullptr;
static XMPFUNC_TEXT * xmpftext = nullptr;
static XMPFUNC_STATUS * xmpfstatus = nullptr;
struct self_xmplay_t;
static self_xmplay_t * self = 0;
static void save_options();
static void apply_and_save_options();
static std::string convert_to_native( const std::string & str );
static std::string StringEncode( const std::wstring &src, UINT codepage );
static std::wstring StringDecode( const std::string & src, UINT codepage );
#if defined(UNICODE)
static std::wstring StringToWINAPI( const std::wstring & src );
#else
static std::string StringToWINAPI( const std::wstring & src );
#endif
class xmp_openmpt_settings
: public libopenmpt::plugin::settings
{
protected:
void read_setting( const std::string & key, const std::basic_string<TCHAR> & keyW, int & val ) override {
libopenmpt::plugin::settings::read_setting( key, keyW, val );
int storedVal = 0;
if ( xmpfregistry->GetInt( "OpenMPT", key.c_str(), &storedVal ) ) {
val = storedVal;
}
}
void write_setting( const std::string & key, const std::basic_string<TCHAR> & /* keyW */ , int val ) override {
if ( !xmpfregistry->SetInt( "OpenMPT", key.c_str(), &val ) ) {
// error
}
// ok
}
public:
xmp_openmpt_settings()
: libopenmpt::plugin::settings(TEXT(SHORT_TITLE), false)
{
return;
}
virtual ~xmp_openmpt_settings()
{
return;
}
};
struct self_xmplay_t {
std::vector<float> subsong_lengths;
std::vector<std::string> subsong_names;
std::size_t samplerate = 48000;
std::size_t num_channels = 2;
xmp_openmpt_settings settings;
openmpt::module_ext * mod = nullptr;
bool set_format_called = false;
openmpt::ext::pattern_vis * pattern_vis = nullptr;
std::int32_t tempo_factor = 0, pitch_factor = 0;
bool single_subsong_mode = false;
self_xmplay_t() {
settings.changed = apply_and_save_options;
}
void on_new_mod() {
set_format_called = false;
self->pattern_vis = static_cast<openmpt::ext::pattern_vis *>( self->mod->get_interface( openmpt::ext::pattern_vis_id ) );
}
void delete_mod() {
if ( mod ) {
pattern_vis = 0;
set_format_called = false;
delete mod;
mod = 0;
}
}
~self_xmplay_t() {
return;
}
};
static std::string convert_to_native( const std::string & str ) {
char * native_string = xmpftext->Utf8( str.c_str(), -1 );
std::string result = native_string ? native_string : "";
if ( native_string ) {
xmpfmisc->Free( native_string );
native_string = 0;
}
return result;
}
static std::string StringEncode( const std::wstring &src, UINT codepage )
{
int required_size = WideCharToMultiByte( codepage, 0, src.c_str(), -1, nullptr, 0, nullptr, nullptr);
if(required_size <= 0)
{
return std::string();
}
std::vector<CHAR> encoded_string( required_size );
WideCharToMultiByte( codepage, 0, src.c_str(), -1, &encoded_string[0], encoded_string.size(), nullptr, nullptr);
return &encoded_string[0];
}
static std::wstring StringDecode( const std::string & src, UINT codepage )
{
int required_size = MultiByteToWideChar( codepage, 0, src.c_str(), -1, nullptr, 0 );
if(required_size <= 0)
{
return std::wstring();
}
std::vector<WCHAR> decoded_string( required_size );
MultiByteToWideChar( codepage, 0, src.c_str(), -1, &decoded_string[0], decoded_string.size() );
return &decoded_string[0];
}
#if defined(UNICODE)
static std::wstring StringToWINAPI( const std::wstring & src )
{
return src;
}
#else
static std::string StringToWINAPI( const std::wstring & src )
{
return StringEncode( src, CP_ACP );
}
#endif
template <typename Tstring, typename Tstring2, typename Tstring3>
static inline Tstring StringReplace( Tstring str, const Tstring2 & oldStr_, const Tstring3 & newStr_ ) {
std::size_t pos = 0;
const Tstring oldStr = oldStr_;
const Tstring newStr = newStr_;
while ( ( pos = str.find( oldStr, pos ) ) != Tstring::npos ) {
str.replace( pos, oldStr.length(), newStr );
pos += newStr.length();
}
return str;
}
static std::string StringUpperCase( std::string str ) {
std::transform( str.begin(), str.end(), str.begin(), []( char c ) { return static_cast<char>( std::toupper( c ) ); } );
return str;
}
static std::string seconds_to_string( float time ) {
std::int64_t time_ms = static_cast<std::int64_t>( time * 1000 );
std::int64_t seconds = ( time_ms / 1000 ) % 60;
std::int64_t minutes = ( time_ms / ( 1000 * 60 ) ) % 60;
std::int64_t hours = ( time_ms / ( 1000 * 60 * 60 ) );
std::ostringstream str;
if ( hours > 0 ) {
str << hours << ":";
}
str << std::setfill('0') << std::setw(2) << minutes;
str << ":";
str << std::setfill('0') << std::setw(2) << seconds;
return str.str();
}
static void save_settings_to_map( std::map<std::string,int> & result, const libopenmpt::plugin::settings & s ) {
result.clear();
result[ "Samplerate_Hz" ] = s.samplerate;
result[ "Channels" ] = s.channels;
result[ "MasterGain_milliBel" ] = s.mastergain_millibel;
result[ "StereoSeparation_Percent" ] = s.stereoseparation;
result[ "RepeatCount" ] = s.repeatcount;
result[ "InterpolationFilterLength" ] = s.interpolationfilterlength;
result[ "UseAmigaResampler" ] = s.use_amiga_resampler;
result[ "AmigaFilterType" ] = s.amiga_filter_type;
result[ "VolumeRampingStrength" ] = s.ramping;
}
static inline void load_map_setting( const std::map<std::string,int> & map, const std::string & key, int & val ) {
auto it = map.find( key );
if ( it != map.end() ) {
val = it->second;
}
}
static void load_settings_from_map( libopenmpt::plugin::settings & s, const std::map<std::string,int> & map ) {
load_map_setting( map, "Samplerate_Hz", s.samplerate );
load_map_setting( map, "Channels", s.channels );
load_map_setting( map, "MasterGain_milliBel", s.mastergain_millibel );
load_map_setting( map, "StereoSeparation_Percent", s.stereoseparation );
load_map_setting( map, "RepeatCount", s.repeatcount );
load_map_setting( map, "InterpolationFilterLength", s.interpolationfilterlength );
load_map_setting( map, "UseAmigaResampler", s.use_amiga_resampler );
load_map_setting( map, "AmigaFilterType", s.amiga_filter_type );
load_map_setting( map, "VolumeRampingStrength", s.ramping );
}
static void load_settings_from_xml( libopenmpt::plugin::settings & s, const std::string & xml ) {
pugi::xml_document doc;
doc.load_string( xml.c_str() );
pugi::xml_node settings_node = doc.child( "settings" );
std::map<std::string,int> map;
for ( const auto & attr : settings_node.attributes() ) {
map[ attr.name() ] = attr.as_int();
}
load_settings_from_map( s, map );
}
static void save_settings_to_xml( std::string & xml, const libopenmpt::plugin::settings & s ) {
std::map<std::string,int> map;
save_settings_to_map( map, s );
pugi::xml_document doc;
pugi::xml_node settings_node = doc.append_child( "settings" );
for ( const auto & setting : map ) {
settings_node.append_attribute( setting.first.c_str() ).set_value( setting.second );
}
std::ostringstream buf;
doc.save( buf );
xml = buf.str();
}
static void apply_options() {
if ( self->mod ) {
if ( !self->set_format_called ) {
// SetFormat will only be called once after loading a file.
// We cannot apply samplerate or numchannels changes afterwards during playback.
self->samplerate = self->settings.samplerate;
self->num_channels = self->settings.channels;
}
self->mod->set_repeat_count( self->settings.repeatcount );
self->mod->set_render_param( openmpt::module::RENDER_MASTERGAIN_MILLIBEL, self->settings.mastergain_millibel );
self->mod->set_render_param( openmpt::module::RENDER_STEREOSEPARATION_PERCENT, self->settings.stereoseparation );
self->mod->set_render_param( openmpt::module::RENDER_INTERPOLATIONFILTER_LENGTH, self->settings.interpolationfilterlength );
self->mod->set_render_param( openmpt::module::RENDER_VOLUMERAMPING_STRENGTH, self->settings.ramping );
self->mod->ctl_set_boolean( "render.resampler.emulate_amiga", self->settings.use_amiga_resampler ? true : false );
switch ( self->settings.amiga_filter_type ) {
case 0:
self->mod->ctl_set_text( "render.resampler.emulate_amiga_type", "auto" );
break;
case 1:
self->mod->ctl_set_text( "render.resampler.emulate_amiga_type", "unfiltered" );
break;
case 0xA500:
self->mod->ctl_set_text( "render.resampler.emulate_amiga_type", "a500" );
break;
case 0xA1200:
self->mod->ctl_set_text( "render.resampler.emulate_amiga_type", "a1200" );
break;
}
}
}
static void save_options() {
self->settings.save();
}
static void apply_and_save_options() {
apply_options();
save_options();
}
static void reset_options() {
self->settings = xmp_openmpt_settings();
self->settings.changed = apply_and_save_options;
self->settings.load();
}
// get config (return size of config data) (OPTIONAL)
static DWORD WINAPI openmpt_GetConfig( void * config ) {
std::string xml;
save_settings_to_xml( xml, self->settings );
if ( config ) {
std::memcpy( config, xml.c_str(), xml.length() + 1 );
}
return xml.length() + 1;
}
// apply config (OPTIONAL)
static void WINAPI openmpt_SetConfig( void * config, DWORD size ) {
reset_options();
if ( config ) {
load_settings_from_xml( self->settings, std::string( (char*)config, (char*)config + size ) );
apply_options();
}
}
static void WINAPI ShortcutHandler( DWORD id ) {
if ( !self->mod ) {
return;
}
bool tempo_changed = false, pitch_changed = false;
switch ( id ) {
case openmpt_shortcut_tempo_decrease: self->tempo_factor--; tempo_changed = true; break;
case openmpt_shortcut_tempo_increase: self->tempo_factor++; tempo_changed = true; break;
case openmpt_shortcut_pitch_decrease: self->pitch_factor--; pitch_changed = true; break;
case openmpt_shortcut_pitch_increase: self->pitch_factor++; pitch_changed = true; break;
case openmpt_shortcut_switch_interpolation:
self->settings.interpolationfilterlength *= 2;
if ( self->settings.interpolationfilterlength > 8 ) {
self->settings.interpolationfilterlength = 1;
}
apply_and_save_options();
const char *s = nullptr;
switch ( self->settings.interpolationfilterlength )
{
case 1: s = "Interpolation: Off"; break;
case 2: s = "Interpolation: Linear"; break;
case 4: s = "Interpolation: Cubic"; break;
case 8: s = "Interpolation: Polyphase"; break;
}
if ( s ) {
xmpfmisc->ShowBubble( s, 0 );
}
break;
}
self->tempo_factor = std::min( 48, std::max( -48, self->tempo_factor ) );
self->pitch_factor = std::min( 48, std::max( -48, self->pitch_factor ) );
const double tempo_factor = std::pow( 2.0, self->tempo_factor / 24.0 );
const double pitch_factor = std::pow( 2.0, self->pitch_factor / 24.0 );
if ( tempo_changed ) {
std::ostringstream s;
s << "Tempo: " << static_cast<std::int32_t>( 100.0 * tempo_factor ) << "%";
xmpfmisc->ShowBubble( s.str().c_str(), 0 );
} else if ( pitch_changed) {
std::ostringstream s;
s << "Pitch: ";
if ( self->pitch_factor > 0 )
s << "+";
else if ( self->pitch_factor == 0 )
s << "+/-";
s << (self->pitch_factor * 0.5) << " semitones";
xmpfmisc->ShowBubble( s.str().c_str(), 0 );
}
openmpt::ext::interactive *interactive = static_cast<openmpt::ext::interactive *>( self->mod->get_interface( openmpt::ext::interactive_id ) );
interactive->set_tempo_factor( tempo_factor );
interactive->set_pitch_factor( pitch_factor );
xmpfin->SetLength( static_cast<float>( self->mod->get_duration_seconds() / tempo_factor ), TRUE );
}
static double timeinfo_position = 0.0;
struct timeinfo {
bool valid;
double seconds;
std::int32_t pattern;
std::int32_t row;
};
static std::queue<timeinfo> timeinfos;
static void reset_timeinfos( double position = 0.0 ) {
while ( !timeinfos.empty() ) {
timeinfos.pop();
}
timeinfo_position = position;
}
static void update_timeinfos( std::int32_t samplerate, std::int32_t count ) {
timeinfo_position += (double)count / (double)samplerate;
timeinfo info;
info.valid = true;
info.seconds = timeinfo_position;
info.pattern = self->mod->get_current_pattern();
info.row = self->mod->get_current_row();
timeinfos.push( info );
}
static timeinfo current_timeinfo;
static timeinfo lookup_timeinfo( double seconds ) {
timeinfo info = current_timeinfo;
#if 0
info.seconds = timeinfo_position;
info.pattern = self->mod->get_current_pattern();
info.row = self->mod->get_current_row();
#endif
while ( timeinfos.size() > 0 && timeinfos.front().seconds <= seconds ) {
info = timeinfos.front();
timeinfos.pop();
}
current_timeinfo = info;
return current_timeinfo;
}
static void clear_current_timeinfo() {
current_timeinfo = timeinfo();
}
static void WINAPI openmpt_About( HWND win ) {
std::ostringstream about;
about << SHORT_TITLE << " version " << openmpt::string::get( "library_version" ) << " " << "(built " << openmpt::string::get( "build" ) << ")" << std::endl;
about << " Copyright (c) 2013-2022 OpenMPT Project Developers and Contributors (https://lib.openmpt.org/)" << std::endl;
about << " OpenMPT version " << openmpt::string::get( "core_version" ) << std::endl;
about << std::endl;
about << openmpt::string::get( "contact" ) << std::endl;
about << std::endl;
about << "Show full credits?" << std::endl;
if ( MessageBox( win, StringToWINAPI( StringDecode( about.str(), CP_UTF8 ) ).c_str(), TEXT(SHORT_TITLE), MB_ICONINFORMATION | MB_YESNOCANCEL | MB_DEFBUTTON1 ) != IDYES ) {
return;
}
std::ostringstream credits;
credits << openmpt::string::get( "credits" );
credits << "Additional thanks to:" << std::endl;
credits << std::endl;
credits << "Arseny Kapoulkine for pugixml" << std::endl;
credits << "https://pugixml.org/" << std::endl;
#if 1
libopenmpt::plugin::gui_show_file_info( win, TEXT(SHORT_TITLE), StringToWINAPI( StringReplace( StringDecode( credits.str(), CP_UTF8 ), L"\n", L"\r\n" ) ) );
#else
MessageBox( win, StringToWINAPI( StringReplace( StringDecode( credits.str(), CP_UTF8 ), L"\n", L"\r\n" ) ).c_str(), TEXT(SHORT_TITLE), MB_OK );
#endif
}
static void WINAPI openmpt_Config( HWND win ) {
#if 1
libopenmpt::plugin::gui_edit_settings( &self->settings, win, TEXT(SHORT_TITLE) );
#else
static_cast<void>(win);
#endif
apply_and_save_options();
}
#ifdef USE_XMPLAY_FILE_IO
#ifdef USE_XMPLAY_ISTREAM
class xmplay_streambuf : public std::streambuf {
public:
explicit xmplay_streambuf( XMPFILE & file );
private:
int_type underflow() override;
xmplay_streambuf( const xmplay_streambuf & );
xmplay_streambuf & operator = ( const xmplay_streambuf & );
private:
XMPFILE & file;
static const std::size_t put_back = 4096;
static const std::size_t buf_size = 65536;
std::vector<char> buffer;
}; // class xmplay_streambuf
xmplay_streambuf::xmplay_streambuf( XMPFILE & file_ ) : file(file_), buffer(buf_size) {
char * end = &buffer.front() + buffer.size();
setg( end, end, end );
}
std::streambuf::int_type xmplay_streambuf::underflow() {
if ( gptr() < egptr() ) {
return traits_type::to_int_type( *gptr() );
}
char * base = &buffer.front();
char * start = base;
if ( eback() == base ) {
std::size_t put_back_count = std::min( put_back, static_cast<std::size_t>( egptr() - base ) );
std::memmove( base, egptr() - put_back_count, put_back_count );
start += put_back_count;
}
std::size_t n = xmpffile->Read( file, start, buffer.size() - ( start - base ) );
if ( n == 0 ) {
return traits_type::eof();
}
setg( base, start, start + n );
return traits_type::to_int_type( *gptr() );
}
class xmplay_istream : public std::istream {
private:
xmplay_streambuf buf;
private:
xmplay_istream( const xmplay_istream & );
xmplay_istream & operator = ( const xmplay_istream & );
public:
xmplay_istream( XMPFILE & file ) : std::istream(&buf), buf(file) {
return;
}
~xmplay_istream() {
return;
}
}; // class xmplay_istream
// Stream for memory-based files (required for could_open_probability)
struct xmplay_membuf : std::streambuf {
xmplay_membuf( const char * base, size_t size ) {
char* p( const_cast<char *>( base ) );
setg(p, p, p + size);
}
};
struct xmplay_imemstream : virtual xmplay_membuf, std::istream {
xmplay_imemstream( const char * base, size_t size )
: xmplay_membuf( base, size )
, std::istream( static_cast<std::streambuf *>(this)) {
return;
}
};
#else // !USE_XMPLAY_ISTREAM
static std::vector<char> read_XMPFILE_vector( XMPFILE & file ) {
std::vector<char> data( xmpffile->GetSize( file ) );
if ( data.size() != xmpffile->Read( file, data.data(), data.size() ) ) {
return std::vector<char>();
}
return data;
}
static std::string read_XMPFILE_string( XMPFILE & file ) {
std::vector<char> data = read_XMPFILE_vector( file );
return std::string( data.begin(), data.end() );
}
#endif // USE_XMPLAY_ISTREAM
#endif // USE_XMPLAY_FILE_IO
static std::string string_replace( std::string str, const std::string & oldStr, const std::string & newStr ) {
std::size_t pos = 0;
while((pos = str.find(oldStr, pos)) != std::string::npos)
{
str.replace(pos, oldStr.length(), newStr);
pos += newStr.length();
}
return str;
}
static void write_xmplay_string( char * dst, std::string src ) {
// xmplay buffers are ~40kB, be conservative and truncate at 32kB-2
if ( !dst ) {
return;
}
src = src.substr( 0, (1<<15) - 2 );
std::strcpy( dst, src.c_str() );
}
static std::string extract_date( const openmpt::module & mod ) {
std::string result = mod.get_metadata("date");
if ( result.empty() ) {
// Search the sample, instrument and message texts for possible release years.
// We'll look for things that may vaguely resemble a release year, such as 4-digit numbers
// or 2-digit numbers with a leading apostrophe. Generally, only years between
// 1988 (release of Ultimate SoundTracker) and the current year + 1 (safety margin) will
// be considered.
std::string s = " " + mod.get_metadata("message");
auto names = mod.get_sample_names();
for ( const auto & name : names ) {
s += " " + name;
}
names = mod.get_instrument_names();
for ( const auto & name : names ) {
s += " " + name;
}
s += " ";
int32_t best_year = 0;
SYSTEMTIME time;
GetSystemTime( &time );
const int32_t current_year = time.wYear + 1;
#define MPT_NUMERIC( x ) ( ( x >= '0' ) && ( x <= '9' ) )
for ( auto i = s.cbegin(); i != s.cend(); ++i ) {
std::size_t len = s.length();
std::size_t idx = i - s.begin();
std::size_t remaining = len - idx;
if ( ( remaining >= 6 ) && !MPT_NUMERIC( i[0] ) && MPT_NUMERIC( i[1] ) && MPT_NUMERIC( i[2] ) && MPT_NUMERIC( i[3] ) && MPT_NUMERIC( i[4] ) && !MPT_NUMERIC( i[5] ) ) {
// Four-digit year
const int32_t year = ( i[1] - '0' ) * 1000 + ( i[2] - '0' ) * 100 + ( i[3] - '0' ) * 10 + ( i[4] - '0' );
if ( year >= 1988 && year <= current_year ) {
best_year = std::max( year, best_year );
}
} else if ( ( remaining >= 4 ) && ( i[0] == '\'' ) && MPT_NUMERIC( i[1] ) && MPT_NUMERIC( i[2] ) && !MPT_NUMERIC( i[3] ) ) {
// Apostrophe + two-digit year
const int32_t year = ( i[1] - '0' ) * 10 + ( i[2] - '0' );
if ( year >= 88 && year <= 99 ) {
best_year = std::max( 1900 + year, best_year );
} else if ( year >= 00 && ( 2000 + year ) <= current_year ) {
best_year = std::max( 2000 + year, best_year );
}
}
}
#undef MPT_NUMERIC
if ( best_year != 0 ) {
std::ostringstream os;
os << best_year;
result = os.str();
}
}
return result;
}
static void append_xmplay_tag( std::string & tags, const std::string & tag, const std::string & val ) {
if ( tag.empty() ) {
return;
}
if ( val.empty() ) {
return;
}
tags.append( tag );
tags.append( 1, '\0' );
tags.append( val );
tags.append( 1, '\0' );
}
static char * build_xmplay_tags( const openmpt::module & mod, int32_t subsong = -1 ) {
std::string tags;
const std::string title = mod.get_metadata("title");
const auto subsong_names = mod.get_subsong_names();
auto first_subsong = subsong_names.cbegin(), last_subsong = subsong_names.cend();
if ( subsong >= 0 && static_cast<size_t>( subsong ) < subsong_names.size() ) {
first_subsong += subsong;
last_subsong = first_subsong + 1;
} else
{
last_subsong = first_subsong + 1;
}
for ( auto subsong_name = first_subsong; subsong_name != last_subsong; subsong_name++ ) {
append_xmplay_tag( tags, "filetype", convert_to_native( StringUpperCase( mod.get_metadata( "type" ) ) ) );
append_xmplay_tag( tags, "title", convert_to_native( ( subsong_name->empty() || subsong == -1 ) ? title : *subsong_name ) );
append_xmplay_tag( tags, "artist", convert_to_native( mod.get_metadata( "artist" ) ) );
append_xmplay_tag( tags, "album", convert_to_native( mod.get_metadata( "xmplay-album" ) ) ); // todo, libopenmpt does not support that
append_xmplay_tag( tags, "date", convert_to_native( extract_date( mod ) ) );
append_xmplay_tag( tags, "track", convert_to_native( mod.get_metadata( "xmplay-tracknumber" ) ) ); // todo, libopenmpt does not support that
append_xmplay_tag( tags, "genre", convert_to_native( mod.get_metadata( "xmplay-genre" ) ) ); // todo, libopenmpt does not support that
append_xmplay_tag( tags, "comment", convert_to_native( mod.get_metadata( "message" ) ) );
tags.append( 1, '\0' );
}
char * result = static_cast<char*>( xmpfmisc->Alloc( tags.size() ) );
if ( !result ) {
return nullptr;
}
std::copy( tags.data(), tags.data() + tags.size(), result );
return result;
}
static float * build_xmplay_length( const openmpt::module & /* mod */ ) {
float * result = static_cast<float*>( xmpfmisc->Alloc( sizeof( float ) * self->subsong_lengths.size() ) );
if ( !result ) {
return nullptr;
}
for ( std::size_t i = 0; i < self->subsong_lengths.size(); ++i ) {
result[i] = self->subsong_lengths[i];
}
return result;
}
static void clear_xmplay_string( char * str ) {
if ( !str ) {
return;
}
str[0] = '\0';
}
static std::string sanitize_xmplay_info_string( const std::string & str ) {
std::string result;
result.reserve(str.size());
for ( auto c : str ) {
switch ( c ) {
case '\0':
case '\t':
case '\r':
case '\n':
break;
default:
result.push_back( c );
break;
}
}
return result;
}
static std::string sanitize_xmplay_multiline_info_string( const std::string & str ) {
std::string result;
result.reserve(str.size());
for ( auto c : str ) {
switch ( c ) {
case '\0':
case '\t':
case '\r':
break;
case '\n':
result.push_back( '\r' );
result.push_back( '\t' );
break;
default:
result.push_back( c );
break;
}
}
return result;
}
static std::string sanitize_xmplay_multiline_string( const std::string & str ) {
std::string result;
result.reserve(str.size());
for ( auto c : str ) {
switch ( c ) {
case '\0':
case '\t':
break;
default:
result.push_back( c );
break;
}
}
return result;
}
// check if a file is playable by this plugin
// more thorough checks can be saved for the GetFileInfo and Open functions
static BOOL WINAPI openmpt_CheckFile( const char * filename, XMPFILE file ) {
static_cast<void>( filename );
try {
#ifdef USE_XMPLAY_FILE_IO
#ifdef USE_XMPLAY_ISTREAM
switch ( xmpffile->GetType( file ) ) {
case XMPFILE_TYPE_MEMORY:
{
xmplay_imemstream s( reinterpret_cast<const char *>( xmpffile->GetMemory( file ) ), xmpffile->GetSize( file ) );
return ( openmpt::probe_file_header( openmpt::probe_file_header_flags_default2, s ) == openmpt::probe_file_header_result_success ) ? TRUE : FALSE;
}
break;
case XMPFILE_TYPE_FILE:
case XMPFILE_TYPE_NETFILE:
case XMPFILE_TYPE_NETSTREAM:
default:
{
xmplay_istream s( file );
return ( openmpt::probe_file_header( openmpt::probe_file_header_flags_default2, s ) == openmpt::probe_file_header_result_success ) ? TRUE : FALSE;
}
break;
}
#else
if ( xmpffile->GetType( file ) == XMPFILE_TYPE_MEMORY ) {
std::string data( reinterpret_cast<const char*>( xmpffile->GetMemory( file ) ), xmpffile->GetSize( file ) );
std::istringstream s( data );
return ( openmpt::probe_file_header( openmpt::probe_file_header_flags_default2, s ) == openmpt::probe_file_header_result_success ) ? TRUE : FALSE;
} else {
std::string data = read_XMPFILE_string( file );
std::istringstream s(data);
return ( openmpt::probe_file_header( openmpt::probe_file_header_flags_default2, s ) == openmpt::probe_file_header_result_success ) ? TRUE : FALSE;
}
#endif
#else
std::ifstream s( filename, std::ios_base::binary );
return ( openmpt::probe_file_header( openmpt::probe_file_header_flags_default2, s ) == openmpt::probe_file_header_result_success ) ? TRUE : FALSE;
#endif
} catch ( ... ) {
return FALSE;
}
return FALSE;
}
static DWORD WINAPI openmpt_GetFileInfo( const char * filename, XMPFILE file, float * * length, char * * tags ) {
static_cast<void>( filename );
try {
std::map< std::string, std::string > ctls
{
{ "load.skip_plugins", "1" },
{ "load.skip_samples", "1" },
};
#ifdef USE_XMPLAY_FILE_IO
#ifdef USE_XMPLAY_ISTREAM
switch ( xmpffile->GetType( file ) ) {
case XMPFILE_TYPE_MEMORY:
{
openmpt::module mod( xmpffile->GetMemory( file ), xmpffile->GetSize( file ), std::clog, ctls );
if ( length ) {
*length = build_xmplay_length( mod );
}
if ( tags ) {
*tags = build_xmplay_tags( mod );
}
}
break;
case XMPFILE_TYPE_FILE:
case XMPFILE_TYPE_NETFILE:
case XMPFILE_TYPE_NETSTREAM:
default:
{
xmplay_istream s( file );
openmpt::module mod( s, std::clog, ctls );
if ( length ) {
*length = build_xmplay_length( mod );
}
if ( tags ) {
*tags = build_xmplay_tags( mod );
}
}
break;
}
#else
if ( xmpffile->GetType( file ) == XMPFILE_TYPE_MEMORY ) {
openmpt::module mod( xmpffile->GetMemory( file ), xmpffile->GetSize( file ), std::clog, ctls );
if ( length ) {
*length = build_xmplay_length( mod );
}
if ( tags ) {
*tags = build_xmplay_tags( mod );
}
} else {
openmpt::module mod( read_XMPFILE_vector( file ), std::clog, ctls );
if ( length ) {
*length = build_xmplay_length( mod );
}
if ( tags ) {
*tags = build_xmplay_tags( mod );
}
}
#endif
#else
std::ifstream s( filename, std::ios_base::binary );
openmpt::module mod( s, std::clog, ctls );
if ( length ) {
*length = build_xmplay_length( mod );
}
if ( tags ) {
*tags = build_xmplay_tags( mod );
}
#endif
} catch ( ... ) {
if ( length ) *length = nullptr;
if ( tags ) *tags = nullptr;
return 0;
}
return self->subsong_lengths.size() + XMPIN_INFO_NOSUBTAGS;
}
// open a file for playback
// return: 0=failed, 1=success, 2=success and XMPlay can close the file
static DWORD WINAPI openmpt_Open( const char * filename, XMPFILE file ) {
static_cast<void>( filename );
xmpopenmpt_lock guard;
reset_options();
try {
std::map< std::string, std::string > ctls
{
{ "seek.sync_samples", "1" },
{ "play.at_end", "continue" },
};
self->delete_mod();
#ifdef USE_XMPLAY_FILE_IO
#ifdef USE_XMPLAY_ISTREAM
switch ( xmpffile->GetType( file ) ) {
case XMPFILE_TYPE_MEMORY:
self->mod = new openmpt::module_ext( xmpffile->GetMemory( file ), xmpffile->GetSize( file ), std::clog, ctls );
break;
case XMPFILE_TYPE_FILE:
case XMPFILE_TYPE_NETFILE:
case XMPFILE_TYPE_NETSTREAM:
default:
{
xmplay_istream s( file );
self->mod = new openmpt::module_ext( s, std::clog, ctls );
}
break;
}
#else
if ( xmpffile->GetType( file ) == XMPFILE_TYPE_MEMORY ) {
self->mod = new openmpt::module_ext( xmpffile->GetMemory( file ), xmpffile->GetSize( file ), std::clog, ctls );
} else {
self->mod = new openmpt::module_ext( read_XMPFILE_vector( file ), std::clog, ctls );
}
#endif
#else
self->mod = new openmpt::module_ext( std::ifstream( filename, std::ios_base::binary ), std::clog, ctls );
#endif
self->on_new_mod();
clear_current_timeinfo();
reset_timeinfos();
apply_options();
std::int32_t num_subsongs = self->mod->get_num_subsongs();
self->subsong_lengths.resize( num_subsongs );
for ( std::int32_t i = 0; i < num_subsongs; ++i ) {
self->mod->select_subsong( i );
self->subsong_lengths[i] = static_cast<float>( self->mod->get_duration_seconds() );
}
self->subsong_names = self->mod->get_subsong_names();
self->mod->select_subsong( 0 );
self->tempo_factor = 0;
self->pitch_factor = 0;
xmpfin->SetLength( self->subsong_lengths[0], TRUE );
return 2;
} catch ( ... ) {
self->delete_mod();
return 0;
}
return 0;
}
// close the file
static void WINAPI openmpt_Close() {
xmpopenmpt_lock guard;
self->delete_mod();
}
// set the sample format (in=user chosen format, out=file format if different)
static void WINAPI openmpt_SetFormat( XMPFORMAT * form ) {
if ( !form ) {
return;
}
// SetFormat will only be called once after loading a file.
// We cannot apply samplerate or numchannels changes afterwards during playback.
self->set_format_called = true;
if ( !self->mod ) {
form->rate = 0;
form->chan = 0;
form->res = 0;
return;
}
if ( self->settings.samplerate != 0 ) {
form->rate = self->samplerate;
} else {
if ( form->rate > 0 ) {
self->samplerate = form->rate;
} else {
form->rate = 48000;
self->samplerate = 48000;
}
}
if ( self->settings.channels != 0 ) {
form->chan = self->num_channels;
} else {
if ( form->chan > 0 ) {
if ( form->chan > 2 ) {
form->chan = 4;
self->num_channels = 4;
} else {
self->num_channels = form->chan;
}
} else {
form->chan = 2;
self->num_channels = 2;
}
}
form->res = 4; // float
}
// get the tags
static char * WINAPI openmpt_GetTags() {
if ( !self->mod ) {
char * tags = static_cast<char*>( xmpfmisc->Alloc( 1 ) );
tags[0] = '\0';
return tags;
}
return build_xmplay_tags( *self->mod, std::max( 0, self->mod->get_selected_subsong() ) );
}
// get the main panel info text
static void WINAPI openmpt_GetInfoText( char * format, char * length ) {
if ( !self->mod ) {
clear_xmplay_string( format );
clear_xmplay_string( length );
return;
}
if ( format ) {
std::ostringstream str;
str
<< StringUpperCase( self->mod->get_metadata("type") )
<< " - "
<< self->mod->get_num_channels() << " ch"
<< " - "
<< "(via " << SHORTER_TITLE << ")"
;
write_xmplay_string( format, sanitize_xmplay_info_string( str.str() ) );
}
if ( length ) {
std::ostringstream str;
str
<< length
<< " - "
<< self->mod->get_num_orders() << " orders"
;
write_xmplay_string( length, sanitize_xmplay_info_string( str.str() ) );
}
}
// get text for "General" info window
// separate headings and values with a tab (\t), end each line with a carriage-return (\r)
static void WINAPI openmpt_GetGeneralInfo( char * buf ) {
if ( !self->mod ) {
clear_xmplay_string( buf );
return;
}
std::ostringstream str;
str << "\r";
bool metadatainfo = false;
if ( !self->mod->get_metadata("artist").empty() ) {
metadatainfo = true;
str << "Artist" << "\t" << sanitize_xmplay_info_string( self->mod->get_metadata("artist") ) << "\r";
}
const std::string date = extract_date( *self->mod );
if ( !date.empty() ) {
metadatainfo = true;
str << "Date" << "\t" << sanitize_xmplay_info_string( date ) << "\r";
}
if ( metadatainfo ) {
str << "\r";
}
str << "Format" << "\t" << sanitize_xmplay_info_string( self->mod->get_metadata("type") ) << " (" << sanitize_xmplay_info_string( self->mod->get_metadata("type_long") ) << ")" << "\r";
if ( !self->mod->get_metadata("originaltype").empty() ) {
str << "Original Type" << "\t" << sanitize_xmplay_info_string( self->mod->get_metadata("originaltype") ) << " (" << sanitize_xmplay_info_string( self->mod->get_metadata("originaltype_long") ) << ")" << "\r";
}
if ( !self->mod->get_metadata("container").empty() ) {
str << "Container" << "\t" << sanitize_xmplay_info_string( self->mod->get_metadata("container") ) << " (" << sanitize_xmplay_info_string( self->mod->get_metadata("container_long") ) << ")" << "\r";
}
str
<< "Channels" << "\t" << self->mod->get_num_channels() << "\r"
<< "Orders" << "\t" << self->mod->get_num_orders() << "\r"
<< "Patterns" << "\t" << self->mod->get_num_patterns() << "\r";
if ( self->mod->get_num_instruments() != 0 ) {
str << "Instruments" << "\t" << self->mod->get_num_instruments() << "\r";
}
str << "Samples" << "\t" << self->mod->get_num_samples() << "\r";
if( !self->single_subsong_mode && self->subsong_lengths.size() > 1 ) {
for ( std::size_t i = 0; i < self->subsong_lengths.size(); ++i ) {
str << ( i == 0 ? "Subsongs\t" : "\t" ) << (i + 1) << ". " << seconds_to_string( self->subsong_lengths[i]) << " " << self->subsong_names[i] << "\r";
}
}
str
<< "\r"
<< "Tracker" << "\t" << sanitize_xmplay_info_string( self->mod->get_metadata("tracker") ) << "\r"
<< "Player" << "\t" << "xmp-openmpt" << " version " << openmpt::string::get( "library_version" ) << "\r"
;
std::string warnings = self->mod->get_metadata("warnings");
if ( !warnings.empty() ) {
str << "Warnings" << "\t" << sanitize_xmplay_multiline_info_string( warnings ) << "\r";
}
str << "\r";
write_xmplay_string( buf, str.str() );
}
// get text for "Message" info window
// separate tag names and values with a tab (\t), and end each line with a carriage-return (\r)
static void WINAPI openmpt_GetMessage( char * buf ) {
if ( !self->mod ) {
clear_xmplay_string( buf );
return;
}
write_xmplay_string( buf, convert_to_native( sanitize_xmplay_multiline_string( string_replace( self->mod->get_metadata("message"), "\n", "\r" ) ) ) );
}
// Seek to a position (in granularity units)
// return the new position in seconds (-1 = failed)
static double WINAPI openmpt_SetPosition( DWORD pos ) {
if ( !self->mod ) {
return -1.0;
}
if ( pos == static_cast<DWORD>(static_cast<LONG>(XMPIN_POS_LOOP)) ) {
// If the time of the loop start position is known, that should be returned, otherwise -2 can be returned to let the time run on.
// There is currently no way to easily figure out at which time the loop restarts.
return -2;
} else if ( pos == static_cast<DWORD>(static_cast<LONG>(XMPIN_POS_AUTOLOOP)) ) {
// In the auto-looping case, the function should only loop when a loop has been detected, and otherwise return -1
// If the time of the loop start position is known, that should be returned, otherwise -2 can be returned to let the time run on.
// There is currently no way to easily figure out at which time the loop restarts.
return -2;
}
if ( pos & XMPIN_POS_SUBSONG ) {
self->single_subsong_mode = ( pos & XMPIN_POS_SUBSONG1 ) != 0;
const int32_t subsong = pos & 0xffff;
try {
self->mod->select_subsong( subsong );
} catch ( ... ) {
return 0.0;
}
openmpt::ext::interactive *interactive = static_cast<openmpt::ext::interactive *>( self->mod->get_interface( openmpt::ext::interactive_id ) );
xmpfin->SetLength( static_cast<float>( self->subsong_lengths[ subsong ] / interactive->get_tempo_factor() ), TRUE );
xmpfin->UpdateTitle( nullptr );
reset_timeinfos( 0 );
return 0.0;
}
double new_position = self->mod->set_position_seconds( static_cast<double>( pos ) * 0.001 );
reset_timeinfos( new_position );
return new_position;
}
// Get the seeking granularity in seconds
static double WINAPI openmpt_GetGranularity() {
return 0.001;
}
// get some sample data, always floating-point
// count=number of floats to write (not bytes or samples)
// return number of floats written. if it's less than requested, playback is ended...
// so wait for more if there is more to come (use CheckCancel function to check if user wants to cancel)
static DWORD WINAPI openmpt_Process( float * dstbuf, DWORD count ) {
xmpopenmpt_lock guard;
if ( !self->mod || self->num_channels == 0 ) {
return 0;
}
update_timeinfos( self->samplerate, 0 );
std::size_t frames = count / self->num_channels;
std::size_t frames_to_render = frames;
std::size_t frames_rendered = 0;
while ( frames_to_render > 0 ) {
std::size_t frames_chunk = std::min( frames_to_render, static_cast<std::size_t>( ( self->samplerate + 99 ) / 100 ) ); // 100 Hz timing info update interval
switch ( self->num_channels ) {
case 1:
{
frames_chunk = self->mod->read( self->samplerate, frames_chunk, dstbuf );
}
break;
case 2:
{
frames_chunk = self->mod->read_interleaved_stereo( self->samplerate, frames_chunk, dstbuf );
}
break;
case 4:
{
frames_chunk = self->mod->read_interleaved_quad( self->samplerate, frames_chunk, dstbuf );
}
break;
}
dstbuf += frames_chunk * self->num_channels;
if ( frames_chunk == 0 ) {
break;
}
update_timeinfos( self->samplerate, frames_chunk );
frames_to_render -= frames_chunk;
frames_rendered += frames_chunk;
}
if ( frames_rendered == 0 ) {
return 0;
}
return frames_rendered * self->num_channels;
}
static void add_names( std::ostream & str, const std::string & title, const std::vector<std::string> & names, int display_offset ) {
if ( names.size() > 0 ) {
bool valid = false;
for ( std::size_t i = 0; i < names.size(); i++ ) {
if ( names[i] != "" ) {
valid = true;
}
}
if ( !valid ) {
return;
}
str << title << " Names:" << "\r";
for ( std::size_t i = 0; i < names.size(); i++ ) {
str << std::setfill('0') << std::setw(2) << (display_offset + i) << std::setw(0) << "\t" << convert_to_native( names[i] ) << "\r";
}
str << "\r";
}
}
static void WINAPI openmpt_GetSamples( char * buf ) {
if ( !self->mod ) {
clear_xmplay_string( buf );
return;
}
std::ostringstream str;
add_names( str, "Instrument", self->mod->get_instrument_names(), 1 );
add_names( str, "Sample", self->mod->get_sample_names(), 1 );
add_names( str, "Channel", self->mod->get_channel_names(), 1 );
add_names( str, "Order", self->mod->get_order_names(), 0 );
add_names( str, "Pattern", self->mod->get_pattern_names(), 0 );
write_xmplay_string( buf, str.str() );
}
static DWORD WINAPI openmpt_GetSubSongs( float * length ) {
*length = 0.0f;
for ( auto sub_length : self->subsong_lengths ) {
*length += sub_length;
}
return static_cast<DWORD>( self->subsong_lengths.size() );
}
enum ColorIndex
{
col_background = 0,
col_unknown,
col_text,
col_empty,
col_instr,
col_vol,
col_pitch,
col_global,
col_max
};
static ColorIndex effect_type_to_color_index( openmpt::ext::pattern_vis::effect_type effect_type ) {
switch ( effect_type ) {
case openmpt::ext::pattern_vis::effect_unknown: return col_unknown; break;
case openmpt::ext::pattern_vis::effect_general: return col_text ; break;
case openmpt::ext::pattern_vis::effect_global : return col_global ; break;
case openmpt::ext::pattern_vis::effect_volume : return col_vol ; break;
case openmpt::ext::pattern_vis::effect_panning: return col_instr ; break;
case openmpt::ext::pattern_vis::effect_pitch : return col_pitch ; break;
default: return col_unknown; break;
}
}
const struct Columns
{
int num_chars;
int color;
} pattern_columns[] = {
{ 3, col_text }, // C-5
{ 2, col_instr }, // 01
{ 3, col_vol }, // v64
{ 3, col_pitch }, // EFF
};
static const int max_cols = 4;
static void assure_width( std::string & str, std::size_t width ) {
if ( str.length() == width ) {
return;
} else if ( str.length() < width ) {
str += std::string( width - str.length(), ' ' );
} else if ( str.length() > width ) {
str = str.substr( 0, width );
}
}
struct ColorRGBA
{
uint8_t r, g, b, a;
};
union Color
{
ColorRGBA rgba;
COLORREF dw;
};
static_assert(sizeof(Color) == 4);
HDC visDC;
HGDIOBJ visbitmap;
Color viscolors[col_max];
HPEN vispens[col_max];
HBRUSH visbrushs[col_max];
HFONT visfont;
static int last_pattern = -1;
static Color invert_color( Color c ) {
Color res;
res.rgba.a = c.rgba.a;
res.rgba.r = 255 - c.rgba.r;
res.rgba.g = 255 - c.rgba.g;
res.rgba.b = 255 - c.rgba.b;
return res;
}
static BOOL WINAPI VisOpen(DWORD colors[3]) {
xmpopenmpt_lock guard;
visDC = 0;
visbitmap = 0;
visfont = 0;
viscolors[col_background].dw = colors[0];
viscolors[col_unknown].dw = colors[1];
viscolors[col_text].dw = colors[2];
viscolors[col_global] = invert_color( viscolors[col_background] );
const int r = viscolors[col_text].rgba.r, g = viscolors[col_text].rgba.g, b = viscolors[col_text].rgba.b;
viscolors[col_empty].rgba.r = static_cast<std::uint8_t>( (r + viscolors[col_background].rgba.r) / 2 );
viscolors[col_empty].rgba.g = static_cast<std::uint8_t>( (g + viscolors[col_background].rgba.g) / 2 );
viscolors[col_empty].rgba.b = static_cast<std::uint8_t>( (b + viscolors[col_background].rgba.b) / 2 );
viscolors[col_empty].rgba.a = 0;
#define MIXCOLOR(col, c1, c2, c3) { \
viscolors[col] = viscolors[col_text]; \
int mix = viscolors[col].rgba.c1 + 0xA0; \
viscolors[col].rgba.c1 = static_cast<std::uint8_t>( mix ); \
if ( mix > 0xFF ) { \
viscolors[col].rgba.c2 = std::max( static_cast<std::uint8_t>( c2 - viscolors[col].rgba.c1 / 2 ), std::uint8_t(0) ); \
viscolors[col].rgba.c3 = std::max( static_cast<std::uint8_t>( c3 - viscolors[col].rgba.c1 / 2 ), std::uint8_t(0) ); \
viscolors[col].rgba.c1 = 0xFF; \
} }
MIXCOLOR(col_instr, g, r, b);
MIXCOLOR(col_vol, b, r, g);
MIXCOLOR(col_pitch, r, g, b);
#undef MIXCOLOR
for( int i = 0; i < col_max; ++i ) {
vispens[i] = CreatePen( PS_SOLID, 1, viscolors[i].dw );
visbrushs[i] = CreateSolidBrush( viscolors[i].dw );
}
clear_current_timeinfo();
if ( !self->mod ) {
return FALSE;
}
return TRUE;
}
static void WINAPI VisClose() {
xmpopenmpt_lock guard;
for( int i = 0; i < col_max; ++i ) {
DeletePen( vispens[i] );
DeleteBrush( visbrushs[i] );
}
DeleteFont( visfont );
DeleteBitmap( visbitmap );
if ( visDC ) {
DeleteDC( visDC );
}
}
static void WINAPI VisSize( HDC /* dc */ , SIZE * /* size */ ) {
xmpopenmpt_lock guard;
last_pattern = -1; // Force redraw
}
#if 0
static BOOL WINAPI VisRender( DWORD * /* buf */ , SIZE /* size */ , DWORD /* flags */ ) {
xmpopenmpt_lock guard;
return FALSE;
}
#endif
static int get_pattern_width( int chars_per_channel, int spaces_per_channel, int num_cols, int text_size, int channels )
{
int pattern_width = ((chars_per_channel * channels + 4) * text_size) + (spaces_per_channel * channels + channels - (num_cols == 1 ? 1 : 2)) * (text_size / 2);
return pattern_width;
}
static BOOL WINAPI VisRenderDC( HDC dc, SIZE size, DWORD flags ) {
xmpopenmpt_lock guard;
RECT rect;
if ( !visfont ) {
// Force usage of a nice monospace font
LOGFONT logfont;
GetObject ( GetCurrentObject( dc, OBJ_FONT ), sizeof(logfont), &logfont );
_tcscpy( logfont.lfFaceName, TEXT("Lucida Console") );
visfont = CreateFontIndirect( &logfont );
}
SIZE text_size;
SelectFont( dc, visfont );
if ( GetTextExtentPoint32( dc, TEXT("W"), 1, &text_size ) == FALSE ) {
return FALSE;
}
if ( flags & XMPIN_VIS_INIT ) {
last_pattern = -1;
}
timeinfo info = lookup_timeinfo( xmpfstatus->GetTime() );
if ( !info.valid ) {
RECT bgrect;
bgrect.top = 0;
bgrect.left = 0;
bgrect.right = size.cx;
bgrect.bottom = size.cy;
FillRect(dc, &bgrect, visbrushs[col_background]);
return TRUE;
}
int pattern = info.pattern;
int current_row = info.row;
const std::size_t channels = self->mod->get_num_channels();
const std::size_t rows = self->mod->get_pattern_num_rows( pattern );
const std::size_t num_half_chars = std::max( static_cast<std::size_t>( 2 * size.cx / text_size.cx ), std::size_t(8) ) - 8;
//const std::size_t num_rows = size.cy / text_size.cy;
// Spaces between pattern components are half width, full space at channel end
const std::size_t half_chars_per_channel = num_half_chars / channels;
std::size_t chars_per_channel, spaces_per_channel;
std::size_t num_cols;
std::size_t col0_width = pattern_columns[0].num_chars;
for ( num_cols = sizeof ( pattern_columns ) / sizeof ( pattern_columns[0] ); num_cols >= 1; num_cols-- ) {
chars_per_channel = 0;
spaces_per_channel = num_cols > 1 ? num_cols : 0; // No extra space if we only display notes
for ( std::size_t i = 0; i < num_cols; i++ ) {
chars_per_channel += pattern_columns[i].num_chars;
}
if ( half_chars_per_channel >= chars_per_channel * 2 + spaces_per_channel + 1 || num_cols == 1 ) {
break;
}
}
if ( !self->settings.vis_allow_scroll ) {
if ( num_cols == 1 ) {
spaces_per_channel = 0;
while ( get_pattern_width( chars_per_channel, spaces_per_channel, num_cols, text_size.cx, channels ) > size.cx && chars_per_channel > 1 ) {
chars_per_channel -= 1;
}
col0_width = chars_per_channel;
chars_per_channel = col0_width;
}
}
int pattern_width = get_pattern_width( chars_per_channel, spaces_per_channel, num_cols, text_size.cx, channels );
int pattern_height = rows * text_size.cy;
if ( !visDC || last_pattern != pattern ) {
DeleteBitmap( visbitmap );
if ( visDC ) {
DeleteDC( visDC );
}
visDC = CreateCompatibleDC( dc );
visbitmap = CreateCompatibleBitmap( dc, pattern_width, pattern_height );
SelectBitmap( visDC, visbitmap );
SelectBrush( visDC, vispens[col_unknown] );
SelectBrush( visDC, visbrushs[col_background] );
SelectFont( visDC, visfont );
rect.top = 0;
rect.left = 0;
rect.right = pattern_width;
rect.bottom = pattern_height;
FillRect( visDC, &rect, visbrushs[col_background] );
SetBkColor( visDC, viscolors[col_background].dw );
POINT pos;
pos.y = 0;
for ( std::size_t row = 0; row < rows; row++ ) {
pos.x = 0;
std::ostringstream s;
s.imbue(std::locale::classic());
s << std::setfill('0') << std::setw(3) << row;
const std::string rowstr = s.str();
SetTextColor( visDC, viscolors[1].dw );
TextOutA( visDC, pos.x, pos.y, rowstr.c_str(), rowstr.length() );
pos.x += 4 * text_size.cx;
for ( std::size_t channel = 0; channel < channels; ++channel ) {
struct coldata {
std::string text;
bool is_empty;
ColorIndex color;
coldata()
: is_empty(false)
, color(col_unknown)
{
return;
}
};
coldata cols[max_cols];
for ( std::size_t col = 0; col < max_cols; ++col ) {
switch ( col ) {
case 0:
cols[col].text = self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_note );
break;
case 1:
cols[col].text = self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_instrument );
break;
case 2:
cols[col].text = self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_volumeffect )
+ self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_volume );
break;
case 3:
cols[col].text = self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_effect )
+ self->mod->format_pattern_row_channel_command( pattern, row, channel, openmpt::module::command_parameter );
break;
}
int color = pattern_columns[col].color;
if ( self->pattern_vis && ( col == 2 || col == 3 ) ) {
if ( col == 2 ) {
color = effect_type_to_color_index( self->pattern_vis->get_pattern_row_channel_volume_effect_type( pattern, row, channel ) );
}
if ( col == 3 ) {
color = effect_type_to_color_index( self->pattern_vis->get_pattern_row_channel_effect_type( pattern, row, channel ) );
}
}
switch ( cols[col].text[0] ) {
case ' ':
[[fallthrough]];
case '.':
cols[col].is_empty = true;
[[fallthrough]];
case '^':
[[fallthrough]];
case '=':
[[fallthrough]];
case '~':
color = col_empty;
break;
}
cols[col].color = (ColorIndex)color;
}
if ( num_cols <= 3 && !cols[3].is_empty ) {
if ( cols[2].is_empty ) {
cols[2] = cols[3];
} else if ( cols[0].is_empty ) {
cols[0] = cols[3];
}
}
if ( num_cols <= 2 && !cols[2].is_empty ) {
if ( cols[0].is_empty ) {
cols[0] = cols[2];
}
}
for ( std::size_t col = 0; col < num_cols; ++col ) {
std::size_t col_width = ( num_cols > 1 ) ? pattern_columns[col].num_chars : col0_width;
assure_width( cols[col].text, col_width );
SetTextColor( visDC, viscolors[cols[col].color].dw );
TextOutA( visDC, pos.x, pos.y, cols[col].text.c_str(), cols[col].text.length() );
pos.x += col_width * text_size.cx + text_size.cx / 2;
}
// Extra padding
if ( num_cols > 1 ) {
pos.x += text_size.cx / 2;
}
}
pos.y += text_size.cy;
}
}
rect.top = 0;
rect.left = 0;
rect.right = size.cx;
rect.bottom = size.cy;
FillRect( dc, &rect, visbrushs[col_background] );
int offset_x = (size.cx - pattern_width) / 2;
int offset_y = (size.cy - text_size.cy) / 2 - current_row * text_size.cy;
int src_offset_x = 0;
int src_offset_y = 0;
if ( offset_x < 0 ) {
src_offset_x -= offset_x;
pattern_width = std::min( static_cast<int>( pattern_width + offset_x ), static_cast<int>( size.cx ) );
offset_x = 0;
}
if ( offset_y < 0 ) {
src_offset_y -= offset_y;
pattern_height = std::min( static_cast<int>( pattern_height + offset_y ), static_cast<int>( size.cy ) );
offset_y = 0;
}
BitBlt( dc, offset_x, offset_y, pattern_width, pattern_height, visDC, src_offset_x, src_offset_y , SRCCOPY );
// Highlight current row
rect.left = offset_x;
rect.top = (size.cy - text_size.cy) / 2;
rect.right = rect.left + pattern_width;
rect.bottom = rect.top + text_size.cy;
InvertRect( dc, &rect );
last_pattern = pattern;
return TRUE;
}
#if 0
static void WINAPI VisButton( DWORD /* x */ , DWORD /* y */ ) {
//xmpopenmpt_lock guard;
}
#endif
static XMPIN xmpin = {
#ifdef USE_XMPLAY_FILE_IO
0 |
#else
XMPIN_FLAG_NOXMPFILE |
#endif
XMPIN_FLAG_CONFIG | XMPIN_FLAG_LOOP,
xmp_openmpt_string,
nullptr, // "libopenmpt\0mptm/mptmz",
openmpt_About,
openmpt_Config,
openmpt_CheckFile,
openmpt_GetFileInfo,
openmpt_Open,
openmpt_Close,
nullptr, // reserved
openmpt_SetFormat,
openmpt_GetTags,
openmpt_GetInfoText,
openmpt_GetGeneralInfo,
openmpt_GetMessage,
openmpt_SetPosition,
openmpt_GetGranularity,
nullptr, // GetBuffering
openmpt_Process,
nullptr, // WriteFile
openmpt_GetSamples,
openmpt_GetSubSongs, // GetSubSongs
nullptr, // GetCues
nullptr, // GetDownloaded
"OpenMPT Pattern Display",
VisOpen,
VisClose,
VisSize,
/*VisRender,*/nullptr,
VisRenderDC,
/*VisButton,*/nullptr,
nullptr, // reserved2
openmpt_GetConfig,
openmpt_SetConfig
};
static const char * xmp_openmpt_default_exts = "OpenMPT\0mptm/mptmz";
static char * file_formats;
static void xmp_openmpt_on_dll_load() {
ZeroMemory( &xmpopenmpt_mutex, sizeof( xmpopenmpt_mutex ) );
#if defined(_MSC_VER)
#pragma warning(push)
#pragma warning(disable:28125) // The function 'InitializeCriticalSection' must be called from within a try/except block: The requirement might be conditional.
#endif // _MSC_VER
InitializeCriticalSection( &xmpopenmpt_mutex );
#if defined(_MSC_VER)
#pragma warning(pop)
#endif // _MSC_VER
std::vector<std::string> extensions = openmpt::get_supported_extensions();
std::string filetypes_string = "OpenMPT";
filetypes_string.push_back('\0');
bool first = true;
for ( const auto & ext : extensions ) {
if ( first ) {
first = false;
} else {
filetypes_string.push_back('/');
}
filetypes_string += ext;
}
filetypes_string.push_back('\0');
file_formats = (char*)HeapAlloc( GetProcessHeap(), 0, filetypes_string.size() );
if ( file_formats ) {
std::copy( filetypes_string.begin(), filetypes_string.end(), file_formats );
xmpin.exts = file_formats;
} else {
xmpin.exts = xmp_openmpt_default_exts;
}
self = new self_xmplay_t();
}
static void xmp_openmpt_on_dll_unload() {
delete self;
self = nullptr;
if ( xmpin.exts != xmp_openmpt_default_exts ) {
HeapFree(GetProcessHeap(), 0, (LPVOID)const_cast<char*>(xmpin.exts));
}
xmpin.exts = nullptr;
DeleteCriticalSection( &xmpopenmpt_mutex );
}
static XMPIN * XMPIN_GetInterface_cxx( DWORD face, InterfaceProc faceproc ) {
if ( face != XMPIN_FACE ) return nullptr;
xmpfin=(XMPFUNC_IN*)faceproc(XMPFUNC_IN_FACE);
xmpfmisc=(XMPFUNC_MISC*)faceproc(XMPFUNC_MISC_FACE);
xmpfregistry=(XMPFUNC_REGISTRY*)faceproc(XMPFUNC_REGISTRY_FACE);
xmpffile=(XMPFUNC_FILE*)faceproc(XMPFUNC_FILE_FACE);
xmpftext=(XMPFUNC_TEXT*)faceproc(XMPFUNC_TEXT_FACE);
xmpfstatus=(XMPFUNC_STATUS*)faceproc(XMPFUNC_STATUS_FACE);
// Register keyboard shortcuts
static constexpr std::pair<DWORD, const char *> shortcuts[] = {
{ openmpt_shortcut_ex | openmpt_shortcut_tempo_decrease, "OpenMPT - Decrease Tempo" },
{ openmpt_shortcut_ex | openmpt_shortcut_tempo_increase, "OpenMPT - Increase Tempo" },
{ openmpt_shortcut_ex | openmpt_shortcut_pitch_decrease, "OpenMPT - Decrease Pitch" },
{ openmpt_shortcut_ex | openmpt_shortcut_pitch_increase, "OpenMPT - Increase Pitch" },
{ openmpt_shortcut_ex | openmpt_shortcut_switch_interpolation, "OpenMPT - Switch Interpolation" },
};
XMPSHORTCUT cut;
cut.procex = &ShortcutHandler;
for ( const auto & shortcut : shortcuts ) {
cut.id = shortcut.first;
cut.text = shortcut.second;
xmpfmisc->RegisterShortcut( &cut );
}
self->settings.load();
return &xmpin;
}
extern "C" {
// XMPLAY expects a WINAPI (which is __stdcall) function using an undecorated symbol name.
#if defined(__GNUC__)
XMPIN * WINAPI XMPIN_GetInterface_( DWORD face, InterfaceProc faceproc );
XMPIN * WINAPI XMPIN_GetInterface_( DWORD face, InterfaceProc faceproc ) {
return XMPIN_GetInterface_cxx( face, faceproc );
}
#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wattribute-alias"
// clang-format off
__declspec(dllexport) void XMPIN_GetInterface() __attribute__((alias("XMPIN_GetInterface_@8")));
// clang-format on
#pragma GCC diagnostic pop
#else
XMPIN * WINAPI XMPIN_GetInterface( DWORD face, InterfaceProc faceproc ) {
return XMPIN_GetInterface_cxx( face, faceproc );
}
#pragma comment(linker, "/EXPORT:XMPIN_GetInterface=_XMPIN_GetInterface@8")
#endif
} // extern "C"
#if defined(MPT_WITH_MFC) && defined(_MFC_VER)
namespace libopenmpt {
namespace plugin {
void DllMainAttach() {
xmp_openmpt_on_dll_load();
}
void DllMainDetach() {
xmp_openmpt_on_dll_unload();
}
} // namespace plugin
} // namespace libopenmpt
#else
BOOL WINAPI DllMain( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved );
BOOL WINAPI DllMain( HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved ) {
static_cast<void>(hinstDLL);
static_cast<void>(lpvReserved);
switch ( fdwReason ) {
case DLL_PROCESS_ATTACH:
xmp_openmpt_on_dll_load();
break;
case DLL_PROCESS_DETACH:
xmp_openmpt_on_dll_unload();
break;
}
return TRUE;
}
#endif
#endif // NO_XMPLAY