From 217d6142e92a21f592ffacadb6598fb41005d577 Mon Sep 17 00:00:00 2001 From: user Date: Mon, 23 Dec 2019 11:08:26 -0800 Subject: wip link iteration habits --- starts/meaning-vm/habit-starts/learning-parts.cpp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'starts/meaning-vm/habit-starts') diff --git a/starts/meaning-vm/habit-starts/learning-parts.cpp b/starts/meaning-vm/habit-starts/learning-parts.cpp index c53b260..b5cd56c 100644 --- a/starts/meaning-vm/habit-starts/learning-parts.cpp +++ b/starts/meaning-vm/habit-starts/learning-parts.cpp @@ -234,6 +234,25 @@ static int __init = ([]()->int{ i, l); }); + using links_it = level0::baseref::links_t::iterator; + ahabit(populate-link-entry, ((link-entry, le)), + { + result = le; + result.set("source", c); + result.set("type", result.vget().first); + result.set("target", result.vget().second); + }); + ahabit(first-link-entry, ((concept, c)), + { + result = level1::alloc(level, c.links().begin()); + (populate-link-entry)(result); + }); + ahabit(last-link-entry, ((concept, c)), + { + result = level1::alloc(level, --c.links().end()); + (populate-link-entry)(result); + }); + ahabit(happened-habit, ((happened, ev)), { if (!happened.linked(whenever-list)) { return; } -- cgit v1.2.3