#pragma once #include #include #include #include "type.hpp" struct type_env; using type_env_ptr = std::shared_ptr; struct type_env { type_env_ptr parent; std::map names; std::map type_names; type_env(type_env_ptr p) : parent(std::move(p)) {} type_env() : type_env(nullptr) {} void find_free(const type_mgr& mgr, std::set& into) const; void find_free_except(const type_mgr& mgr, const std::string& avoid, std::set& into) const; type_scheme_ptr lookup(const std::string& name) const; type_ptr lookup_type(const std::string& name) const; void bind(const std::string& name, type_ptr t); void bind(const std::string& name, type_scheme_ptr t); void bind_type(const std::string& type_name, type_ptr t); void generalize(const std::string& name, type_mgr& mgr); }; type_env_ptr type_scope(type_env_ptr parent);