summaryrefslogtreecommitdiff
path: root/intellect-framework-from-internet/starts/meaning-vm/main.cpp
diff options
context:
space:
mode:
authorolpc user <olpc@xo-5d-f7-86.localdomain>2020-01-10 18:05:43 -0800
committerolpc user <olpc@xo-5d-f7-86.localdomain>2020-01-10 18:05:43 -0800
commit3223a360d0e70f75497aecf8c033a4f987335b5b (patch)
treec34e5ed5d7aa83513447644b4774c0449336657f /intellect-framework-from-internet/starts/meaning-vm/main.cpp
parent26c980d302adce8e3d802cb8db8ab1c69d58ce1a (diff)
downloadstandingwithresilience-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.cpp57
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);
-}