void test_control_channel_params(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=NULL");
//int argc = 2;
csoundCompileOrc(csound, orc1);
CU_ASSERT(csoundStart(csound) == CSOUND_SUCCESS);
controlChannelHints_t hints;
hints.behav = CSOUND_CONTROL_CHANNEL_INT;
hints.dflt = 5;
hints.min = 1;
hints.max = 10;
hints.attributes = NULL;
csoundSetControlChannelHints(csound, "testing", hints);
controlChannelHints_t hints2;
csoundGetControlChannelHints(csound, "testing", &hints2);
CU_ASSERT(hints2.behav == CSOUND_CONTROL_CHANNEL_INT);
CU_ASSERT(hints2.dflt == 5);
CU_ASSERT(hints2.min == 1);
CU_ASSERT(hints2.max == 10);
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_breakpoint_remove(void)
{
int i;
int break_count = 0;
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
csoundCompileOrc(csound, "instr 1\nasig oscil 1, p4\nendin\n");
csoundInputMessage(csound, "i 1.1 0 1 440");
csoundInputMessage(csound, "i 1.2 0 1 880");
csoundInputMessage(csound, "i 1.1 0.1 1 440");
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetBreakpointCallback(csound, brkpt_cb2, (void *) &break_count);
csoundSetInstrumentBreakpoint(csound, 1.1, 0);
for (i = 0; i < 10; i++) {
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
}
csoundRemoveInstrumentBreakpoint(csound, 1.1);
for (i = 0; i < 10; i++) {
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
}
CU_ASSERT(break_count == 1);
csoundDebuggerClean(csound);
csoundDestroy(csound);
}
void test_chn_hints(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
csoundCompileOrc(csound, orc6);
(void)csoundStart(csound);
// err = csoundPerformKsmps(csound); //Need this to load instr 0
controlChannelHints_t hints;
hints.attributes = 0;
CU_ASSERT_EQUAL(0, csoundGetControlChannelHints(csound, "chan", &hints));
CU_ASSERT_EQUAL(hints.x, 10);
CU_ASSERT_EQUAL(hints.y, 10);
CU_ASSERT_EQUAL(hints.width, 50);
CU_ASSERT_EQUAL(hints.height, 100);
CU_ASSERT_EQUAL(hints.attributes, 0);
CU_ASSERT_EQUAL(0, csoundGetControlChannelHints(csound, "chan2", &hints));
CU_ASSERT_EQUAL(hints.x, 10);
CU_ASSERT_EQUAL(hints.y, 10);
CU_ASSERT_EQUAL(hints.width, 50);
CU_ASSERT_EQUAL(hints.height, 100);
CU_ASSERT_STRING_EQUAL(hints.attributes, "testattr");
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_line_breakpoint_add_remove(void)
{
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
count = 0;
csoundCompileOrc(csound, "instr 1\n"
"Svar init \"hello\"\n"
"ksig line 0, p3, 1\n"
"ksig2 line 1, p3, 0\n"
"asig3 oscils 0.5, 440, 0.5\n"
"endin\n");
csoundInputMessage(csound, "i 1 0 1.1 440");
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetBreakpointCallback(csound, brkpt_cb5, NULL);
csoundSetBreakpoint(csound, 5, 1, 0);
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
csoundPerformKsmps(csound); // This block performs
csoundPerformKsmps(csound); // This block breaks
csoundRemoveBreakpoint(csound, 5, 1);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound);
csoundDebuggerClean(csound);
csoundDestroy(csound);
CU_ASSERT_EQUAL(count, 2);
}
void test_buffer_run(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
int result = csoundCompileOrc(csound, "instr 1\n"
"asig oscil 0.1, 440\n"
"out asig\n"
"endin\n");
csoundReadScore(csound, "i 1 0 0.1\n");
csoundStart(csound);
csoundPerform(csound);
while (csoundGetMessageCnt(csound)) {
const char * msg = csoundGetFirstMessage(csound);
CU_ASSERT_PTR_NOT_NULL(msg);
csoundPopFirstMessage(csound);
printf("CSOUND MESSAGE: %s", msg);
}
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_string_channel(void)
{
const char orcS[] = "chn_S \"strchan1\",1\n chn_S \"strchan2\",2\n chn_S \"strchan3\",3\n instr 1\n endin\n";
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=NULL");
csoundCompileOrc(csound, orcS);
int err = csoundStart(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
csoundSetStringChannel(csound, "testing", "ttt");
int len = csoundGetChannelDatasize(csound, "testing");
char string[len];
csoundGetStringChannel(csound, "testing", string);
CU_ASSERT_STRING_EQUAL(string, "ttt");
csoundSetStringChannel(csound, "strchan1", "strchan1_val");
csoundSetStringChannel(csound, "strchan2", "strchan2_val");
csoundSetStringChannel(csound, "strchan3", "strchan3_val");
csoundGetStringChannel(csound, "strchan1", string);
CU_ASSERT_STRING_EQUAL(string, "strchan1_val");
csoundGetStringChannel(csound, "strchan2", string);
CU_ASSERT_STRING_EQUAL(string, "strchan2_val");
csoundGetStringChannel(csound, "strchan3", string);
CU_ASSERT_STRING_EQUAL(string, "strchan3_val");
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
PUBLIC int csoundCompile(CSOUND *csound, int argc, char **argv){
int result = csoundCompileArgs(csound,argc,argv);
if(result == CSOUND_SUCCESS) return csoundStart(csound);
else return result;
}
void test_pvs_opcodes(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
int err = csoundCompileOrc(csound, orc5);
CU_ASSERT(err == CSOUND_SUCCESS);
err = csoundStart(csound);
PVSDATEXT pvs_data, pvs_data2;
memset(&pvs_data,0,sizeof(PVSDATEXT));
memset(&pvs_data2,0,sizeof(PVSDATEXT));
pvs_data.N = 16;
pvs_data.winsize = 32;
err = csoundSetPvsChannel(csound, &pvs_data, "1");
err = csoundGetPvsChannel(csound, &pvs_data2, "1");
CU_ASSERT_EQUAL(pvs_data.N, pvs_data2.N);
MYFLT pFields[] = {1.0, 0.0, 1.0};
err = csoundScoreEvent(csound, 'i', pFields, 3);
err = csoundPerformKsmps(csound);
CU_ASSERT_EQUAL(32.0, csoundGetControlChannel(csound, "winsize", NULL));
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_no_callback(void)
{
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetInstrumentBreakpoint(csound, 1, 0);
csoundPerformKsmps(csound);
csoundDebuggerClean(csound);
csoundDestroy(csound);
}
int main(int arg, char** argv) {
random_line *amp, *freq;
/* initialize random seed: */
srand (time(NULL));
csoundInitialize(CSOUNDINIT_NO_ATEXIT);
CSOUND* csound = csoundCreate(NULL);
/* Using SetOption() to configure Csound
Note: use only one commandline flag at a time */
csoundSetOption(csound, "-odac");
/* Compile the Csound Orchestra string */
csoundCompileOrc(csound, orc);
/* Read in the Score from loop-generated String */
csoundReadScore(csound, "i1 0 60");
/* When compiling from strings, this call is necessary
* before doing any performing */
csoundStart(csound);
/* Create a random_line for use with Amplitude */
amp = random_line_create(0.4, 0.2);
/* Create a random_line for use with Frequency */
freq = random_line_create(400.0, 80.0);
/* Initialize channel values before running Csound */
csoundSetControlChannel(csound, "amp", random_line_tick(amp));
csoundSetControlChannel(csound, "freq", random_line_tick(freq));
/* The following is our main performance loop. We will perform one
* block of sound at a time and continue to do so while it returns 0,
* which signifies to keep processing.
*/
while (csoundPerformKsmps(csound) == 0) {
/* Update Channel Values */
csoundSetControlChannel(csound, "amp", random_line_tick(amp));
csoundSetControlChannel(csound, "freq", random_line_tick(freq));
}
csoundStop(csound);
return 0;
}
void test_bkpt_instrument(void)
{
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
csoundCompileOrc(csound, "instr 1\n Svar init \"hello\"\n endin\n");
csoundInputMessage(csound, "i 1 0 1.1 440");
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetBreakpointCallback(csound, brkpt_cb4, NULL);
csoundSetInstrumentBreakpoint(csound, 1, 0);
csoundPerformKsmps(csound);
csoundDebuggerClean(csound);
csoundDestroy(csound);
}
void test_control_channel(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
//int argc = 2;
csoundCompileOrc(csound, orc1);
CU_ASSERT(csoundStart(csound) == CSOUND_SUCCESS);
csoundSetControlChannel(csound, "testing", 5.0);
CU_ASSERT_EQUAL(5.0, csoundGetControlChannel(csound, "testing", NULL));
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_line_breakpoint(void)
{
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
count = 0;
csoundCompileOrc(csound, "instr 1\n"
"Svar init \"hello\"\n"
"ksig line 0, p3, 1\n"
"ksig2 line 1, p3, 0\n"
"asig3 oscils 0.5, 440, 0.5\n"
"endin\n");
csoundInputMessage(csound, "i 1 0 1.1 440");
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetBreakpointCallback(csound, brkpt_cb6, NULL);
csoundSetBreakpoint(csound, 5, 1, 0);
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
csoundPerformKsmps(csound);
csoundSetBreakpoint(csound, 4, 1, 0);
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
csoundPerformKsmps(csound);
csoundRemoveBreakpoint(csound, 4, 1);
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
csoundSetBreakpoint(csound, 1, 1, 0); // This breakpoint shouldn't be triggered as it's an init opcode
csoundPerformKsmps(csound);
csoundDebugContinue(csound);
csoundSetBreakpoint(csound, 2, 2, 0); // This breakpoint shouldn't be triggered as instr 2 is not defined
csoundPerformKsmps(csound);
csoundDebuggerClean(csound);
csoundDestroy(csound);
CU_ASSERT_EQUAL(count, 2);
}
int main(int arg, char** argv) {
/* initialize random seed: */
srand (time(NULL));
csoundInitialize(CSOUNDINIT_NO_ATEXIT);
CSOUND* csound = csoundCreate(NULL);
/* Using SetOption() to configure Csound
Note: use only one commandline flag at a time */
csoundSetOption(csound, "-odac");
/* Compile the Csound Orchestra string */
csoundCompileOrc(csound, orc);
/* Read in the Score from pre-written String */
/*csoundReadScore(csound, (char*)sco);*/
/* Read in the Score from loop-generated String */
/*csoundReadScore(csound, generate_example2());*/
/* Read in the Score from loop-generated String */
csoundReadScore(csound, generate_example3());
/* When compiling from strings, this call is necessary
* before doing any performing */
csoundStart(csound);
/* The following is our main performance loop. We will perform one
* block of sound at a time and continue to do so while it returns 0,
* which signifies to keep processing. We will explore this loop
* technique in further examples.
*/
while (csoundPerformKsmps(csound) == 0) {
/* pass for now */
}
csoundStop(csound);
return 0;
}
int main(int arg, char** argv) {
void* thread;
csoundInitialize(CSOUNDINIT_NO_ATEXIT);
CSOUND* csound = csoundCreate(NULL);
/* Using SetOption() to configure Csound
Note: use only one commandline flag at a time */
csoundSetOption(csound, "-odac");
/* Compile the Csound Orchestra string */
csoundCompileOrc(csound, orc);
/* Compile the Csound SCO String */
csoundReadScore(csound, (char*)sco);
/* When compiling from strings, this call is necessary
* before doing any performing */
csoundStart(csound);
/* Create a new thread that will use our performance function and
* pass in our CSOUND structure. This call is asynchronous and
* will immediately return back here to continue code execution
*/
thread = csoundCreateThread(&performance_function, (void*)csound);
/* Join will wait for the other thread to complete. If we did not
* call csoundJoinThread(), after csoundCreateThread() returns we
* would immediately move to the next line, csoundStop(). That
* would stop Csound without really giving it time to run.
*/
csoundJoinThread(thread);
csoundStop(csound);
/* clean up Csound; this is useful if you're going to reuse a Csound
* instance
*/
csoundCleanup(csound);
return 0;
}
void test_channel_list(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
//int argc = 2;
csoundCompileOrc(csound, orc2);
CU_ASSERT(csoundStart(csound) == CSOUND_SUCCESS);
controlChannelInfo_t *lst;
int numchnls = csoundListChannels(csound, &lst);
CU_ASSERT(numchnls == 2);
CU_ASSERT_STRING_EQUAL(lst->name, "testing");
CU_ASSERT_EQUAL(lst->type, CSOUND_CONTROL_CHANNEL | CSOUND_INPUT_CHANNEL
| CSOUND_OUTPUT_CHANNEL | CSOUND_CONTROL_CHANNEL_INT)
CU_ASSERT_STRING_EQUAL(lst[1].name, "testing2");
csoundDeleteChannelList(csound, lst);
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_channel_callbacks(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
csoundCompileOrc(csound, orc3);
csoundSetInputChannelCallback(csound, (channelCallback_t) inputCallback);
csoundSetOutputChannelCallback(csound, (channelCallback_t) outputCallback);
int err = csoundStart(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
MYFLT pFields[] = {1.0, 0.0, 1.0};
err = csoundScoreEvent(csound, 'i', pFields, 3);
MYFLT pFields2[] = {2.0, 0.0, 1.0};
err += csoundScoreEvent(csound, 'i', pFields2, 3);
CU_ASSERT(err == CSOUND_SUCCESS);
err = csoundPerformKsmps(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_channel_opcodes(void)
{
csoundSetGlobalEnv("OPCODE6DIR64", "../../");
CSOUND *csound = csoundCreate(0);
csoundCreateMessageBuffer(csound, 0);
csoundSetOption(csound, "--logfile=null");
csoundCompileOrc(csound, orc4);
csoundSetInputChannelCallback(csound, (channelCallback_t) inputCallback2);
csoundSetOutputChannelCallback(csound, (channelCallback_t) outputCallback2);
int err = csoundStart(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
csoundGetControlChannel(csound, "1", &err);
CU_ASSERT(err == CSOUND_SUCCESS)
csoundSetControlChannel(csound, "1", 5.0);
MYFLT pFields[] = {1.0, 0.0, 1.0};
err = csoundScoreEvent(csound, 'i', pFields, 3);
err = csoundPerformKsmps(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
CU_ASSERT_EQUAL(5.0, csoundGetControlChannel(csound, "2", NULL));
MYFLT pFields2[] = {2.0, 0.0, 1.0};
err = csoundScoreEvent(csound, 'i', pFields2, 3);
CU_ASSERT(err == CSOUND_SUCCESS);
err = csoundPerformKsmps(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
CU_ASSERT_EQUAL(6.0, csoundGetControlChannel(csound, "3", NULL));
MYFLT pFields3[] = {3.0, 0.0, 1.0};
err = csoundScoreEvent(csound, 'i', pFields3, 3);
CU_ASSERT(err == CSOUND_SUCCESS);
err = csoundPerformKsmps(csound);
CU_ASSERT(err == CSOUND_SUCCESS);
CU_ASSERT_EQUAL(7.0, csoundGetControlChannel(csound, "4", NULL));
csoundCleanup(csound);
csoundDestroyMessageBuffer(csound);
csoundDestroy(csound);
}
void test_next(void)
{
CSOUND* csound = csoundCreate(NULL);
csoundCreateMessageBuffer(csound, 0);
count = 0;
csoundCompileOrc(csound, "instr 1\n"
"Svar init \"hello\"\n"
"ksig line 0, p3, 1\n"
"ksig2 line 1, p3, 0\n"
"asig3 oscils 0.5, 440, 0.5\n"
"endin\n"
"instr 30\n"
"kvar init 10\n"
"kvar = kvar + 1\n"
"ksig2 line 1, p3, 0\n"
"kvar = kvar + 1\n"
"endin\n");
csoundInputMessage(csound, "i 1 0 0.1");
csoundInputMessage(csound, "i 1.2 0 0.1");
csoundInputMessage(csound, "i 30.1 0 0.01");
csoundInputMessage(csound, "i 30 0 0.01");
csoundInputMessage(csound, "i 30 1 0.11");
csoundInputMessage(csound, "i 1.3 0 0.1");
csoundStart(csound);
csoundDebuggerInit(csound);
csoundSetBreakpointCallback(csound, brkpt_cb8, NULL);
csoundSetInstrumentBreakpoint(csound, 1.2, 0);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound); // Only the first call should have effect as we have already stopped
csoundDebugNext(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound); // Ignored
csoundDebugNext(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound); // Ignored
csoundDebugNext(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound); // Ignored
csoundDebugNext(csound);
csoundPerformKsmps(csound);
csoundPerformKsmps(csound); // Ignored
csoundRemoveInstrumentBreakpoint(csound, 1.2);
csoundDebugContinue(csound);
int i;
for (i = 0; i < 200; i++) {
csoundPerformKsmps(csound);
}
csoundSetBreakpointCallback(csound, brkpt_cb9, NULL);
csoundSetInstrumentBreakpoint(csound, 30.1, 0);
for (i = 0; i < 1000; i++) {
csoundPerformKsmps(csound);
}
/* step to next line */
csoundDebugNext(csound);
csoundPerformKsmps(csound);
/* step to next line */
csoundDebugNext(csound);
csoundPerformKsmps(csound);
/* step to next line */
csoundDebugNext(csound);
csoundPerformKsmps(csound);
csoundDebuggerClean(csound);
csoundDestroy(csound);
CU_ASSERT_EQUAL(count, 5);
}
void CsoundObj_start(CsoundObj *self)
{
csoundStart(self->csound);
}
uint32_t CsoundObj_compileOrc(CsoundObj *self, const char *string)
{
int returnValue = csoundCompileOrc(self->csound, (char *) string);
csoundStart(self->csound);
return returnValue;
}
