environment.cpp

boost::any environment::enumerate_start(int &n) {
  n = 0; // We dont know how many
  return boost::any(environ);
}

value environment::enumerate_next(boost::any &iter) {
  char **env = boost::any_cast<char**>(iter);

  if (*env == 0)
    return value();

  char *eq_c = strchr(*env, '=');
  string result = string(*env, eq_c - *env);

  iter = ++env;

  return result;
}