diff options
author | olpc user <olpc@xo-5d-f7-86.localdomain> | 2020-01-10 18:05:43 -0800 |
---|---|---|
committer | olpc user <olpc@xo-5d-f7-86.localdomain> | 2020-01-10 18:05:43 -0800 |
commit | 3223a360d0e70f75497aecf8c033a4f987335b5b (patch) | |
tree | c34e5ed5d7aa83513447644b4774c0449336657f /intellect-framework-from-internet/starts/meaning-vm/main.cpp | |
parent | 26c980d302adce8e3d802cb8db8ab1c69d58ce1a (diff) | |
download | standingwithresilience-3223a360d0e70f75497aecf8c033a4f987335b5b.tar.gz standingwithresilience-3223a360d0e70f75497aecf8c033a4f987335b5b.zip |
I'm confused and am handling multiple unexpected systems issues
Diffstat (limited to 'intellect-framework-from-internet/starts/meaning-vm/main.cpp')
-rw-r--r-- | intellect-framework-from-internet/starts/meaning-vm/main.cpp | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/intellect-framework-from-internet/starts/meaning-vm/main.cpp b/intellect-framework-from-internet/starts/meaning-vm/main.cpp deleted file mode 100644 index 513efd2..0000000 --- a/intellect-framework-from-internet/starts/meaning-vm/main.cpp +++ /dev/null @@ -1,57 +0,0 @@ -#include "concept.hpp" -#include "helpers.hpp" -#include "meaning.hpp" - - -#include <iostream> - -void dumpconcept(ref r) -{ - decllnks(dumped, name); - - for (auto & l : r->links) { - if (ref(l.first) == name) { - continue; - } - std::cout << r << " " << ref(l.first) << " " << ref(l.second) << std::endl; - } - if (!r->linked(dumped)) { - r[dumped = true]; - } - for (auto & l : r->links) { - if (!l.second->linked(dumped)) { - dumpconcept(l.second); - } - } -} - -int main() -{ - declrefs(make, linked, habit); - declrefs(structure, function, argument, position, provide); - decllnks(needs, assumes, makes); - decllnks(A, B, C); - decllnks(is); - lnks(argument-position); - - // add a new unique link to a concept - // given A, B, C - // and assuming A is not linked by B to C, - // makes A be linked by B to C. - // NEXT? make code for make-linked that takes a ref - // change the needs structure to use a model for the ref, - // with needed values specified as 'provided' - make-linked = a(habit)[ - needs = a(structure)[ - is = function-argument, - argument-position = vref<int>(1), - avariable(A) = provide, - avariable(B) = provide, - avariable(C) = provide - ], - assumes = not(A-B-C-linked = link(A, B, C)), - makes = A-B-C-linked - ]; - - dumpconcept(make-linked); -} |