occam-verify-cli 1.0.984 → 1.0.986

package/src/element/parameter.js

@@ -1,90 +0,0 @@
-"use strict";
-
-import { Element } from "occam-languages";
-
-import { define } from "../elements";
-import { instantiate } from "../utilities/context";
-import { instantiateParameter } from "../process/instantiate";
-import { breakPointFromJSON, breakPointToBreakPointJSON } from "../utilities/breakPoint";
-import { nameFromParaneterNode, identifierFromParameterNode } from "../utilities/element";
-
-export default define(class Parameter extends Element {
-  constructor(context, string, node, breakPoint, name, identifier) {
-    super(context, string, node, breakPoint);
-
-    this.name = name;
-    this.identifier = identifier;
-  }
-  
-  getName() {
-    return this.name;
-  }
-
-  getIdentifier() {
-    return this.identifier;
-  }
-
-  getParameterNode() {
-    const node = this.getNode(),
-          parameterNode = node; ///
-
-    return parameterNode;
-  }
-
-  findPrimitive(substitutions, context) {
-    let primitive = null;
-
-    const parameter = this, ///
-          substitution = substitutions.find((substitution) => {
-            const substitutionComparesToParameter = substitution.compareParameter(parameter);
-
-            if (substitutionComparesToParameter) {
-              return true;
-            }
-          }) || null;
-
-    if (substitution !== null) {
-      primitive = substitution.getPrimitive(context);
-    }
-
-    return primitive;
-  }
-
-  static name = "Parameter";
-
-  toJSON() {
-    const string = this.getString();
-
-    let breakPoint;
-
-    breakPoint = this.getBreakPoint();
-
-    const breakPointJSON = breakPointToBreakPointJSON(breakPoint);
-
-    breakPoint = breakPointJSON;  ///
-
-    const json = {
-      string,
-      breakPoint
-    };
-
-    return json;
-  }
-
-  static fromJSON(json, context) {
-    return instantiate((context) => {
-      const { string } = json,
-            parameterNode = instantiateParameter(string, context),
-            node = parameterNode,  ///
-            breakPoint = breakPointFromJSON(json),
-            name = nameFromParaneterNode(parameterNode, context),
-            identifier = identifierFromParameterNode(parameterNode, context);
-
-      context = null;
-
-      const parameter = new Parameter(context, string, node, breakPoint, name, identifier);
-
-      return parameter;
-    }, context);
-  }
-});

package/src/element/procedureCall.js

@@ -1,159 +0,0 @@
-"use strict";
-
-import { Element } from "occam-languages";
-import { termsUtilities } from "occam-furtle";
-
-import { define } from "../elements";
-import { evaluate, instantiate } from "../utilities/context";
-import { instantiateProcedureCall } from "../process/instantiate";
-import { breakPointFromJSON, breakPointToBreakPointJSON } from "../utilities/breakPoint";
-import { parametersFromProcedureCallNode, procedureReferenceFromProcedureCallNode } from "../utilities/element";
-
-const { termsFromPrimitives } = termsUtilities;
-
-export default define(class ProcedureCall extends Element {
-  constructor(context, string, node, breakPoint, parameters, procedureReference) {
-    super(context, string, node, breakPoint);
-
-    this.parameters = parameters;
-    this.procedureReference = procedureReference;
-  }
-
-  getParameters() {
-    return this.parameters;
-  }
-
-  getProcedureReference() {
-    return this.procedureReference;
-  }
-
-  getProcedureCallNode() {
-    const node = this.getNode(),
-          procedureCallNode = node;
-
-    return procedureCallNode;
-  }
-
-  getProcedureName() { return this.procedureReference.getProcedureName(); }
-
-  findPrimitives(context) {
-    const substitutions = context.getSubstitutions(),
-          primitives = this.parameters.map((parameter) => {
-            const primitive = parameter.findPrimitive(substitutions, context);
-
-            return primitive;
-          });
-
-    return primitives;
-  }
-
-  validate(context) {
-    let validates = false;
-
-    const procedureCallString = this.getString(); ///
-
-    context.trace(`Validating the '${procedureCallString}' procedure call...`);
-
-    const procedureName = this.getProcedureName(),
-          procedure = context.findProcedureByProcedureName(procedureName);
-
-    if (procedure !== null) {
-      const procedureBoolean = procedure.isBoolean();
-
-      if (procedureBoolean) {
-        validates = true;
-      } else {
-        context.debug(`The '${procedureCallString}' procedure is not boolean.`);
-      }
-    } else {
-      context.debug(`The '${procedureCallString}' procedure is not present.`);
-    }
-
-    if (validates) {
-      context.debug(`...validated the '${procedureCallString}' procedure call.`);
-    }
-
-    return validates;
-  }
-
-  async unifyIndependently(context) {
-    let unifiesIndependently = false;
-
-    const procedureCallString = this.getString(); ///
-
-    context.trace(`Unifying the '${procedureCallString}' procedure call independently...`);
-
-    const procedureName = this.getProcedureName(),
-          primitives = this.findPrimitives(context),
-          procedure = context.findProcedureByProcedureName(procedureName),
-          terms = termsFromPrimitives(primitives);
-
-    let term = null;
-
-    try {
-      term = await evaluate(procedure, terms);
-    } catch (exception) {
-      const message = exception.getMessage();
-
-      context.info(message);
-    }
-
-    if (term !== null) {
-      const boolean = term.isBoolean();
-
-      if (!boolean) {
-        context.info(`The '${procedureCallString}' procedure call did not return a boolean.`);
-      } else {
-        const primitiveValue = term.getPrimitiveValue();
-
-        if (primitiveValue) {
-          unifiesIndependently = true;
-        }
-      }
-    }
-
-    if (unifiesIndependently) {
-      context.debug(`...unified the '${procedureCallString}' procedure call independently.`);
-    }
-
-    return unifiesIndependently;
-  }
-
-  static name = "ProcedureCall";
-
-  toJSON() {
-    const string = this.getString();
-
-    let breakPoint;
-
-    breakPoint = this.getBreakPoint();
-
-    const breakPointJSON = breakPointToBreakPointJSON(breakPoint);
-
-    breakPoint = breakPointJSON;  ///
-
-    const json = {
-      string,
-      breakPoint
-    };
-
-    return json;
-  }
-
-  static fromJSON(json, context) {
-    return instantiate((context) => {
-      const { string } = json,
-            procedureCallNode = instantiateProcedureCall(string, context),
-            node = procedureCallNode,  ///
-            breakPoint = breakPointFromJSON(json),
-            parameters = parametersFromProcedureCallNode(json, context),
-            procedureReference = procedureReferenceFromProcedureCallNode(json, context);
-
-      context = null;
-
-      const procedureCall = new ProcedureCall(context, string, node, breakPoint, parameters, procedureReference);
-
-      return procedureCall;
-    }, context);
-  }
-});

