int sporth_sget(sporth_stack *stack, void *ud)
{
plumber_data *pd = ud;
char *ftname;
uint32_t index = 0;
slist_d *sl;
char **str = NULL;
switch(pd->mode){
case PLUMBER_CREATE:
str = malloc(sizeof(char *));
plumber_add_ugen(pd, SPORTH_SGET, str);
if(sporth_check_args(stack, "fs") != SPORTH_OK) {
plumber_print(pd,"Not enough arguments for sget\n");
return PLUMBER_NOTOK;
}
ftname = sporth_stack_pop_string(stack);
index = sporth_stack_pop_float(stack);
if(plumber_ftmap_search_userdata(pd,ftname, (void *)&sl) !=
PLUMBER_OK) {
plumber_print(pd, "Could not find ftable %s\n", ftname);
return PLUMBER_NOTOK;
}
if(index > sl->len - 1) {
plumber_print(pd, "Index %d exceeds slist length %d\n",
index, sl->len);
return PLUMBER_NOTOK;
}
*str = sl->list[index];
sporth_stack_push_string(stack, &sl->list[index]);
break;
case PLUMBER_INIT:
str = pd->last->ud;
sporth_stack_pop_string(stack);
sporth_stack_pop_float(stack);
sporth_stack_push_string(stack, str);
break;
case PLUMBER_COMPUTE:
sporth_stack_pop_float(stack);
break;
case PLUMBER_DESTROY:
str = pd->last->ud;
free(str);
break;
default:
plumber_print(pd,"Error: Unknown mode!");
break;
}
return PLUMBER_OK;
}
int sporth_slick(sporth_stack *stack, void *ud)
{
plumber_data *pd = ud;
char *ftname;
uint32_t index = 0;
slist_d *sl;
char **str = NULL;
switch(pd->mode){
case PLUMBER_CREATE:
str = malloc(sizeof(char *));
plumber_add_ugen(pd, SPORTH_SLICK, str);
if(sporth_check_args(stack, "s") != SPORTH_OK) {
plumber_print(pd,"Not enough arguments for slick\n");
return PLUMBER_NOTOK;
}
ftname = sporth_stack_pop_string(stack);
if(plumber_ftmap_search_userdata(pd,ftname, (void *)&sl) !=
PLUMBER_OK) {
plumber_print(pd, "Could not find ftable %s\n", ftname);
return PLUMBER_NOTOK;
}
index = (uint32_t)(((SPFLOAT)sp_rand(pd->sp) / SP_RANDMAX) * sl->len);
*str = sl->list[index];
sporth_stack_push_string(stack, &sl->list[index]);
break;
case PLUMBER_INIT:
str = pd->last->ud;
sporth_stack_pop_string(stack);
sporth_stack_push_string(stack, str);
break;
case PLUMBER_COMPUTE:
break;
case PLUMBER_DESTROY:
str = pd->last->ud;
free(str);
break;
default:
plumber_print(pd,"Error: Unknown mode!");
break;
}
return PLUMBER_OK;
}
int plumber_compute(plumber_data *plumb, int mode)
{
plumb->mode = mode;
plumber_pipe *pipe = plumb->root.next, *next;
uint32_t n;
float *fval;
char *sval;
sporth_data *sporth = &plumb->sporth;
if(sporth->stack.error > 0) return PLUMBER_NOTOK;
for(n = 0; n < plumb->npipes; n++) {
next = pipe->next;
switch(pipe->type) {
case SPORTH_FLOAT:
fval = pipe->ud;
if(mode != PLUMBER_DESTROY)
sporth_stack_push_float(&sporth->stack, *fval);
break;
case SPORTH_STRING:
sval = pipe->ud;
if(mode == PLUMBER_INIT)
sporth_stack_push_string(&sporth->stack, sval);
break;
default:
plumb->last = pipe;
sporth->flist[pipe->type - SPORTH_FOFFSET].func(&sporth->stack,
sporth->flist[pipe->type - SPORTH_FOFFSET].ud);
break;
}
pipe = next;
}
return PLUMBER_OK;
}
int plumbing_compute(plumber_data *plumb, plumbing *pipes, int mode)
{
plumb->mode = mode;
plumber_pipe *pipe = pipes->root.next;
uint32_t n;
float *fval;
char *sval;
sporth_data *sporth = &plumb->sporth;
/* swap out the current plumbing */
plumbing *prev = plumb->pipes;
plumb->pipes = pipes;
for(n = 0; n < pipes->npipes; n++) {
plumb->next = pipe->next;
switch(pipe->type) {
case SPORTH_FLOAT:
fval = pipe->ud;
if(mode != PLUMBER_DESTROY)
sporth_stack_push_float(&sporth->stack, *fval);
break;
case SPORTH_STRING:
sval = pipe->ud;
if(mode == PLUMBER_INIT) sporth_stack_push_string(&sporth->stack, sval);
break;
default:
plumb->last = pipe;
sporth->flist[pipe->type - SPORTH_FOFFSET].func(&sporth->stack,
sporth->flist[pipe->type - SPORTH_FOFFSET].ud);
break;
}
pipe = plumb->next;
}
/* re-swap the main pipes */
plumb->pipes = prev;
return PLUMBER_OK;
}
int sporth_prints(sporth_stack *stack, void *ud)
{
plumber_data *pd = ud;
sporth_print_d *prnt;
const char *str;
SPFLOAT val = 0;
const char *sval;
sporth_stack_val *stackval;
switch(pd->mode) {
case PLUMBER_CREATE:
#ifdef DEBUG_MODE
plumber_print(pd, "print: Creating\n");
#endif
prnt = malloc(sizeof(sporth_print_d));
plumber_add_ugen(pd, SPORTH_PRINT, prnt);
if(sporth_check_args(stack, "ns") != SPORTH_OK) {
plumber_print(pd,"Not enough arguments for print\n");
stack->error++;
return PLUMBER_NOTOK;
}
str = sporth_stack_pop_string(stack);
stackval = sporth_stack_get_last(stack);
prnt->type = stackval->type;
if(prnt->type == SPORTH_FLOAT) {
val = sporth_stack_pop_float(stack);
prnt->pval = val;
sporth_stack_push_float(stack, val);
} else if(prnt->type == SPORTH_STRING) {
sval = sporth_stack_pop_string(stack);
prnt->sval = sval;
sporth_stack_push_string(stack, (char **)&sval);
} else {
plumber_print(pd, "Print: unknown type\n");
return PLUMBER_NOTOK;
}
strncpy(prnt->label, str, 128);
prnt->init = 1;
break;
case PLUMBER_INIT:
#ifdef DEBUG_MODE
plumber_print(pd, "print: Initialising\n");
#endif
prnt = pd->last->ud;
str = sporth_stack_pop_string(stack);
if(prnt->type == SPORTH_FLOAT) {
val = sporth_stack_pop_float(stack);
sporth_stack_push_float(stack, val);
} else if(prnt->type == SPORTH_STRING) {
sval = sporth_stack_pop_string(stack);
sporth_stack_push_string(stack, (char **)&sval);
}
break;
case PLUMBER_COMPUTE:
prnt = pd->last->ud;
if(prnt->type == SPORTH_FLOAT) {
val = sporth_stack_pop_float(stack);
if(prnt->init) {
prnt->init = 0;
plumber_print(pd, "%s: \"%g\",\n", prnt->label, val);
prnt->pval = val;
} else if(val != prnt->pval && prnt->init == 0) {
prnt->pval = val;
plumber_print(pd, "%s: \"%g\",\n", prnt->label, val);
}
sporth_stack_push_float(stack, val);
}
break;
case PLUMBER_DESTROY:
prnt = pd->last->ud;
free(prnt);
break;
default:
plumber_print(pd, "print: Unknown mode!\n");
break;
}
return PLUMBER_OK;
}
