stampit/src/stampit.js

!function() {
  'use strict';
  var _undefined;

  var var1 = 'roperties';
  var var2 = 'ropertyDescriptors';
  var var3 = 'static';
  var var4 = 'onfiguration';
  var _properties = 'p' + var1;
  var _deepProperties = 'deepP' + var1;
  var _propertyDescriptors = 'p' + var2;
  var _staticProperties = var3 + 'P' + var1;
  var _staticDeepProperties = var3 + 'DeepP' + var1;
  var _staticPropertyDescriptors = var3 + 'P' + var2;
  var _configuration = 'c' + var4;
  var _deepConfiguration = 'deepC' + var4;
  var _deepProps = 'deepProps';
  var _deepStatics = 'deepStatics';
  var _deepConf = 'deepConf';
  var _initializers = 'initializers';
  var _methods = 'methods';
  var _composers = 'composers';
  var _compose = 'compose';
  var _object = 'object';
  var _length = 'length';
  var _create = 'create';
  var _Object = Object;
  var isArray = Array.isArray;
  var defineProperties = _Object.defineProperties;
  var objectKeys = _Object.keys;
  var baseStampit = Array.prototype; // temporary reusing the variable
  var concat = baseStampit.concat;
  var slice = baseStampit.slice;

  function _mergeOrAssign(action, dst) {
    return slice.call(arguments, 2).reduce(action, dst);
  }

  function assignOne(dst, src) {
    if (src) {
      var keys = objectKeys(src);
      for (var i = 0; i < keys[_length]; i++) {
        dst[keys[i]] = src[keys[i]];
      }
    }
    return dst;
  }

  var assign = _Object.assign || _mergeOrAssign.bind(0, assignOne);

  function isFunction(obj) {
    return typeof obj == 'function';
  }

  function isObject(obj) {
    return obj && typeof obj == _object || isFunction(obj);
  }

  function isPlainObject(value) {
    return value && typeof value == _object &&
      value.__proto__ == _Object.prototype;
  }

  /**
   * The 'src' argument plays the command role.
   * The returned values is always of the same type as the 'src'.
   * @param {Array|Object|*} dst Destination
   * @param {Array|Object|*} src Source
   * @returns {Array|Object|*} The `dst` argument
   */
  function mergeOne(dst, src) {
    if (src === _undefined) return dst;

    // According to specification arrays must be concatenated.
    // Also, the '.concat' creates a new array instance. Overrides the 'dst'.
    if (isArray(src)) return (isArray(dst) ? dst : []).concat(src);

    // Now deal with non plain 'src' object. 'src' overrides 'dst'
    // Note that functions are also assigned! We do not deep merge functions.
    if (!isPlainObject(src)) return src;

    var keys = objectKeys(src), i = 0, key;
    for (; i < keys[_length];) {
      key = keys[i++];

      // Do not merge properties with the '_undefined' value.
      if (src[key] !== _undefined) {
        // deep merge each property. Recursion!
        dst[key] = mergeOne(
          // Recursive calls to mergeOne() must allow only plain objects or arrays in dst
          isPlainObject(dst[key]) || isArray(src[key]) ? dst[key] : {},
          src[key]
        );
      }
    }

    return dst;
  }

  var merge = _mergeOrAssign.bind(0, mergeOne);

  function extractUniqueFunctions() {
    var1 = concat.apply([], arguments).filter(function(elem, index, array) {
      return isFunction(elem) && array.indexOf(elem) === index;
    });
    return var1[_length] ? var1 : _undefined;
  }


  /**
   * Converts stampit extended descriptor to a standard one.
   * @param {Object|*} descr
   * methods
   * properties
   * props
   * initializers
   * init
   * deepProperties
   * deepProps
   * propertyDescriptors
   * staticProperties
   * statics
   * staticDeepProperties
   * deepStatics
   * staticPropertyDescriptors
   * configuration
   * conf
   * deepConfiguration
   * deepConf
   * composers
   * @returns {Descriptor} Standardised descriptor
   */
  function standardiseDescriptor(descr) {
    var4 = {};

    var4[_methods] = descr[_methods] || _undefined;

    var1 = descr[_properties];
    var2 = descr.props;
    var4[_properties] = isObject(var1 || var2) ? assign({}, var2, var1) : _undefined;

    var4[_initializers] = extractUniqueFunctions(descr.init, descr[_initializers]);

    var4[_composers] = extractUniqueFunctions(descr[_composers]);

    var1 = descr[_deepProperties];
    var2 = descr[_deepProps];
    var4[_deepProperties] = isObject(var1 || var2) ? merge({}, var2, var1) : _undefined;

    var4[_propertyDescriptors] = descr[_propertyDescriptors];

    var1 = descr[_staticProperties];
    var2 = descr.statics;
    var4[_staticProperties] = isObject(var1 || var2) ? assign({}, var2, var1) : _undefined;

    var1 = descr[_staticDeepProperties];
    var2 = descr[_deepStatics];
    var4[_staticDeepProperties] = isObject(var1 || var2) ? merge({}, var2, var1) : _undefined;

    var4[_staticPropertyDescriptors] = descr[_staticPropertyDescriptors];

    var1 = descr[_configuration];
    var2 = descr.conf;
    var4[_configuration] = isObject(var1 || var2) ? assign({}, var2, var1) : _undefined;

    var1 = descr[_deepConfiguration];
    var2 = descr[_deepConf];
    var3 = isObject(var1 || var2) ? merge({}, var2, var1) : _undefined;

    var4[_deepConfiguration] = var3;

    return var4;
  }

  /**
   * Creates new factory instance.
   * @returns {Function} The new factory function.
   */
  function createFactory() {
    return function Stamp(options) {
      var i = Stamp[_compose] || {};
      // Next line was optimized for most JS VMs. Please, be careful here!
      var obj = {__proto__: i[_methods]};

      var inits = i[_initializers], args = slice.apply(arguments);
      var initializer, returnedValue;

      var tmp = i[_deepProperties];
      if (tmp) merge(obj, tmp);
      tmp = i[_properties];
      if (tmp) assign(obj, tmp);
      tmp = i[_propertyDescriptors];
      if (tmp) defineProperties(obj, tmp);

      if (!inits || !inits[_length]) return obj;

      if (options === _undefined) options = {};
      for (i = 0; i < inits[_length];) {
        initializer = inits[i++];
        if (isFunction(initializer)) {
          returnedValue = initializer.call(obj, options,
            {instance: obj, stamp: Stamp, args: args});
          obj = returnedValue === _undefined ? obj : returnedValue;
        }
      }

      return obj;
    };
  }

  /**
   * Returns a new stamp given a descriptor and a compose function implementation.
   * @param {Descriptor} [descriptor={}] The information about the object the stamp will be creating.
   * @returns {Stamp} The new stamp
   */
  function createStamp(descriptor) {
    var1 = createFactory();

    var2 = descriptor[_staticDeepProperties];
    if (var2) merge(var1, var2);

    var2 = descriptor[_staticProperties];
    if (var2) assign(var1, var2);

    var2 = descriptor[_staticPropertyDescriptors];
    if (var2) defineProperties(var1, var2);

    var2 = isFunction(var1[_compose]) ? var1[_compose] : compose;
    assign(var1[_compose] = function() {
      return var2.apply(this, arguments);
    }, descriptor);

    return var1;
  }

  /**
   * Mutates the dstDescriptor by merging the srcComposable data into it.
   * @param {Descriptor} dstDescriptor The descriptor object to merge into.
   * @param {Composable} [srcComposable] The composable
   * (either descriptor or stamp) to merge data form.
   * @returns {Descriptor} Returns the dstDescriptor argument.
   */
  function mergeComposable(dstDescriptor, srcComposable) {
    function mergeAssign(propName, deep) {
      if (!isObject(srcComposable[propName])) {
        return;
      }
      if (!isObject(dstDescriptor[propName])) {
        dstDescriptor[propName] = {};
      }
      (deep || assign)(dstDescriptor[propName], srcComposable[propName]);
    }

    function concatAssignFunctions(propName) {
      var1 = extractUniqueFunctions(dstDescriptor[propName], srcComposable[propName]);
      if (var1) dstDescriptor[propName] = var1;
    }

    if (srcComposable && isObject(srcComposable = srcComposable[_compose] || srcComposable)) {
      mergeAssign(_methods);
      mergeAssign(_properties);
      mergeAssign(_deepProperties, merge);
      mergeAssign(_propertyDescriptors);
      mergeAssign(_staticProperties);
      mergeAssign(_staticDeepProperties, merge);
      mergeAssign(_staticPropertyDescriptors);
      mergeAssign(_configuration);
      mergeAssign(_deepConfiguration, merge);
      concatAssignFunctions(_initializers);
      concatAssignFunctions(_composers);
    }

    return dstDescriptor;
  }

  /**
   * Given the list of composables (stamp descriptors and stamps) returns
   * a new stamp (composable factory function).
   * @typedef {Function} Compose
   * Parameters:  {...Composable} The list of composables.
   * @returns {Stamp} A new stamp (aka composable factory function)
   */
  function compose() {
    var descriptor = concat.apply([this], arguments)
    .reduce(mergeComposable, {});
    return createStamp(descriptor);
  }


  /**
   * The Stamp Descriptor
   * @typedef {Function|Object} Descriptor
   * @returns {Stamp} A new stamp based on this Stamp
   * @property {Object} [methods] Methods or other data used as object instances' prototype
   * @property {Array<Function>} [initializers] List of initializers called for each object instance
   * @property {Object} [properties] Shallow assigned properties of object instances
   * @property {Object} [deepProperties] Deeply merged properties of object instances
   * @property {Object} [staticProperties] Shallow assigned properties of Stamps
   * @property {Object} [staticDeepProperties] Deeply merged properties of Stamps
   * @property {Object} [configuration] Shallow assigned properties of Stamp arbitrary metadata
   * @property {Object} [deepConfiguration] Deeply merged properties of Stamp arbitrary metadata
   * @property {Object} [propertyDescriptors] ES5 Property Descriptors applied to object instances
   * @property {Object} [staticPropertyDescriptors] ES5 Property Descriptors applied to Stamps
   */

  /**
   * The Stamp factory function
   * @typedef {Function} Stamp
   * @returns {*} Instantiated object
   * @property {Descriptor} compose - The Stamp descriptor and composition function
   */

  /**
   * A composable object - stamp or descriptor
   * @typedef {Stamp|Descriptor} Composable
   */

  /**
   * Returns true if argument is a stamp.
   * @param {*} obj Any object
   * @returns {Boolean} True is the obj is a stamp
   */
  function isStamp(obj) {
    return isFunction(obj) && isFunction(obj[_compose]);
  }

  var allUtilities = {};

  allUtilities[_methods] = createUtilityFunction(_methods, assign);

  allUtilities[_properties] = allUtilities.props =
    createUtilityFunction(_properties, assign);

  allUtilities[_initializers] = allUtilities.init =
    createUtilityFunction(_initializers, extractUniqueFunctions);

  allUtilities[_composers] = createUtilityFunction(_composers, extractUniqueFunctions);

  allUtilities[_deepProperties] = allUtilities[_deepProps] =
    createUtilityFunction(_deepProperties, merge);

  allUtilities[_staticProperties] = allUtilities.statics =
    createUtilityFunction(_staticProperties, assign);

  allUtilities[_staticDeepProperties] = allUtilities[_deepStatics] =
    createUtilityFunction(_staticDeepProperties, merge);

  allUtilities[_configuration] = allUtilities.conf =
    createUtilityFunction(_configuration, assign);

  allUtilities[_deepConfiguration] = allUtilities[_deepConf] =
    createUtilityFunction(_deepConfiguration, merge);

  allUtilities[_propertyDescriptors] = createUtilityFunction(_propertyDescriptors, assign);

  allUtilities[_staticPropertyDescriptors] = createUtilityFunction(_staticPropertyDescriptors, assign);

  function createUtilityFunction(propName, action) {
    return function() {
      var4 = {};
      var4[propName] = action.apply(_undefined, concat.apply([{}], arguments));
      var1 = this;

      return ((var1 && var1[_compose]) || var2).call(var1, var4);
    };
  }

  /**
   * Infected compose
   * Parameters:  {...Composable} The list of composables.
   * @return {Stamp} The Stampit-flavoured stamp
   */
  var2 = allUtilities[_compose] = assign(function stampit() {
    var i = 0, composable, composables = [], array = arguments, composerResult = this;
    for (; i < array[_length];) {
      composable = array[i++];
      if (isObject(composable)) {
        composables.push(isStamp(composable) ? composable : standardiseDescriptor(composable));
      }
    }

    // Calling the standard pure compose function here.
    composable = compose.apply(composerResult || baseStampit, composables);
    if (composerResult) composables.unshift(composerResult);

    array = composable[_compose][_composers];
    if (isArray(array)) {
      for (i = 0; i < array[_length];) {
        composerResult = array[i++]({stamp: composable, composables: composables});
        composable = isStamp(composerResult) ? composerResult : composable;
      }
    }

    return composable;
  }, allUtilities); // Setting up the shortcut functions

  allUtilities[_create] = function() {
    return this.apply(_undefined, arguments);
  };

  var4 = {};
  var4[_staticProperties] = allUtilities;

  /**
   * Infected stamp. Used as a storage of the infection metadata
   * @type {Function}
   * @return {Stamp}
   */
  baseStampit = compose(var4);

  var2[_compose] = var2.bind(); // bind to undefined
  var2.version = 'VERSION';

  if (typeof _undefined != typeof module) module.exports = var2; else self.stampit = var2;
}();