deep6 1.1.3 → 1.2.0

package/cjs/env.js

@@ -1,227 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-exports.any = exports._ = exports.isVariable = exports.variable = exports.Variable = exports.isUnifier = exports.Unifier = exports.Env = void 0;
-// Env
-const keyDepth = Symbol.for('deep6.env.depth');
-
-const collectSymbols = object => {
-  const symbols = new Set();
-
-  while (object && typeof object == 'object') {
-    Object.getOwnPropertySymbols(object).forEach(symbol => symbols.add(symbol));
-    object = Object.getPrototypeOf(object);
-  }
-
-  symbols.delete(keyDepth);
-  return Array.from(symbols);
-};
-
-const ensure = (object, depth) => {
-  while (object[keyDepth] > depth) object = object.getPrototypeOf(object);
-
-  if (object[keyDepth] < depth) {
-    object = Object.create(object);
-    object[keyDepth] = depth;
-  }
-
-  return object;
-};
-
-class Env {
-  constructor() {
-    this.variables = Object.create(null);
-    this.values = Object.create(null);
-    this.depth = this.variables[keyDepth] = this.values[keyDepth] = 0;
-  }
-
-  push() {
-    ++this.depth;
-  }
-
-  pop() {
-    if (this.depth < 1) throw new Error('attempt to pop a frame with an empty stack');
-    --this.depth;
-
-    while (this.variables[keyDepth] > this.depth) this.variables = Object.getPrototypeOf(this.variables);
-
-    while (this.values[keyDepth] > this.depth) this.values = Object.getPrototypeOf(this.values);
-  }
-
-  revert(depth) {
-    if (this.depth < depth) throw new Error('attempt to revert a stack to a higher depth');
-
-    while (this.variables[keyDepth] > depth) this.variables = Object.getPrototypeOf(this.variables);
-
-    while (this.values[keyDepth] > depth) this.values = Object.getPrototypeOf(this.values);
-
-    this.depth = depth;
-  }
-
-  bindVar(name1, name2) {
-    const depth = this.depth,
-          vars = this.variables = ensure(this.variables, depth);
-    let u1 = vars[name1],
-        u2 = vars[name2];
-    u1 && (u1 = vars[name1] = ensure(u1, depth));
-    u2 && (u2 = vars[name2] = ensure(u2, depth));
-
-    if (u1) {
-      if (u2) {
-        for (const k in u2) {
-          vars[k] = u1;
-          u1[k] = 1;
-        }
-
-        collectSymbols(u2).forEach(k => (vars[k] = u1, u1[k] = 1));
-      } else {
-        vars[name2] = u1;
-        u1[name2] = 1;
-      }
-    } else {
-      if (u2) {
-        vars[name1] = u2;
-        u2[name1] = 1;
-      } else {
-        u2 = Object.create(null);
-        u2[keyDepth] = depth;
-        vars[name1] = vars[name2] = u2;
-        u2[name1] = u2[name2] = 1;
-      }
-    }
-  }
-
-  bindVal(name, val) {
-    const depth = this.depth,
-          values = this.values = ensure(this.values, depth),
-          vars = this.variables = ensure(this.variables, depth);
-    let u = vars[name];
-    u && (u = vars[name] = ensure(u, depth));
-
-    if (u) {
-      for (const k in u) {
-        values[k] = val;
-        vars[k] = null;
-      }
-
-      collectSymbols(u).forEach(k => (values[k] = val, vars[k] = null));
-    } else {
-      values[name] = val;
-    }
-  } // helpers
-
-
-  isBound(name) {
-    return name in env.values;
-  }
-
-  isAlias(name1, name2) {
-    const u = env.variables[name2];
-    return u && u[name1] === 1;
-  }
-
-  get(name) {
-    return env.values[name];
-  } // debugging
-
-
-  getAllValues() {
-    const values = this.values,
-          result = collectSymbols(values).map(k => ({
-      name: k,
-      value: values[k]
-    }));
-
-    for (const k in values) {
-      result.push({
-        name: k,
-        value: values[k]
-      });
-    }
-
-    return result;
-  }
-
-} // Custom unifier
-
-
-exports.Env = Env;
-
-class Unifier {}
-
-exports.Unifier = Unifier;
-
-const isUnifier = x => x instanceof Unifier; // Unifier should define a method:
-// unify(val, ls, rs, env):
-// val is a value we are unifying with
-// ls is a stack of left arguments
-// rs is a stack of right arguments corresponding to ls
-// env is an environment
-// the result should be true/false for success/failure
-// AnyVar
-
-
-exports.isUnifier = isUnifier;
-
-const _ = Symbol.for('deep6.any'),
-      any = _; // Variable
-
-
-exports.any = any;
-exports._ = _;
-
-class Variable extends Unifier {
-  constructor(name) {
-    super();
-    this.name = name || Symbol();
-  }
-
-  isBound(env) {
-    return this.name in env.values;
-  }
-
-  isAlias(name, env) {
-    const u = env.variables[this.name];
-    return u && u[name instanceof Variable ? name.name : name] === 1;
-  }
-
-  get(env) {
-    return env.values[this.name];
-  }
-
-  unify(val, ls, rs, env) {
-    if (this.name in env.values) {
-      // isBound
-      ls.push(env.values[this.name]);
-      rs.push(val);
-      return true;
-    }
-
-    if (val === _ || val === this) return true;
-
-    if (val instanceof Variable) {
-      if (val.name in env.values) {
-        // isBound
-        env.bindVal(this.name, env.values[val.name]);
-        return true;
-      }
-
-      env.bindVar(this.name, val.name);
-      return true;
-    }
-
-    env.bindVal(this.name, val);
-    return true;
-  }
-
-}
-
-exports.Variable = Variable;
-
-const isVariable = x => x instanceof Variable,
-      variable = name => new Variable(name);
-
-exports.variable = variable;
-exports.isVariable = isVariable;

