---

ForeignVariableScope.cpp

#define TRACE_NAME "ForeignVariableScope"

#include "ForeignVariableScope.h"
#include <cstdio>

//
//  In theory there's a race condition here, if we went concurrent on
//  checking the variables names.
//
// $Id: ForeignVariableScope_8cpp-source.html,v 1.2 2001/10/10 20:40:58 sandro Exp $

//
//  Standard Member Functions
//


ForeignVariableScope::ForeignVariableScope(VariableScope* mbase)
    : mbase(mbase)
{
}

#if 0  /* omit definitions until they are implemented */

ForeignVariableScope::ForeignVariableScope(const ForeignVariableScope& other)
{
    NOT_IMPLEMENTED
}

const ForeignVariableScope& ForeignVariableScope::operator=(const ForeignVariableScope& other)
{
    NOT_IMPLEMENTED
}

bool ForeignVariableScope::operator==(const ForeignVariableScope& other) const
{
    NOT_IMPLEMENTED
}

bool ForeignVariableScope::operator<(const ForeignVariableScope& other) const
{
    NOT_IMPLEMENTED
}

size_t ForeignVariableScope::hash() const
{
    NOT_IMPLEMENTED
}


#endif /* omit definitions until they are implemented */
    

std::ostream& ForeignVariableScope::print_to(std::ostream& stream) const
{
    stream << "Foreign wrapper for " << *mbase;
    return stream;
}

ForeignVariableScope::~ForeignVariableScope()
{
    // blank default    
}

//
//  Additional Public Member Functions
//


size_t ForeignVariableScope::getNumVars() const
{
    return mbase->getNumVars();
}
Symbol ForeignVariableScope::getVar(size_t index) const
{
    return mbase->getVar(index);
}

Symbol ForeignVariableScope::getVar(const char* name, bool* added_ptr=0)
{
    return mbase->getVar(translate(name), added_ptr);
}

size_t ForeignVariableScope::getVarIndex(const char* name)
{
    return mbase->getVarIndex(translate(name));
}

bool ForeignVariableScope::contains(const Triple& t) const
{
    NOT_IMPLEMENTED;
}

//
//  Additional Private Member Functions
//

const char* ForeignVariableScope::translate(const char* name)
{
    TRACE "translate(" << name << ") ==> ";
    std::string s(name);

    // look it up in map
    Map::iterator iter;
    iter = map.find(s);
    if (iter != map.end()) {
    TRACE "-old-" << (*iter).second.c_str() << endl;
    return (*iter).second.c_str();
    }

    int count=2;
    std::string n(s);
    while (true) {
    bool added = false;
    Symbol sym = mbase->getVar(n.c_str(), &added);
    if (added) {
        map[s] = n;
        TRACE "*NEW* " << n << endl;
        // This result SHOULD be as long-lived as this table entry,
        // which should be plenty long enough....
        return map[s].c_str();
    } 
    TRACE "collision as " << n << ", ";

    char buf[20];
    sprintf(buf, "_%d", count++);
    n=s+buf;
    TRACE "trying as " << n << endl;
    }

}

//
//  Additional Private Member Functions
//

#undef TRACE_NAME

---

Home to blindfold. This page generated via doxygen 1.2.11.1 Wed Oct 10 16:40:33 2001.