package/src/element/procedureReference.js

@@ -1,71 +0,0 @@
-"use strict";
-
-import { Element } from "occam-languages";
-
-import { define } from "../elements";
-import { instantiate } from "../utilities/context";
-import { instantiateProcedureReference } from "../process/instantiate";
-import { nameFromProcedureReferenceNode } from "../utilities/element";
-import { breakPointFromJSON, breakPointToBreakPointJSON } from "../utilities/breakPoint";
-
-export default define(class ProcedureReference extends Element {
-  constructor(context, string, node, breakPoint, name) {
-    super(context, string, node, breakPoint);
-
-    this.name = name;
-  }
-
-  getName() {
-    return this.name;
-  }
-
-  getProcedureReferenceNode() {
-    const node = this.getNode(),
-          procedureReferenceNode = node;  ///
-
-    return procedureReferenceNode;
-  }
-
-  getProcedureName() {
-    const procedureName = this.name;  ///
-
-    return procedureName;
-  }
-
-  static name = "ProcedureReference";
-
-  toJSON() {
-    const string = this.getString();
-
-    let breakPoint;
-
-    breakPoint = this.getBreakPoint();
-
-    const breakPointJSON = breakPointToBreakPointJSON(breakPoint);
-
-    breakPoint = breakPointJSON;  ///
-
-    const json = {
-      string,
-      breakPoint
-    };
-
-    return json;
-  }
-
-  static fromJSON(json, context) {
-    return instantiate((context) => {
-      const { string } = json,
-            procedureReferenceNode = instantiateProcedureReference(string, context),
-            node = procedureReferenceNode,  ///
-            breakPoint = breakPointFromJSON(json),
-            name = nameFromProcedureReferenceNode(procedureReferenceNode, context);
-
-      context = null;
-
-      const procedureReference = new ProcedureReference(context, string, node, breakPoint, name);
-
-      return procedureReference;
-    }, context);
-  }
-});

package/src/element/proof.js

@@ -1,61 +0,0 @@
-"use strict";
-
-import { Element } from "occam-languages";
-
-import { define } from "../elements";
-import { enclose } from "../utilities/context";
-
-export default define(class Proof extends Element {
-  constructor(context, string, node, breakPoint, derivation) {
-    super(context, string, node, breakPoint);
-
-    this.derivation = derivation;
-  }
-
-  getDerivation() {
-    return this.derivation;
-  }
-
-  getProofNode() {
-    const node = this.getNode(),
-          proofNode = node; ///
-
-    return proofNode;
-  }
-
-  getLastStep() { return this.derivation.getLastStep(); }
-
-  getStatement() {
-    const lastStep = this.getLastStep(),
-          lastStepStatement = lastStep.getStatement(),
-          statement = lastStepStatement; ///
-
-    return statement;
-  }
-
-  async verify(statement, context) {
-    let verifies = false;
-
-    await enclose(async (context) => {
-      const derivationVerifies = await this.derivation.verify(context);
-
-      if (derivationVerifies) {
-        const lastStep = context.getLastStep();
-
-        if (lastStep !== null) {
-          const proof = this, ///
-                proofStatement = proof.getStatement(),
-                proofStatementEqualToStatement = proofStatement.isEqualTo(statement);
-
-          if (proofStatementEqualToStatement) {
-            verifies = true;
-          }
-        }
-      }
-    }, context);
-
-    return verifies;
-  }
-
-  static name = "Proof";
-});