Retro68/Rez/Expression.cc

#include "Expression.h"
#include "ResourceCompiler.h"
#include <cassert>
#include <iostream>
#include <fstream>
#include "Diagnostic.h"

int Expression::evaluateInt(ResourceCompiler *ctx)
{
	error(ctx, "Expected an integer or integer expression here.");
	return 0;
}

std::string Expression::evaluateString(ResourceCompiler *ctx)
{
	error(ctx, "Expected a string or string expression here.");
	return "";
}

Expression::~Expression()
{
}

void Expression::error(ResourceCompiler *ctx, std::string err)
{
	ctx->problem(Diagnostic(Diagnostic::Severity::error, err, location));
}


StringExpr::~StringExpr()
{
}

std::string StringExpr::evaluateString(ResourceCompiler *ctx)
{
	return str;
}


IntExpr::~IntExpr()
{
}

int IntExpr::evaluateInt(ResourceCompiler *ctx)
{
	return val;
}


void CompoundExpr::addItem(ExprPtr item)
{
	items.push_back(item);
}

CompoundExpr::~CompoundExpr()
{
}


BinaryExpr::~BinaryExpr()
{
}

int BinaryExpr::evaluateInt(ResourceCompiler *ctx)
{
	switch(op)
	{
		case BinaryOp::XOR:
			return a->evaluateInt(ctx) ^ b->evaluateInt(ctx);
		case BinaryOp::OR:
			return a->evaluateInt(ctx) | b->evaluateInt(ctx);
		case BinaryOp::AND:
			return a->evaluateInt(ctx) & b->evaluateInt(ctx);
		case BinaryOp::SHIFTLEFT:
			return a->evaluateInt(ctx) << b->evaluateInt(ctx);
		case BinaryOp::SHIFTRIGHT:
			return a->evaluateInt(ctx) >> b->evaluateInt(ctx);
		case BinaryOp::EQUAL:
			return a->evaluateInt(ctx) == b->evaluateInt(ctx);
		case BinaryOp::NOTEQUAL:
			return a->evaluateInt(ctx) != b->evaluateInt(ctx);
		case BinaryOp::PLUS:
			return a->evaluateInt(ctx) + b->evaluateInt(ctx);
		case BinaryOp::MINUS:
			return a->evaluateInt(ctx) - b->evaluateInt(ctx);
		case BinaryOp::MULTIPLY:
			return a->evaluateInt(ctx) * b->evaluateInt(ctx);
		case BinaryOp::DIVIDE:
			return a->evaluateInt(ctx) / b->evaluateInt(ctx);
		default:
			error(ctx, "Expected an integer or integer expression here.");
			return 0;
	}
}

std::string BinaryExpr::evaluateString(ResourceCompiler *ctx)
{
	switch(op)
	{
		case BinaryOp::CONCAT:
			return a->evaluateString(ctx) + b->evaluateString(ctx);
		default:
			error(ctx, "Expected a string or string expression here.");
			return "";
	}
}


UnaryExpr::~UnaryExpr()
{
}

int UnaryExpr::evaluateInt(ResourceCompiler *ctx)
{
	switch(op)
	{
		case UnaryOp::MINUS:
			return -a->evaluateInt(ctx);
		case UnaryOp::COMPLEMENT:
			return ~a->evaluateInt(ctx);
		default:
			error(ctx, "Expected an integer or integer expression here.");
			return 0;
	}
}


IdentifierExpr::IdentifierExpr(std::string id, yy::location loc)
	: Expression(loc), id(id)
{
}

void IdentifierExpr::addArgument(ExprPtr e)
{
	arguments.push_back(e);
}

ExprPtr IdentifierExpr::lookup(ResourceCompiler *ctx)
{
	Subscripts sub;
	for(auto arg : arguments)
		sub.addSubscript(arg->evaluateInt(ctx));
	ExprPtr val = ctx->lookupIdentifier(id, sub);
	if(!val)
		error(ctx, "Identifier \"" + id + "\" is not defined.");
	return val;
}

int IdentifierExpr::evaluateInt(ResourceCompiler *ctx)
{
	if(ctx->isPrePass())
		return 0;
	if(ExprPtr e = lookup(ctx))
		return e->evaluateInt(ctx);
	else
		return 0;
}

std::string IdentifierExpr::evaluateString(ResourceCompiler *ctx)
{
	if(ExprPtr e = lookup(ctx))
		return e->evaluateString(ctx);
	else
		return "";
}


CaseExpr::CaseExpr(const std::string &tag, CompoundExprPtr expr, yy::location loc)
	: Expression(loc), tag(tag), expr(expr)
{
}


int CountOfExpr::evaluateInt(ResourceCompiler *ctx)
{
	assert(arg->arguments.size() == 0);
	return ctx->getArrayCount(arg->id);
}


int ArrayIndexExpr::evaluateInt(ResourceCompiler *ctx)
{
	assert(arg->arguments.size() == 0);
	return ctx->getArrayIndex(arg->id);
}


std::string ReadExpr::evaluateString(ResourceCompiler *ctx)
{
	std::string filename = arg->evaluateString(ctx);
	std::ifstream instream(filename);
    if(!instream)
    {
        ctx->problem(Diagnostic(Diagnostic::Severity::error, "could not $$read file " + filename, location));
    }
	return std::string(std::istreambuf_iterator<char>(instream.rdbuf()),
					   std::istreambuf_iterator<char>());
}


int UnimplementedExpr::evaluateInt(ResourceCompiler *ctx)
{
	std::cerr << msg << std::endl;
	return 0;
}

std::string UnimplementedExpr::evaluateString(ResourceCompiler *ctx)
{
	std::cerr << msg << std::endl;
	return "";
}


PeekExpr::PeekExpr(ExprPtr addr, ExprPtr offset, ExprPtr size, yy::location loc)
	: Expression(loc), addr(addr), offset(offset), size(size)
{
}

PeekExpr::PeekExpr(ExprPtr addr, int size, yy::location loc)
	: Expression(loc),
	  addr(addr),
	  offset(std::make_shared<IntExpr>(0,loc)),
	  size(std::make_shared<IntExpr>(size,loc))
{
}

int PeekExpr::evaluateInt(ResourceCompiler *ctx)
{
	int p = addr->evaluateInt(ctx) + offset->evaluateInt(ctx);
	int s = size->evaluateInt(ctx);

	return ctx->peek(p, s);
}