package/cjs/index.js

@@ -1,57 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-Object.defineProperty(exports, "any", {
-  enumerable: true,
-  get: function () {
-    return _env.any;
-  }
-});
-Object.defineProperty(exports, "_", {
-  enumerable: true,
-  get: function () {
-    return _env._;
-  }
-});
-exports.default = exports.isShape = exports.match = exports.clone = exports.equal = void 0;
-
-var _env = require("./env.js");
-
-var _unify = _interopRequireDefault(require("./unify.js"));
-
-var _clone = _interopRequireDefault(require("./traverse/clone.js"));
-
-var _preprocess = _interopRequireDefault(require("./traverse/preprocess.js"));
-
-function _interopRequireDefault(obj) { return obj && obj.__esModule ? obj : { default: obj }; }
-
-const defaultOptions = {
-  circular: true
-};
-
-const equal = (a, b, options = defaultOptions) => !!(0, _unify.default)(a, b, null, options);
-
-exports.equal = equal;
-const defaultMatchOptions = {
-  openObjects: true,
-  openMaps: true,
-  openSets: true,
-  circular: true
-};
-
-const match = (object, pattern, options = defaultMatchOptions) => !!(0, _unify.default)(object, (0, _preprocess.default)(pattern, options), null, {
-  circular: options.circular,
-  symbols: options.symbols,
-  loose: options.loose,
-  ignoreFunctions: options.ignoreFunctions
-});
-
-exports.isShape = exports.match = match;
-
-const clone = (a, options = defaultOptions) => (0, _clone.default)(a, null, options);
-
-exports.clone = clone;
-var _default = equal;
-exports.default = _default;

package/cjs/package.json

@@ -1 +0,0 @@
-{"type":"commonjs"}

package/cjs/traverse/assemble.js

