commit before easter break

orchid-std/src/macros/rule/any_match.rs

@@ -0,0 +1,30 @@
+use orchid_base::name::Sym;
+
+use super::scal_match::scalv_match;
+use super::shared::AnyMatcher;
+use super::state::MatchState;
+use super::vec_match::vec_match;
+use crate::macros::MacTree;
+
+#[must_use]
+pub fn any_match<'a>(
+	matcher: &AnyMatcher,
+	seq: &'a [MacTree],
+	save_loc: &impl Fn(Sym) -> bool,
+) -> Option<MatchState<'a>> {
+	match matcher {
+		AnyMatcher::Scalar(scalv) => scalv_match(scalv, seq, save_loc),
+		AnyMatcher::Vec { left, mid, right } => {
+			if seq.len() < left.len() + right.len() {
+				return None;
+			};
+			let left_split = left.len();
+			let right_split = seq.len() - right.len();
+			Some(
+				scalv_match(left, &seq[..left_split], save_loc)?
+					.combine(scalv_match(right, &seq[right_split..], save_loc)?)
+					.combine(vec_match(mid, &seq[left_split..right_split], save_loc)?),
+			)
+		},
+	}
+}