void cPack_onMessage(HvBase *_c, ControlPack *o, int letIn, const HvMessage *const m,
void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
// ensure let index is less than number elements in internal msg
int numElements = msg_getNumElements(o->msg);
switch (letIn) {
case 0: { // first inlet stores all values of input msg and triggers an output
for (int i = hv_min_i(numElements, msg_getNumElements(m))-1; i >= 0; --i) {
switch (msg_getType(m, i)) {
case HV_MSG_FLOAT: msg_setFloat(o->msg, i, msg_getFloat(m, i)); break;
case HV_MSG_SYMBOL:
case HV_MSG_HASH: msg_setHash(o->msg, i, msg_getHash(m, i)); break;
default: break;
}
}
msg_setTimestamp(o->msg, msg_getTimestamp(m));
sendMessage(_c, 0, o->msg);
break;
}
default: { // rest of inlets just store values
switch (msg_getType(m, 0)) {
case HV_MSG_FLOAT: msg_setFloat(o->msg, letIn, msg_getFloat(m, 0)); break;
case HV_MSG_SYMBOL:
case HV_MSG_HASH: msg_setHash(o->msg, letIn, msg_getHash(m, 0)); break;
default: break;
}
break;
}
}
}
void cSlice_onMessage(HvBase *_c, ControlSlice *o, int letIn, const HvMessage *const m,
void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
switch (letIn) {
case 0: {
// if the start point is greater than the number of elements in the source message, do nothing
if (o->i < msg_getNumElements(m)) {
int x = msg_getNumElements(m) - o->i; // number of elements in the new message
if (o->n > 0) x = hv_min_i(x, o->n);
HvMessage *n = HV_MESSAGE_ON_STACK(x);
msg_init(n, x, msg_getTimestamp(m));
hv_memcpy(&n->elem, &m->elem+o->i, x*sizeof(Element));
sendMessage(_c, 0, n);
} else {
// if nothing can be sliced, send a bang out of the right outlet
HvMessage *n = HV_MESSAGE_ON_STACK(1);
msg_initWithBang(n, msg_getTimestamp(m));
sendMessage(_c, 1, n);
}
break;
}
case 1: {
if (msg_isFloat(m,0)) {
o->i = (int) msg_getFloat(m,0);
if (msg_isFloat(m,1)) {
o->n = (int) msg_getFloat(m,1);
}
}
break;
}
case 2: {
if (msg_isFloat(m,0)) {
o->n = (int) msg_getFloat(m,0);
}
break;
}
default: break;
}
}
