NodeSpace.h

// This article and all its includes are licenced under LGPL // GPL: http://www.gnu.org/copyleft/lesser.html // SRC: http://www.organicdesign.co.nz/nodeSpace.c

// Reserved nodes (tmp)

1. define nodeROOT 0
2. define nodeFALSE 0
3. define nodeCURRENT 1
4. define nodeTRUE 1
5. define nodeNEXT 2
6. define nodePREV 3
7. define nodeTHEN 4
8. define nodeCODE 5

// these will have content, so must start after 128 ascii-list-items

1. define nodeNETWORK 128
2. define nodeDESKTOP 129
3. define nodeSTREAMINFO 130

typedef int node; // node: a type for referring to nodes typedef void (*code)(); // code: a type for referring to functions node this; // this: the current node, like cwd

// - path is array-of-node node nodeTraverse(node subject,node key) { return listTraverse((item)subject,(item)key); }

// set nodal value of node/path // - allows null key node nodeGetValue(node subject,node key) { return listGetValue(key?listTraverse((item)subject,(item)key):(item)subject); }

node nodeSetValue(node subject,node key,node value) { // todo: onChange return listSetValue(key?listTraverse((item)subject,(item)key):(item)subject, (item)value); }

node nodeInsertKey(node subject,node key) { // todo: onInstall node instance;

return instance; }

void nodeRemoveKey(node subject,node key) { // todo: onRemove }

void nodeLoopInsert(node subject,node insert) { node next = nodeGetValue(subject,nodeNEXT); nodeSetValue(insert,nodeNEXT,next); nodeSetValue(subject,nodeNEXT,insert); nodeSetValue(insert,nodePREV,subject); nodeSetValue(next,nodePREV,insert); }

void nodeLoopRemove(node subject) { node prev = nodeGetValue(subject,nodePREV); node next = nodeGetValue(subject,nodeNEXT); nodeSetValue(prev,nodeNEXT,next); nodeSetValue(next,nodePREV,prev); }

// State is a pointer to a locally meaningful item which is associated with a node // - doesn't need separate get/set since pointer-based, but keeps it more lang-independent void *nodeGetState(node subject,node key) { itob(key?(int)listTraverse((item)subject,(item)key):(int)subject,nssBuf); return *hash(nssBuf); }

void *nodeSetState(node subject,node key,void *state) { itob(key?(int)listTraverse((item)subject,(item)key):(int)subject,nssBuf); return *hash(nssBuf) = state; }

// - Consumes quanta of execution // - Creates History from change events // - Builds, declares and executes functionality // - Should reduction handle cyles (current-cycle etc), or a separate root-thread // - returns false if no more to reduce int nodeReduce(node subject) { node cur; if ((cur = nodeGetValue(subject, nodeCURRENT)) == nodeFALSE) return 0; // return if no CURRENT node nodeSetValue(subject, nodeCURRENT, nodeGetValue(cur, nodeNEXT)); // test NEXT first? if (nodeGetValue(cur, nodeCODE) == nodeTRUE) { ((code)nodeGetState(cur,nodeROOT))(); // execute code-ref returned in state // Later this must declare and build if no function-reference // replace self in loop with n.THEN if non-zero } else nodeReduce(cur); return 1; }