occam-furtle 2.0.78 → 2.0.80

package/src/dom/every.js

@@ -0,0 +1,117 @@
+"use strict";
+
+import dom from "../dom";
+import Exception from "../exception";
+
+import { nodeQuery } from "../utilities/query";
+import { domAssigned } from "../dom";
+import { NODES_TYPE, BOOLEAN_TYPE } from "../types";
+
+const variableNodeQuery = nodeQuery("/every/variable"),
+      valueEveryNodeQuery = nodeQuery("/value/every"),
+      parametersNodeQuery = nodeQuery("/every/anonymousProcedure/parameters");
+
+export default domAssigned(class Every {
+  constructor(string, variable, anonymousProcedure) {
+    this.string = string;
+    this.variable = variable;
+    this.anonymousProcedure = anonymousProcedure;
+  }
+
+  getString() {
+    return this.string;
+  }
+
+  getVariable() {
+    return this.variable;
+  }
+
+  getAnonymousProcedure() {
+    return this.anonymousProcedure;
+  }
+
+  evaluate(context) {
+    let value;
+
+    const everyString = this.getString();
+
+    context.trace(`Evaluating the '${everyString}' every...`);
+
+    value = this.variable.evaluate(context);
+
+    const valueType = value.getType();
+
+    if (valueType !== NODES_TYPE) {
+      const valueString = value.asString(context),
+            message = `The ${valueString} value's '${valueType}' type should be '${NODES_TYPE}'.`,
+            exception = Exception.fromMessage(message);
+
+      throw exception;
+    }
+
+    const nodes = value.getNodes(),
+          boolean = nodes.every((node) => {
+            let value;
+
+            const { Value, Values } = dom;
+
+            value = Value.fromNode(node, context);
+
+            const values = Values.fromValue(value, context);
+
+            value = this.anonymousProcedure.call(values, context);
+
+            const valueType = value.getType();
+
+            if (valueType !== BOOLEAN_TYPE) {
+              const valueString = value.asString(context),
+                    message = `The ${valueString} value's type is '${valueType}' when it should be of type '${BOOLEAN_TYPE}'.`,
+                    exception = Exception.fromMessage(message);
+
+              throw exception;
+            }
+
+            const boolean = value.getBoolean();
+
+            return boolean;
+          });
+
+    const { Value } = dom;
+
+    value = Value.fromBoolean(boolean, context);
+
+    context.trace(`...evaluated the '${everyString}' every.`);
+
+    return value;
+  }
+
+  static name = "Every";
+
+  static fromValueNode(valueNode, context) {
+    let every = null;
+
+    const valueEveryNode = valueEveryNodeQuery(valueNode);
+
+    if (valueEveryNode !== null) {
+      const { Variable, AnonymousProcedure } = dom,
+            everyNode = valueEveryNode, ///
+            string = stringFromEveryNode(everyNode, context),
+            variable = Variable.fromEveryNode(everyNode, context),
+            anonymousProcedure = AnonymousProcedure.fromEveryNode(everyNode, context);
+
+      every = new Every(string, variable, anonymousProcedure);
+    }
+
+    return every;
+  }
+});
+
+function stringFromEveryNode(everyNode, context) {
+  const variableNode = variableNodeQuery(everyNode),
+        parametersNode = parametersNodeQuery(everyNode),
+        variableString = context.nodeAsString(variableNode),
+        parametersString = context.nodeAsString(parametersNode),
+        string = `Every(${variableString}, (${parametersString}) { ... })`;
+
+  return string;
+}

package/src/dom/procedure/anonymous.js

@@ -10,6 +10,7 @@ import { variablesFromValuesAndParameters } from "../procedure";
 const parametersNodeQuery = nodeQuery("/anonymousProcedure/parameters"),
       typeTerminalNodeQuery = nodeQuery("/anonymousProcedure/@type"),
       someAnonymousProcedureNodeQuery = nodeQuery("/some/anonymousProcedure"),
