void write(const service_ptr_t<file> & p_file,abort_callback & p_abort,const char * p_string,bool is_utf8)
{
p_file->seek(0,p_abort);
p_file->set_eof(p_abort);
if (is_utf8)
{
p_file->write_object(utf8_header,sizeof(utf8_header),p_abort);
p_file->write_object(p_string,strlen(p_string),p_abort);
}
else
{
#ifdef _WIN32
pfc::stringcvt::string_ansi_from_utf8 bah(p_string);
p_file->write_object(bah,bah.length(),p_abort);
#else
throw exception_io_data();
#endif
}
}
write_xid6( service_ptr_t<file> & p_file, const file_info & p_info, abort_callback & p_abort )
: m_file( p_file ), m_abort( p_abort )
{
pfc::stringcvt::string_ansi_from_utf8 converter;
t_filesize offset_tag_start;
const char * value;
t_uint32 int32 = 0;
p_file->seek_ex( 0, file::seek_from_eof, p_abort );
p_file->write_object( xid6_signature, 4, p_abort );
p_file->write_object_t( int32, p_abort );
offset_tag_start = p_file->get_position( p_abort );
value = p_info.meta_get( "title", 0 );
if ( value )
{
converter.convert( value );
if ( strlen( converter ) > 32 ) write_string( XID_SONG, converter );
}
value = p_info.meta_get( "album", 0 );
if ( value )
{
converter.convert( value );
if ( strlen( converter ) > 32 ) write_string( XID_GAME, converter );
}
value = p_info.meta_get( "artist", 0 );
if ( value )
{
converter.convert( value );
if ( strlen( converter ) > 32 ) write_string( XID_ARTIST, converter );
}
value = p_info.meta_get( "dumper", 0 );
if ( value )
{
converter.convert( value );
if ( strlen( converter ) > 16 ) write_string( XID_DUMPER, converter );
}
value = p_info.meta_get( "comment", 0 );
if ( value )
{
converter.convert( value );
if ( strlen( converter ) > 32 ) write_string( XID_CMNTS, converter );
}
value = p_info.meta_get( "OST", 0 );
if ( value )
{
converter.convert( value );
write_string( XID_OST, converter );
}
value = p_info.meta_get( "discnumber", 0 );
if ( value )
{
char * end;
unsigned disc = strtoul( value, &end, 10 );
if ( !*end && disc > 0 && disc <= 9 )
write_data( XID_DISC, disc );
}
value = p_info.meta_get( "tracknumber", 0 );
if ( value )
{
char * end;
unsigned track = strtoul( value, &end, 10 );
if ( track > 0 && track < 100 )
write_data( XID_TRACK, track * 0x100 + *end );
}
value = p_info.meta_get( "copyright", 0 );
if ( value )
{
char * end;
unsigned copyright_year = strtoul( value, &end, 10 );
if ( copyright_year > 0 && copyright_year < 65536 )
write_data( XID_COPY, copyright_year );
while ( *end && *end == ' ' ) end++;
if ( *end )
{
converter.convert( end );
write_string( XID_PUB, converter );
}
}
value = p_info.info_get( field_length );
if ( value )
{
char * end;
unsigned length = strtoul( value, &end, 10 );
if ( !*end && length > 0 && ( length % 1000 || length > 999000 ) )
write_int( XID_INTRO, length * 64 );
}
value = p_info.info_get( field_fade );
if ( value )
{
char * end;
unsigned fade = strtoul( value, &end, 10 );
if ( !*end && fade > 99999 )
write_int( XID_FADE, fade * 64 );
}
t_filesize offset = p_file->get_position( p_abort );
offset -= offset_tag_start;
if ( offset > ( 1 << 30 ) ) throw exception_io_data();
if ( offset )
{
int32 = t_uint32( offset );
p_file->seek( offset_tag_start - 4, p_abort );
p_file->write_lendian_t( int32, p_abort );
}
else
{
p_file->seek( offset_tag_start - 8, p_abort );
p_file->set_eof( p_abort );
}
}
static void write_id666( service_ptr_t<file> & p_file, const file_info & p_info, abort_callback & p_abort )
{
char buffer[32];
const char * value;
pfc::stringcvt::string_ansi_from_utf8 converter;
p_file->seek( 0x23, p_abort );
buffer [0] = 26;
p_file->write_object( buffer, 1, p_abort );
p_file->seek( offsetof( Spc_Emu::header_t, song ), p_abort );
memset( buffer, 0, sizeof( buffer ) );
value = p_info.meta_get( "title", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 32 );
}
p_file->write_object( buffer, 32, p_abort );
memset( buffer, 0, sizeof( buffer ) );
value = p_info.meta_get( "album", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 32 );
}
p_file->write_object( buffer, 32, p_abort );
memset( buffer, 0, 16 );
value = p_info.meta_get( "dumper", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 16 );
}
p_file->write_object( buffer, 16, p_abort );
memset( buffer, 0, sizeof( buffer ) );
value = p_info.meta_get( "comment", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 32 );
}
p_file->write_object( buffer, 32, p_abort );
memset( buffer, 0, 11 );
value = p_info.meta_get( "date", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 11 );
}
p_file->write_object( buffer, 11, p_abort );
memset( buffer, 0, 3 );
value = p_info.info_get( field_length );
if ( value )
{
size_t length = strlen( value );
if ( length > 3 )
{
length -= 3;
strncpy( buffer, value, min( 3, length ) );
}
}
p_file->write_object( buffer, 3, p_abort );
memset( buffer, 0, 5 );
value = p_info.info_get( field_fade );
if ( value ) strncpy( buffer, value, 5 );
p_file->write_object( buffer, 5, p_abort );
memset( buffer, 0, sizeof( buffer ) );
value = p_info.meta_get( "artist", 0 );
if ( value )
{
converter.convert( value );
strncpy( buffer, converter, 32 );
}
p_file->write_object( buffer, 32, p_abort );
}