98 lines
3.1 KiB
C++
98 lines
3.1 KiB
C++
/* @file Variable.cpp */
|
|
|
|
#include "Variable.hpp"
|
|
#include "Environment.hpp"
|
|
#include "pretty_expression.hpp"
|
|
|
|
namespace xo {
|
|
namespace ast {
|
|
std::string
|
|
Variable::gensym(const std::string & prefix) {
|
|
static std::size_t s_counter = 0;
|
|
|
|
++s_counter;
|
|
|
|
char buf[32];
|
|
snprintf(buf, sizeof(buf), "%ld", s_counter);
|
|
|
|
return prefix + std::string(buf);
|
|
}
|
|
|
|
void
|
|
Variable::attach_envs(bp<Environment> e) {
|
|
/** e makes accessible all enclosing lexical scopes **/
|
|
if (this->path_.i_link_ == -2 /*sentinel*/) {
|
|
this->path_ = e->lookup_binding(this->name_);
|
|
} else {
|
|
/* have already established binding for this Variable */
|
|
}
|
|
} /*attach_envs*/
|
|
|
|
void
|
|
Variable::display(std::ostream & os) const {
|
|
os << "<Variable"
|
|
<< xtag("name", name_);
|
|
if (this->valuetype())
|
|
os << xtag("type", this->valuetype()->short_name());
|
|
else
|
|
os << xtag("type", "nullptr");
|
|
os << ">";
|
|
} /*display*/
|
|
|
|
std::uint32_t
|
|
Variable::pretty_print(const ppindentinfo & ppii) const {
|
|
/* 1. rtag instead of refrtag:
|
|
* print::quot() is a temporary rvalue; lifetime ends before control enters pretty_struct()
|
|
*/
|
|
return ppii.pps()->pretty_struct(ppii, "Variable",
|
|
refrtag("name", name_),
|
|
rtag("type", print::quot(this->valuetype()
|
|
? this->valuetype()->short_name()
|
|
: "nullptr")));
|
|
|
|
#ifdef OBSOLETE
|
|
ppstate * pps = ppii.pps();
|
|
|
|
if (ppii.upto()) {
|
|
if (!pps->print_upto("<Variable"))
|
|
return false;
|
|
|
|
if (!pps->print_upto_tag("name", name_))
|
|
return false;
|
|
|
|
if (this->valuetype()) {
|
|
if (!pps->print_upto_tag("type", this->valuetype()->short_name()))
|
|
return false;
|
|
} else {
|
|
if (!pps->print_upto_tag("type", "nullptr"))
|
|
return false;
|
|
}
|
|
|
|
pps->write(">");
|
|
|
|
return true;
|
|
} else {
|
|
pps->write("<Variable");
|
|
|
|
pps->newline_pretty_tag(ppii.ci1(), "name", name_);
|
|
|
|
/* use tag instead of rtag for type,
|
|
* since not guaranteed to print machine-readably
|
|
*/
|
|
if (this->valuetype()) {
|
|
pps->newline_indent(ppii.ci1());
|
|
pps->pretty(xtag("type", this->valuetype()->short_name()));
|
|
} else {
|
|
pps->newline_pretty_tag(ppii.ci1(), "type", "nullptr");
|
|
}
|
|
pps->write(">");
|
|
|
|
return false;
|
|
}
|
|
#endif
|
|
}
|
|
} /*namespace ast*/
|
|
} /*namespace xo*/
|
|
|
|
|
|
/* end Variable.cpp */
|