text: /**
   * Copyright (c) 2014,2015 Enzien Audio, Ltd.
   *
   * Permission is hereby granted, free of charge, to any person obtaining a copy
   * of this software and associated documentation files (the "Software"),
   * to deal in the Software without restriction, including without limitation
   * the rights to use, copy, modify, merge, publish, distribute, and/or
   * sublicense copies of the Software, strictly on a non-commercial basis,
   * and to permit persons to whom the Software is furnished to do so,
   * subject to the following conditions:
   *
   * The above copyright notice and this permission notice shall be included in
   * all copies or substantial portions of the Software.
   *
   * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
   * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
   * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
   * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
   * IN THE SOFTWARE.
   */
  
  #include "ControlBinop.h"
  
  hv_size_t cBinop_init(ControlBinop *o, float k) {
    o->k = k;
    return 0;
  }
  
  static float cBinop_perform_op(BinopType op, float f, const float k) {
    switch (op) {
      case HV_BINOP_ADD: return f + k;
      case HV_BINOP_SUBTRACT: return f - k;
      case HV_BINOP_MULTIPLY: return f * k;
      case HV_BINOP_DIVIDE: return (k != 0.0f) ? f / k : 0.0f;
      case HV_BINOP_INT_DIV: return (float) ((int) f / (int) k);
      case HV_BINOP_MOD_BIPOLAR: return (float) ((int) f % (int) k);
      case HV_BINOP_MOD_UNIPOLAR: {
        f = (k == 0.0f) ? 0.0f : (float) ((int) f % (int) k);
        return (f < 0.0f) ? f + fabsf(k) : f;
      }
      case HV_BINOP_BIT_LEFTSHIFT: return (float) (((int) f) << ((int) k));
      case HV_BINOP_BIT_RIGHTSHIFT: return (float) (((int) f) >> ((int) k));
      case HV_BINOP_BIT_AND: return (float) ((int) f & (int) k);
      case HV_BINOP_BIT_XOR: return (float) ((int) f ^ (int) k);
      case HV_BINOP_BIT_OR: return (float) ((int) f | (int) k);
      case HV_BINOP_EQ: return (f == k) ? 1.0f : 0.0f;
      case HV_BINOP_NEQ: return (f != k) ? 1.0f : 0.0f;
      case HV_BINOP_LOGICAL_AND: return ((f == 0.0f) || (k == 0.0f)) ? 0.0f : 1.0f;
      case HV_BINOP_LOGICAL_OR: return ((f == 0.0f) && (k == 0.0f)) ? 0.0f : 1.0f;
      case HV_BINOP_LESS_THAN: return (f < k) ? 1.0f : 0.0f;
      case HV_BINOP_LESS_THAN_EQL: return (f <= k) ? 1.0f : 0.0f;
      case HV_BINOP_GREATER_THAN: return (f > k) ? 1.0f : 0.0f;
      case HV_BINOP_GREATER_THAN_EQL: return (f >= k) ? 1.0f : 0.0f;
      case HV_BINOP_MAX: return hv_max_f(f, k);
      case HV_BINOP_MIN: return hv_min_f(f, k);
      case HV_BINOP_POW: return (f > 0.0f) ? powf(f, k) : 0.0f;
      case HV_BINOP_ATAN2: return ((f == 0.0f) && (k == 0.0f)) ? 0.0f : atan2f(f, k);
      default: return 0.0f;
    }
  }
  
  void cBinop_onMessage(HvBase *_c, ControlBinop *o, BinopType op, int letIn,
      const HvMessage *const m,
      void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
    switch (letIn) {
      case 0: {
        if (msg_isFloat(m, 0)) {
          // Note(joe): supporting Pd's ability to perform operations of packs
          // of floats is likely to not be supported in the future.
          if (msg_isFloat(m, 1)) o->k = msg_getFloat(m, 1);
          HvMessage *n = HV_MESSAGE_ON_STACK(1);
          float f = cBinop_perform_op(op, msg_getFloat(m, 0), o->k);
          msg_initWithFloat(n, msg_getTimestamp(m), f);
          sendMessage(_c, 0, n);
        }
        break;
      }
      case 1: {
        if (msg_isFloat(m, 0)) {
          o->k = msg_getFloat(m, 0);
        }
        break;
      }
      default: break;
    }
  }
  
  void cBinop_k_onMessage(HvBase *_c, void *o, BinopType op, const float k,
      int letIn, const HvMessage *const m,
      void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
    if (msg_isFloat(m, 0)) {
      // NOTE(mhroth): Heavy does not support sending bangs to binop objects to return the previous output
      float f = (msg_isFloat(m, 1)) ? msg_getFloat(m, 1) : k;
      HvMessage *n = HV_MESSAGE_ON_STACK(1);
      f = cBinop_perform_op(op, msg_getFloat(m, 0), f);
      msg_initWithFloat(n, msg_getTimestamp(m), f);
      sendMessage(_c, 0, n);
    }
  }
  