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