+      everyAnonymousProcedureNodeQuery = nodeQuery("/every/anonymousProcedure"),
       anonymousProcedureCallAnonymousProcedureNodeQuery = nodeQuery("/anonymousProcedureCall/anonymousProcedure");
 
 export default domAssigned(class AnonymousProcedure {
@@ -71,6 +72,14 @@ export default domAssigned(class AnonymousProcedure {
     return anonymousProcedure;
   }
 
+  static fromEveryNode(everyNode, context) {
+    const everyAnonymousProcedureNode = everyAnonymousProcedureNodeQuery(everyNode),
+          anonymousProcedureNode = everyAnonymousProcedureNode,  ///
+          anonymousProcedure = anonymousProcedureFromAnonymousProcedureNode(anonymousProcedureNode, context);
+
+    return anonymousProcedure;
+  }
+
   static fromAnonymousProcedureCallNode(anonymousProcedureCallNode, context) {
     const anonymousProcedureCallAnonymousProcedureNode = anonymousProcedureCallAnonymousProcedureNodeQuery(anonymousProcedureCallNode),
           anonymousProcedureNode = anonymousProcedureCallAnonymousProcedureNode,  ///

package/src/dom/reduce.js

@@ -0,0 +1,117 @@
+"use strict";
+
+import dom from "../dom";
+import Exception from "../exception";
+
+import { nodeQuery } from "../utilities/query";
+import { domAssigned } from "../dom";
+import { NODES_TYPE, BOOLEAN_TYPE } from "../types";
+
+const variableNodeQuery = nodeQuery("/some/variable"),
+      valueSomeNodeQuery = nodeQuery("/value/some"),
+      parametersNodeQuery = nodeQuery("/some/anonymousProcedure/parameters");
+
+export default domAssigned(class Some {
+  constructor(string, variable, anonymousProcedure) {
+    this.string = string;
+    this.variable = variable;
+    this.anonymousProcedure = anonymousProcedure;
+  }
+
+  getString() {
+    return this.string;
+  }
+
+  getVariable() {
+    return this.variable;
+  }
+
+  getAnonymousProcedure() {
+    return this.anonymousProcedure;
+  }
+
+  evaluate(context) {
+    let value;
+
+    const someString = this.getString();
+
+    context.trace(`Evaluating the '${someString}' some...`);
+
+    value = this.variable.evaluate(context);
+
+    const valueType = value.getType();
+
+    if (valueType !== NODES_TYPE) {
+      const valueString = value.asString(context),
+            message = `The ${valueString} value's '${valueType}' type should be '${NODES_TYPE}'.`,
+            exception = Exception.fromMessage(message);
+
+      throw exception;
+    }
+
+    const nodes = value.getNodes(),
+          boolean = nodes.some((node) => {
+            let value;
+
+            const { Value, Values } = dom;
+
+            value = Value.fromNode(node, context);
+
+            const values = Values.fromValue(value, context);
+
+            value = this.anonymousProcedure.call(values, context);
+
+            const valueType = value.getType();
+
+            if (valueType !== BOOLEAN_TYPE) {
+              const valueString = value.asString(context),
+                    message = `The ${valueString} value's type is '${valueType}' when it should be of type '${BOOLEAN_TYPE}'.`,
+                    exception = Exception.fromMessage(message);
+
+              throw exception;
+            }
+
+            const boolean = value.getBoolean();
+
+            return boolean;
+          });
+
+    const { Value } = dom;
+
+    value = Value.fromBoolean(boolean, context);
+
+    context.trace(`...evaluated the '${someString}' some.`);
+
+    return value;
+  }
+
+  static name = "Some";
+
+  static fromValueNode(valueNode, context) {
+    let some = null;
+
+    const valueSomeNode = valueSomeNodeQuery(valueNode);
+
+    if (valueSomeNode !== null) {
+      const { Variable, AnonymousProcedure } = dom,
+            someNode = valueSomeNode, ///
+            string = stringFromSomeNode(someNode, context),
+            variable = Variable.fromSomeNode(someNode, context),
+            anonymousProcedure = AnonymousProcedure.fromSomeNode(someNode, context);
+
+      some = new Some(string, variable, anonymousProcedure);
+    }
+
+    return some;
+  }
+});
+
+function stringFromSomeNode(someNode, context) {
+  const variableNode = variableNodeQuery(someNode),
+        parametersNode = parametersNodeQuery(someNode),
+        variableString = context.nodeAsString(variableNode),
+        parametersString = context.nodeAsString(parametersNode),
+        string = `Some(${variableString}, (${parametersString}) { ... })`;
+
+  return string;
+}

package/src/dom/value.js

@@ -22,13 +22,15 @@ const ternaryValueNodeQuery = nodeQuery("/ternary/value"),
       variableAssignmentValueNodeQuery = nodeQuery("/variableAssignment/value");
 
 export default domAssigned(class Value {
-  constructor(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall) {
+  constructor(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall) {
     this.node = node;
     this.nodes = nodes;
     this.number = number;
     this.string = string;
     this.boolean = boolean;
     this.some = some;
+    this.every - every;
+    this.reduce = reduce;
     this.ternary = ternary;
     this.variable = variable;
     this.nodeQuery = nodeQuery;
@@ -65,6 +67,14 @@ export default domAssigned(class Value {
     return this.some;
   }
 
+  getEvery() {
+    return this.every;
+  }
+
+  getReduce() {
+    return this.reduce;
+  }
+
   getTernary() {
     return this.ternay;
   }
@@ -122,6 +132,10 @@ export default domAssigned(class Value {
       type = BOOLEAN_TYPE;
     } else if (this.some !== null) {
       type = this.some.getType();
+    } else if (this.every !== null) {
+      type = this.every.getType();
+    } else if (this.reduce !== null) {
+      type = this.reduce.getType();
     } else if (this.ternary !== null) {
       type = this.ternary.getType();
     } else if (this.variable !== null) {
@@ -164,6 +178,10 @@ export default domAssigned(class Value {
       string = booleanAsString(this.boolean, context)
     } else if (this.some !== null) {
       string = this.some.asString(context);
+    } else if (this.every !== null) {
+      string = this.every.asString(context);
+    } else if (this.reduce !== null) {
+      string = this.reduce.asString(context);
     } else if (this.ternary !== null) {
       string = this.ternary.asString(context);
     } else if (this.variable !== null) {
@@ -202,6 +220,10 @@ export default domAssigned(class Value {
       value = this;
     } else if (this.some !== null) {
       value = this.some.evaluate(context);
+    } else if (this.every !== null) {
+      value = this.every.evaluate(context);
+    } else if (this.reduce !== null) {
+      value = this.reduce.evaluate(context);
     } else if (this.ternary !== null) {
       value = this.ternary.evaluate(context);
     } else if (this.variable !== null) {
@@ -287,6 +309,8 @@ export default domAssigned(class Value {
           string = null,
           boolean = null,
           some = null,
+          every = null,
+          reduce = null,
           ternary = null,
           variable = null,
           nodeQuery = null,
@@ -297,7 +321,7 @@ export default domAssigned(class Value {
           bracketedValue = null,
           procedureCall = null,
           anonymousProcedureCall = null,
-          value = new Value(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
+          value = new Value(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
 
     return value;
   }
@@ -309,6 +333,8 @@ export default domAssigned(class Value {
           boolean = null,
           ternary = null,
           some = null,
+          every = null,
+          reduce = null,
           variable = null,
           nodeQuery = null,
           nodesQuery = null,
@@ -318,7 +344,7 @@ export default domAssigned(class Value {
           bracketedValue = null,
           procedureCall = null,
           anonymousProcedureCall = null,
-          value = new Value(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
+          value = new Value(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
 
     return value;
   }
@@ -329,6 +355,8 @@ export default domAssigned(class Value {
           number = null,
           boolean = null,
           some = null,
+          every = null,
+          reduce = null,
           ternary = null,
           variable = null,
           nodeQuery = null,
@@ -339,7 +367,7 @@ export default domAssigned(class Value {
           bracketedValue = null,
           procedureCall = null,
           anonymousProcedureCall = null,
-          value = new Value(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
+          value = new Value(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
 
     return value;
   }
@@ -350,6 +378,8 @@ export default domAssigned(class Value {
           number = null,
           string = null,
           some = null,
+          every = null,
+          reduce = null,
           ternary = null,
           variable = null,
           nodeQuery = null,
@@ -360,7 +390,7 @@ export default domAssigned(class Value {
           bracketedValue = null,
           procedureCall = null,
           anonymousProcedureCall = null,
-          value = new Value(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
+          value = new Value(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
 
     return value;
   }
@@ -497,13 +527,15 @@ function booleanAsString(boolean, context) {
 }
 
 function valueFromValueNode(valueNode, context) {
-  const { Some, Value, Ternary, Variable, NodeQuery, NodesQuery, Comparison, NegatedValue, BitwiseValue, BracketedValue, ProcedureCall, AnonymousProcedureCall } = dom,
+  const { Some, Every, Reduce, Value, Ternary, Variable, NodeQuery, NodesQuery, Comparison, NegatedValue, BitwiseValue, BracketedValue, ProcedureCall, AnonymousProcedureCall } = dom,
         node = nodeFromValueNode(valueNode, context),
         nodes = nodesFromValueNode(valueNode, context),
         number = numberFromValueNode(valueNode, context),
         string = stringFromValueNode(valueNode, context),
         boolean = booleanFromValueNode(valueNode, context),
         some = Some.fromValueNode(valueNode, context),
+        every = Every.fromValueNode(valueNode, context),
+        reduce = Reduce.fromValueNode(valueNode, context),
         ternary = Ternary.fromValueNode(valueNode, context),
         variable = Variable.fromValueNode(valueNode, context),
         nodeQuery = NodeQuery.fromValueNode(valueNode, context),
@@ -514,7 +546,7 @@ function valueFromValueNode(valueNode, context) {
         bracketedValue = BracketedValue.fromValueNode(valueNode, context),
         procedureCall = ProcedureCall.fromValueNode(valueNode, context),
         anonymousProcedureCall = AnonymousProcedureCall.fromValueNode(valueNode, context),
-        value = new Value(node, nodes, number, string, boolean, some, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
+        value = new Value(node, nodes, number, string, boolean, some, every, reduce, ternary, variable, nodeQuery, nodesQuery, comparison, negatedValue, bitwiseValue, bracketedValue, procedureCall, anonymousProcedureCall);
 
   return value;
 }

package/src/dom/variable.js

@@ -8,6 +8,7 @@ import { domAssigned } from "../dom";
 
 const someVariableNodeQuery = nodeQuery("/some/variable"),
       valueVariableNodeQuery = nodeQuery("/value/variable"),
+      everyVariableNodeQuery = nodeQuery("/every/variable"),
       nodeQueryVariableNodeQuery = nodeQuery("/nodeQuery/variable"),
       nodesQueryVariableNodeQuery = nodeQuery("/nodesQuery/variable"),
       variableNameTerminalNodeQuery = nodeQuery("/variable/@name"),
@@ -105,8 +106,8 @@ export default domAssigned(class Variable {
 
   static name = "Variable";
 
-  static fromSomeNode(someLoopNode, context) {
-    const someVariableNode = someVariableNodeQuery(someLoopNode),
+  static fromSomeNode(someNode, context) {
+    const someVariableNode = someVariableNodeQuery(someNode),
           variableNode = someVariableNode, ///
           variable = variableFromVariableNode(variableNode, context);
 
@@ -127,6 +128,14 @@ export default domAssigned(class Variable {
     return variable;
   }
 
+  static fromEveryNode(everyNode, context) {
+    const everyVariableNode = everyVariableNodeQuery(everyNode),
+          variableNode = everyVariableNode, ///
+          variable = variableFromVariableNode(variableNode, context);
+
+    return variable;
+  }
+
   static fromParameter(parameter, context) {
     const type = parameter.getType(),
           name = parameter.getName(),

package/src/index.js

@@ -6,7 +6,9 @@ import Label from "./dom/label";
 import Block from "./dom/block";
 import Error from "./dom/error";
 import Value from "./dom/value";
+import Every from "./dom/every";
 import Values from "./dom/values";
+import Reduce from "./dom/reduce";
 import Ternary from "./dom/ternary";
 import Variable from "./dom/variable";
 import Reference from "./dom/reference";