/* Here comes the really ugly code... Get all SID-tune information
 * for all sub-tunes, including name, length, etc.
 */
t_xs_tuneinfo *TFUNCTION(gchar *pcFilename)
{
	t_xs_tuneinfo *pResult;
	TTUNEINFO tuneInfo;
	TTUNE *testTune;

	/* Check if the tune exists and is readable */
	if ((testTune = new TTUNE(pcFilename)) == NULL)
		return NULL;

	if (!testTune->getStatus()) {
		delete testTune;
		return NULL;
	}

	/* Get general tune information */
#ifdef _XS_SIDPLAY1_H
	testTune->getInfo(tuneInfo);
#endif
#ifdef _XS_SIDPLAY2_H
	tuneInfo = testTune->getInfo();
#endif

	/* Allocate tuneinfo structure */
	pResult = xs_tuneinfo_new(pcFilename,
		tuneInfo.songs, tuneInfo.startSong,
		tuneInfo.infoString[0], tuneInfo.infoString[1], tuneInfo.infoString[2],
		tuneInfo.loadAddr, tuneInfo.initAddr, tuneInfo.playAddr,
		tuneInfo.dataFileLen, tuneInfo.formatString, -1);

	delete testTune;

	return pResult;
}


gboolean TFUNCTION2(t_xs_status *myStatus)
{
	TTUNEINFO myInfo;
	TTUNE *myTune;
	TENGINE *myEngine;
	t_xs_tuneinfo *i;
	
	/* Check if we have required structures initialized */
	if (!myStatus || !myStatus->tuneInfo || !myStatus->sidEngine)
		return FALSE;

	myEngine = (TENGINE *) myStatus->sidEngine;
	myTune = myEngine->currTune;
	if (!myTune)
		return FALSE;

	/* Get currently playing tune information */
#ifdef _XS_SIDPLAY1_H
	myTune->getInfo(myInfo);
#endif
#ifdef _XS_SIDPLAY2_H
	myInfo = myTune->getInfo();
#endif

	/* Here we assume that libSIDPlay[12] headers define SIDTUNE_SIDMODEL_*
	 * similarly to our enums in xs_config.h ...
	 */
	i = myStatus->tuneInfo;
	i->sidModel = myInfo.sidModel;

XSDEBUG("%s[%d]: %d, %d\n", i->sidFilename, myStatus->currSong, myInfo.songSpeed, myInfo.clockSpeed);

	if ((myStatus->currSong > 0) && (myStatus->currSong <= i->nsubTunes)) {
		gint tmpSpeed = -1;
		
		switch (myInfo.clockSpeed) {
		case SIDTUNE_CLOCK_PAL: tmpSpeed = 50; break;
		case SIDTUNE_CLOCK_NTSC: tmpSpeed = 60; break;
		default:
			if (myInfo.songSpeed != 0)
				tmpSpeed = myInfo.songSpeed;
			break;
		}
			
		i->subTunes[myStatus->currSong - 1].tuneSpeed = tmpSpeed;
	}

	return TRUE;
}

/* Undefine these */
#undef TFUNCTION
#undef TFUNCTION2
#undef TTUNEINFO
#undef TTUNE