61 lines
1.8 KiB
C++
61 lines
1.8 KiB
C++
/* file ConvertExpr.cpp
|
|
*
|
|
* author: Roland Conybeare
|
|
*/
|
|
|
|
#include "ConvertExpr.hpp"
|
|
#include "pretty_expression.hpp"
|
|
|
|
namespace xo {
|
|
namespace scm {
|
|
rp<ConvertExpr>
|
|
ConvertExpr::make(TypeDescr dest_type,
|
|
rp<Expression> arg)
|
|
{
|
|
return new ConvertExpr(dest_type,
|
|
std::move(arg));
|
|
}
|
|
|
|
std::set<std::string>
|
|
ConvertExpr::get_free_variables() const {
|
|
if (this->arg_)
|
|
return this->arg_->get_free_variables();
|
|
else
|
|
return std::set<std::string>();
|
|
}
|
|
|
|
void
|
|
ConvertExpr::display(std::ostream & os) const {
|
|
os << "<Convert"
|
|
<< xtag("dest_type", this->valuetype()->short_name())
|
|
<< xtag("arg", arg_)
|
|
<< ">";
|
|
}
|
|
|
|
std::uint32_t
|
|
ConvertExpr::pretty_print(const ppindentinfo & ppii) const {
|
|
return ppii.pps()->pretty_struct(ppii, "Convert",
|
|
rtag("dest_type", print::quot(this->valuetype()->short_name())),
|
|
refrtag("arg", arg_));
|
|
}
|
|
|
|
// ----- ConvertExprAccess -----
|
|
|
|
rp<ConvertExprAccess>
|
|
ConvertExprAccess::make(TypeDescr dest_type,
|
|
rp<Expression> arg)
|
|
{
|
|
return new ConvertExprAccess(dest_type,
|
|
std::move(arg));
|
|
}
|
|
|
|
rp<ConvertExprAccess>
|
|
ConvertExprAccess::make_empty() {
|
|
return new ConvertExprAccess(nullptr /*dest_type*/,
|
|
nullptr /*arg*/);
|
|
}
|
|
} /*namespace scm*/
|
|
} /*namespace xo*/
|
|
|
|
|
|
/* end ConvertExpr.cpp */
|