Protocols and operators mostly

orchid-std/src/std/std_system.rs

@@ -18,21 +18,23 @@ use super::number::num_lib::gen_num_lib;
 use super::string::str_atom::{IntStrAtom, StrAtom};
 use super::string::str_lib::gen_str_lib;
 use crate::std::number::num_lexer::NumLexer;
+use crate::std::ops::gen_ops_lib;
 use crate::std::option::{OptAtom, gen_option_lib};
 use crate::std::protocol::proto_parser::{AsProtoParser, ProtoParser};
 use crate::std::protocol::type_parser::{AsTypeParser, TypeParser};
-use crate::std::protocol::types::{Tag, Tagged, gen_protocol_lib};
+use crate::std::protocol::types::{CreateTag, Tag, Tagged, gen_protocol_lib};
 use crate::std::record::record_atom::Record;
 use crate::std::record::record_lib::gen_record_lib;
 use crate::std::reflection::sym_atom::{CreateSymAtom, SymAtom, gen_sym_lib};
 use crate::std::string::str_lexer::StringLexer;
-use crate::std::string::to_string::AsStrTag;
 use crate::std::tuple::{CreateTuple, Tuple, TupleBuilder, gen_tuple_lib};
 use crate::{Float, Int};
 
 #[derive(Clone, Debug, Coding, Hierarchy)]
 #[extendable]
+#[allow(clippy::enum_variant_names, reason = "For the time being there are only ctor calls")]
 pub enum StdReq {
+	CreateTag(CreateTag),
 	CreateTuple(CreateTuple),
 	CreateSymAtom(CreateSymAtom),
 }
@@ -61,7 +63,6 @@ impl SystemCard for StdSystem {
 			Some(TupleBuilder::dynfo()),
 			Some(Tag::dynfo()),
 			Some(Tagged::dynfo()),
-			Some(AsStrTag::dynfo()),
 		]
 	}
 }
@@ -77,6 +78,21 @@ impl System for StdSystem {
 				let sym_atom = SymAtom(Sym::from_api(sym_tok).await);
 				xreq.reply(req, &sym_atom.to_expr().await.serialize().await).await.unwrap()
 			},
+			StdReq::CreateTag(ref req @ CreateTag { name, ref impls }) => {
+				let tag_atom = Tag {
+					id: Sym::from_api(name).await,
+					impls: Rc::new(
+						join_all(
+							(impls.iter())
+								.map(|(k, v)| async { (Sym::from_api(*k).await, Expr::deserialize(*v).await) }),
+						)
+						.await
+						.into_iter()
+						.collect(),
+					),
+				};
+				xreq.reply(req, &tag_atom.to_expr().await.serialize().await).await.unwrap()
+			},
 		}
 	}
 	fn lexers() -> Vec<LexerObj> { vec![&StringLexer, &NumLexer] }
@@ -90,6 +106,7 @@ impl System for StdSystem {
 			gen_tuple_lib(),
 			gen_protocol_lib(),
 			gen_sym_lib().await,
+			gen_ops_lib(),
 		])
 	}
 	async fn prelude() -> Vec<Sym> { vec![sym!(std), sym!(std::tuple), sym!(std::option)] }