From 3d4f57e3ba54ec4d63c1c94f35fd642b90cf1f29 Mon Sep 17 00:00:00 2001 From: olpc user Date: Fri, 13 Dec 2019 10:52:53 -0800 Subject: stubbed out trigger habits --- starts/meaning-vm/habit-starts/learning-parts.cpp | 24 ++++++++++++++++++++++- starts/meaning-vm/habit-starts/learning-parts.hpp | 2 +- 2 files changed, 24 insertions(+), 2 deletions(-) (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 eebd054..92afc7d 100644 --- a/starts/meaning-vm/habit-starts/learning-parts.cpp +++ b/starts/meaning-vm/habit-starts/learning-parts.cpp @@ -8,11 +8,33 @@ static int __init = ([]()->int{ ahabit(happened-habit, { ref ev = ctx.get(happens); - // TODO: perform each associated event + // TODO: perform each event associated with ctx[happens] (see line above) + + // use a sub-habit for each call, so we can handle happened for them, too. }); ahabit(whenever-habit, { + // store ctx[action] on ctx[happens] as behavior to do + // store ctx[action-context] as context for behavior + // PROPOSE: automatically place [happened] inside [action-context] as a stub + // for call event objects, and then place [context] inside [happened]. + // PROPOSE: report error if [action-context] contains [happened] + // as a stub for error patterns, it would be pretty nice to throw + // a unique concept ref for each error type. plan to add to level-0. + }); + + ahabit(stop-when-habit, + { + // remove doing ctx[action] for ctx[happens] + }); + + ahabit(once-habit, + { + // takes ctx[action] and ctx[happens] and ctx[action-context] + // uses above habits to do the action only once, probably by using + // a trigger on the habit-happening habit to check if a label is set, + // and remove the habit if it is. }); return 0; diff --git a/starts/meaning-vm/habit-starts/learning-parts.hpp b/starts/meaning-vm/habit-starts/learning-parts.hpp index a446a1d..59fe5ab 100644 --- a/starts/meaning-vm/habit-starts/learning-parts.hpp +++ b/starts/meaning-vm/habit-starts/learning-parts.hpp @@ -13,7 +13,7 @@ decl(action, happens, context); decl(happened); // happened-habit(ctx) performs actions associated with ctx[happens] decl(whenever); // whenever-habit(ctx) stores to do ctx[action] when ctx[happens] happens // providing ctx[action-context] -decl(stop); decl(when); // stop-when-habit(ctx) removes doing ctx[happens] on ctx[event] +decl(stop); decl(when); // stop-when-habit(ctx) removes doing ctx[action] on ctx[happens] decl(once); // once-habit(ctx) stores to do ctx[action] the next time ctx[happens] happens // providing ctx[action-context] -- cgit v1.2.3