@@ -1,145 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-exports.default = exports.filters = exports.registry = void 0;
-
-var _unify = require("../unify.js");
-
-var _walk = _interopRequireWildcard(require("./walk.js"));
-
-function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
-
-function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
-
-const empty = {};
-
-function postProcess(context) {
-  const stackOut = context.stackOut,
-        s = this.s,
-        {
-    descriptors,
-    keys
-  } = (0, _walk.getObjectData)(s, context);
-  let j = stackOut.length - 1;
-  const result = keys.some(k => {
-    const d = descriptors[k];
-    if (d.get || d.set) return false;
-    const t = stackOut[j--];
-    return typeof t == 'number' && isNaN(t) ? typeof s[k] == 'number' && !isNaN(s[k]) : s[k] !== t;
-  });
-
-  if (result) {
-    (0, _walk.buildNewObject)(s, descriptors, keys, stackOut);
-  } else {
-    (0, _walk.replaceObject)(j, s, stackOut);
-  }
-}
-
-function postProcessSeen(context) {
-  const stackOut = context.stackOut,
-        s = this.s,
-        {
-    descriptors,
-    keys
-  } = (0, _walk.getObjectData)(s, context);
-  let j = stackOut.length - 1;
-  const result = keys.some(k => {
-    const d = descriptors[k];
-    if (d.get || d.set) return false;
-    const t = stackOut[j--];
-    return typeof t == 'number' && isNaN(t) ? typeof s[k] == 'number' && !isNaN(s[k]) : s[k] !== t;
-  });
-
-  if (result) {
-    (0, _walk.postObjectCircular)(s, descriptors, keys, context);
-  } else {
-    (0, _walk.replaceObject)(j, s, stackOut);
-  }
-}
-
-const postProcessMap = context => {
-  const stackOut = context.stackOut,
-        s = (void 0).s;
-  let j = stackOut.length - 1;
-  const result = Array.from(s.values()).some(v => {
-    const t = stackOut[j--];
-    return typeof t == 'number' && isNaN(t) ? typeof v == 'number' && !isNaN(v) : v !== t;
-  });
-
-  if (result) {
-    (0, _walk.buildNewMap)(s.keys(), stackOut);
-  } else {
-    (0, _walk.replaceObject)(j, s, stackOut);
-  }
-};
-
-function postProcessMapSeen(context) {
-  const stackOut = context.stackOut,
-        s = this.s;
-  let j = stackOut.length - 1;
-  const result = Array.from(s.values()).some(v => {
-    const t = stackOut[j--];
-    return typeof t == 'number' && isNaN(t) ? typeof v == 'number' && !isNaN(v) : v !== t;
-  });
-
-  if (result) {
-    (0, _walk.postMapCircular)(s, context);
-  } else {
-    (0, _walk.replaceObject)(j, s, stackOut);
-  }
-}
-
-const registry = [_walk.default.Command, _walk.processCommand, Array, (0, _walk.processObject)(postProcess, postProcessSeen), _unify.Variable, _walk.processVariable, _unify.Unifier, _walk.processOther, Date, _walk.processOther, RegExp, _walk.processOther, Map, (0, _walk.processMap)(postProcessMap, postProcessMapSeen), Set, _walk.processOther, Promise, _walk.processOther],
-      filters = []; // add more types
-
-exports.filters = filters;
-exports.registry = registry;
-
-const addType = (Type, process) => registry.push(Type, process || _walk.processOther);
-
-typeof Int8Array == 'function' && addType(Int8Array);
-typeof Uint8Array == 'function' && addType(Uint8Array);
-typeof Uint8ClampedArray == 'function' && addType(Uint8ClampedArray);
-typeof Int16Array == 'function' && addType(Int16Array);
-typeof Uint16Array == 'function' && addType(Uint16Array);
-typeof Int32Array == 'function' && addType(Int32Array);
-typeof Uint32Array == 'function' && addType(Uint32Array);
-typeof Float32Array == 'function' && addType(Float32Array);
-typeof Float64Array == 'function' && addType(Float64Array);
-typeof BigInt64Array == 'function' && addType(BigInt64Array);
-typeof BigUint64Array == 'function' && addType(BigUint64Array);
-typeof DataView == 'function' && addType(DataView);
-typeof ArrayBuffer == 'function' && addType(ArrayBuffer); // main
-
-const assemble = (source, env, options) => {
-  if (env && !(env instanceof _unify.Env)) {
-    options = env;
-    env = null;
-  }
-
-  options = options || empty;
-  const context = options.context || {},
-        stackOut = [];
-  context.stackOut = stackOut;
-  context.env = env;
-  (0, _walk.default)(source, {
-    processObject: options.processObject || (0, _walk.processObject)(postProcess, postProcessSeen),
-    processOther: options.processOther || _walk.processOther,
-    processCircular: options.processCircular || _walk.processCircular,
-    registry: options.registry || assemble.registry,
-    filters: options.filters || assemble.filters,
-    circular: options.circular,
-    symbols: options.symbols,
-    allProps: options.allProps,
-    context: context
-  }); // ice.assert(stackOut.length == 1);
-
-  return stackOut[0];
-};
-
-assemble.registry = registry;
-assemble.filters = filters;
-var _default = assemble;
-exports.default = _default;

