From c4b392a179048f936c062f5ffccc2bc25627e500 Mon Sep 17 00:00:00 2001 From: polwex Date: Mon, 6 Oct 2025 01:01:41 +0700 Subject: working --- vere/pkg/noun/xtract.c | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 vere/pkg/noun/xtract.c (limited to 'vere/pkg/noun/xtract.c') diff --git a/vere/pkg/noun/xtract.c b/vere/pkg/noun/xtract.c new file mode 100644 index 0000000..1ce799f --- /dev/null +++ b/vere/pkg/noun/xtract.c @@ -0,0 +1,31 @@ +/// @file + +#include "xtract.h" + +#include "manage.h" +#include "retrieve.h" + +u3_atom +u3x_atom(u3_noun a); +u3_noun +u3x_good(u3_weak som); + +/* u3x_mean(): +** +** Attempt to deconstruct `a` by axis, noun pairs; 0 terminates. +** Axes must be sorted in tree order. +*/ +void +u3x_mean(u3_noun som, ...) +{ + c3_o ret_o; + va_list ap; + + va_start(ap, som); + ret_o = u3r_vmean(som, ap); + va_end(ap); + + if ( c3n == ret_o ) { + u3m_bail(c3__exit); + } +} -- cgit v1.2.3