New macro system and stdlib additions

orchid-std/src/std/number/num_atom.rs

@@ -1,15 +1,20 @@
 use orchid_api_derive::Coding;
+use orchid_api_traits::Request;
 use orchid_base::error::OrcRes;
 use orchid_base::format::FmtUnit;
+use orchid_base::name::Sym;
 use orchid_base::number::Numeric;
-use orchid_extension::atom::{AtomFactory, Atomic, AtomicFeatures, ToAtom, TAtom};
+use orchid_extension::atom::{AtomFactory, Atomic, AtomicFeatures, Supports, TAtom, ToAtom};
 use orchid_extension::atom_thin::{ThinAtom, ThinVariant};
+use orchid_extension::context::i;
 use orchid_extension::conv::TryFromExpr;
 use orchid_extension::expr::Expr;
-use orchid_extension::system::SysCtx;
 use ordered_float::NotNan;
 use rust_decimal::prelude::Zero;
 
+use crate::std::protocol::types::GetTagIdMethod;
+use crate::std::string::to_string::ToStringMethod;
+
 #[derive(Clone, Debug, Coding)]
 pub struct Int(pub i64);
 impl Atomic for Int {
@@ -17,13 +22,23 @@ impl Atomic for Int {
 	type Data = Self;
 }
 impl ThinAtom for Int {
-	async fn print(&self, _: SysCtx) -> FmtUnit { self.0.to_string().into() }
+	async fn print(&self) -> FmtUnit { self.0.to_string().into() }
 }
 impl TryFromExpr for Int {
 	async fn try_from_expr(expr: Expr) -> OrcRes<Self> {
 		TAtom::<Int>::try_from_expr(expr).await.map(|t| t.value)
 	}
 }
+impl Supports<GetTagIdMethod> for Int {
+	async fn handle(&self, _: GetTagIdMethod) -> <GetTagIdMethod as Request>::Response {
+		Sym::parse("std::number::Int", &i()).await.unwrap().to_api()
+	}
+}
+impl Supports<ToStringMethod> for Int {
+	async fn handle(&self, _: ToStringMethod) -> <ToStringMethod as Request>::Response {
+		self.0.to_string()
+	}
+}
 
 #[derive(Clone, Debug, Coding)]
 pub struct Float(pub NotNan<f64>);
@@ -32,13 +47,18 @@ impl Atomic for Float {
 	type Data = Self;
 }
 impl ThinAtom for Float {
-	async fn print(&self, _: SysCtx) -> FmtUnit { self.0.to_string().into() }
+	async fn print(&self) -> FmtUnit { self.0.to_string().into() }
 }
 impl TryFromExpr for Float {
 	async fn try_from_expr(expr: Expr) -> OrcRes<Self> {
 		Ok(Self(Num::try_from_expr(expr).await?.0.to_f64()))
 	}
 }
+impl Supports<ToStringMethod> for Float {
+	async fn handle(&self, _: ToStringMethod) -> <ToStringMethod as Request>::Response {
+		self.0.to_string()
+	}
+}
 
 pub struct Num(pub Numeric);
 impl TryFromExpr for Num {