package/cjs/traverse/clone.js

@@ -1,94 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-exports.default = exports.filters = exports.registry = void 0;
-
-var _unify = require("../unify.js");
-
-var _walk = _interopRequireWildcard(require("./walk.js"));
-
-function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
-
-function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
-
-const empty = {};
-
-function postProcess(context) {
-  const {
-    descriptors,
-    keys
-  } = (0, _walk.getObjectData)(this.s, context);
-  (0, _walk.buildNewObject)(this.s, descriptors, keys, context.stackOut);
-}
-
-function postProcessSeen(context) {
-  const {
-    descriptors,
-    keys
-  } = (0, _walk.getObjectData)(this.s, context);
-  (0, _walk.postObjectCircular)(this.s, descriptors, keys, context);
-}
-
-function postProcessMap(context) {
-  (0, _walk.buildNewMap)(this.s.keys(), context.stackOut);
-}
-
-function postProcessMapSeen(context) {
-  (0, _walk.postMapCircular)(this.s, context);
-}
-
-const registry = [_walk.default.Command, _walk.processCommand, Array, (0, _walk.processObject)(postProcess, postProcessSeen), _unify.Variable, _walk.processVariable, _unify.Unifier, _walk.processOther, Date, (val, context) => context.stackOut.push(new Date(val.getTime())), RegExp, (val, context) => context.stackOut.push(new RegExp(val.source, (val.global ? 'g' : '') + (val.multiline ? 'm' : '') + (val.ignoreCase ? 'i' : ''))), Map, (0, _walk.processMap)(postProcessMap, postProcessMapSeen), Promise, _walk.processOther],
-      filters = []; // add more types
-
-exports.filters = filters;
-exports.registry = registry;
-
-const addType = (Type, process) => registry.push(Type, process || ((val, context) => context.stackOut.push(new Type(val))));
-
-addType(Set);
-typeof Int8Array == 'function' && addType(Int8Array);
-typeof Uint8Array == 'function' && addType(Uint8Array);
-typeof Uint8ClampedArray == 'function' && addType(Uint8ClampedArray);
-typeof Int16Array == 'function' && addType(Int16Array);
-typeof Uint16Array == 'function' && addType(Uint16Array);
-typeof Int32Array == 'function' && addType(Int32Array);
-typeof Uint32Array == 'function' && addType(Uint32Array);
-typeof Float32Array == 'function' && addType(Float32Array);
-typeof Float64Array == 'function' && addType(Float64Array);
-typeof BigInt64Array == 'function' && addType(BigInt64Array);
-typeof BigUint64Array == 'function' && addType(BigUint64Array);
-typeof DataView == 'function' && addType(DataView);
-typeof ArrayBuffer == 'function' && addType(ArrayBuffer); // main
-
-const clone = (source, env, options) => {
-  if (env && !(env instanceof _unify.Env)) {
-    options = env;
-    env = null;
-  }
-
-  options = options || empty;
-  const context = options.context || {},
-        stackOut = [];
-  context.stackOut = stackOut;
-  context.env = env;
-  (0, _walk.default)(source, {
-    processObject: options.processObject || (0, _walk.processObject)(postProcess, postProcessSeen),
-    processOther: options.processOther || _walk.processOther,
-    processCircular: options.processCircular || _walk.processCircular,
-    registry: options.registry || clone.registry,
-    filters: options.filters || clone.filters,
-    circular: options.circular,
-    symbols: options.symbols,
-    allProps: options.allProps,
-    context: context
-  }); // ice.assert(stackOut.length == 1);
-
-  return stackOut[0];
-};
-
-clone.registry = registry;
-clone.filters = filters;
-var _default = clone;
-exports.default = _default;

package/cjs/traverse/deref.js

