Added untested comm impl

Cargo.lock

@@ -1015,6 +1015,7 @@ version = "0.1.0"
 dependencies = [
  "async-fn-stream",
  "async-once-cell",
+ "bound",
  "derive_destructure",
  "dyn-clone",
  "futures",

examples/hello-world/main.orc

@@ -1,6 +1,6 @@
 let my_tuple = option::some t[1, 2]
 
 let main = match my_tuple {
-	option::of t[ref head, ..] => head;
+	option::some t[ref head, ..] => head;
-	option::empty => "foo";
+	option::none => "foo";
 }

orchid-api-traits/src/hierarchy.rs

@@ -29,25 +29,21 @@ pub trait Extends: InHierarchy<IsRoot = TLFalse> + Into<Self::Parent> {
 pub trait UnderRootImpl<IsRoot: TLBool>: Sized {
 	type __Root: UnderRoot<IsRoot = TLTrue, Root = Self::__Root>;
 	fn __into_root(self) -> Self::__Root;
-	fn __try_from_root(root: Self::__Root) -> Result<Self, Self::__Root>;
 }
 
 pub trait UnderRoot: InHierarchy {
 	type Root: UnderRoot<IsRoot = TLTrue, Root = Self::Root>;
 	fn into_root(self) -> Self::Root;
-	fn try_from_root(root: Self::Root) -> Result<Self, Self::Root>;
 }
 
 impl<T: InHierarchy + UnderRootImpl<T::IsRoot>> UnderRoot for T {
 	type Root = <Self as UnderRootImpl<<Self as InHierarchy>::IsRoot>>::__Root;
 	fn into_root(self) -> Self::Root { self.__into_root() }
-	fn try_from_root(root: Self::Root) -> Result<Self, Self::Root> { Self::__try_from_root(root) }
 }
 
 impl<T: InHierarchy<IsRoot = TLTrue>> UnderRootImpl<TLTrue> for T {
 	type __Root = Self;
 	fn __into_root(self) -> Self::__Root { self }
-	fn __try_from_root(root: Self::__Root) -> Result<Self, Self::__Root> { Ok(root) }
 }
 
 impl<T: InHierarchy<IsRoot = TLFalse> + Extends> UnderRootImpl<TLFalse> for T {
@@ -57,8 +53,4 @@ impl<T: InHierarchy<IsRoot = TLFalse> + Extends> UnderRootImpl<TLFalse> for T {
 	fn __into_root(self) -> Self::__Root {
 		<Self as Into<<Self as Extends>::Parent>>::into(self).into_root()
 	}
-	fn __try_from_root(root: Self::__Root) -> Result<Self, Self::__Root> {
-		let parent = <Self as Extends>::Parent::try_from_root(root)?;
-		parent.clone().try_into().map_err(|_| parent.into_root())
-	}
 }

orchid-api-traits/src/relations.rs

@@ -9,12 +9,6 @@ pub trait Request: fmt::Debug + Sized + 'static {
 }
 
 pub async fn respond<R: Request>(_: &R, rep: R::Response) -> Vec<u8> { enc_vec(&rep).await }
-pub async fn respond_with<R: Request, F: Future<Output = R::Response>>(
-	r: &R,
-	f: impl FnOnce(&R) -> F,
-) -> Vec<u8> {
-	respond(r, f(r).await).await
-}
 
 pub trait Channel: 'static {
 	type Req: Coding + Sized + 'static;

orchid-api/src/interner.rs

@@ -3,7 +3,7 @@ use std::num::NonZeroU64;
 use orchid_api_derive::{Coding, Hierarchy};
 use orchid_api_traits::Request;
 
-use crate::{ExtHostReq, HostExtReq};
+use crate::{ExtHostNotif, ExtHostReq, HostExtReq};
 
 /// Intern requests sent by the replica to the master. These requests are
 /// repeatable.
@@ -71,18 +71,21 @@ pub struct TStr(pub NonZeroU64);
 pub struct TStrv(pub NonZeroU64);
 
 /// A request to sweep the replica. The master will not be sweeped until all
-/// replicas respond, as it must retain everything the replicas retained
+/// replicas respond. For efficiency, replicas should make sure to send the
+/// [Sweeped] notif before returning.
 #[derive(Clone, Copy, Debug, Coding, Hierarchy)]
 #[extends(HostExtReq)]
 pub struct Sweep;
 impl Request for Sweep {
-	type Response = Retained;
+	type Response = ();
 }
 
-/// List of keys in this replica that couldn't be sweeped because local
+/// List of keys in this replica that were removed during a sweep. This may have
-/// datastructures reference their value.
+/// been initiated via a [Sweep] request, but can also be triggered by the
-#[derive(Clone, Debug, Coding)]
+/// replica autonomously.
-pub struct Retained {
+#[derive(Clone, Debug, Coding, Hierarchy)]
+#[extends(ExtHostNotif)]
+pub struct Sweeped {
 	pub strings: Vec<TStr>,
 	pub vecs: Vec<TStrv>,
 }

orchid-api/src/proto.rs

@@ -28,7 +28,7 @@ use futures::{AsyncRead, AsyncWrite};
 use orchid_api_derive::{Coding, Hierarchy};
 use orchid_api_traits::{Channel, Decode, Encode, MsgSet, Request, read_exact, write_exact};
 
-use crate::{atom, expr, interner, lexer, logging, parser, system, tree};
+use crate::{Sweeped, atom, expr, interner, lexer, logging, parser, system, tree};
 
 static HOST_INTRO: &[u8] = b"Orchid host, binary API v0\n";
 pub struct HostHeader {
@@ -99,6 +99,7 @@ pub enum ExtHostReq {
 pub enum ExtHostNotif {
 	ExprNotif(expr::ExprNotif),
 	Log(logging::Log),
+	Sweeped(Sweeped),
 }
 
 pub struct ExtHostChannel;

orchid-base/Cargo.toml

@@ -8,6 +8,7 @@ edition = "2024"
 [dependencies]
 async-fn-stream = { version = "0.1.0", path = "../async-fn-stream" }
 async-once-cell = "0.5.4"
+bound = "0.6.0"
 derive_destructure = "1.0.0"
 dyn-clone = "1.0.20"
 futures = { version = "0.3.31", features = ["std"], default-features = false }

orchid-base/src/interner.rs

@@ -1,20 +1,99 @@
 use std::borrow::Borrow;
+use std::fmt::{Debug, Display};
 use std::future::Future;
-use std::hash::BuildHasher as _;
+use std::hash::{BuildHasher as _, Hash};
 use std::num::NonZeroU64;
 use std::ops::Deref;
 use std::rc::Rc;
 use std::sync::atomic;
 use std::{fmt, hash};
 
+use futures::future::LocalBoxFuture;
 use futures::lock::Mutex;
 use hashbrown::{HashMap, HashSet};
 use itertools::Itertools as _;
 use orchid_api_traits::Request;
+use some_executor::task_local;
 
 use crate::api;
 use crate::reqnot::{DynRequester, Requester};
 
+pub trait IStrHandle: AsRef<str> {}
+pub trait IStrvHandle: AsRef<[IStr]> {}
+
+#[derive(Clone)]
+pub struct IStr(pub api::TStr, pub Rc<dyn IStrHandle>);
+impl Deref for IStr {
+	type Target = str;
+	fn deref(&self) -> &Self::Target { self.1.as_ref().as_ref() }
+}
+impl Eq for IStr {}
+impl PartialEq for IStr {
+	fn eq(&self, other: &Self) -> bool { self.0 == other.0 }
+}
+impl Hash for IStr {
+	fn hash<H: hash::Hasher>(&self, state: &mut H) { self.0.hash(state) }
+}
+impl Display for IStr {
+	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result { write!(f, "{}", self.deref()) }
+}
+impl Debug for IStr {
+	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result { write!(f, "IStr({self}") }
+}
+#[derive(Clone)]
+pub struct IStrv(pub api::TStrv, pub Rc<dyn IStrvHandle>);
+impl Deref for IStrv {
+	type Target = [IStr];
+	fn deref(&self) -> &Self::Target { self.1.as_ref().as_ref() }
+}
+impl Eq for IStrv {}
+impl PartialEq for IStrv {
+	fn eq(&self, other: &Self) -> bool { self.0 == other.0 }
+}
+impl Hash for IStrv {
+	fn hash<H: hash::Hasher>(&self, state: &mut H) { self.0.0.hash(state) }
+}
+impl Display for IStrv {
+	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {
+		let mut iter = self.deref().iter();
+		match iter.next() {
+			None => return Ok(()),
+			Some(s) => write!(f, "{s}")?,
+		}
+		for s in iter {
+			write!(f, "::{s}")?
+		}
+		Ok(())
+	}
+}
+impl Debug for IStrv {
+	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result { write!(f, "IStrv({self})") }
+}
+
+pub trait InternerSrv {
+	fn is(&self, v: &str) -> LocalBoxFuture<'static, IStr>;
+	fn es(&self, t: api::TStr) -> LocalBoxFuture<'static, IStr>;
+	fn iv(&self, v: &[IStr]) -> LocalBoxFuture<'static, IStrv>;
+	fn ev(&self, t: api::TStrv) -> LocalBoxFuture<'static, IStrv>;
+}
+
+task_local! {
+	static INTERNER: Rc<dyn InternerSrv>;
+}
+
+pub async fn with_interner<F: Future>(val: Rc<dyn InternerSrv>, fut: F) -> F::Output {
+	INTERNER.scope(val, fut).await
+}
+
+fn get_interner() -> Rc<dyn InternerSrv> {
+	INTERNER.with(|i| i.expect("Interner not initialized").clone())
+}
+
+pub async fn is(v: &str) -> IStr { get_interner().is(v).await }
+pub async fn iv(v: &[IStr]) -> IStrv { get_interner().iv(v).await }
+pub async fn es(v: api::TStr) -> IStr { get_interner().es(v).await }
+pub async fn ev(v: api::TStrv) -> IStrv { get_interner().ev(v).await }
+
 /// Clippy crashes while verifying `Tok: Sized` without this and I cba to create
 /// a minimal example
 #[derive(Clone)]
@@ -255,12 +334,7 @@ impl Interner {
 		M::Interned::bimap(&mut *self.0.interners.lock().await).insert(token.clone());
 		token
 	}
-	pub async fn sweep_replica(&self) -> api::Retained {
+	pub async fn sweep_master(&self, retained: api::Sweeped) {
-		assert!(self.0.master.is_some(), "Not a replica");
-		let mut g = self.0.interners.lock().await;
-		api::Retained { strings: g.strings.sweep_replica(), vecs: g.vecs.sweep_replica() }
-	}
-	pub async fn sweep_master(&self, retained: api::Retained) {
 		assert!(self.0.master.is_none(), "Not master");
 		let mut g = self.0.interners.lock().await;
 		g.strings.sweep_master(retained.strings.into_iter().collect());
@@ -275,7 +349,7 @@ impl fmt::Debug for Interner {
 
 static ID: atomic::AtomicU64 = atomic::AtomicU64::new(1);
 
-pub fn merge_retained(into: &mut api::Retained, from: &api::Retained) {
+pub fn merge_retained(into: &mut api::Sweeped, from: &api::Sweeped) {
 	into.strings = into.strings.iter().chain(&from.strings).copied().unique().collect();
 	into.vecs = into.vecs.iter().chain(&from.vecs).copied().unique().collect();
 }

orchid-base/src/lib.rs

@@ -25,6 +25,7 @@ pub mod pure_seq;
 pub mod reqnot;
 pub mod sequence;
 pub mod side;
+pub mod stash;
 mod tl_cache;
 pub mod tokens;
 pub mod tree;

orchid-base/src/reqnot.rs

@@ -1,20 +1,28 @@
+use std::any::TypeId;
 use std::cell::RefCell;
+use std::collections::VecDeque;
 use std::future::Future;
 use std::marker::PhantomData;
 use std::mem;
 use std::ops::{BitAnd, Deref};
-use std::pin::Pin;
+use std::pin::{Pin, pin};
+use std::rc::Rc;
 use std::sync::Arc;
+use std::task::Poll;
 use std::thread::panicking;
 
+use async_fn_stream::stream;
+use bound::Bound;
 use derive_destructure::destructure;
 use dyn_clone::{DynClone, clone_box};
-use futures::channel::mpsc;
+use futures::channel::mpsc::{self, Receiver, Sender, channel};
-use futures::future::LocalBoxFuture;
+use futures::channel::oneshot;
-use futures::lock::Mutex;
+use futures::future::{LocalBoxFuture, select_all};
-use futures::{SinkExt, StreamExt};
+use futures::lock::{Mutex, MutexGuard};
+use futures::{AsyncRead, AsyncWrite, SinkExt, Stream, StreamExt, stream, stream_select};
 use hashbrown::HashMap;
-use orchid_api_traits::{Channel, Coding, Decode, Encode, MsgSet, Request, enc_vec};
+use orchid_api_traits::{Channel, Coding, Decode, Encode, MsgSet, Request, UnderRoot, enc_vec};
+use some_executor::task_local;
 use trait_set::trait_set;
 
 use crate::clone;
@@ -22,12 +30,347 @@ use crate::logging::Logger;
 
 pub struct Receipt<'a>(PhantomData<&'a mut ()>);
 
+/// Write guard to outbound for the purpose of serializing a request. Only one
+/// can exist at a time. Dropping this object should panic.
+pub trait ReqWriter {
+	/// Access to the underlying channel. This may be buffered.
+	fn writer(&mut self) -> Pin<&mut dyn AsyncWrite>;
+	/// Finalize the request, release the outbound channel, then queue for the
+	/// reply on the inbound channel.
+	fn send(self: Box<Self>) -> LocalBoxFuture<'static, Box<dyn RepReader>>;
+}
+
+/// Write guard to inbound for the purpose of deserializing a reply. While held,
+/// no inbound requests or other replies can be processed.
+///
+/// Dropping this object should panic even if [RepReader::finish] returns
+/// synchronously, because the API isn't cancellation safe in general so it is a
+/// programmer error in all cases to drop an object related to it without proper
+/// cleanup.
+pub trait RepReader {
+	/// Access to the underlying channel. The length of the message is inferred
+	/// from the number of bytes read so this must not be buffered.
+	fn reader(&mut self) -> Pin<&mut dyn AsyncRead>;
+	/// Finish reading the request
+	fn finish(self: Box<Self>) -> LocalBoxFuture<'static, ()>;
+}
+
+/// Write guard to outbound for the purpose of serializing a notification.
+///
+/// Dropping this object should panic for the same reason [RepReader] panics
+pub trait MsgWriter {
+	/// Access to the underlying channel. This may be buffered.
+	fn writer(&mut self) -> Pin<&mut dyn AsyncWrite>;
+	/// Send the notification
+	fn finish(self: Box<Self>) -> LocalBoxFuture<'static, ()>;
+}
+
+/// For initiating outbound requests and notifications
+pub trait Client {
+	fn root_req_tid(&self) -> TypeId;
+	fn root_notif_tid(&self) -> TypeId;
+	fn start_request(&self) -> LocalBoxFuture<'_, Box<dyn ReqWriter>>;
+	fn start_notif(&self) -> LocalBoxFuture<'_, Box<dyn MsgWriter>>;
+}
+
+/// Extension trait with convenience methods that handle outbound request and
+/// notif lifecycle and typing
+#[allow(async_fn_in_trait)]
+pub trait ClientExt: Client {
+	async fn request<T: Request + UnderRoot<Root: Encode>>(&self, t: T) -> T::Response {
+		assert_eq!(TypeId::of::<<T as UnderRoot>::Root>(), self.root_req_tid());
+		let mut req = self.start_request().await;
+		t.into_root().encode(req.writer().as_mut()).await;
+		let mut rep = req.send().await;
+		let response = T::Response::decode(rep.reader()).await;
+		rep.finish().await;
+		response
+	}
+	async fn notify<T: UnderRoot<Root: Encode> + 'static>(&self, t: T) {
+		assert_eq!(TypeId::of::<<T as UnderRoot>::Root>(), self.root_notif_tid());
+		let mut notif = self.start_notif().await;
+		t.into_root().encode(notif.writer().as_mut()).await;
+		notif.finish().await;
+	}
+}
+impl<T: Client + ?Sized> ClientExt for T {}
+
+/// A form of [Evidence] that doesn't require the value to be kept around
+pub struct Witness<T>(PhantomData<T>);
+impl<T> Witness<T> {
+	fn of(t: &T) -> Self { Self(PhantomData) }
+}
+impl<T> Copy for Witness<T> {}
+impl<T> Clone for Witness<T> {
+	fn clone(&self) -> Self { Self(PhantomData) }
+}
+
+/// A proxy for the type of a value either previously saved into a [Witness] or
+/// still available.
+pub trait Evidence<T> {}
+impl<T> Evidence<T> for &'_ T {}
+impl<T> Evidence<T> for Witness<T> {}
+
+type IoRef<T> = Pin<Box<T>>;
+type IoLock<T> = Rc<Mutex<Pin<Box<T>>>>;
+type IoGuard<T> = Bound<MutexGuard<'static, Pin<Box<T>>>, IoLock<T>>;
+
+/// An incoming request. This holds a lock on the ingress channel.
+pub struct ReqReader<'a> {
+	id: u64,
+	read: MutexGuard<'a, IoRef<dyn AsyncRead>>,
+	write: &'a Mutex<IoRef<dyn AsyncWrite>>,
+}
+impl<'a> ReqReader<'a> {
+	/// Access
+	pub fn reader(&mut self) -> Pin<&mut dyn AsyncRead> { self.read.as_mut() }
+	pub async fn read_req<R: Decode>(&mut self) -> R { R::decode(self.reader()).await }
+	pub async fn start_reply(self) -> RepWriter<'a> { self.branch().await.start_reply().await }
+	pub async fn reply<R: Request>(self, req: impl Evidence<R>, rep: &R::Response) -> Receipt<'a> {
+		self.branch().await.reply(req, rep).await
+	}
+	pub async fn branch(self) -> ReqHandle<'a> { ReqHandle { id: self.id, write: self.write } }
+}
+pub struct ReqHandle<'a> {
+	id: u64,
+	write: &'a Mutex<IoRef<dyn AsyncWrite>>,
+}
+impl<'a> ReqHandle<'a> {
+	pub async fn reply<Req: Request>(
+		self,
+		_: impl Evidence<Req>,
+		rep: &Req::Response,
+	) -> Receipt<'a> {
+		let mut reply = self.start_reply().await;
+		rep.encode(reply.writer()).await;
+		reply.send().await
+	}
+	pub async fn start_reply(self) -> RepWriter<'a> {
+		let mut write = self.write.lock().await;
+		(!self.id).encode(write.as_mut()).await;
+		RepWriter { write }
+	}
+}
+pub struct RepWriter<'a> {
+	write: MutexGuard<'a, IoRef<dyn AsyncWrite>>,
+}
+impl<'a> RepWriter<'a> {
+	pub fn writer(&mut self) -> Pin<&mut dyn AsyncWrite> { self.write.as_mut() }
+	pub async fn send(self) -> Receipt<'a> { Receipt(PhantomData) }
+}
+
+pub struct NotifReader<'a> {
+	read: MutexGuard<'a, IoRef<dyn AsyncRead>>,
+}
+impl<'a> NotifReader<'a> {
+	pub fn reader(&mut self) -> Pin<&mut dyn AsyncRead> { self.read.as_mut() }
+	pub async fn read<N: Decode>(mut self) -> N {
+		let n = N::decode(self.reader()).await;
+		self.release().await;
+		n
+	}
+	pub async fn release(self) {}
+}
+
+#[derive(Clone)]
+struct IO {
+	i: IoLock<dyn AsyncRead>,
+	o: IoLock<dyn AsyncWrite>,
+}
+
+struct ReplySub {
+	id: u64,
+	ack: oneshot::Sender<()>,
+	cb: oneshot::Sender<IoGuard<dyn AsyncRead>>,
+}
+
+struct IoClient {
+	output: IoLock<dyn AsyncWrite>,
+	id: Rc<RefCell<u64>>,
+	subscribe: Rc<Sender<ReplySub>>,
+	req_tid: TypeId,
+	notif_tid: TypeId,
+}
+impl IoClient {
+	pub async fn new<Req: 'static, Not: 'static>(
+		output: IoLock<dyn AsyncWrite>,
+	) -> (Receiver<ReplySub>, Self) {
+		let (req, rep) = mpsc::channel(0);
+		(rep, Self {
+			output,
+			id: Rc::new(RefCell::new(0)),
+			req_tid: TypeId::of::<Req>(),
+			notif_tid: TypeId::of::<Not>(),
+			subscribe: Rc::new(req),
+		})
+	}
+	async fn lock_out(&self) -> IoGuard<dyn AsyncWrite> {
+		Bound::async_new(self.output.clone(), async |o| o.lock().await).await
+	}
+}
+impl Client for IoClient {
+	fn root_notif_tid(&self) -> TypeId { self.notif_tid }
+	fn root_req_tid(&self) -> TypeId { self.req_tid }
+	fn start_notif(&self) -> LocalBoxFuture<'_, Box<dyn MsgWriter>> {
+		Box::pin(async {
+			let mut o = self.lock_out().await;
+			0u64.encode(o.as_mut()).await;
+			Box::new(IoNotifWriter { o }) as Box<dyn MsgWriter>
+		})
+	}
+	fn start_request(&self) -> LocalBoxFuture<'_, Box<dyn ReqWriter>> {
+		Box::pin(async {
+			let id = {
+				let mut id_g = self.id.borrow_mut();
+				*id_g += 1;
+				*id_g
+			};
+			let (cb, reply) = oneshot::channel();
+			let (ack, got_ack) = oneshot::channel();
+			self.subscribe.as_ref().clone().send(ReplySub { id, ack, cb }).await;
+			got_ack.await;
+			let mut w = self.lock_out().await;
+			id.encode(w.as_mut()).await;
+			Box::new(IoReqWriter { reply, w }) as Box<dyn ReqWriter>
+		})
+	}
+}
+
+struct IoReqWriter {
+	reply: oneshot::Receiver<IoGuard<dyn AsyncRead>>,
+	w: IoGuard<dyn AsyncWrite>,
+}
+impl ReqWriter for IoReqWriter {
+	fn writer(&mut self) -> Pin<&mut dyn AsyncWrite> { self.w.as_mut() }
+	fn send(self: Box<Self>) -> LocalBoxFuture<'static, Box<dyn RepReader>> {
+		Box::pin(async {
+			let Self { reply, .. } = *self;
+			let i = reply.await.expect("Client dropped before reply received");
+			Box::new(IoRepReader { i }) as Box<dyn RepReader>
+		})
+	}
+}
+
+struct IoRepReader {
+	i: IoGuard<dyn AsyncRead>,
+}
+impl RepReader for IoRepReader {
+	fn reader(&mut self) -> Pin<&mut dyn AsyncRead> { self.i.as_mut() }
+	fn finish(self: Box<Self>) -> LocalBoxFuture<'static, ()> { Box::pin(async {}) }
+}
+
+#[derive(destructure)]
+struct IoNotifWriter {
+	o: IoGuard<dyn AsyncWrite>,
+}
+impl MsgWriter for IoNotifWriter {
+	fn writer(&mut self) -> Pin<&mut dyn AsyncWrite> { self.o.as_mut() }
+	fn finish(self: Box<Self>) -> LocalBoxFuture<'static, ()> {
+		self.destructure();
+		Box::pin(async {})
+	}
+}
+
+pub struct CommCtx {
+	quit: Sender<()>,
+	client: Rc<IoClient>,
+}
+
+impl CommCtx {
+	pub async fn quit(self) { self.quit.clone().send(()).await.expect("quit channel dropped"); }
+	pub fn client(&self) -> Rc<dyn Client> { self.client.clone() as Rc<dyn Client> }
+}
+
+pub async fn io_comm<Req: 'static, Not: 'static>(
+	o: Rc<Mutex<Pin<Box<dyn AsyncWrite>>>>,
+	i: Mutex<Pin<Box<dyn AsyncRead>>>,
+	notif: impl for<'a> AsyncFn(&mut CommCtx, NotifReader<'a>),
+	req: impl for<'a> AsyncFn(&mut CommCtx, ReqReader<'a>),
+) {
+	let i = Rc::new(i);
+	let (onsub, client) = IoClient::new::<Req, Not>(o.clone()).await;
+	let client = Rc::new(client);
+	let (exit, onexit) = channel(1);
+	enum Event {
+		Input(u64),
+		Sub(ReplySub),
+		Exit,
+	}
+	let exiting = RefCell::new(false);
+	let input_stream = stream(async |mut h| {
+		loop {
+			let id = u64::decode(i.lock().await.as_mut()).await;
+			h.emit(Event::Input(id)).await;
+		}
+	});
+	let pending_reqs = RefCell::new(VecDeque::<LocalBoxFuture<()>>::new());
+	// this stream will never yield a value
+	let mut fork_stream = pin!(
+		stream::poll_fn(|cx| {
+			let mut reqs_g = pending_reqs.borrow_mut();
+			reqs_g.retain_mut(|req| match req.as_mut().poll(cx) {
+				Poll::Pending => true,
+				Poll::Ready(()) => false,
+			});
+			if *exiting.borrow() { Poll::Ready(None) } else { Poll::Pending }
+		})
+		.fuse()
+	);
+	{
+		let mut shared = pin!(stream_select!(
+			Box::pin(input_stream) as Pin<Box<dyn Stream<Item = Event>>>,
+			Box::pin(onsub.map(Event::Sub)) as Pin<Box<dyn Stream<Item = Event>>>,
+			Box::pin(fork_stream.as_mut()) as Pin<Box<dyn Stream<Item = Event>>>,
+			Box::pin(onexit.map(|()| Event::Exit)) as Pin<Box<dyn Stream<Item = Event>>>,
+		));
+		let mut pending_replies = HashMap::new();
+		while let Some(next) = shared.next().await {
+			match next {
+				Event::Exit => {
+					*exiting.borrow_mut() = true;
+					break;
+				},
+				Event::Sub(ReplySub { id, ack, cb }) => {
+					pending_replies.insert(id, cb);
+					ack.send(());
+				},
+				Event::Input(id) if id == 0 => {
+					let (i, notif, exit, client) = (i.clone(), &notif, exit.clone(), client.clone());
+					pending_reqs.borrow_mut().push_back(Box::pin(async move {
+						let g = i.lock().await;
+						notif(&mut CommCtx { client, quit: exit.clone() }, NotifReader { read: g }).await
+					}));
+				},
+				// id.msb == 0 is a request, !id where id.msb == 1 is the equivalent response
+				Event::Input(id) =>
+					if (id & (1 << (u64::BITS - 1))) == 0 {
+						let (i, o, req, exit, client) =
+							(i.clone(), o.clone(), &req, exit.clone(), client.clone());
+						pending_reqs.borrow_mut().push_back(Box::pin(async move {
+							let g = i.lock().await;
+							req(&mut CommCtx { client, quit: exit.clone() }, ReqReader {
+								id,
+								read: g,
+								write: &*o,
+							})
+							.await
+						}) as LocalBoxFuture<()>);
+					} else {
+						let cb = pending_replies.remove(&!id).expect("Reply to unrecognized request");
+						let _ = cb.send(Bound::async_new(i.clone(), |i| i.lock()).await);
+					},
+			}
+		}
+	}
+	fork_stream.as_mut().count().await;
+}
+
 trait_set! {
 	pub trait SendFn<T: MsgSet> =
 		for<'a> FnMut(&'a [u8], ReqNot<T>) -> LocalBoxFuture<'a, ()>
 		+ DynClone + 'static;
 	pub trait ReqFn<T: MsgSet> =
