agent_components.cpp

#include <tr1/unordered_map>

#include "util/bert.hpp"
#include "agent_components.hpp"

#include "objectmemory.hpp"

#include "builtin/thread.hpp"
#include "builtin/string.hpp"
#include "builtin/system.hpp"

namespace rubinius {
namespace agent {
  class Item {
  public:
    enum Kind {
      eTree,
      eStaticVariable,
      eDynamicVariable
    };

  private:
    Kind kind_;
    const char* name_;

  public:
    Item(Kind k, const char* name)
      : kind_(k)
      , name_(strdup(name))
    {}

    virtual ~Item() {
      free(const_cast<char*>(name_));
    }

    Kind kind() {
      return kind_;
    }

    bool tree_p() {
      return kind_ == eTree;
    }

    const char* name() {
      return name_;
    }

    virtual void read(Output& output) {
      output.error("unimplemented");
    }

    virtual void read_path(Output& output, const char* ipath) {
      output.error("unimplemented");
    }

    virtual void set(Output& output, bert::Value* val) {
      output.error("unimplemneted");
    }

    virtual void set_path(Output& output, const char* path, bert::Value* val) {
      output.error("unimplemneted");
    }
  };

  typedef std::tr1::unordered_map<std::string, Item*> NamedItems;

  class DynamicVariable : public Item {
  public:
    DynamicVariable(const char* name)
      : Item(Item::eDynamicVariable, name)
    {}
  };

  class Tree : public Item {
    NamedItems hash_;

  public:
    Tree(const char* name)
      : Item(Item::eTree, name)
    {}

    virtual ~Tree() {
      for(NamedItems::iterator i = hash_.begin();
          i != hash_.end();
          i++) {
        delete i->second;
      }
    }

    Tree* get_tree(const char* name) {
      NamedItems::iterator i = hash_.find(name);
      if(i == hash_.end()) {
        Tree* t = new Tree(name);
        hash_[t->name()] = t;
        return t;
      }

      if(i->second->tree_p()) {
        return reinterpret_cast<Tree*>(i->second);
      }

      return 0;
    }

    void add(Item* item) {
      hash_[item->name()] = item;
    }

    Item* get(const char* name) {
      NamedItems::iterator i = hash_.find(name);
      if(i == hash_.end()) {
        return 0;
      }

      return i->second;
    }

    virtual void read(Output& output) {
      output.ok("tree");
      output.e().write_tuple(hash_.size());

      for(NamedItems::iterator i = hash_.begin();
          i != hash_.end();
          i++) {
        Item* item = i->second;
        output.e().write_binary(item->name());
      }
    }

    virtual void read_path(Output& output, const char* ipath) {
      char* path = strdup(ipath);
      char* pos = strchr(path, '.');

      if(pos) *pos = 0;

      Item* item = get(path);

      if(item) {
        if(pos) {
          item->read_path(output, pos+1);
        } else {
          item->read(output);
        }
      } else {
        output.e().write_tuple(2);
        output.e().write_atom("unknown_variable");
        output.e().write_binary(ipath);
      }

      free(path);
    }

    virtual void set_path(Output& output, const char* ipath, bert::Value* val) {
      char* path = strdup(ipath);
      char* pos = strchr(path, '.');

      if(pos) *pos = 0;

      Item* item = get(path);

      if(item) {
        if(pos) {
          item->set_path(output, pos+1, val);
        } else {
          item->set(output, val);
        }
      } else {
        output.e().write_tuple(2);
        output.e().write_atom("unknown_variable");
        output.e().write_binary(ipath);
      }

      free(path);
    }
  };

  class SystemName : public DynamicVariable {
  public:
    SystemName(const char* name)
      : DynamicVariable(name)
    {}

    virtual void read(Output& output) {
      struct utsname name;
      if(uname(&name)) {
        output.error("unknown");
      } else {
        output.ok("list");
        output.e().write_tuple(5);
        output.e().write_binary(name.sysname);
        output.e().write_binary(name.nodename);
        output.e().write_binary(name.release);
        output.e().write_binary(name.version);
        output.e().write_binary(name.machine);
      }
    }
  };

  class ProcessId : public DynamicVariable {
  public:
    ProcessId(const char* name)
      : DynamicVariable(name)
    {}

