Difference between revisions of "NR.c"

From Organic Design wiki
m
(fix HL)
 
(15 intermediate revisions by the same user not shown)
Line 1: Line 1:
// nodeReduce function from [[[[peerd.c]]]] / [[[[nodeSpace.c]]]]
+
<source lang="c">
// Moves "this" to current loop item if exists then rotates loop and executes or reduces the item
+
// Moves "this" to node's focus if exists then rotates loop and executes/reduces the focus item
 
void nodeReduce() {
 
void nodeReduce() {
if (this = nodeGetValue(loop = nodeTraverse(this,nodeLOOP),0)) {           // Move "this" to current loop item
+
    if(this = nodeLoopRotate(parent = this)) {       // Move "this" to the focus in the node's loop and rotate
nodeSetValue(loop,0,nodeGetValue(this,nodeNEXT));                       // Rotate loop
+
        nodeSetValue(this, nodePARENT, parent);       // Update the parent association
nodeGetValue(this,nodeCODE)?((code*)*nodeState(this,0))():nodeReduce(); // Execute or reduce item
+
        if(code = *nodeState(this, nodeCODE)) code(); // nodeCODE value is a pointer-index, execute as function-reference if non-zero
}
+
    }
}
+
}</source>

Latest revision as of 00:32, 26 May 2016

// Moves "this" to node's focus if exists then rotates loop and executes/reduces the focus item
void nodeReduce() {
    if(this = nodeLoopRotate(parent = this)) {        // Move "this" to the focus in the node's loop and rotate
        nodeSetValue(this, nodePARENT, parent);       // Update the parent association
        if(code = *nodeState(this, nodeCODE)) code(); // nodeCODE value is a pointer-index, execute as function-reference if non-zero
    }
}