PUBLIC int csoundCompileCsd(CSOUND *csound, char *str) {
if((csound->engineStatus & CS_STATE_COMP) == 0) {
char *argv[2] = { "csound", (char *) str };
int argc = 2;
return csoundCompile(csound, argc, argv);
}
else {
int res = read_unified_file2(csound, (char *) str);
if(res) {
res = csoundCompileOrc(csound, NULL);
if(res == CSOUND_SUCCESS){
csoundLockMutex(csound->API_lock);
char *sc = scsortstr(csound, csound->scorestr);
csoundInputMessageInternal(csound, (const char *) sc);
free(sc);
csoundUnlockMutex(csound->API_lock);
return CSOUND_SUCCESS;
}
}
return res;
}
}
/* VL: These functions are slated to
be converted to message enqueueing
in the next API revision.
*/
void csoundInputMessage(CSOUND *csound, const char *message){
csoundLockMutex(csound->API_lock);
csoundInputMessageInternal(csound, message);
csoundUnlockMutex(csound->API_lock);
}
/* dequeue should be called by kperf_*()
NB: these calls are already in place
*/
void message_dequeue(CSOUND *csound) {
if(csound->msg_queue != NULL) {
long rp = csound->msg_queue_rstart;
long items = csound->msg_queue_items;
long rend = rp + items;
while(rp < rend) {
message_queue_t* msg = csound->msg_queue[rp % API_MAX_QUEUE];
switch(msg->message) {
case INPUT_MESSAGE:
{
const char *str = msg->args;
csoundInputMessageInternal(csound, str);
}
break;
case READ_SCORE:
{
const char *str = msg->args;
csoundReadScoreInternal(csound, str);
}
break;
case SCORE_EVENT:
{
char type;
const MYFLT *pfields;
long numFields;
type = msg->args[0];
memcpy(&pfields, msg->args + ARG_ALIGN,
sizeof(MYFLT *));
memcpy(&numFields, msg->args + ARG_ALIGN*2,
sizeof(long));
csoundScoreEventInternal(csound, type, pfields, numFields);
}
break;
case SCORE_EVENT_ABS:
{
char type;
const MYFLT *pfields;
long numFields;
double ofs;
type = msg->args[0];
memcpy(&pfields, msg->args + ARG_ALIGN,
sizeof(MYFLT *));
memcpy(&numFields, msg->args + ARG_ALIGN*2,
sizeof(long));
memcpy(&ofs, msg->args + ARG_ALIGN*3,
sizeof(double));
csoundScoreEventAbsoluteInternal(csound, type, pfields, numFields,
ofs);
}
break;
case TABLE_COPY_OUT:
{
int table;
MYFLT *ptable;
memcpy(&table, msg->args, sizeof(int));
memcpy(&ptable, msg->args + ARG_ALIGN,
sizeof(MYFLT *));
csoundTableCopyOutInternal(csound, table, ptable);
}
break;
case TABLE_COPY_IN:
{
int table;
MYFLT *ptable;
memcpy(&table, msg->args, sizeof(int));
memcpy(&ptable, msg->args + ARG_ALIGN,
sizeof(MYFLT *));
csoundTableCopyInInternal(csound, table, ptable);
}
break;
case TABLE_SET:
{
int table, index;
MYFLT value;
memcpy(&table, msg->args, sizeof(int));
memcpy(&index, msg->args + ARG_ALIGN,
sizeof(int));
memcpy(&value, msg->args + 2*ARG_ALIGN,
sizeof(MYFLT));
csoundTableSetInternal(csound, table, index, value);
}
break;
case MERGE_STATE:
{
ENGINE_STATE *e;
TYPE_TABLE *t;
OPDS *ids;
memcpy(&e, msg->args, sizeof(ENGINE_STATE *));
memcpy(&t, msg->args + ARG_ALIGN,
sizeof(TYPE_TABLE *));
memcpy(&ids, msg->args + 2*ARG_ALIGN,
sizeof(OPDS *));
merge_state(csound, e, t, ids);
}
break;
case KILL_INSTANCE:
{
MYFLT instr;
int mode, insno, rls;
INSDS *ip;
memcpy(&instr, msg->args, sizeof(MYFLT));
memcpy(&insno, msg->args + ARG_ALIGN,
sizeof(int));
memcpy(&ip, msg->args + ARG_ALIGN*2,
sizeof(INSDS *));
memcpy(&mode, msg->args + ARG_ALIGN*3,
sizeof(int));
memcpy(&rls, msg->args + ARG_ALIGN*4,
sizeof(int));
killInstance(csound, instr, insno, ip, mode, rls);
}
break;
}
msg->message = 0;
rp += 1;
}
ATOMIC_SUB(csound->msg_queue_items, items);
csound->msg_queue_rstart = rp % API_MAX_QUEUE;
}
}
