more syntax sugar, building meaning

1 files changed, 27 insertions, 0 deletions

diff --git a/starts/meaning-vm/meaning.cpp b/starts/meaning-vm/meaning.cpp
new file mode 100644
index 0000000..a47a0ce
--- /dev/null
+++ b/starts/meaning-vm/meaning.cpp
@@ -0,0 +1,27 @@
+#include "meaning.hpp"
+
+#include "helpers.hpp"
+
+ref avariable(ref name)
+{
+	declrefs(variable);
+	return a(variable, name);
+}
+
+ref link(ref sourceref, ref typeref, ref targetref)
+{
+	declrefs(link, source, type, target);
+	lnks(link-source, link-type, link-target);
+	return a(link)[
+		link-source = sourceref,
+		link-type = typeref,
+		link-target = targetref
+	];
+}
+
+ref not(ref whatref)
+{
+	declrefs(not);
+	decllnks(what);
+	return a(not, not-whatref)[what] = whatref;
+}