-		for<'a> FnMut(RequestHandle<'a, T>, <T::In as Channel>::Req)
+		for<'a> FnMut(ReqReader<'a, T>, <T::In as Channel>::Req)
 			-> LocalBoxFuture<'a, Receipt<'a>>
 		+ DynClone + 'static;
 	pub trait NotifFn<T: MsgSet> =
@@ -59,7 +402,7 @@ pub struct RequestHandle<'a, MS: MsgSet> {
 	parent: ReqNot<MS>,
 	raw_reply: RefCell<Option<LocalAsyncFnOnceBox>>,
 }
-impl<'a, MS: MsgSet + 'static> RequestHandle<'a, MS> {
+impl<'a, MS: MsgSet + 'static> ReqReader<'a, MS> {
 	pub fn new(parent: ReqNot<MS>, raw_reply: impl AsyncFnOnce(Vec<u8>) + 'static) -> Self {
 		Self {
 			defer: RefCell::default(),
@@ -87,12 +430,12 @@ impl<'a, MS: MsgSet + 'static> RequestHandle<'a, MS> {
 		Receipt(PhantomData)
 	}
 }
-impl<MS: MsgSet> ReqHandlish for RequestHandle<'_, MS> {
+impl<MS: MsgSet> ReqHandlish for ReqReader<'_, MS> {
 	fn defer_objsafe(&self, val: Pin<Box<dyn Future<Output = ()>>>) {
 		self.defer.borrow_mut().push(val)
 	}
 }
