VuoCompilerModule.cc

Go to the documentation of this file.

 
#include "VuoCompilerBitcodeParser.hh"
#include "VuoCompilerNodeClass.hh"
#include "VuoCompilerType.hh"
#include "VuoJsonUtilities.hh"
#include "VuoNodeClass.hh"
#include "VuoStringUtilities.hh"
 
VuoCompilerModule::VuoCompilerModule(VuoModule *base, Module *module)
{
#if VUO_PRO
    VuoCompilerModule_Pro();
#endif
    this->base = base;
    this->module = module;
    this->moduleDetails = NULL;
    this->parser = NULL;
    this->builtIn = false;
 
    if (module)
    {
        module->setModuleIdentifier(getPseudoBase()->getModuleKey());
        parse();
    }
}
 
VuoCompilerModule::~VuoCompilerModule(void)
{
    delete parser;
    json_object_put(moduleDetails);
}
 
VuoCompilerModule * VuoCompilerModule::newModule(const string &moduleKey, Module *module, const string &modulePath)
{
    VuoCompilerModule *m = NULL;
 
    if (isModule(module, moduleKey))
    {
        VuoNodeClass *nodeClass = VuoCompilerNodeClass::newNodeClass(moduleKey, module);
        if (nodeClass)
            m = nodeClass->getCompiler();
        else
        {
            VuoCompilerType *type = VuoCompilerType::newType(moduleKey, module);
            if (type)
                m = type;
            else
                m = new VuoCompilerModule(new VuoModule(moduleKey), module);
        }
 
        m->modulePath = modulePath;
    }
    else if (moduleKey != "libmodule")
        VUserLog("Warning: No VuoModuleMetadata found in \"%s\" so I'm not going to load it.", moduleKey.c_str());
 
    return m;
}
 
bool VuoCompilerModule::isModule(Module *module, string moduleKey)
{
    return hasOriginalOrMangledGlobal("moduleDetails", module, moduleKey);
}
 
void VuoCompilerModule::parse(void)
{
    parser = new VuoCompilerBitcodeParser(module);
    renameGlobalVarsAndFuncs();
    parseMetadata();
}
 
void VuoCompilerModule::parseMetadata(void)
{
    string moduleDetailsStr = parser->getGlobalString( nameForGlobal("moduleDetails") );
    json_object_put(moduleDetails);
    moduleDetails = json_tokener_parse(moduleDetailsStr.c_str());
 
    if (! moduleDetails)
    {
        VUserLog("Error: Couldn't parse VuoModuleMetadata as JSON: %s", moduleDetailsStr.c_str());
        return;
    }
 
    base->setDefaultTitle(VuoJsonUtilities::parseString(moduleDetails, "title"));
    base->setDescription(VuoJsonUtilities::parseString(moduleDetails, "description"));
    base->setVersion(VuoJsonUtilities::parseString(moduleDetails, "version"));
    base->setKeywords(VuoJsonUtilities::parseArrayOfStrings(moduleDetails, "keywords"));
    vector<string> dependenciesVector = VuoJsonUtilities::parseArrayOfStrings(moduleDetails, "dependencies");
    dependencies = set<string>(dependenciesVector.begin(), dependenciesVector.end());
    compatibleTargets = parseTargetSet(moduleDetails, "compatibleOperatingSystems");
}
 
VuoCompilerTargetSet VuoCompilerModule::parseTargetSet(json_object *o, string key)
{
    VuoCompilerTargetSet t;
    json_object *operatingSystemsObject = NULL;
    if (json_object_object_get_ex(o, key.c_str(), &operatingSystemsObject))
    {
        if (json_object_get_type(operatingSystemsObject) == json_type_object)
        {
            json_object *macosObject = NULL;
            if (json_object_object_get_ex(operatingSystemsObject, "macosx", &macosObject))
            {
                t.setMinMacVersion( parseMacVersion(VuoJsonUtilities::parseString(macosObject, "min")) );
                t.setMaxMacVersion( parseMacVersion(VuoJsonUtilities::parseString(macosObject, "max")) );
            }
        }
    }
    return t;
}
 
