// Copyright (c) 2012 - 2026 kio@little-bat.de
// BSD-2-Clause license
// https://opensource.org/licenses/BSD-2-Clause

#include "TapeFileDataBlock.h"
#include "O80Data.h"
#include "TapData.h"
#include "TzxData.h"


namespace zxsp
{

void TapeFileDataBlock::purge()
{
	mode = stopped;
	cswdata->purge();
	if (tapdata != tapedata) delete tapdata;
	tapdata = nullptr;
	if (o80data != tapedata) delete o80data;
	o80data = nullptr;
	if (tzxdata != tapedata) delete tzxdata;
	tzxdata = nullptr;
	delete tapedata;
	tapedata = nullptr;
	delete[] major_block_info;
	major_block_info = nullptr;
	delete[] minor_block_info;
	minor_block_info = nullptr;
}

void TapeFileDataBlock::purgeBlock()
{
	purge();
	calc_block_infos();
}

TapeFileDataBlock::~TapeFileDataBlock()
{
	purge();
	delete cswdata;
}


TapeFileDataBlock::TapeFileDataBlock(CswBuffer* p) :
	cswdata(p),
	tapedata(nullptr),
	tapdata(nullptr),
	o80data(nullptr),
	tzxdata(nullptr),
	major_block_info(nullptr),
	minor_block_info(nullptr),
	mode(stopped)
{
	assert(cswdata);
	calc_block_infos();
}


TapeFileDataBlock::TapeFileDataBlock(TapeData* q, uint32 ccps) :
	cswdata(new CswBuffer(*q, ccps)),
	tapedata(q),
	tapdata(q->isaId() == isa_TapData ? TapDataPtr(q) : nullptr),
	o80data(q->isaId() == isa_O80Data ? O80DataPtr(q) : nullptr),
	tzxdata(q->isaId() == isa_TzxData ? TzxDataPtr(q) : nullptr),
	major_block_info(nullptr),
	minor_block_info(nullptr),
	mode(stopped)
{
	calc_block_infos();
}

TapeFileDataBlock::TapeFileDataBlock(TapeData* q, CswBuffer* csw) :
	cswdata(csw),
	tapedata(q),
	tapdata(q->isaId() == isa_TapData ? TapDataPtr(q) : nullptr),
	o80data(q->isaId() == isa_O80Data ? O80DataPtr(q) : nullptr),
	tzxdata(q->isaId() == isa_TzxData ? TzxDataPtr(q) : nullptr),
	major_block_info(nullptr),
	minor_block_info(nullptr),
	mode(stopped)
{
	assert(cswdata);
	calc_block_infos();
}


/*	convert TapeFileDataBlock to standard O80/P81 file data block for ROM LOAD routine
	caller must check o80data.trust_level
*/
O80Data* TapeFileDataBlock::getO80Data() noexcept
{
	if (o80data) return o80data;														 // ist schon
	if (tapdata && tapdata->trust_level >= TapeData::conversion_success) return nullptr; // no chance
	return o80data = new O80Data(*cswdata);
}

/*	convert TapeFileDataBlock to standard TAP file data block for ROM LOAD routine
	caller must check tapdata.trust_level
*/
TapData* TapeFileDataBlock::getTapData() noexcept
{
	if (tapdata) return tapdata;														 // ist schon
	if (o80data && o80data->trust_level >= TapeData::conversion_success) return nullptr; // no chance
	return tapdata = new TapData(*cswdata);
}


void TapeFileDataBlock::calcBlockInfos()
{
	delete[] major_block_info;
	major_block_info = nullptr;
	delete[] minor_block_info;
	minor_block_info = nullptr;
	calc_block_infos();
}

void TapeFileDataBlock::calc_block_infos()
{
	if (major_block_info) return;

	if (isEmpty())
	{
		major_block_info = newcopy("Empty block");
		return;
	}

a:
	if (tapdata && tapdata->trust_level >= TapeData::truncated_data_error)
	{
		major_block_info = newcopy(tapdata->calcMajorBlockInfo());
		minor_block_info = newcopy(tapdata->calcMinorBlockInfo());
		return;
	}
	if (o80data && o80data->trust_level >= TapeData::truncated_data_error)
	{
		major_block_info = newcopy(o80data->calcMajorBlockInfo());
		minor_block_info = newcopy(o80data->calcMinorBlockInfo());
		return;
	}
	if (tzxdata)
	{
		major_block_info = newcopy(tzxdata->getMajorBlockInfo());
		minor_block_info = newcopy(tzxdata->getMinorBlockInfo());
		if (major_block_info) return;
	}
	if (!tapdata)
	{
		getTapData();
		if (tapdata) goto a;
	}
	if (!o80data)
	{
		getO80Data();
		if (o80data) goto a;
	}
}


void TapeFileDataBlock::videoFrameEnd(uint32 cc)
{
	assert(cswdata);
	assert(mode != stopped);

	// note: der letzte in|out opcode kann direkt vor dem ffb gelegen haben
	//		 und hatte evtl. schon cc > cc_ffb
	//		=> dann kein seek, wg. abort

	if (cc > cswdata->getCurrentCc()) cswdata->seekCc(cc);
}


void TapeFileDataBlock::startPlaying(uint32 cc)
{
	assert(cswdata);
	assert(cswdata->ccPerSecond());
	assert(mode == stopped);

	mode = playing;
	cswdata->seekCc(cc);
}


/*	start recording into this block
	• purge block
	• start recording at cc (should be 0)
*/
void TapeFileDataBlock::startRecording(uint32 cc)
{
	assert(cswdata);
	assert(cswdata->ccPerSecond());

	purge();
	mode = recording;
	cswdata->startRecording(cc);
}


void TapeFileDataBlock::stop(CC cc)
{
	assert(cswdata);
	assert(mode != stopped);

	if (mode == recording)
	{
		cswdata->stopRecording(cc);
		calcBlockInfos();
	}
	else { cswdata->seekCc(cc); }

	mode = stopped;
}

} // namespace zxsp