    virtual void read(Output& output) {
      pid_t pid = getpid();
      output.ok("value");
      output.e().write_tuple(1);
      output.e().write_integer(pid);
    }
  };

  class VMConfig : public DynamicVariable {
    SharedState& shared_;

  public:
    VMConfig(SharedState& ss, const char* name)
      : DynamicVariable(name)
      , shared_(ss)
    {}

    virtual void read(Output& output) {
      output.ok("list");
      output.e().write_tuple(shared_.config.items_size());

      for(config::Items::iterator i = shared_.config.items_begin();
          i != shared_.config.items_end();
          i++) {
        config::ConfigItem* item = *i;
        output.e().write_binary(item->name());
      }
    }

    virtual void read_path(Output& output, const char* path) {
      if(config::ConfigItem* item = shared_.config.find(path)) {
        output.ok("value");

        std::stringstream ss;
        item->print_value(ss);

        if(config::Integer* i = dynamic_cast<config::Integer*>(item)) {
          output.e().write_integer(i->value);
        } else {
          output.e().write_binary(ss.str().c_str());
        }
      } else {
        output.error("unknown key");
      }
    }

    virtual void set_path(Output& output, const char* path, bert::Value* val) {
      if(val->string_p()) {
        output.ok("value");
        if(shared_.config.import(path, val->string())) {
          output.e().write_atom("ok");
        } else {
          output.e().write_atom("unknown_key");
        }
      } else {
        output.error("format");
      }
    }
  };

  class Backtrace : public DynamicVariable {
    SharedState& shared_;
    VM* state_;

  public:
    Backtrace(STATE, SharedState& ss, const char* name)
      : DynamicVariable(name)
      , shared_(ss)
      , state_(state)
    {}

    virtual void read(Output& output) {
      GlobalLock::LockGuard guard(shared_.global_lock());

      output.ok("value");
      output.e().write_tuple(shared_.call_frame_locations().size());

      for(CallFrameLocationList::iterator i = shared_.call_frame_locations().begin();
          i != shared_.call_frame_locations().end();
          i++) {
        CallFrame* loc = *(*i);

        std::ostringstream ss;
        loc->print_backtrace(state_, ss);
        output.e().write_binary(ss.str().c_str());
      }
    }
  };

  class ThreadBacktrace : public DynamicVariable {
    SharedState& shared_;
    VM* state_;

  public:
    ThreadBacktrace(STATE, SharedState& ss, const char* name)
      : DynamicVariable(name)
      , shared_(ss)
      , state_(state)
    {}

    virtual void read(Output& output) {
      GlobalLock::LockGuard guard(shared_.global_lock());

      output.ok("list");

      std::list<ManagedThread*>* thrs = shared_.threads();

      output.e().write_tuple(thrs->size());

      for(std::list<ManagedThread*>::iterator i = thrs->begin();
          i != thrs->end();
          i++) {
        ManagedThread* thr = *i;

        if(VM* vm = thr->as_vm()) {
          std::ostringstream ss;
          vm->saved_call_frame()->print_backtrace(state_, ss);

          output.e().write_tuple(3);
          output.e().write_atom("user");
          output.e().write_atom(RTEST(vm->thread->sleep()) ? "sleep" : "run");
          output.e().write_binary(ss.str().c_str());
        } else {
          output.e().write_tuple(2);
          output.e().write_atom("system");
          output.e().write_binary(thr->name());
        }
      }
    }
  };

  class ThreadCount : public DynamicVariable {
    SharedState& shared_;
    VM* state_;

  public:
    ThreadCount(STATE, SharedState& ss, const char* name)
      : DynamicVariable(name)
      , shared_(ss)
      , state_(state)
    {}

    virtual void read(Output& output) {
      GlobalLock::LockGuard guard(shared_.global_lock());

      output.ok("value");

      std::list<ManagedThread*>* thrs = shared_.threads();

      output.e().write_integer(thrs->size());
    }
  };
  class DumpHeap: public DynamicVariable {
    VM* state_;

  public:
    DumpHeap(STATE, const char* name)
      : DynamicVariable(name)
      , state_(state)
    {}

