49 lines
1.6 KiB
C++
49 lines
1.6 KiB
C++
#include "parsed_type.hpp"
|
|
#include <sstream>
|
|
#include "type.hpp"
|
|
#include "type_env.hpp"
|
|
#include "error.hpp"
|
|
|
|
type_ptr parsed_type_app::to_type(
|
|
const std::set<std::string>& vars,
|
|
const type_env& e) const {
|
|
auto parent_type = e.lookup_type(name);
|
|
if(parent_type == nullptr)
|
|
throw type_error("no such type or type constructor " + name);
|
|
type_base* base_type;
|
|
if(!(base_type = dynamic_cast<type_base*>(parent_type.get())))
|
|
throw type_error("invalid type " + name);
|
|
if(base_type->arity != arguments.size()) {
|
|
std::ostringstream error_stream;
|
|
error_stream << "invalid application of type ";
|
|
error_stream << name;
|
|
error_stream << " (" << base_type->arity << " argument(s) expected, ";
|
|
error_stream << "but " << arguments.size() << " provided)";
|
|
throw type_error(error_stream.str());
|
|
}
|
|
|
|
type_app* new_app = new type_app(std::move(parent_type));
|
|
type_ptr to_return(new_app);
|
|
for(auto& arg : arguments) {
|
|
new_app->arguments.push_back(arg->to_type(vars, e));
|
|
}
|
|
return to_return;
|
|
}
|
|
|
|
type_ptr parsed_type_var::to_type(
|
|
const std::set<std::string>& vars,
|
|
const type_env& e) const {
|
|
if(vars.find(var) == vars.end())
|
|
throw type_error("the type variable " + var + " was not explicitly declared.");
|
|
return type_ptr(new type_var(var));
|
|
}
|
|
|
|
|
|
type_ptr parsed_type_arr::to_type(
|
|
const std::set<std::string>& vars,
|
|
const type_env& env) const {
|
|
auto new_left = left->to_type(vars, env);
|
|
auto new_right = right->to_type(vars, env);
|
|
return type_ptr(new type_arr(std::move(new_left), std::move(new_right)));
|
|
}
|