roland/xo-reader
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-expression2: + IExpression_DVariable

Browse source
This commit is contained in:
Roland Conybeare 2026-01-17 01:24:04 -05:00
commit f38c90db91
13 changed files with 187 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

49
include/xo/expression2/DLocalSymtab.hpp
View file

@ -5,48 +5,45 @@
#pragma once
#include "TypeRef.hpp"
#include "exprtype.hpp"
#include <xo/reflect/TaggedPtr.hpp>
#include <xo/gc/GCObject.hpp>
#include "Binding.hpp"
#include "DUniqueString.hpp"
//#include "exprtype.hpp"
//#include <xo/reflect/TaggedPtr.hpp>
//#include <xo/gc/GCObject.hpp>
namespace xo {
namespace scm {
/** @class DLocalSymtab
* @brief Schematika expression respresenting a literal constant
* @brief symbol table for a local stack frame
**/
struct DLocalSymtab {
public:
using TaggedPtr = xo::reflect::TaggedPtr;
using TypeDescr = xo::reflect::TypeDescr;
using AGCObject = xo::mm::AGCObject;
using typeseq = xo::reflect::typeseq;
// using TaggedPtr = xo::reflect::TaggedPtr;
// using TypeDescr = xo::reflect::TypeDescr;
// using AGCObject = xo::mm::AGCObject;
// using typeseq = xo::reflect::typeseq;
struct Slot {
// obj<Expression,DVariable> var_;
Binding binding_;
};
public:
explicit DLocalSymtab(obj<AGCObject> value) noexcept;
// explicit DLocalSymtab(obj<AGCObject> value) noexcept;
bool is_resolved() const noexcept { return typeref_.is_resolved(); }
/** @defgroup xo-expression2-symboltable-facet symboltable facet**/
///@{
exprtype extype() const noexcept { return exprtype::constant; }
TypeDescr value_td() const noexcept { return typeref_.td(); }
TaggedPtr value_tp() const noexcept { return TaggedPtr(typeref_.td(), value_.data()); }
/** true for global symbol table **/
bool is_global_symtab() const noexcept { return false; }
TypeRef typeref() const noexcept { return typeref_; }
TypeDescr valuetype() const noexcept { return typeref_.td(); }
obj<AGCObject> value() const noexcept { return value_; }
/** lookup binding for variable @p sym **/
Binding lookup_binding(const DUniqueString * sym) const noexcept;
void assign_valuetype(TypeDescr td) noexcept { typeref_.resolve(td); }
///@}
private:
static TypeDescr _lookup_td(typeseq tseq);
private:
/** type for value of this expression
* or unification breadcrumb before unification
**/
TypeRef typeref_;
/** literal value **/
obj<AGCObject> value_;
};
} /*namespace scm*/
} /*namespace xo*/