chris@160: /**
chris@160:  * Copyright (c) 2014, 2015, Enzien Audio Ltd.
chris@160:  *
chris@160:  * Permission to use, copy, modify, and/or distribute this software for any
chris@160:  * purpose with or without fee is hereby granted, provided that the above
chris@160:  * copyright notice and this permission notice appear in all copies.
chris@160:  *
chris@160:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
chris@160:  * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
chris@160:  * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
chris@160:  * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
chris@160:  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
chris@160:  * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
chris@160:  * PERFORMANCE OF THIS SOFTWARE.
chris@160:  */
chris@160: 
chris@160: #include "ControlSystem.h"
chris@160: #include "HvTable.h"
chris@160: 
chris@160: void cSystem_onMessage(HvBase *_c, void *o, int letIn, const HvMessage *const m,
chris@160:     void (*sendMessage)(HvBase *, int, const HvMessage *const)) {
chris@160: 
chris@160:   HvMessage *n = HV_MESSAGE_ON_STACK(1);
chris@160:   if (msg_compareSymbol(m, 0, "samplerate")) {
chris@160:     msg_initWithFloat(n, msg_getTimestamp(m), (float) ctx_getSampleRate(_c));
chris@160:   } else if (msg_compareSymbol(m, 0, "numInputChannels")) {
chris@160:     msg_initWithFloat(n, msg_getTimestamp(m), (float) ctx_getNumInputChannels(_c));
chris@160:   } else if (msg_compareSymbol(m, 0, "numOutputChannels")) {
chris@160:     msg_initWithFloat(n, msg_getTimestamp(m), (float) ctx_getNumOutputChannels(_c));
chris@160:   } else if (msg_compareSymbol(m, 0, "currentTime")) {
chris@160:     msg_initWithFloat(n, msg_getTimestamp(m), (float) msg_getTimestamp(m));
chris@160:   } else if (msg_compareSymbol(m, 0, "table")) {
chris@160:     // NOTE(mhroth): no need to check message format for symbols as table lookup will fail otherwise
chris@160:     HvTable *o = ctx_getTableForHash(_c, msg_getHash(m,1));
chris@160:     if (o != NULL) {
chris@160:       if (msg_compareSymbol(m, 2, "length")) {
chris@160:         msg_initWithFloat(n, msg_getTimestamp(m), (float) hTable_getLength(o));
chris@160:       } else if (msg_compareSymbol(m, 2, "size")) {
chris@160:         msg_initWithFloat(n, msg_getTimestamp(m), (float) hTable_getSize(o));
chris@160:       } else if (msg_compareSymbol(m, 2, "head")) {
chris@160:         msg_initWithFloat(n, msg_getTimestamp(m), (float) hTable_getHead(o));
chris@160:       } else return;
chris@160:     } else return;
chris@160:   } else return;
chris@160:   sendMessage(_c, 0, n);
chris@160: }