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

#include "Item.h"
#include "IoInfo.h"
#include "Machine.h"


namespace zxsp
{

uint16 bitsForSpec(cstr s)
{
	// convert Port Address Specs, e.g.: "----.----.--01.----"
	// to Bits

	for (uint16 bits = 0;;) switch (*s++)
		{
		case '1': bits += bits + 1; continue;
		case '0':
		case '-': bits += bits; continue;
		case '.': continue;
		case ' ': continue;
		case 0: return bits;
		default: IERR();
		}
}

uint16 maskForSpec(cstr s)
{
	// convert Port Address Specs, e.g.: "----.----.--01.----"
	// to Mask

	for (uint16 mask = 0;;) switch (*s++)
		{
		case '0':
		case '1': mask += mask + 1; continue;
		case '-': mask += mask; continue;
		case '.': continue;
		case ' ': continue;
		case 0: return mask;
		default: IERR();
		}
}

cstr And(cstr a, cstr b)
{
	ptr z = dupstr(a);
	for (a = z; *z; z++, b++)
		if (*b != *z) *z = '-';
	return a;
}


Item::Item(Machine* machine, isa_id id, isa_id grp, Internal internal, cstr o_addr, cstr i_addr) :
	IsaObject(id, grp),
	machine(machine),
	_next(nullptr),
	_prev(nullptr),
	in_mask(0xffff), // dflt: no i/o
	in_bits(0),
	out_mask(0xffff),
	out_bits(0),
	_internal(internal),
	ramdis_in(0),
	romdis_in(0)
{
	xlogIn("new Item: %s", name);
	assert(isMainThread());
	assert(machine->is_locked());

	_prev = machine->last_item();
	if (_prev) _prev->_next = this;
	assert(!_prev == this->isA(isa_Z80));

	// io masks:
	if (i_addr)
	{
		in_mask = maskForSpec(i_addr);
		in_bits = bitsForSpec(i_addr);
		xlogline("in:  mask=$%04x, bits=$%04x", int(in_mask), int(in_bits));
	}
	if (o_addr)
	{
		out_mask = maskForSpec(o_addr);
		out_bits = bitsForSpec(o_addr);
		xlogline("out: mask=$%04x, bits=$%04x", int(out_mask), int(out_bits));
	}
}

Item::~Item()
{
	xlogIn("~Item: %s", name);
	assert(isMainThread());

	if (_prev) _prev->_next = _next;
	if (_next) _next->_prev = _prev;
}

void Item::powerOn(int32)
{
	xlogline("Item:init: %s", name);

	// Items werden vom Specci nach hinten initialisert.
	// Weiter hinten angesteckte Items können also ggf.
	// in ihrem init() wieder prev()->romCS() aufrufen!

	romdis_in = 0;
	ramdis_in = 0;
}

bool Item::is_locked() const volatile { return machine->is_locked(); }

void Item::lock() const volatile { machine->lock(); }

void Item::unlock() const volatile { machine->unlock(); }

void Item::showMessage(MessageStyle ms, cstr text)
{
	if (machine) machine->showMessage(ms, text);
	else ::showMessage(ms, text);
}

} // namespace zxsp

/*




























*/