    virtual void set(Output& output, bert::Value* val) {
      GlobalLock::LockGuard guard(state_->global_lock());

      if(val->string_p()) {
        output.ok("value");
        String* path = String::create(state_, val->string());
        if(RTEST(System::vm_dump_heap(state_, path))) {
          output.e().write_atom("ok");
        } else {
          output.e().write_atom("error");
        }
      } else {
        output.error("format");
      }
    }
  };


  template <typename T>
  class ReadInteger : public DynamicVariable {
    T* ptr_;

  public:
    ReadInteger(const char* name, T* ptr)
      : DynamicVariable(name)
      , ptr_(ptr)
    {}

    virtual void read(Output& output) {
      output.ok("value");
      output.e().write_integer(*ptr_);
    }
  };

  class ReadDouble : public DynamicVariable {
    double* ptr_;

  public:
    ReadDouble(const char* name, double* ptr)
      : DynamicVariable(name)
      , ptr_(ptr)
    {}

    virtual void read(Output& output) {
      output.ok("value");
      output.e().write_float(*ptr_);
    }
  };

  template <typename T>
  class StaticInteger : public DynamicVariable {
    T val_;

  public:
    StaticInteger(const char* name, T val)
      : DynamicVariable(name)
      , val_(val)
    {}

    virtual void read(Output& output) {
      output.ok("value");
      output.e().write_integer(val_);
    }
  };

  VariableAccess::VariableAccess(STATE, SharedState& ss)
    : root_(new Tree(""))
  {
    root_->add(new VMConfig(ss, "config"));

    system_ = root_->get_tree("system");
    system_->add(new SystemName("name"));
    system_->add(new ProcessId("pid"));
    system_->add(new Backtrace(state, ss, "backtrace"));

    Tree* mem = system_->get_tree("memory");

    mem->add(new DumpHeap(state, "dump"));

    Tree* young = mem->get_tree("young");
    young->add(new StaticInteger<int>("bytes", ss.config.gc_bytes * 2));

    Tree* mature = mem->get_tree("mature");
    mature->add(new ReadInteger<size_t>("bytes", &state->om->immix_usage()));

    Tree* large = mem->get_tree("large");
    large->add(new ReadInteger<size_t>("bytes", &state->om->loe_usage()));

    Tree* code = mem->get_tree("code");
    code->add(new ReadInteger<size_t>("bytes", &state->om->code_usage()));

    Tree* symbols = mem->get_tree("symbols");
    symbols->add(new ReadInteger<size_t>("bytes", &ss.symbols.bytes_used()));

    Tree* counter = mem->get_tree("counter");
    counter->add(new ReadInteger<size_t>("objects", &state->om->objects_allocated));
    counter->add(new ReadInteger<size_t>("bytes", &state->om->bytes_allocated));

    Tree* gc_young = system_->get_tree("gc")->get_tree("young");
    gc_young->add(new ReadInteger<size_t>("count", &state->om->young_collections));
    gc_young->add(new ReadInteger<size_t>("wallclock", &state->om->young_collection_time));

    Tree* gc_full = system_->get_tree("gc")->get_tree("full");
    gc_full->add(new ReadInteger<size_t>("count", &state->om->full_collections));
    gc_full->add(new ReadInteger<size_t>("wallclock", &state->om->full_collection_time));

    Tree* jit = system_->get_tree("jit");
    jit->add(new ReadInteger<size_t>("methods", &ss.stats.jitted_methods));
    jit->add(new ReadInteger<size_t>("time", &ss.stats.jit_time_spent));

    Tree* threads = system_->get_tree("threads");
    threads->add(new ThreadBacktrace(state, ss, "backtrace"));
    threads->add(new ThreadCount(state, ss, "count"));

    Tree* timing = system_->get_tree("timing");
    timing->add(new ReadDouble("verification",
                                      &ss.stats.verification_time));

  }

  void VariableAccess::read_path(Output& output, const char* ipath) {
    if(strlen(ipath) == 1 && ipath[0] == '.') {
      root_->read(output);
    } else {
      root_->read_path(output, ipath);
    }
  }

  void VariableAccess::set_path(Output& output, const char* ipath, bert::Value* val) {
    if(strlen(ipath) == 1 && ipath[0] == '.') {
      root_->set(output, val);
    } else {
      root_->set_path(output, ipath, val);
    }
  }
}}