|
|
|
|
|
|
|
#include "extensions.hpp"
|
|
|
|
|
|
|
|
#include <cassert>
|
|
|
|
#include <stdexcept>
|
|
|
|
|
|
|
|
#include "generator.hpp"
|
|
|
|
#include "literals.hpp"
|
|
|
|
|
|
|
|
namespace Compiler
|
|
|
|
{
|
|
|
|
Extensions::Extensions() : mNextKeywordIndex (-1) {}
|
|
|
|
|
|
|
|
int Extensions::searchKeyword (const std::string& keyword) const
|
|
|
|
{
|
|
|
|
std::map<std::string, int>::const_iterator iter = mKeywords.find (keyword);
|
|
|
|
|
|
|
|
if (iter==mKeywords.end())
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
return iter->second;
|
|
|
|
}
|
|
|
|
|
|
|
|
bool Extensions::isFunction (int keyword, char& returnType, std::string& argumentType) const
|
|
|
|
{
|
|
|
|
std::map<int, Function>::const_iterator iter = mFunctions.find (keyword);
|
|
|
|
|
|
|
|
if (iter==mFunctions.end())
|
|
|
|
return false;
|
|
|
|
|
|
|
|
returnType = iter->second.mReturn;
|
|
|
|
argumentType = iter->second.mArguments;
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
bool Extensions::isInstruction (int keyword, std::string& argumentType) const
|
|
|
|
{
|
|
|
|
std::map<int, Instruction>::const_iterator iter = mInstructions.find (keyword);
|
|
|
|
|
|
|
|
if (iter==mInstructions.end())
|
|
|
|
return false;
|
|
|
|
|
|
|
|
argumentType = iter->second.mArguments;
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
void Extensions::registerFunction (const std::string& keyword, char returnType,
|
|
|
|
const std::string& argumentType, int segment5code, int segment5codeExplicit)
|
|
|
|
{
|
|
|
|
assert (segment5code>=33554432 && segment5code<=67108863);
|
|
|
|
|
|
|
|
int code = mNextKeywordIndex--;
|
|
|
|
|
|
|
|
mKeywords.insert (std::make_pair (keyword, code));
|
|
|
|
|
|
|
|
Function function;
|
|
|
|
function.mReturn = returnType;
|
|
|
|
function.mArguments = argumentType;
|
|
|
|
function.mCode = segment5code;
|
|
|
|
function.mCodeExplicit = segment5codeExplicit;
|
|
|
|
|
|
|
|
mFunctions.insert (std::make_pair (code, function));
|
|
|
|
}
|
|
|
|
|
|
|
|
void Extensions::registerInstruction (const std::string& keyword,
|
|
|
|
const std::string& argumentType, int segment5code, int segment5codeExplicit)
|
|
|
|
{
|
|
|
|
assert (segment5code>=33554432 && segment5code<=67108863);
|
|
|
|
|
|
|
|
int code = mNextKeywordIndex--;
|
|
|
|
|
|
|
|
mKeywords.insert (std::make_pair (keyword, code));
|
|
|
|
|
|
|
|
Instruction instruction;
|
|
|
|
instruction.mArguments = argumentType;
|
|
|
|
instruction.mCode = segment5code;
|
|
|
|
instruction.mCodeExplicit = segment5codeExplicit;
|
|
|
|
|
|
|
|
mInstructions.insert (std::make_pair (code, instruction));
|
|
|
|
}
|
|
|
|
|
|
|
|
void Extensions::generateFunctionCode (int keyword, std::vector<Interpreter::Type_Code>& code,
|
|
|
|
Literals& literals, const std::string& id) const
|
|
|
|
{
|
|
|
|
std::map<int, Function>::const_iterator iter = mFunctions.find (keyword);
|
|
|
|
|
|
|
|
if (iter==mFunctions.end())
|
|
|
|
throw std::logic_error ("unknown custom function keyword");
|
|
|
|
|
|
|
|
if (!id.empty())
|
|
|
|
{
|
|
|
|
if (iter->second.mCodeExplicit==-1)
|
|
|
|
throw std::logic_error ("explicit references not supported");
|
|
|
|
|
|
|
|
int index = literals.addString (id);
|
|
|
|
Generator::pushInt (code, literals, index);
|
|
|
|
}
|
|
|
|
|
|
|
|
code.push_back (Generator::segment5 (
|
|
|
|
id.empty() ? iter->second.mCode : iter->second.mCodeExplicit));
|
|
|
|
}
|
|
|
|
|
|
|
|
void Extensions::generateInstructionCode (int keyword,
|
|
|
|
std::vector<Interpreter::Type_Code>& code, Literals& literals, const std::string& id)
|
|
|
|
const
|
|
|
|
{
|
|
|
|
std::map<int, Instruction>::const_iterator iter = mInstructions.find (keyword);
|
|
|
|
|
|
|
|
if (iter==mInstructions.end())
|
|
|
|
throw std::logic_error ("unknown custom instruction keyword");
|
|
|
|
|
|
|
|
if (!id.empty())
|
|
|
|
{
|
|
|
|
if (iter->second.mCodeExplicit==-1)
|
|
|
|
throw std::logic_error ("explicit references not supported");
|
|
|
|
|
|
|
|
int index = literals.addString (id);
|
|
|
|
Generator::pushInt (code, literals, index);
|
|
|
|
}
|
|
|
|
|
|
|
|
code.push_back (Generator::segment5 (
|
|
|
|
id.empty() ? iter->second.mCode : iter->second.mCodeExplicit));
|
|
|
|
}
|
|
|
|
}
|