SidTune::LoadStatus SidTune::PRG_fileSupport(const char *fileName,
Buffer_sidtt<const uint_least8_t>& dataBuf)
{
const char *ext = SidTuneTools::fileExtOfPath(const_cast<char *>(fileName));
if ( (MYSTRICMP(ext,".prg")!=0) &&
(MYSTRICMP(ext,".c64")!=0) )
{
return LOAD_NOT_MINE;
}
info.formatString = _sidtune_format_prg;
if (dataBuf.len() < 2)
{
info.formatString = _sidtune_truncated;
return LOAD_ERROR;
}
// Automatic settings
info.songs = 1;
info.startSong = 1;
info.compatibility = SIDTUNE_COMPATIBILITY_BASIC;
info.numberOfInfoStrings = 0;
// Create the speed/clock setting table.
convertOldStyleSpeedToTables(~0, info.clockSpeed);
return LOAD_OK;
}
void prg::load()
{
info->m_formatString = TXT_FORMAT_PRG;
// Automatic settings
info->m_songs = 1;
info->m_startSong = 1;
info->m_compatibility = SidTuneInfo::COMPATIBILITY_BASIC;
// Create the speed/clock setting table.
convertOldStyleSpeedToTables(~0, info->m_clockSpeed);
}
SidTune::LoadStatus SidTune::SID_fileSupport(Buffer_sidtt<const uint_least8_t>& dataBuf,
Buffer_sidtt<const uint_least8_t>& sidBuf)
{
uint_least32_t parseLen = sidBuf.len();
// Make sure SID buffer pointer is not zero.
// Check for a minimum file size. If it is smaller, we will not proceed.
if (parseLen<sidMinFileSize)
{
return LOAD_NOT_MINE;
}
// Here use a smart pointer to prevent access violation errors.
const char* pParseBuf = (const char*)sidBuf.get();
// First line has to contain the exact identification string.
if ( SidTuneTools::myStrNcaseCmp( pParseBuf, keyword_id ) == 0 )
{
// At least the ID was found, so set a default error message.
m_info.formatString = text_truncatedError;
// Defaults.
fileOffset = 0; // no header in separate data file
m_info.sidChipBase1 = 0xd400;
m_info.sidChipBase2 = 0;
m_info.musPlayer = false;
m_info.numberOfInfoStrings = 0;
uint_least32_t oldStyleSpeed = 0;
// Flags for required entries.
bool hasAddress = false,
hasName = false,
hasAuthor = false,
hasReleased = false,
hasSongs = false,
hasSpeed = false,
hasInitAddr = false;
// Using a temporary instance of an input string chunk.
#ifdef HAVE_EXCEPTIONS
char* pParseChunk = new(std::nothrow) char[parseChunkLen+1];
#else
char* pParseChunk = new char[parseChunkLen+1];
#endif
if ( pParseChunk == 0 )
{
m_info.formatString = text_noMemError;
return LOAD_ERROR;
}
// Parse as long we have not collected all ``required'' entries.
//while ( !hasAddress || !hasName || !hasAuthor || !hasCopyright
// || !hasSongs || !hasSpeed )
// Above implementation is wrong, we need to get all known
// fields and then check if all ``required'' ones were found.
do
{
uint_least32_t restLen;
{
const char* pNextLine = SidTuneTools::returnNextLine( pParseBuf, parseLen );
if ( pNextLine != 0 )
{
// Calculate number of chars between current pos and next line.
restLen = (uint_least32_t)(pNextLine - pParseBuf);
}
else
{
// Calculate number of chars between current pos and end of buf.
restLen = parseLen;
}
}
#ifdef HAVE_SSTREAM
std::string sParse( pParseBuf, restLen );
// Create whitespace eating (!) input string stream.
std::istringstream parseStream( sParse );
// A second one just for copying.
std::istringstream parseCopyStream( sParse );
#else
std::istrstream parseStream((char *) pParseBuf, restLen );
std::istrstream parseCopyStream((char *) pParseBuf, restLen );
#endif
if ( !parseStream || !parseCopyStream )
{
break;
}
// Now copy the next X characters except white-spaces.
for ( uint_least16_t i = 0; i < parseChunkLen; i++ )
{
char c;
parseCopyStream >> c;
pParseChunk[i] = c;
}
pParseChunk[parseChunkLen]=0;
// Now check for the possible keywords.
// ADDRESS
if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_address ) == 0 )
{
SidTuneTools::skipToEqu( parseStream );
m_info.loadAddr = (uint_least16_t)SidTuneTools::readHex( parseStream );
m_info.initAddr = m_info.loadAddr;
hasInitAddr = true;
if ( parseStream )
{
m_info.initAddr = (uint_least16_t)SidTuneTools::readHex( parseStream );
if ( !parseStream )
break;
m_info.playAddr = (uint_least16_t)SidTuneTools::readHex( parseStream );
hasAddress = true;
}
}
// NAME
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_name ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[0][0],SIDTUNE_MAX_CREDIT_STRLEN);
m_info.infoString[0] = &infoString[0][0];
hasName = true;
}
// AUTHOR
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_author ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[1][0],SIDTUNE_MAX_CREDIT_STRLEN);
m_info.infoString[1] = &infoString[1][0];
hasAuthor = true;
}
// COPYRIGHT
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_copyright ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[2][0],SIDTUNE_MAX_CREDIT_STRLEN);
m_info.infoString[2] = &infoString[2][0];
hasReleased = true;
}
// RELEASED
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_released ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[2][0],SIDTUNE_MAX_CREDIT_STRLEN);
m_info.infoString[2] = &infoString[2][0];
hasReleased = true;
}
// SONGS
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_songs ) == 0 )
{
SidTuneTools::skipToEqu( parseStream );
m_info.songs = (uint_least16_t)SidTuneTools::readDec( parseStream );
m_info.startSong = (uint_least16_t)SidTuneTools::readDec( parseStream );
hasSongs = true;
}
// SPEED
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_speed ) == 0 )
{
SidTuneTools::skipToEqu( parseStream );
oldStyleSpeed = SidTuneTools::readHex(parseStream);
hasSpeed = true;
}
// SIDSONG
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_musPlayer ) == 0 )
{
m_info.musPlayer = true;
}
// RELOC
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_reloc ) == 0 )
{
m_info.relocStartPage = (uint_least8_t)SidTuneTools::readHex( parseStream );
if ( !parseStream )
break;
m_info.relocPages = (uint_least8_t)SidTuneTools::readHex( parseStream );
}
// CLOCK
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_clock ) == 0 )
{
char clock[8];
SidTuneTools::copyStringValueToEOL(pParseBuf,clock,sizeof(clock));
if ( SidTuneTools::myStrNcaseCmp( clock, "UNKNOWN" ) == 0 )
m_info.clockSpeed = SIDTUNE_CLOCK_UNKNOWN;
else if ( SidTuneTools::myStrNcaseCmp( clock, "PAL" ) == 0 )
m_info.clockSpeed = SIDTUNE_CLOCK_PAL;
else if ( SidTuneTools::myStrNcaseCmp( clock, "NTSC" ) == 0 )
m_info.clockSpeed = SIDTUNE_CLOCK_NTSC;
else if ( SidTuneTools::myStrNcaseCmp( clock, "ANY" ) == 0 )
m_info.clockSpeed = SIDTUNE_CLOCK_ANY;
}
// SIDMODEL
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_sidModel ) == 0 )
{
char model[8];
SidTuneTools::copyStringValueToEOL(pParseBuf,model,sizeof(model));
if ( SidTuneTools::myStrNcaseCmp( model, "UNKNOWN" ) == 0 )
m_info.sidModel1 = SIDTUNE_SIDMODEL_UNKNOWN;
else if ( SidTuneTools::myStrNcaseCmp( model, "6581" ) == 0 )
m_info.sidModel1 = SIDTUNE_SIDMODEL_6581;
else if ( SidTuneTools::myStrNcaseCmp( model, "8580" ) == 0 )
m_info.sidModel1 = SIDTUNE_SIDMODEL_8580;
else if ( SidTuneTools::myStrNcaseCmp( model, "ANY" ) == 0 )
m_info.sidModel1 = SIDTUNE_SIDMODEL_ANY;
}
// COMPATIBILITY
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_compatibility ) == 0 )
{
char comp[6];
SidTuneTools::copyStringValueToEOL(pParseBuf,comp,sizeof(comp));
if ( SidTuneTools::myStrNcaseCmp( comp, "C64" ) == 0 )
m_info.compatibility = SIDTUNE_COMPATIBILITY_C64;
else if ( SidTuneTools::myStrNcaseCmp( comp, "PSID" ) == 0 )
m_info.compatibility = SIDTUNE_COMPATIBILITY_PSID;
else if ( SidTuneTools::myStrNcaseCmp( comp, "R64" ) == 0 )
m_info.compatibility = SIDTUNE_COMPATIBILITY_R64;
else if ( SidTuneTools::myStrNcaseCmp( comp, "BASIC" ) == 0 )
m_info.compatibility = SIDTUNE_COMPATIBILITY_BASIC;
}
parseLen -= restLen;
pParseBuf += restLen;
// Skip to next line. Leave loop, if none.
} while (parseLen != 0);
delete[] pParseChunk;
if ( !(hasName && hasAuthor && hasReleased && hasSongs) )
{ // Something is missing (or damaged ?).
// Error string set above.
return LOAD_ERROR;
}
switch ( m_info.compatibility )
{
case SIDTUNE_COMPATIBILITY_PSID:
case SIDTUNE_COMPATIBILITY_C64:
if ( !(hasAddress && hasSpeed) )
return LOAD_ERROR; // Error set above
break;
case SIDTUNE_COMPATIBILITY_R64:
if ( !(hasInitAddr || hasAddress) )
return LOAD_ERROR; // Error set above
// Allow user to provide single address
if ( !hasAddress )
m_info.loadAddr = 0;
else if ( m_info.loadAddr || m_info.playAddr )
{
m_info.formatString = text_invalidError;
return LOAD_ERROR;
}
// Deliberate run on
case SIDTUNE_COMPATIBILITY_BASIC:
oldStyleSpeed = ~0;
}
// Create the speed/clock setting table.
convertOldStyleSpeedToTables(oldStyleSpeed, m_info.clockSpeed);
m_info.numberOfInfoStrings = 3;
// We finally accept the input data.
m_info.formatString = text_format;
if ( m_info.musPlayer && !dataBuf.isEmpty() )
return MUS_load (dataBuf);
return LOAD_OK;
}
bool SidTune::INFO_fileSupport(const void* dataBuffer, uint_least32_t dataLength,
const void* infoBuffer, uint_least32_t infoLength)
{
// Require a first minimum safety size.
uint_least32_t minSize = 1+sizeof(struct DiskObject);
if (infoLength < minSize)
return( false );
const DiskObject *dobject = (const DiskObject *)infoBuffer;
// Require Magic_Id in the first two bytes of the file.
if ( endian_16(dobject->Magic[0],dobject->Magic[1]) != WB_DISKMAGIC )
return false;
// Only version 1.x supported.
if ( endian_16(dobject->Version[0],dobject->Version[1]) != WB_DISKVERSION )
return false;
// A PlaySID icon must be of type project.
if ( dobject->Type != WB_PROJECT )
return false;
uint i; // general purpose index variable
// We want to skip a possible Gadget Image item.
const char *icon = (const char*)infoBuffer + sizeof(DiskObject);
if ( (endian_16(dobject->Gadget.Flags[0],dobject->Gadget.Flags[1]) & GFLG_GADGIMAGE) == 0)
{
// Calculate size of gadget borders (vector image).
if (dobject->Gadget.pGadgetRender[0] |
dobject->Gadget.pGadgetRender[1] |
dobject->Gadget.pGadgetRender[2] |
dobject->Gadget.pGadgetRender[3]) // border present?
{
// Require another minimum safety size.
minSize += sizeof(struct Border);
if (infoLength < minSize)
return( false );
const Border *brd = (const Border *)icon;
icon += sizeof(Border);
icon += brd->Count * (2+2); // pair of uint_least16_t
}
if (dobject->Gadget.pSelectRender[0] |
dobject->Gadget.pSelectRender[1] |
dobject->Gadget.pSelectRender[2] |
dobject->Gadget.pSelectRender[3]) // alternate border present?
{
// Require another minimum safety size.
minSize += sizeof(Border);
if (infoLength < minSize)
return( false );
const Border *brd = (const Border *)icon;
icon += sizeof(Border);
icon += brd->Count * (2+2); // pair of uint_least16_t
}
}
else
{
// Calculate size of gadget images (bitmap image).
if (dobject->Gadget.pGadgetRender[0] |
dobject->Gadget.pGadgetRender[1] |
dobject->Gadget.pGadgetRender[2] |
dobject->Gadget.pGadgetRender[3]) // image present?
{
// Require another minimum safety size.
minSize += sizeof(Image);
if (infoLength < minSize)
return( false );
const Image *img = (const Image *)icon;
icon += sizeof(Image);
uint_least32_t imgsize = 0;
for(i=0;i<endian_16(img->Depth[0],img->Depth[1]);i++)
{
if ( (img->PlanePick & (1<<i)) != 0)
{
// NOTE: Intuition relies on PlanePick to know how many planes
// of data are found in ImageData. There should be no more
// '1'-bits in PlanePick than there are planes in ImageData.
imgsize++;
}
}
imgsize *= ((endian_16(img->Width[0],img->Width[1])+15)/16)*2; // bytes per line
imgsize *= endian_16(img->Height[0],img->Height[1]); // bytes per plane
icon += imgsize;
}
if (dobject->Gadget.pSelectRender[0] |
dobject->Gadget.pSelectRender[1] |
dobject->Gadget.pSelectRender[2] |
dobject->Gadget.pSelectRender[3]) // alternate image present?
{
// Require another minimum safety size.
minSize += sizeof(Image);
if (infoLength < minSize)
return( false );
const Image *img = (const Image *)icon;
icon += sizeof(Image);
uint_least32_t imgsize = 0;
for(i=0;i<endian_16(img->Depth[0],img->Depth[1]);i++)
{
if ( (img->PlanePick & (1<<i)) != 0)
{
// NOTE: Intuition relies on PlanePick to know how many planes
// of data are found in ImageData. There should be no more
// '1'-bits in PlanePick than there are planes in ImageData.
imgsize++;
}
}
imgsize *= ((endian_16(img->Width[0],img->Width[1])+15)/16)*2; // bytes per line
imgsize *= endian_16(img->Height[0],img->Height[1]); // bytes per plane
icon += imgsize;
}
}
// Here use a smart pointer to prevent access violation errors.
SmartPtr_sidtt<const char> spTool((const char*)icon,infoLength-(uint_least32_t)(icon-(const char*)infoBuffer));
if ( !spTool )
{
info.formatString = _sidtune_txt_corruptError;
return false;
}
// A separate safe buffer is used for each tooltype string.
#ifdef HAVE_EXCEPTIONS
SmartPtr_sidtt<char> spCmpBuf(new(std::nothrow) char[safeBufferSize],safeBufferSize,true);
#else
SmartPtr_sidtt<char> spCmpBuf(new char[safeBufferSize],safeBufferSize,true);
#endif
if ( !spCmpBuf )
{
info.formatString = _sidtune_txt_noMemError;
return false;
}
#ifndef SID_HAVE_BAD_COMPILER
char* cmpBuf = spCmpBuf.tellBegin();
#else
// This should not be necessary, but for some reason
// Microsoft Visual C++ says spCmpBuf is const...
char* cmpBuf = (char*) spCmpBuf.tellBegin();
#endif
// Skip default tool.
spTool += endian_32(spTool[0],spTool[1],spTool[2],spTool[3]) + 4;
// Defaults.
fileOffset = 0; // no header in separate data file
info.sidChipBase1 = 0xd400;
info.sidChipBase2 = 0;
info.musPlayer = false;
info.numberOfInfoStrings = 0;
uint_least32_t oldStyleSpeed = 0;
// Flags for required entries.
bool hasAddress = false,
hasName = false,
hasAuthor = false,
hasCopyright = false,
hasSongs = false,
hasSpeed = false,
hasUnknownChunk = false;
// Calculate number of tooltype strings.
i = (endian_32(spTool[0],spTool[1],spTool[2],spTool[3])/4) - 1;
spTool += 4; // skip size info
while( i-- > 0 )
{
// Get length of this tool.
uint_least32_t toolLen = endian_32(spTool[0],spTool[1],spTool[2],spTool[3]);
spTool += 4; // skip tool length
// Copy item to safe buffer.
for ( uint ci = 0; ci < toolLen; ci++ )
{
#ifndef SID_HAVE_BAD_COMPILER
spCmpBuf[ci] = spTool[ci];
#else
// This should not be necessary, but for some reason
// Microsoft Visual C++ says spCmpBuf is const...
(*((char*) (&spCmpBuf[ci]))) = (char) spTool[ci];
#endif
}
if ( !(spTool&&spCmpBuf) )
{
return false;
}
// Now check all possible keywords.
if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_address) == 0 )
{
const char *addrIn= cmpBuf + strlen(_sidtune_keyword_address);
int len = toolLen - strlen(_sidtune_keyword_address);
int pos = 0;
info.loadAddr = (uint_least16_t)SidTuneTools::readHex( addrIn, len, pos );
info.initAddr = (uint_least16_t)SidTuneTools::readHex( addrIn, len, pos );
info.playAddr = (uint_least16_t)SidTuneTools::readHex( addrIn, len, pos );
if ( pos >= len )
{
return false;
}
hasAddress = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_songs) == 0 )
{
const char *numIn = cmpBuf + strlen(_sidtune_keyword_songs);
int len = toolLen - strlen(_sidtune_keyword_songs);
int pos = 0;
if ( !pos >= len )
{
return false;
}
info.songs = (uint_least16_t)SidTuneTools::readDec( numIn, len, pos );
info.startSong = (uint_least16_t)SidTuneTools::readDec( numIn, len, pos );
hasSongs = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_speed) == 0 )
{
const char *speedIn = cmpBuf + strlen(_sidtune_keyword_speed);
int len = toolLen - strlen(_sidtune_keyword_speed);
int pos = 0;
if ( pos >= len )
{
return false;
}
oldStyleSpeed = SidTuneTools::readHex(speedIn, len, pos);
hasSpeed = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_name) == 0 )
{
strncpy( &infoString[0][0], cmpBuf + strlen(_sidtune_keyword_name), 31 );
info.infoString[0] = &infoString[0][0];
hasName = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_author) == 0 )
{
strncpy( &infoString[1][0], cmpBuf + strlen(_sidtune_keyword_author), 31 );
info.infoString[1] = &infoString[1][0];
hasAuthor = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_copyright) == 0 )
{
strncpy( &infoString[2][0], cmpBuf + strlen(_sidtune_keyword_copyright), 31 );
info.infoString[2] = &infoString[2][0];
hasCopyright = true;
}
else if ( SidTuneTools::myStrNcaseCmp(cmpBuf,_sidtune_keyword_musPlayer) == 0 )
{
info.musPlayer = true;
}
else
{
hasUnknownChunk = true;
#if defined(SIDTUNE_REJECT_UNKNOWN_FIELDS)
info.formatString = _sidtune_txt_chunkError;
return false;
#endif
}
// Skip to next tool.
spTool += toolLen;
}
// Collected ``required'' information complete ?
if ( hasAddress && hasName && hasAuthor && hasCopyright && hasSongs && hasSpeed )
{
// Create the speed/clock setting table.
convertOldStyleSpeedToTables(oldStyleSpeed);
if (( info.loadAddr == 0 ) && ( dataLength != 0 ))
{
SmartPtr_sidtt<const uint_least8_t> spDataBuf((const uint_least8_t*)dataBuffer,dataLength);
spDataBuf += fileOffset;
info.loadAddr = endian_16(spDataBuf[1],spDataBuf[0]);
if ( !spDataBuf )
{
info.formatString = _sidtune_txt_dataCorruptError;
return false;
}
fileOffset += 2;
}
if ( info.initAddr == 0 )
{
info.initAddr = info.loadAddr;
}
info.numberOfInfoStrings = 3;
// We finally accept the input data.
info.formatString = _sidtune_txt_format;
return true;
}
else if ( hasAddress || hasName || hasAuthor || hasCopyright || hasSongs || hasSpeed )
{
// Something is missing (or damaged?).
info.formatString = _sidtune_txt_corruptError;
return false;
}
else
{
// No PlaySID conform info strings.
info.formatString = _sidtune_txt_noStringsError;
return false;
}
}
bool SidTune::SID_fileSupport(const void* dataBuffer, uint_least32_t dataBufLen,
const void* sidBuffer, uint_least32_t sidBufLen)
{
// Make sure SID buffer pointer is not zero.
// Check for a minimum file size. If it is smaller, we will not proceed.
if ((sidBuffer==0) || (sidBufLen<sidMinFileSize))
{
return false;
}
const char* pParseBuf = (const char*)sidBuffer;
// First line has to contain the exact identification string.
if ( SidTuneTools::myStrNcaseCmp( pParseBuf, keyword_id ) != 0 )
{
return false;
}
else
{
// At least the ID was found, so set a default error message.
info.formatString = text_truncatedError;
// Defaults.
fileOffset = 0; // no header in separate data file
info.sidChipBase1 = 0xd400;
info.sidChipBase2 = 0;
info.musPlayer = false;
info.numberOfInfoStrings = 0;
uint_least32_t oldStyleSpeed = 0;
// Flags for required entries.
bool hasAddress = false,
hasName = false,
hasAuthor = false,
hasReleased = false,
hasSongs = false,
hasSpeed = false;
// Using a temporary instance of an input string chunk.
#ifdef HAVE_EXCEPTIONS
char* pParseChunk = new(std::nothrow) char[parseChunkLen+1];
#else
char* pParseChunk = new char[parseChunkLen+1];
#endif
if ( pParseChunk == 0 )
{
info.formatString = text_noMemError;
return false;
}
// Parse as long we have not collected all ``required'' entries.
//while ( !hasAddress || !hasName || !hasAuthor || !hasCopyright
// || !hasSongs || !hasSpeed )
// Above implementation is wrong, we need to get all known
// fields and then check if all ``required'' ones were found.
for (;;)
{
// Skip to next line. Leave loop, if none.
if (( pParseBuf = SidTuneTools::returnNextLine( pParseBuf )) == 0 )
{
break;
}
// And get a second pointer to the following line.
const char* pNextLine = SidTuneTools::returnNextLine( pParseBuf );
uint_least32_t restLen;
if ( pNextLine != 0 )
{
// Calculate number of chars between current pos and next line.
restLen = (uint_least32_t)(pNextLine - pParseBuf);
}
else
{
// Calculate number of chars between current pos and end of buf.
restLen = sidBufLen - (uint_least32_t)(pParseBuf - (char*)sidBuffer);
}
// Create whitespace eating (!) input string stream.
const char *s = pParseBuf;
int pos = 0;
int posCopy = 0;
// Now copy the next X characters except white-spaces.
for ( uint_least16_t i = 0; i < parseChunkLen; i++ )
{
pParseChunk[i] = s[i];
}
pParseChunk[parseChunkLen]=0;
// Now check for the possible keywords.
// ADDRESS
if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_address ) == 0 )
{
SidTuneTools::skipToEqu( s, restLen, pos );
info.loadAddr = (uint_least16_t)SidTuneTools::readHex( s, restLen, pos );
if ( pos>=restLen )
break;
info.initAddr = (uint_least16_t)SidTuneTools::readHex( s, restLen, pos );
if ( pos>=restLen )
break;
info.playAddr = (uint_least16_t)SidTuneTools::readHex( s, restLen, pos );
hasAddress = true;
}
// NAME
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_name ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[0][0],SIDTUNE_MAX_CREDIT_STRLEN);
info.infoString[0] = &infoString[0][0];
hasName = true;
}
// AUTHOR
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_author ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[1][0],SIDTUNE_MAX_CREDIT_STRLEN);
info.infoString[1] = &infoString[1][0];
hasAuthor = true;
}
// COPYRIGHT
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_copyright ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[2][0],SIDTUNE_MAX_CREDIT_STRLEN);
info.infoString[2] = &infoString[2][0];
hasReleased = true;
}
// RELEASED
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_released ) == 0 )
{
SidTuneTools::copyStringValueToEOL(pParseBuf,&infoString[2][0],SIDTUNE_MAX_CREDIT_STRLEN);
info.infoString[2] = &infoString[2][0];
hasReleased = true;
}
// SONGS
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_songs ) == 0 )
{
SidTuneTools::skipToEqu( s, restLen, pos );
info.songs = (uint_least16_t)SidTuneTools::readDec( s, restLen, pos );
info.startSong = (uint_least16_t)SidTuneTools::readDec( s, restLen, pos );
hasSongs = true;
}
// SPEED
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_speed ) == 0 )
{
SidTuneTools::skipToEqu( s, restLen, pos );
oldStyleSpeed = SidTuneTools::readHex( s, restLen, pos );
hasSpeed = true;
}
// SIDSONG
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_musPlayer ) == 0 )
{
info.musPlayer = true;
}
// RELOC
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_reloc ) == 0 )
{
info.relocStartPage = (uint_least8_t)SidTuneTools::readHex( s, restLen, pos );
if ( pos >= restLen )
break;
info.relocPages = (uint_least8_t)SidTuneTools::readHex( s, restLen, pos );
}
// CLOCK
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_clock ) == 0 )
{
char clock[8];
SidTuneTools::copyStringValueToEOL(pParseBuf,clock,sizeof(clock));
if ( SidTuneTools::myStrNcaseCmp( clock, "UNKNOWN" ) == 0 )
info.clockSpeed = SIDTUNE_CLOCK_UNKNOWN;
else if ( SidTuneTools::myStrNcaseCmp( clock, "PAL" ) == 0 )
info.clockSpeed = SIDTUNE_CLOCK_PAL;
else if ( SidTuneTools::myStrNcaseCmp( clock, "NTSC" ) == 0 )
info.clockSpeed = SIDTUNE_CLOCK_NTSC;
else if ( SidTuneTools::myStrNcaseCmp( clock, "ANY" ) == 0 )
info.clockSpeed = SIDTUNE_CLOCK_ANY;
}
// SIDMODEL
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_sidModel ) == 0 )
{
char model[8];
SidTuneTools::copyStringValueToEOL(pParseBuf,model,sizeof(model));
if ( SidTuneTools::myStrNcaseCmp( model, "UNKNOWN" ) == 0 )
info.sidModel = SIDTUNE_SIDMODEL_UNKNOWN;
else if ( SidTuneTools::myStrNcaseCmp( model, "6581" ) == 0 )
info.sidModel = SIDTUNE_SIDMODEL_6581;
else if ( SidTuneTools::myStrNcaseCmp( model, "8580" ) == 0 )
info.sidModel = SIDTUNE_SIDMODEL_8580;
else if ( SidTuneTools::myStrNcaseCmp( model, "ANY" ) == 0 )
info.sidModel = SIDTUNE_SIDMODEL_ANY;
}
// COMPATIBILITY
else if ( SidTuneTools::myStrNcaseCmp( pParseChunk, keyword_compatibility ) == 0 )
{
char comp[5];
SidTuneTools::copyStringValueToEOL(pParseBuf,comp,sizeof(comp));
if ( SidTuneTools::myStrNcaseCmp( comp, "C64" ) == 0 )
info.compatibility = SIDTUNE_COMPATIBILITY_C64;
else if ( SidTuneTools::myStrNcaseCmp( comp, "PSID" ) == 0 )
info.compatibility = SIDTUNE_COMPATIBILITY_PSID;
else if ( SidTuneTools::myStrNcaseCmp( comp, "R64" ) == 0 )
info.compatibility = SIDTUNE_COMPATIBILITY_R64;
}
};
delete[] pParseChunk;
// Again check for the ``required'' values.
if ( hasAddress || hasName || hasAuthor || hasReleased || hasSongs || hasSpeed )
{
// Check reserved fields to force real c64 compliance
if (info.compatibility == SIDTUNE_COMPATIBILITY_R64)
{
if (checkRealC64Info (oldStyleSpeed) == false)
return false;
}
// Create the speed/clock setting table.
convertOldStyleSpeedToTables(oldStyleSpeed, info.clockSpeed);
// loadAddr = 0 means, the address is stored in front of the C64 data.
// We cannot verify whether the dataBuffer contains valid data.
// All we want to know is whether the SID buffer is valid.
// If data is present, we access it (here to get the C64 load address).
if (info.loadAddr==0 && (dataBufLen>=(fileOffset+2)) && dataBuffer!=0)
{
const uint8_t* pDataBufCp = (const uint8_t*)dataBuffer + fileOffset;
info.loadAddr = endian_16( *(pDataBufCp + 1), *pDataBufCp );
fileOffset += 2; // begin of data
}
// Keep compatibility to PSID/SID.
if ( info.initAddr == 0 )
{
info.initAddr = info.loadAddr;
}
info.numberOfInfoStrings = 3;
// We finally accept the input data.
info.formatString = text_format;
return true;
}
else
{
// Something is missing (or damaged ?).
// Error string set above.
return false;
}
}
}
