feat: gc (does compile, but WIP)
This commit is contained in:
@@ -2,25 +2,24 @@ use gc_arena::{Gc, Mutation};
|
||||
use hashbrown::HashMap;
|
||||
|
||||
use crate::env::VmEnv;
|
||||
use crate::ty::common::Const;
|
||||
use crate::ty::internal::{AttrSet, CoW, PrimOp, Value};
|
||||
use crate::vm::VM;
|
||||
|
||||
pub fn env<'gc>(vm: &VM<'gc>, mc: &Mutation<'gc>) -> Gc<'gc, VmEnv<'gc>> {
|
||||
let primops: [PrimOp<'gc>; 7] = [
|
||||
PrimOp::new("add", 2, |args, _, _| {
|
||||
pub fn env<'gc>(vm: &VM, mc: &Mutation<'gc>) -> Gc<'gc, VmEnv<'gc>> {
|
||||
let primops = [
|
||||
PrimOp::new("add", 2, |args, _, mc| {
|
||||
let Ok([mut first, second]): Result<[Value; 2], _> = args.try_into() else {
|
||||
unreachable!()
|
||||
};
|
||||
first.add(second);
|
||||
first.add(second, mc);
|
||||
first.ok()
|
||||
}),
|
||||
PrimOp::new("sub", 2, |args, _, _| {
|
||||
PrimOp::new("sub", 2, |args, _, mc| {
|
||||
let Ok([mut first, mut second]): Result<[Value; 2], _> = args.try_into() else {
|
||||
unreachable!()
|
||||
};
|
||||
second.neg();
|
||||
first.add(second);
|
||||
first.add(second, mc);
|
||||
first.ok()
|
||||
}),
|
||||
PrimOp::new("mul", 2, |args, _, _| {
|
||||
@@ -44,7 +43,7 @@ pub fn env<'gc>(vm: &VM<'gc>, mc: &Mutation<'gc>) -> Gc<'gc, VmEnv<'gc>> {
|
||||
first.lt(second);
|
||||
first.ok()
|
||||
}),
|
||||
PrimOp::new("seq", 2, |args, vm, mc| {
|
||||
/* PrimOp::new("seq", 2, |args, vm, mc| {
|
||||
let Ok([mut first, second]): Result<[_; 2], _> = args.try_into() else {
|
||||
unreachable!()
|
||||
};
|
||||
@@ -52,17 +51,17 @@ pub fn env<'gc>(vm: &VM<'gc>, mc: &Mutation<'gc>) -> Gc<'gc, VmEnv<'gc>> {
|
||||
second.ok()
|
||||
}),
|
||||
PrimOp::new("deepSeq", 2, |args, vm, mc| {
|
||||
let [mut first, second] = *args.into_boxed_slice() else {
|
||||
let Ok([mut first, second]): Result<[_; 2], _> = args.try_into() else {
|
||||
unreachable!()
|
||||
};
|
||||
first.force_deep(vm, mc).unwrap();
|
||||
second.ok()
|
||||
}),
|
||||
}), */
|
||||
];
|
||||
|
||||
let mut env_map = HashMap::new();
|
||||
env_map.insert(vm.new_sym("true"), Value::Const(Const::Bool(true)));
|
||||
env_map.insert(vm.new_sym("false"), Value::Const(Const::Bool(false)));
|
||||
env_map.insert(vm.new_sym("true"), Value::Bool(true));
|
||||
env_map.insert(vm.new_sym("false"), Value::Bool(false));
|
||||
|
||||
let mut map = HashMap::new();
|
||||
for primop in primops {
|
||||
@@ -74,10 +73,13 @@ pub fn env<'gc>(vm: &VM<'gc>, mc: &Mutation<'gc>) -> Gc<'gc, VmEnv<'gc>> {
|
||||
map.insert(vm.new_sym(primop.name), Value::PrimOp(primop));
|
||||
}
|
||||
let sym = vm.new_sym("builtins");
|
||||
let attrs = CoW::new_cyclic(|this| {
|
||||
map.insert(sym, Value::AttrSet(this));
|
||||
AttrSet::from_inner(map)
|
||||
}, mc);
|
||||
let attrs = CoW::new_cyclic(
|
||||
|this| {
|
||||
map.insert(sym, Value::AttrSet(this));
|
||||
AttrSet::from_inner(map)
|
||||
},
|
||||
mc,
|
||||
);
|
||||
let builtins = Value::AttrSet(attrs);
|
||||
|
||||
env_map.insert(sym, builtins);
|
||||
|
||||
Reference in New Issue
Block a user