@@ -1,102 +0,0 @@
-"use strict";
-
-Object.defineProperty(exports, "__esModule", {
-  value: true
-});
-exports.default = exports.filters = exports.registry = void 0;
-
-var _unify = require("../unify.js");
-
-var _walk = _interopRequireWildcard(require("./walk.js"));
-
-function _getRequireWildcardCache(nodeInterop) { if (typeof WeakMap !== "function") return null; var cacheBabelInterop = new WeakMap(); var cacheNodeInterop = new WeakMap(); return (_getRequireWildcardCache = function (nodeInterop) { return nodeInterop ? cacheNodeInterop : cacheBabelInterop; })(nodeInterop); }
-
-function _interopRequireWildcard(obj, nodeInterop) { if (!nodeInterop && obj && obj.__esModule) { return obj; } if (obj === null || typeof obj !== "object" && typeof obj !== "function") { return { default: obj }; } var cache = _getRequireWildcardCache(nodeInterop); if (cache && cache.has(obj)) { return cache.get(obj); } var newObj = {}; var hasPropertyDescriptor = Object.defineProperty && Object.getOwnPropertyDescriptor; for (var key in obj) { if (key !== "default" && Object.prototype.hasOwnProperty.call(obj, key)) { var desc = hasPropertyDescriptor ? Object.getOwnPropertyDescriptor(obj, key) : null; if (desc && (desc.get || desc.set)) { Object.defineProperty(newObj, key, desc); } else { newObj[key] = obj[key]; } } } newObj.default = obj; if (cache) { cache.set(obj, newObj); } return newObj; }
-
-const empty = {};
-
-function postProcess(context) {
-  const stackOut = context.stackOut,
-        s = this.s,
-        {
-    descriptors,
-    keys
-  } = (0, _walk.getObjectData)(s, context);
-  let j = stackOut.length - 1;
-
-  for (const key of keys) {
-    const d = descriptors[key];
-
-    if (!(d.get || d.set)) {
-      d.value = stackOut[j--];
-      Object.defineProperty(s, key, d);
-    }
-  }
-
-  (0, _walk.replaceObject)(j, s, stackOut);
-}
-
-function postProcessMap(context) {
-  const stackOut = context.stackOut,
-        s = this.s;
-  let j = stackOut.length - 1;
-
-  for (const key of s) {
-    s.set(key, stackOut[j--]);
-  }
-
-  (0, _walk.replaceObject)(j, s, stackOut);
-}
-
-const registry = [_walk.default.Command, _walk.processCommand, Array, (0, _walk.processObject)(postProcess), _unify.Variable, _walk.processVariable, _unify.Unifier, _walk.processOther, Date, _walk.processOther, RegExp, _walk.processOther, Map, (0, _walk.processMap)(postProcessMap), Set, _walk.processOther, Promise, _walk.processOther],
-      filters = []; // add more types
-
-exports.filters = filters;
-exports.registry = registry;
-
-const addType = (Type, process) => registry.push(Type, process || _walk.processOther);
-
-typeof Int8Array == 'function' && addType(Int8Array);
-typeof Uint8Array == 'function' && addType(Uint8Array);
-typeof Uint8ClampedArray == 'function' && addType(Uint8ClampedArray);
-typeof Int16Array == 'function' && addType(Int16Array);
-typeof Uint16Array == 'function' && addType(Uint16Array);
-typeof Int32Array == 'function' && addType(Int32Array);
-typeof Uint32Array == 'function' && addType(Uint32Array);
-typeof Float32Array == 'function' && addType(Float32Array);
-typeof Float64Array == 'function' && addType(Float64Array);
-typeof BigInt64Array == 'function' && addType(BigInt64Array);
-typeof BigUint64Array == 'function' && addType(BigUint64Array);
-typeof DataView == 'function' && addType(DataView);
-typeof ArrayBuffer == 'function' && addType(ArrayBuffer); // main
-
-const deref = (source, env, options) => {
-  if (env && !(env instanceof _unify.Env)) {
-    options = env;
-    env = null;
-  }
-
-  options = options || empty;
-  const context = options.context || {},
-        stackOut = [];
-  context.stackOut = stackOut;
-  context.env = env;
-  (0, _walk.default)(source, {
-    processObject: options.processObject || (0, _walk.processObject)(postProcess),
-    processOther: options.processOther || _walk.processOther,
-    processCircular: options.processCircular || _walk.processOther,
-    registry: options.registry || deref.registry,
-    filters: options.filters || deref.filters,
-    circular: options.circular,
-    symbols: options.symbols,
-    allProps: options.allProps,
-    context: context
-  }); // ice.assert(stackOut.length == 1);
-
-  return stackOut[0];
-};
-
-deref.registry = registry;
-deref.filters = filters;
-var _default = deref;
-exports.default = _default;