-impl<MS: MsgSet> Drop for RequestHandle<'_, MS> {
+impl<MS: MsgSet> Drop for ReqReader<'_, MS> {
 	fn drop(&mut self) {
 		if !panicking() {
 			debug_assert!(self.raw_reply.borrow().is_none(), "Request dropped without response")
@@ -158,7 +501,7 @@ impl<T: MsgSet> ReqNot<T> {
 			let rn = self.clone();
 			let rn2 = self.clone();
 			req_cb(
-				RequestHandle::new(rn, async move |vec| {
+				ReqReader::new(rn, async move |vec| {
 					let mut buf = (!id).to_be_bytes().to_vec();
 					buf.extend(vec);
 					let mut send = clone_box(&*rn2.0.lock().await.send);

orchid-base/src/stash.rs

@@ -0,0 +1,42 @@
+//! A pattern for running async code from sync destructors and other
+//! unfortunately sync callbacks
+//!
+//! We create a task_local
+
+use std::collections::VecDeque;
+use std::pin::Pin;
+
+use some_executor::task_local;
+
+#[derive(Default)]
+struct StashedFutures {
+	queue: VecDeque<Pin<Box<dyn Future<Output = ()>>>>,
+}
+
+task_local! {
+	static STASHED_FUTURES: StashedFutures;
+}
+
+/// Complete the argument future, and any futures spawned from it via [stash].
+/// This is useful mostly to guarantee that messaging destructors have run.
+pub async fn with_stash<F: Future>(fut: F) -> F::Output {
+	STASHED_FUTURES
+		.scope(StashedFutures::default(), async {
+			let val = fut.await;
+			while let Some(fut) = STASHED_FUTURES.with_mut(|sf| sf.unwrap().queue.pop_front()) {
+				fut.await;
+			}
+			val
+		})
+		.await
+}
+
+/// Schedule a future to be run before the next [with_stash] guard ends. This is
+/// most useful for sending messages from destructors.
+pub fn stash<F: Future + 'static>(fut: F) {
+	STASHED_FUTURES.with_mut(|sf| {
+		sf.expect("No stash! Timely completion cannot be guaranteed").queue.push_back(Box::pin(async {
+			fut.await;
+		}))
+	})
+}

orchid-extension/src/entrypoint.rs

@@ -3,7 +3,7 @@ use std::future::Future;
 use std::mem;
 use std::num::NonZero;
 use std::pin::Pin;
-use std::rc::Rc;
+use std::rc::{Rc, Weak};
 
 use futures::channel::mpsc::{Receiver, Sender, channel};
 use futures::future::{LocalBoxFuture, join_all};
@@ -21,7 +21,7 @@ use orchid_base::interner::{Interner, Tok};
 use orchid_base::logging::Logger;
 use orchid_base::name::Sym;
 use orchid_base::parse::{Comment, Snippet};
-use orchid_base::reqnot::{ReqNot, RequestHandle, Requester};
+use orchid_base::reqnot::{ReqNot, ReqReader, Requester};
 use orchid_base::tree::{TokenVariant, ttv_from_api};
 use substack::Substack;
 use trait_set::trait_set;
@@ -37,7 +37,29 @@ use crate::system::atom_by_idx;
 use crate::system_ctor::{CtedObj, DynSystemCtor};
 use crate::tree::{LazyMemberFactory, TreeIntoApiCtxImpl};
 
-pub type ExtReq<'a> = RequestHandle<'a, api::ExtMsgSet>;
+task_local::task_local! {
+	static CLIENT: Rc<dyn Client>;
+}
+
+fn get_client() -> Rc<dyn Client> {
+	CLIENT.with(|c| c.expect("Client not set, not running inside a duplex reqnot channel!").clone())
+}
+
+/// Sent the client used for global [request] and [notify] functions within the
+/// runtime of this future
+pub async fn with_client<F: Future>(c: Rc<dyn Client>, fut: F) -> F::Output {
+	CLIENT.scope(c, fut).await
+}
+
+/// Send a request through the global client's [ClientExt::request]
+pub async fn request<T: Request + UnderRoot<Root: Encode>>(t: T) -> T::Response {
+	get_client().request(t).await
+}
+
+/// Send a notification through the global client's [ClientExt::notify]
+pub async fn notify<T: UnderRoot<Root: Encode> + 'static>(t: T) { get_client().notify(t).await }
+
+pub type ExtReq<'a> = ReqReader<'a, api::ExtMsgSet>;
 pub type ExtReqNot = ReqNot<api::ExtMsgSet>;
 
 pub struct ExtensionData {
@@ -177,8 +199,7 @@ pub fn extension_init(
 							})
 							.await,
 						api::HostExtReq::Ping(ping @ api::Ping) => hand.handle(&ping, &()).await,
-						api::HostExtReq::Sweep(sweep @ api::Sweep) =>
+						api::HostExtReq::Sweep(api::Sweep) => todo!(),
-							hand.handle(&sweep, &interner.sweep_replica().await).await,
 						api::HostExtReq::SysReq(api::SysReq::NewSystem(new_sys)) => {
 							let (sys_id, _) = (decls.iter().enumerate().find(|(_, s)| s.id == new_sys.system))
 								.expect("NewSystem call received for invalid system");

orchid-extension/src/interner.rs

@@ -0,0 +1,73 @@
+use std::borrow::Borrow;
+use std::cell::RefCell;
+use std::fmt::Debug;
+use std::hash::Hash;
+use std::rc::{Rc, Weak};
+
+use hashbrown::HashMap;
+use orchid_api_traits::Coding;
+use orchid_base::interner::{IStr, IStrHandle, IStrv, IStrvHandle};
+
+use crate::api;
+
+trait Branch: 'static {
+	type Token: Clone + Copy + Debug + Hash + PartialEq + Eq + PartialOrd + Ord + Coding + 'static;
+	type Data: 'static + Borrow<Self::Borrow>;
+	type Borrow: ToOwned<Owned = Self::Data> + ?Sized;
+	type Handle: AsRef<Self::Borrow>;
+	type Interned: Clone;
+	fn mk_interned(t: Self::Token, h: Rc<Self::Handle>) -> Self::Interned;
+}
+
+struct StrBranch;
+impl Branch for StrBranch {
+	type Data = String;
+	type Token = api::TStr;
+	type Borrow = str;
+	type Handle = Handle<Self>;
+	type Interned = IStr;
+	fn mk_interned(t: Self::Token, h: Rc<Self::Handle>) -> Self::Interned { IStr(t, h) }
+}
+struct StrvBranch;
+impl Branch for StrvBranch {
+	type Data = Vec<IStr>;
+	type Token = api::TStrv;
+	type Borrow = [IStr];
+	type Handle = Handle<Self>;
+	type Interned = IStrv;
+	fn mk_interned(t: Self::Token, h: Rc<Self::Handle>) -> Self::Interned { IStrv(t, h) }
+}
+
+struct Data<B: Branch> {
+	token: B::Token,
+	data: Rc<B::Data>,
+}
+
+struct Handle<B: Branch> {
+	data: Rc<Data<B>>,
+	parent: Weak<RefCell<IntData<B>>>,
+}
+impl IStrHandle for Handle<StrBranch> {}
+impl AsRef<str> for Handle<StrBranch> {
+	fn as_ref(&self) -> &str { self.data.data.as_ref().as_ref() }
+}
+impl IStrvHandle for Handle<StrvBranch> {}
+impl AsRef<[IStr]> for Handle<StrvBranch> {
+	fn as_ref(&self) -> &[IStr] { self.data.data.as_ref().as_ref() }
+}
+
+struct Rec<B: Branch> {
+	handle: Weak<B::Handle>,
+	data: Rc<Data<B>>,
+}
+
+struct IntData<B: Branch> {
+	by_tok: HashMap<B::Token, Rec<B>>,
+	by_data: HashMap<Rc<B::Data>, Rec<B>>,
+}
+impl<B: Branch> IntData<B> {
+	async fn i(&mut self, q: &B::Borrow) -> B::Interned { todo!() }
+	async fn e(&mut self, q: &B::Token) -> B::Interned { todo!() }
+}
+
+struct Int<B: Branch>(Rc<RefCell<IntData<B>>>);

orchid-extension/src/lib.rs

@@ -12,6 +12,7 @@ pub mod gen_expr;
 pub mod lexer;
 // pub mod msg;
 pub mod context;
+pub mod interner;
 pub mod other_system;
 pub mod parser;
 pub mod reflection;

orchid-std/src/macros/macro_lib.rs

@@ -3,12 +3,14 @@ use orchid_extension::atom::TAtom;
 use orchid_extension::atom_owned::own;
 use orchid_extension::context::i;
 use orchid_extension::conv::ToExpr;
+use orchid_extension::coroutine_exec::exec;
 use orchid_extension::gen_expr::{call, sym_ref};
 use orchid_extension::tree::{GenMember, fun, prefix};
 
 use crate::macros::mactree::MacTree;
 use crate::macros::resolve::resolve;
 use crate::macros::utils::{build_macro, mactree, mactreev};
+use crate::{HomoTpl, UntypedTuple};
 
 pub async fn gen_macro_lib() -> Vec<GenMember> {
 	prefix("macros", [
@@ -30,35 +32,37 @@ pub async fn gen_macro_lib() -> Vec<GenMember> {
 				.rule(
 					mactreev!(macros::common::comma_list ( "...$" head 0  macros::common::, "...$" tail 1)),
 					[async |[head, tail]| {
-						call(sym_ref(sym!(std::tuple::cat; i())), [
+						exec(async |mut h| {
-							call(sym_ref(sym!(std::tuple::one; i())), [head.to_gen().await]),
+							let recur = resolve(mactree!(macros::common::comma_list "push" tail ;)).await;
-							resolve(mactree!(macros::common::comma_list "push" tail ;)).await,
+							let mut tail = h.exec::<HomoTpl<TAtom<MacTree>>>(recur).await?;
-						])
+							tail.0.insert(0, h.exec(head).await?);
+							Ok(tail)
+						})
+						.await
 					}],
 				)
 				.rule(mactreev!(macros::common::comma_list ( "...$" final_tail 0 )), [async |[tail]| {
-					call(sym_ref(sym!(std::tuple::one; i())), [tail.to_gen().await])
+					HomoTpl(vec![tail.to_gen().await])
-				}])
-				.rule(mactreev!(macros::common::comma_list()), [async |[]| {
-					sym_ref(sym!(std::tuple::empty; i()))
 				}])
+				.rule(mactreev!(macros::common::comma_list()), [async |[]| UntypedTuple(Vec::new())])
 				.finish(),
 			build_macro(None, ["semi_list", ";"])
 				.rule(
 					mactreev!(macros::common::semi_list ( "...$" head 0  macros::common::; "...$" tail 1)),
 					[async |[head, tail]| {
-						call(sym_ref(sym!(std::tuple::cat; i())), [
+						exec(async |mut h| {
-							call(sym_ref(sym!(std::tuple::one; i())), [head.to_gen().await]),
+							let recur = resolve(mactree!(macros::common::semi_list "push" tail ;)).await;
-							resolve(mactree!(macros::common::semi_list "push" tail ;)).await,
+							let mut tail = h.exec::<HomoTpl<TAtom<MacTree>>>(recur).await?;
-						])
+							tail.0.insert(0, h.exec(head).await?);
+							Ok(tail)
+						})
+						.await
 					}],
 				)
 				.rule(mactreev!(macros::common::semi_list ( "...$" final_tail 0 )), [async |[tail]| {
-					call(sym_ref(sym!(std::tuple::one; i())), [tail.to_gen().await])
+					HomoTpl(vec![tail.to_gen().await])
-				}])
-				.rule(mactreev!(macros::common::semi_list()), [async |[]| {
-					sym_ref(sym!(std::tuple::empty; i()))
 				}])
+				.rule(mactreev!(macros::common::semi_list()), [async |[]| UntypedTuple(Vec::new())])
 				.finish(),
 		]),
 	])

orchid-std/src/macros/macro_line.rs

@@ -1,8 +1,8 @@
-use std::cell::RefCell;
 use std::rc::Rc;
 
+use async_fn_stream::stream;
 use async_once_cell::OnceCell;
-use futures::{StreamExt, stream};
+use futures::StreamExt;
 use itertools::Itertools;
 use orchid_base::error::{OrcRes, Reporter, mk_errv};
 use orchid_base::parse::{
@@ -14,7 +14,7 @@ use orchid_base::{clone, sym};
 use orchid_extension::atom::TAtom;
 use orchid_extension::context::i;
 use orchid_extension::conv::{ToExpr, TryFromExpr};
-use orchid_extension::gen_expr::{atom, call, sym_ref};
+use orchid_extension::gen_expr::{call, sym_ref};
 use orchid_extension::parser::{PSnippet, ParsCtx, ParsedLine, Parser};
 
 use crate::macros::let_line::{dealias_mac_v, parse_tokv};
@@ -142,43 +142,37 @@ impl Parser for MacroLine {
 			}))
 		}
 		let mac_cell = Rc::new(OnceCell::new());
-		let rules = Rc::new(RefCell::new(Some(rules)));
+		let rules = Rc::new(rules);
 		for (kw, sr) in &*keywords {
 			clone!(mac_cell, rules, module, macro_name, prio);
-			lines.push(ParsedLine::cnst(&sr.clone(), &comments, true, kw.clone(), async move |cctx| {
+			let kw_key = i().i(&format!("__macro__{kw}")).await;
-				let mac = mac_cell
+			lines.push(ParsedLine::cnst(&sr.clone(), &comments, true, kw_key, async move |cctx| {
-					.get_or_init(async {
+				let mac_future = async {
 					let rep = Reporter::new();
-						let rules = rules.borrow_mut().take().expect("once cell initializer runs");
+					let rules = stream(async |mut h| {
-						let rules = stream::iter(rules)
+						for (body, ph_names, pattern_rel) in rules.iter() {
-							.then(|(body_name, placeholders, pattern_rel)| {
+							let pattern = dealias_mac_v(pattern_rel, &cctx, &rep).await;
-								let cctx = &cctx;
+							let ph_names = ph_names.iter().map(|(ph, _)| ph.name.clone()).collect_vec();
-								let rep = &rep;
+							match Matcher::new(pattern.clone()).await {
-								async move {
+								Ok(matcher) =>
-									let pattern = dealias_mac_v(&pattern_rel, cctx, rep).await;
+									h.emit(Rule { body: body.clone(), matcher, pattern, ph_names }).await,
-									let pattern_res = Matcher::new(pattern.clone()).await;
+								Err(e) => rep.report(e),
-									let placeholders = placeholders.into_iter().map(|(ph, _)| ph.name).collect_vec();
-									match pattern_res {
-										Ok(matcher) => Some(Rule { body_name, matcher, pattern, placeholders }),
-										Err(e) => {
-											rep.report(e);
-											None
-										},
 							}
 						}
 					})
-							.flat_map(stream::iter)
 					.collect::<Vec<_>>()
 					.await;
-						Macro(Rc::new(MacroData {
+					match rep.errv() {
+						Some(e) => Err(e),
+						None => Ok(Macro(Rc::new(MacroData {
 							canonical_name: module.suffix([macro_name], &i()).await,
 							module,
 							prio: prio.map(|i| i.0 as u64),
 							rules,
-						}))
+						}))),
-					})
+					}
-					.await;
+				};
-				atom(mac.clone())
+				mac_cell.get_or_init(mac_future).await.clone().to_gen().await
 			}))
 		}
 		Ok(lines)

orchid-std/src/macros/macro_value.rs

@@ -25,8 +25,8 @@ pub struct Macro(pub Rc<MacroData>);
 pub struct Rule {
 	pub pattern: MacTreeSeq,
 	pub matcher: Matcher,
-	pub placeholders: Vec<Tok<String>>,
+	pub ph_names: Vec<Tok<String>>,
-	pub body_name: Tok<String>,
+	pub body: Tok<String>,
 }
 impl Atomic for Macro {
 	type Data = ();

orchid-std/src/macros/resolve.rs

@@ -7,7 +7,7 @@ use itertools::Itertools;
 use orchid_base::error::mk_errv;
 use orchid_base::format::fmt;
 use orchid_base::location::Pos;
-use orchid_base::name::Sym;
+use orchid_base::name::{NameLike, Sym, VPath};
 use orchid_base::tree::Paren;
 use orchid_extension::atom::TAtom;
 use orchid_extension::atom_owned::own;
@@ -24,17 +24,22 @@ use crate::macros::mactree::MacTreeSeq;
 use crate::macros::rule::state::{MatchState, StateEntry};
 use crate::{MacTok, MacTree};
 
-pub async fn resolve(tpl: MacTree) -> GExpr {
+pub async fn resolve(val: MacTree) -> GExpr {
 	exec(async move |mut h| {
 		let ctx = ctx();
 		// if ctx.logger().is_active() {
-		writeln!(ctx.logger(), "Macro-resolving {}", fmt(&tpl, &i()).await);
+		writeln!(ctx.logger(), "Macro-resolving {}", fmt(&val, &i()).await);
 		// }
 		let root = refl();
 		let mut macros = HashMap::new();
-		for n in tpl.glossary() {
+		for n in val.glossary() {
-			if let Ok(ReflMemKind::Const) = root.get_by_path(n).await.map(|m| m.kind()) {
+			let (foot, body) = n.split_last_seg();
-				let Ok(mac) = h.exec::<TAtom<Macro>>(sym_ref(n.clone())).await else { continue };
+			let new_name = VPath::new(body.iter().cloned())
+				.name_with_suffix(i().i(&format!("__macro__{foot}")).await)
+				.to_sym(&i())
+				.await;
+			if let Ok(ReflMemKind::Const) = root.get_by_path(&new_name).await.map(|m| m.kind()) {
+				let Ok(mac) = h.exec::<TAtom<Macro>>(sym_ref(new_name)).await else { continue };
 				let mac = own(&mac).await;
 				macros.entry(mac.0.canonical_name.clone()).or_insert(mac);
 			}
@@ -45,7 +50,7 @@ pub async fn resolve(tpl: MacTree) -> GExpr {
 		for (_, mac) in macros.iter() {
 			let mut record = FilteredMacroRecord { mac, rules: Vec::new() };
 			for (rule_i, rule) in mac.0.rules.iter().enumerate() {
-				if rule.pattern.glossary.is_subset(tpl.glossary()) {
+				if rule.pattern.glossary.is_subset(val.glossary()) {
 					record.rules.push(rule_i);
 				}
 			}
@@ -61,7 +66,14 @@ pub async fn resolve(tpl: MacTree) -> GExpr {
 			}
 		}
 		let mut rctx = ResolveCtx { h, exclusive, priod };
-		resolve_one(&mut rctx, Substack::Bottom, &tpl).await
+		let gex = resolve_one(&mut rctx, Substack::Bottom, &val).await;
+		writeln!(
+			ctx.logger(),
+			"Macro-resolution over {}\nreturned {}",
+			fmt(&val, &i()).await,
+			fmt(&gex, &i()).await
+		);
+		gex
 	})
 	.await
 }
@@ -270,13 +282,12 @@ async fn resolve_seq(
 
 async fn mk_body_call(mac: &Macro, rule: &Rule, state: &MatchState<'_>, pos: Pos) -> GExpr {
 	let mut call_args = vec![];
-	for name in rule.placeholders.iter() {
+	for name in rule.ph_names.iter() {
 		call_args.push(match state.get(name).expect("Missing state entry for placeholder") {
 			StateEntry::Scalar(scal) => (**scal).clone().to_gen().await,
 			StateEntry::Vec(vec) =>
 				MacTok::S(Paren::Round, MacTreeSeq::new(vec.iter().cloned())).at(Pos::None).to_gen().await,
 		});
 	}
-	call(sym_ref(mac.0.module.suffix([rule.body_name.clone()], &i()).await), call_args)
+	call(sym_ref(mac.0.module.suffix([rule.body.clone()], &i()).await), call_args).at(pos.clone())
-		.at(pos.clone())
 }

orchid-std/src/macros/std_macros.rs

@@ -27,8 +27,8 @@ pub async fn gen_std_macro_lib() -> Vec<GenMember> {
 			fun(false, "is_none_body", async |val: OrcOpt<Expr>| {
 				if val.0.is_none() { OrcOpt(Some(Tpl(()))) } else { OrcOpt(None) }
 			}),
-			build_macro(None, ["of", "empty"])
+			build_macro(None, ["some", "none"])
-				.rule(mactreev!(pattern::match_rule ( std::option::of "...$" sub_pattern  0)), [
+				.rule(mactreev!(pattern::match_rule ( std::option::some "...$" sub_pattern  0)), [
 					|[sub]: [_; _]| {
 						exec(async move |mut h| {
 							let sub = h
@@ -47,7 +47,7 @@ pub async fn gen_std_macro_lib() -> Vec<GenMember> {
 						})
 					},
 				])
-				.rule(mactreev!(pattern::match_rule(std::option::empty)), [|[]: [_; _]| {
+				.rule(mactreev!(pattern::match_rule(std::option::none)), [|[]: [_; _]| {
 					exec(async |mut h| {
 						Ok(MatcherAtom {
 							keys: vec![],

orchid-std/src/macros/utils.rs

@@ -100,7 +100,7 @@ impl MacroBuilder {
 	pub(crate) fn finish(self) -> Vec<GenMember> {
 		let Self { own_kws, prio, patterns, body_consts } = self;
 		let name = own_kws[0];
-		let main_const = lazy(true, name, async move |path| {
+		let main_const = lazy(true, &format!("__macro__{name}"), async move |path| {
 			let module = (Sym::new(path.split_last_seg().1.iter().cloned(), &i()).await)
 				.expect("Default macro in global root");
 			MemKind::Const(
@@ -120,8 +120,8 @@ impl MacroBuilder {
 							h.emit(Rule {
 								matcher: Matcher::new(pattern.clone()).await.unwrap(),
 								pattern,
-								placeholders,
+								ph_names: placeholders,
-								body_name: i().i(&format!("({name})::{counter}")).await,
+								body: i().i(&format!("({name})::{counter}")).await,
 							})
 							.await;
 						}
@@ -134,9 +134,9 @@ impl MacroBuilder {
 			)
 		});
 		let kw_consts = own_kws[1..].iter().flat_map(|kw| {
-			lazy(true, kw, async |path| {
+			lazy(true, &format!("__macro__{kw}"), async move |path| {
 				let main_const_name = VPath::new(path.split_last_seg().1.iter().cloned())
-					.name_with_suffix(i().i(name).await)
+					.name_with_suffix(i().i(&format!("__macro__{name}")).await)
 					.to_sym(&i())
 					.await;
 				MemKind::Const(sym_ref(main_const_name))

preview.svg

@@ -11,7 +11,7 @@
    inkscape:export-filename="preview.png"
    inkscape:export-xdpi="96"
    inkscape:export-ydpi="96"
-   inkscape:version="1.2.2 (b0a8486541, 2022-12-01)"
+   inkscape:version="1.3 (0e150ed6c4, 2023-07-21)"
    xml:space="preserve"
    xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
    xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
@@ -28,21 +28,26 @@
      inkscape:deskcolor="#505050"
      inkscape:document-units="px"
      showgrid="false"
-     inkscape:zoom="0.81037995"
+     inkscape:zoom="0.57302516"
-     inkscape:cx="698.43781"
+     inkscape:cx="643.07822"
-     inkscape:cy="389.32355"
+     inkscape:cy="350.76994"
-     inkscape:window-width="1536"
+     inkscape:window-width="1920"
-     inkscape:window-height="792"
+     inkscape:window-height="991"
-     inkscape:window-x="0"
+     inkscape:window-x="-9"
-     inkscape:window-y="0"
+     inkscape:window-y="-9"
      inkscape:window-maximized="1"
      inkscape:current-layer="layer1"
      showguides="true"
-     shape-rendering="crispEdges"><inkscape:grid
+     shape-rendering="crispEdges"
+     inkscape:export-bgcolor="#2c353bff"><inkscape:grid
        type="xygrid"
        id="grid384"
        originx="0"
-       originy="0" /><sodipodi:guide
+       originy="0"
+       spacingy="1"
+       spacingx="1"
+       units="px"
+       visible="false" /><sodipodi:guide
        position="6000,417760"
        orientation="0,-1"
        id="guide441"
@@ -101,11 +106,11 @@
        transform="translate(-427.60075,9.7995441)"><tspan
          x="902.57227"
          y="329.03651"
-         id="tspan12858"><tspan
+         id="tspan3"><tspan
-           style="font-weight:500;font-size:96px;font-family:Comfortaa;-inkscape-font-specification:'Comfortaa, Medium'"
+           style="font-size:96px;font-family:Comfortaa;-inkscape-font-specification:'Comfortaa, Normal'"
-           id="tspan12856">Orchid</tspan></tspan></text><text
+           id="tspan1">Orchid</tspan></tspan></text><text
        xml:space="preserve"
-       style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-size:29.3333px;font-family:Comfortaa;-inkscape-font-specification:'Comfortaa, Medium';font-variant-ligatures:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-east-asian:normal;fill:url(#linearGradient2540);stroke-width:2;stroke-linejoin:round;fill-opacity:1.0"
+       style="font-style:normal;font-variant:normal;font-weight:500;font-stretch:normal;font-size:29.3333px;font-family:Comfortaa;-inkscape-font-specification:'Comfortaa, Medium';font-variant-ligatures:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-east-asian:normal;fill:url(#linearGradient2540);fill-opacity:1;stroke-width:2;stroke-linejoin:round"
        x="518.58112"
        y="377.78851"
        id="text415"><tspan
@@ -113,7 +118,7 @@
          id="tspan413"
          x="518.58112"
          y="377.78851"
-         style="fill-opacity:1.0;fill:url(#linearGradient2540)">Embeddable scripting language</tspan></text><circle
+         style="font-style:normal;font-variant:normal;font-weight:normal;font-stretch:normal;font-size:29.3333px;font-family:Cantarell;-inkscape-font-specification:'Cantarell, @wght=500';font-variant-ligatures:normal;font-variant-caps:normal;font-variant-numeric:normal;font-variant-east-asian:normal;font-variation-settings:'wght' 500;fill:url(#linearGradient2540);fill-opacity:1">Embeddable scripting language</tspan></text><circle
        id="path466"
        style="fill:#d0d0d0;stroke:#000000"
        cx="752.41748"