VuoCompilerTargetSet::MacVersion VuoCompilerModule::parseMacVersion(string version)
{
    if (version == "10.7")
        return VuoCompilerTargetSet::MacVersion_10_7;
    if (version == "10.8")
        return VuoCompilerTargetSet::MacVersion_10_8;
    if (version == "10.9")
        return VuoCompilerTargetSet::MacVersion_10_9;
    if (version == "10.10")
        return VuoCompilerTargetSet::MacVersion_10_10;
    if (version == "10.11")
        return VuoCompilerTargetSet::MacVersion_10_11;
    if (version == "10.12")
        return VuoCompilerTargetSet::MacVersion_10_12;
    if (version == "10.13")
        return VuoCompilerTargetSet::MacVersion_10_13;
    if (version == "10.14")
        return VuoCompilerTargetSet::MacVersion_10_14;
    if (version == "10.15")
        return VuoCompilerTargetSet::MacVersion_10_15;
 
    return VuoCompilerTargetSet::MacVersion_Any;
}
 
set<string> VuoCompilerModule::globalsToRename(void)
{
    set<string> globals;
    globals.insert("moduleDetails");
    return globals;
}
 
string VuoCompilerModule::nameForGlobal(string genericGlobalVarOrFuncName)
{
    return nameForGlobal(genericGlobalVarOrFuncName, base->getModuleKey());
}
 
string VuoCompilerModule::nameForGlobal(string nameBeforeCompilation, string moduleKey)
{
    return VuoStringUtilities::prefixSymbolName(nameBeforeCompilation, moduleKey);
}
 
bool VuoCompilerModule::hasOriginalOrMangledGlobal(string nameBeforeCompilation, Module *module, string moduleKey)
{
    string nameAfterCompilation = nameForGlobal(nameBeforeCompilation, moduleKey);
    return (module->getNamedValue(nameBeforeCompilation) != NULL || module->getNamedValue(nameAfterCompilation) != NULL);
}
 
void VuoCompilerModule::renameGlobalVarsAndFuncs(void)
{
    set<string> globalsAndFuncsToRename = globalsToRename();
 
    Module::GlobalListType& globals = module->getGlobalList();
 
    // Iterate through global variables
    for (Module::GlobalListType::iterator i = globals.begin(), e = globals.end(); i != e; ++i) {
        string curGlobalVarName = i->getName();
        // If current global variable is in the list of those to rename, do so
        if (globalsAndFuncsToRename.find(curGlobalVarName) != globalsAndFuncsToRename.end()) {
            string newGlobalVarName = nameForGlobal(curGlobalVarName);
            i->setName(newGlobalVarName);
        }
 
    }
 
    Module::FunctionListType& functions = module->getFunctionList();
 
    // Iterate through functions
    for (Module::FunctionListType::iterator i = functions.begin(), e = functions.end(); i != e; ++i) {
        string curFuncName = i->getName();
        // If current function is in the list of those to rename, do so
        if (globalsAndFuncsToRename.find(curFuncName) != globalsAndFuncsToRename.end()) {
            string newFuncName = nameForGlobal(curFuncName);
            i->setName(newFuncName);
        }
 
    }
}
 
Function * VuoCompilerModule::declareFunctionInModule(Module *module, Function *functionSrc)
{
    Function *functionDst = module->getFunction(functionSrc->getName());
    if (! functionDst)
    {
        functionDst = Function::Create(functionSrc->getFunctionType(),
                                       GlobalValue::ExternalLinkage,
                                       functionSrc->getName(),
                                       module);
        functionDst->setAttributes( functionSrc->getAttributes() );
    }
    return functionDst;
}
 
set<string> VuoCompilerModule::getDependencies(void)
{
    return dependencies;
}
 
string VuoCompilerModule::getDependencyName(void)
{
    return base->getModuleKey();
}
 
VuoCompilerTargetSet VuoCompilerModule::getCompatibleTargets(void)
{
    return compatibleTargets;
}
 
Module * VuoCompilerModule::getModule(void)
{
    return module;
}
 
VuoModule * VuoCompilerModule::getPseudoBase(void)
{
    return base;
}
 
bool VuoCompilerModule::isBuiltIn(void)
{
    return builtIn;
}
 
void VuoCompilerModule::setBuiltIn(bool builtIn)
{
    this->builtIn = builtIn;
}
 
string VuoCompilerModule::getModulePath(void)
{
    return modulePath;
}