/*
 *	Copyright (c) 2024 Scott Duensing, scott@kangaroopunch.com
 *
 *	Permission is hereby granted, free of charge, to any person obtaining a copy
 *	of this software and associated documentation files (the "Software"), to deal
 *	in the Software without restriction, including without limitation the rights
 *	to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 *	copies of the Software, and to permit persons to whom the Software is
 *	furnished to do so, subject to the following conditions:
 *
 *	The above copyright notice and this permission notice shall be included in
 *	all copies or substantial portions of the Software.
 *
 *	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 *	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 *	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 *	AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 *	LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 *	OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 *	SOFTWARE.
 */


#include "oc_var_op.h"
#include "state.h"
#include "memory.h"
#include "messages.h"
#include "portme.h"
#include "interpreter.h"
#include "story.h"


void opcodes_call(void) {
	uint8_t  args    = __state.operandCount;
	uint8_t  storeId = PEEK(__state.pc++);
	uint32_t routine;
	uint8_t  numLocals;
	int8_t   i;
	uint16_t src;
	uint8_t  dst;

	if ((args == 0) && (__state.operands[0] == 0)) {
		// Legal no-op; store 0 to return value and bounce.
		POKEW(interpreterVariableAddress(storeId, 1), 0);
	} else {
		routine   = memoryUnpackAddress(__state.operands[0], MEMORY_ROUTINE);
		numLocals = PEEK(routine++);
		if (numLocals > 15) portDie(MSG_OP_VAR_TOO_MANY_LOCALS);

		if (__state.sp + 5 + numLocals >= sizeof(__state.stack)) portDie(MSG_OP_VAR_STACK_OVERFLOW);

		// Save where we should store the call's result.
		__state.stack[__state.sp++] = storeId;

		// Next instruction to run upon return.
		__state.stack[__state.sp++] = __state.pc & 0xffff;
		__state.stack[__state.sp++] = ((__state.pc >> 16) & 0xffff);

		// Current base pointer.
		__state.stack[__state.sp++] = __state.bp;

		// Number of locals.
		__state.stack[__state.sp++] = numLocals;

		// New base pointer.
		__state.bp = __state.sp;

		if (storyVersion() <= 4) {
			for (i=0; i<numLocals; i++, routine += 2) __state.stack[__state.sp++] = PEEKW(routine);
		} else {
			for (i=0; i<numLocals; i++)  __state.stack[__state.sp++] = 0;
		}

		// Remove return address from argument count.
		args--;
		// It's legal to have more arguments than locals.  Toss extras.
		if (args > numLocals) args = numLocals;

		// Copy arguments into local variables on stack.
		src = 1;
		dst = __state.bp;
		for (i=0; i<args; i++) {
			__state.stack[dst++] = __state.operands[src++];
		}

		// Move PC to called routine.
		__state.pc = routine;
	}
}


void opcodes_put_prop(void) {
	uint8_t size = 0;
	uint8_t ptr  = interpreterGetObjectProperty(__state.operands[0], __state.operands[1], &size);

	if (ptr == 0) portDie(MSG_OP_VAR_MISSING_PROPERTY);

	if (size == 1) {
		POKE(ptr, (__state.operands[2] & 0xff));
	} else {
		POKEW(ptr, __state.operands[2]);
	}
}


void opcodes_storew(void) {
	POKEW(__state.operands[0] + (__state.operands[1] * 2), __state.operands[2]);
}