---

mangle.cc

Go to the documentation of this file.

// AUTOMATICALLY GENERATED -- DO NOT EDIT!         -*- c++ -*-

#include "mangle.h"
#include "mangle_i.h"

#line 43 "mangle.cpp"

using namespace std;

#line 45 "mangle.cpp"


Mangle::Mangle()
  : _env (new Namespace_scope (0, ""))
{}

#line 50 "mangle.cpp"


void
Mangle::enter_scope(const std::string& scopename, char symprefix)
{
  _scope.push_back(Sstring() << symprefix << scopename);

  _env = new Namespace_scope (dynamic_cast<Namespace_scope*>(_env), 
                              _env->get_unique_name (scopename + "::"));
}

#line 60 "mangle.cpp"


void
Mangle::leave_scope()
{
  _scope.pop_back();

  _env = _env->get_parent();
}

#line 69 "mangle.cpp"

std::string
Mangle::current_scope()
{
  string scope;
  for (Scopes::iterator i = _scope.begin(); i != _scope.end(); ++i)
    {
      scope += '\'';
      scope += *i;
    }
  return scope;
}

#line 81 "mangle.cpp"


std::string&
Mangle::insert(/*const*/ Ptree& name,
                char symprefix)
{
  cerr << "SYM entering " << name.ToString() << " in scope "
       << current_scope();

  // Add to scope

  Variable_symbol* sym = new Variable_symbol (/* XXX */ Type(), 
                                              s_None,
                                              0, 0, Symbol::st_Defined);

  _env->add_symbol (name.ToString(), sym);

  assert (_env->lookup_here (name.ToString(), true).untag == sym);

  _map[sym] = Sstring() << "C" << current_scope() << '\'' << symprefix 
                        << name.ToString();

  cerr << " with name " << _map[sym] << endl;
  return _map[sym];
}

#line 106 "mangle.cpp"


bool 
Mangle::lookup_global_name(/*const*/ Ptree& name,
                            std::string* out_global_name)
{
  cerr << "SYM looking up " << name.ToString();

  if (Symbol* s =_env->lookup_unqualified (name.ToString()).untag )
    {
      cerr << ": " << _map[s] << endl;
      
      *out_global_name = _map[s];
      return true;
    }
  
  cerr << " FAILED" << endl;
  return false;
}

---