void cDelay_onMessage(HvBase *_c, ControlDelay *o, int letIn, const HvMessage *const m,
void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
switch (letIn) {
case 0: {
if (msg_compareSymbol(m, 0, "flush")) {
// send all messages immediately
for (int i = 0; i < __HV_DELAY_MAX_MESSAGES; i++) {
HvMessage *n = o->msgs[i];
if (n != NULL) {
msg_setTimestamp(n, msg_getTimestamp(m)); // update the timestamp to now
sendMessage(_c, 0, n); // send the message
ctx_cancelMessage(_c, n, sendMessage); // then clear it
// NOTE(mhroth): there may be a problem here if a flushed message causes a clear message to return
// to this object in the same step
}
}
hv_memset(o->msgs, __HV_DELAY_MAX_MESSAGES*sizeof(HvMessage *));
} else if (msg_compareSymbol(m, 0, "clear")) {
// cancel (clear) all (pending) messages
for (int i = 0; i < __HV_DELAY_MAX_MESSAGES; i++) {
HvMessage *n = o->msgs[i];
if (n != NULL) {
ctx_cancelMessage(_c, n, sendMessage);
}
}
hv_memset(o->msgs, __HV_DELAY_MAX_MESSAGES*sizeof(HvMessage *));
} else {
hv_uint32_t ts = msg_getTimestamp(m);
msg_setTimestamp((HvMessage *) m, ts+o->delay); // update the timestamp to set the delay
int i;
for (i = 0; i < __HV_DELAY_MAX_MESSAGES; i++) {
if (o->msgs[i] == NULL) {
o->msgs[i] = ctx_scheduleMessage(_c, m, sendMessage, 0);
break;
}
}
hv_assert(i < __HV_DELAY_MAX_MESSAGES); // scheduled message limit reached
msg_setTimestamp((HvMessage *) m, ts); // return to the original timestamp
}
break;
}
case 1: {
if (msg_isFloat(m,0)) {
// set delay in milliseconds
o->delay = ctx_millisecondsToSamples(_c,msg_getFloat(m,0));
}
break;
}
case 2: {
if (msg_isFloat(m,0)) {
// set delay in samples
o->delay = (hv_uint32_t) msg_getFloat(m,0);
}
break;
}
default: break;
}
}
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 hv_msg_setTimestamp(HvMessage *m, hv_uint32_t timestamp) {
msg_setTimestamp(m, timestamp);
}
void hv_scheduleMessageForReceiver(HvBase *c, const char *receiverName, double delayMs, HvMessage *m) {
hv_assert(delayMs >= 0.0);
msg_setTimestamp(m, c->blockStartTimestamp + (hv_uint32_t) (delayMs*ctx_getSampleRate(c)/1000.0));
ctx_scheduleMessageForReceiver(c, receiverName, m);
}
