feat: better builtins implementaion
get rid of circular references
This commit is contained in:
@@ -32,28 +32,43 @@ pub enum Value<'vm> {
|
||||
Thunk(Rc<Thunk<'vm>>),
|
||||
ThunkRef(&'vm Thunk<'vm>),
|
||||
AttrSet(Rc<AttrSet<'vm>>),
|
||||
RecAttrSet(Rc<RecAttrSet<'vm>>),
|
||||
List(Rc<List<'vm>>),
|
||||
Catchable(c::Catchable),
|
||||
PrimOp(Rc<PrimOp<'vm>>),
|
||||
PartialPrimOp(Rc<PartialPrimOp<'vm>>),
|
||||
Func(Rc<Func<'vm>>),
|
||||
Builtins,
|
||||
}
|
||||
|
||||
impl Hash for Value<'_> {
|
||||
fn hash<H: std::hash::Hasher>(&self, state: &mut H) {
|
||||
use Value::*;
|
||||
std::mem::discriminant(self).hash(state);
|
||||
match self {
|
||||
Const(x) => x.hash(state),
|
||||
Thunk(x) => (x.as_ref() as *const self::Thunk).hash(state),
|
||||
ThunkRef(x) => (*x as *const self::Thunk).hash(state),
|
||||
AttrSet(x) => (x.as_ref() as *const self::AttrSet).hash(state),
|
||||
RecAttrSet(x) => (x.as_ref() as *const self::RecAttrSet).hash(state),
|
||||
List(x) => (x.as_ref() as *const self::List).hash(state),
|
||||
Catchable(x) => x.hash(state),
|
||||
PrimOp(x) => (x.as_ref() as *const self::PrimOp).hash(state),
|
||||
PartialPrimOp(x) => (x.as_ref() as *const self::PartialPrimOp).hash(state),
|
||||
Func(x) => (x.as_ref() as *const self::Func).hash(state),
|
||||
Builtins => (),
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
impl<'vm> Value<'vm> {
|
||||
fn eq_impl(&self, other: &Self, vm: &'vm VM<'_>) -> bool {
|
||||
use Value::*;
|
||||
match (self, other) {
|
||||
(Const(a), Const(b)) => a.eq(b),
|
||||
(AttrSet(a), AttrSet(b)) => a.eq_impl(b, vm),
|
||||
(List(a), List(b)) => a.eq(b),
|
||||
(Builtins, AttrSet(attrs)) => attrs.has_attr(vm.new_sym("builtins")),
|
||||
(AttrSet(attrs), Builtins) => attrs.has_attr(vm.new_sym("builtins")),
|
||||
_ => false,
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -65,7 +80,6 @@ pub enum ValueAsRef<'v, 'vm: 'v> {
|
||||
Const(&'v Const),
|
||||
Thunk(&'v Thunk<'vm>),
|
||||
AttrSet(&'v AttrSet<'vm>),
|
||||
RecAttrSet(&'v RecAttrSet<'vm>),
|
||||
List(&'v List<'vm>),
|
||||
Catchable(&'v c::Catchable),
|
||||
PrimOp(&'v PrimOp<'vm>),
|
||||
@@ -78,7 +92,6 @@ pub enum ValueAsMut<'v, 'vm: 'v> {
|
||||
Const(&'v mut Const),
|
||||
Thunk(&'v Thunk<'vm>),
|
||||
AttrSet(&'v mut AttrSet<'vm>),
|
||||
RecAttrSet(&'v mut RecAttrSet<'vm>),
|
||||
List(&'v mut List<'vm>),
|
||||
Catchable(&'v mut c::Catchable),
|
||||
PrimOp(&'v mut PrimOp<'vm>),
|
||||
@@ -95,12 +108,12 @@ impl<'v, 'vm: 'v> Value<'vm> {
|
||||
Thunk(x) => R::Thunk(x),
|
||||
ThunkRef(x) => R::Thunk(x),
|
||||
AttrSet(x) => R::AttrSet(x),
|
||||
RecAttrSet(x) => R::RecAttrSet(x),
|
||||
List(x) => R::List(x),
|
||||
Catchable(x) => R::Catchable(x),
|
||||
PrimOp(x) => R::PrimOp(x),
|
||||
PartialPrimOp(x) => R::PartialPrimOp(x),
|
||||
Func(x) => R::Func(x),
|
||||
Builtins => unreachable!(),
|
||||
}
|
||||
}
|
||||
|
||||
@@ -112,12 +125,12 @@ impl<'v, 'vm: 'v> Value<'vm> {
|
||||
Thunk(x) => M::Thunk(x),
|
||||
ThunkRef(x) => M::Thunk(x),
|
||||
AttrSet(x) => M::AttrSet(Rc::make_mut(x)),
|
||||
RecAttrSet(x) => M::RecAttrSet(Rc::make_mut(x)),
|
||||
List(x) => M::List(Rc::make_mut(x)),
|
||||
Catchable(x) => M::Catchable(x),
|
||||
PrimOp(x) => M::PrimOp(Rc::make_mut(x)),
|
||||
PartialPrimOp(x) => M::PartialPrimOp(Rc::make_mut(x)),
|
||||
Func(x) => M::Func(x),
|
||||
Builtins => unreachable!(),
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -135,19 +148,19 @@ impl<'vm> Value<'vm> {
|
||||
Thunk(_) => "thunk",
|
||||
ThunkRef(_) => "thunk",
|
||||
AttrSet(_) => "set",
|
||||
RecAttrSet(_) => "set",
|
||||
List(_) => "list",
|
||||
Catchable(_) => unreachable!(),
|
||||
PrimOp(_) => "lambda",
|
||||
PartialPrimOp(_) => "lambda",
|
||||
Func(_) => "lambda",
|
||||
Builtins => "set",
|
||||
}
|
||||
}
|
||||
|
||||
pub fn callable(&self) -> bool {
|
||||
match self {
|
||||
Value::PrimOp(_) | Value::PartialPrimOp(_) | Value::Func(_) => true,
|
||||
Value::AttrSet(_) | Value::RecAttrSet(_) => todo!(),
|
||||
Value::AttrSet(_) => todo!(),
|
||||
_ => false,
|
||||
}
|
||||
}
|
||||
@@ -318,8 +331,6 @@ impl<'vm> Value<'vm> {
|
||||
pub fn push_attr(&mut self, sym: usize, val: Self) -> &mut Self {
|
||||
if let Value::AttrSet(attrs) = self {
|
||||
Rc::make_mut(attrs).push_attr(sym, val)
|
||||
} else if let Value::RecAttrSet(attrs) = self {
|
||||
Rc::make_mut(attrs).push_attr(sym, val)
|
||||
} else if let Value::Catchable(_) = self {
|
||||
} else if let Value::Catchable(_) = val {
|
||||
*self = val
|
||||
@@ -335,13 +346,6 @@ impl<'vm> Value<'vm> {
|
||||
Rc::make_mut(&mut a).update(b.as_ref());
|
||||
Value::AttrSet(a)
|
||||
}
|
||||
(Value::RecAttrSet(a), Value::AttrSet(b)) => {
|
||||
Value::AttrSet(a.update_normal(b.as_ref()).into())
|
||||
}
|
||||
(Value::AttrSet(mut a), Value::RecAttrSet(b)) => {
|
||||
Rc::make_mut(&mut a).update_rec(b.as_ref());
|
||||
Value::AttrSet(a)
|
||||
}
|
||||
(x @ Value::Catchable(_), _) | (_, x @ Value::Catchable(_)) => x,
|
||||
_ => todo!(),
|
||||
}
|
||||
@@ -352,23 +356,22 @@ impl<'vm> Value<'vm> {
|
||||
Value::AttrSet(attrs) => attrs
|
||||
.select(sym)
|
||||
.ok_or_else(|| Error::EvalError(format!("{} not found", vm.get_sym(sym)))),
|
||||
Value::RecAttrSet(attrs) => attrs
|
||||
.select(sym)
|
||||
.ok_or_else(|| Error::EvalError(format!("{} not found", vm.get_sym(sym)))),
|
||||
Value::Catchable(_) => return Ok(self),
|
||||
_ => Err(Error::EvalError(format!(
|
||||
"cannot select from {:?}",
|
||||
self.typename()
|
||||
))),
|
||||
}?;
|
||||
*self = val;
|
||||
if let Value::Builtins = val {
|
||||
} else {
|
||||
*self = val;
|
||||
}
|
||||
Ok(self)
|
||||
}
|
||||
|
||||
pub fn select_with_default(&mut self, sym: usize, default: Self) -> Result<&mut Self> {
|
||||
let val = match self {
|
||||
Value::AttrSet(attrs) => attrs.select(sym).unwrap_or(default),
|
||||
Value::RecAttrSet(attrs) => attrs.select(sym).unwrap_or(default),
|
||||
Value::Catchable(_) => return Ok(self),
|
||||
_ => {
|
||||
return Err(Error::EvalError(format!(
|
||||
@@ -377,7 +380,10 @@ impl<'vm> Value<'vm> {
|
||||
)));
|
||||
}
|
||||
};
|
||||
*self = val;
|
||||
if let Value::Builtins = val {
|
||||
} else {
|
||||
*self = val;
|
||||
}
|
||||
Ok(self)
|
||||
}
|
||||
|
||||
@@ -385,9 +391,6 @@ impl<'vm> Value<'vm> {
|
||||
if let Value::AttrSet(attrs) = self {
|
||||
let val = VmConst(Const::Bool(attrs.has_attr(sym)));
|
||||
*self = val;
|
||||
} else if let Value::RecAttrSet(attrs) = self {
|
||||
let val = VmConst(Const::Bool(attrs.has_attr(sym)));
|
||||
*self = val;
|
||||
} else if let Value::Catchable(_) = self {
|
||||
} else {
|
||||
*self = VmConst(Const::Bool(false));
|
||||
@@ -429,28 +432,29 @@ impl<'vm> Value<'vm> {
|
||||
}
|
||||
Value::List(list) => Rc::make_mut(list).force_deep(vm)?,
|
||||
Value::AttrSet(attrs) => Rc::make_mut(attrs).force_deep(vm)?,
|
||||
Value::RecAttrSet(attrs) => Rc::make_mut(attrs).force_deep(vm)?,
|
||||
_ => (),
|
||||
}
|
||||
Ok(self)
|
||||
}
|
||||
|
||||
pub fn to_public(&self, vm: &'vm VM, seen: &mut HashSet<Value<'vm>>) -> p::Value {
|
||||
use self::Value::*;
|
||||
use p::Value;
|
||||
if seen.contains(self) {
|
||||
return p::Value::Repeated;
|
||||
return Value::Repeated;
|
||||
}
|
||||
seen.insert(self.clone());
|
||||
match self {
|
||||
Value::AttrSet(attrs) => attrs.to_public(vm, seen),
|
||||
Value::RecAttrSet(attrs) => attrs.to_public(vm, seen),
|
||||
Value::List(list) => list.to_public(vm, seen),
|
||||
Value::Catchable(catchable) => p::Value::Catchable(catchable.clone()),
|
||||
Value::Const(cnst) => p::Value::Const(cnst.clone().into()),
|
||||
Value::Thunk(_) => p::Value::Thunk,
|
||||
Value::ThunkRef(_) => p::Value::Thunk,
|
||||
Value::PrimOp(primop) => p::Value::PrimOp(primop.name),
|
||||
Value::PartialPrimOp(primop) => p::Value::PartialPrimOp(primop.name),
|
||||
Value::Func(_) => p::Value::Func,
|
||||
AttrSet(attrs) => attrs.to_public(vm, seen),
|
||||
List(list) => list.to_public(vm, seen),
|
||||
Catchable(catchable) => Value::Catchable(catchable.clone()),
|
||||
Const(cnst) => Value::Const(cnst.clone().into()),
|
||||
Thunk(_) => Value::Thunk,
|
||||
ThunkRef(_) => Value::Thunk,
|
||||
PrimOp(primop) => Value::PrimOp(primop.name),
|
||||
PartialPrimOp(primop) => Value::PartialPrimOp(primop.name),
|
||||
Func(_) => Value::Func,
|
||||
Builtins => Value::Repeated,
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user