Retro68/Rez/RezWorld.cc

#include "RezWorld.h"
#include "ResourceCompiler.h"
#include "ResourceFork.h"

#include <iostream>

#include "Diagnostic.h"

RezWorld::RezWorld()
    : verboseFlag(false), hadErrors(false)
{
}

void RezWorld::addTypeDefinition(TypeSpec spec, TypeDefinitionPtr type)
{
    if(!type)
        return;
    types[spec] = type;
}

TypeDefinitionPtr RezWorld::getTypeDefinition(ResType type, int id, yy::location loc)
{
    auto p = types.find(TypeSpec(type, id));
    if(p != types.end())
        return p->second;
    p = types.find(TypeSpec(type));
    if(p != types.end())
        return p->second;
    problem(Diagnostic(Diagnostic::Severity::error, "Can't find type definition for '" + std::string(type) + "'", loc));

    return nullptr;
}

void RezWorld::addResource(ResSpec spec, CompoundExprPtr body, yy::location loc)
{
    if(verboseFlag)
        std::cout << "RESOURCE " << spec.type() << "(" << spec.id() << ", " << "\"" << spec.name() << "\"" << spec.attr() << ")" << std::endl;
    TypeDefinitionPtr def = getTypeDefinition(spec.type(), spec.id(), loc);
    if(!def)
        return;
    ResourceCompiler compiler(*this, def, body, verboseFlag);
    compiler.compile();

    resources.addResource(Resource(spec.type(), spec.id(), compiler.resourceData(), spec.name(), spec.attr()));
}

void RezWorld::addData(ResSpec spec, const std::string &data, yy::location loc)
{
    if(verboseFlag)
        std::cout << "DATA " << spec.type() << "(" << spec.id() << ", " << "\"" << spec.name() << "\"" << spec.attr() << ")" << std::endl;
    resources.addResource(Resource(spec.type(), spec.id(), data, spec.name(), spec.attr()));
}

void RezWorld::problem(Diagnostic d)
{
    hadErrors = true;
    std::cerr << d << std::endl;
}