mirror of
https://github.com/ctm/executor.git
synced 2024-06-04 17:29:30 +00:00
113 lines
2.6 KiB
C
113 lines
2.6 KiB
C
/* Copyright 1992 by Abacus Research and
|
|
* Development, Inc. All rights reserved.
|
|
*/
|
|
|
|
#if !defined (OMIT_RCSID_STRINGS)
|
|
char ROMlib_rcsid_snth5[] =
|
|
"$Id: snth5.c 63 2004-12-24 18:19:43Z ctm $";
|
|
#endif
|
|
|
|
#include "rsys/common.h"
|
|
#include "SoundMgr.h"
|
|
#include "rsys/soundopts.h"
|
|
|
|
/*
|
|
* It's not really clear how an actual synthesizer is expected to work
|
|
* with the Sound Manager's queues. In this implementation we start
|
|
* the relavent command playing and see that the ROMLIB_soundcomplete()
|
|
* function is called when we're done.
|
|
*/
|
|
|
|
typedef pascal void (*callbackfp)(SndChannelPtr, SndCommand *);
|
|
|
|
P3(PUBLIC pascal, BOOLEAN, snth5, SndChannelPtr, chanp, SndCommand *, cmdp,
|
|
ModifierStubPtr, mp)
|
|
{
|
|
#if defined(NEXTSTEP)
|
|
soundbuffer_t *bufp;
|
|
BOOLEAN done;
|
|
static BOOLEAN beenhere = 0;
|
|
|
|
if (!beenhere) {
|
|
/* ROMlib_soundreserve(); */
|
|
beenhere = 1;
|
|
}
|
|
done = TRUE;
|
|
switch (Cx(cmdp->cmd)) {
|
|
case initCmd:
|
|
SoundActive = soundactive5;
|
|
/* TODO */
|
|
break;
|
|
case freeCmd:
|
|
SoundActive = 0;
|
|
done = FALSE;
|
|
/* TODO */
|
|
break;
|
|
case quietCmd:
|
|
/* TODO */
|
|
break;
|
|
case flushCmd:
|
|
/* TODO */
|
|
break;
|
|
case waitCmd:
|
|
/* TODO */
|
|
break;
|
|
case pauseCmd:
|
|
/* TODO */
|
|
break;
|
|
case resumeCmd:
|
|
/* TODO */
|
|
break;
|
|
case callBackCmd:
|
|
#if 0
|
|
printf("CB"); fflush(stdout);
|
|
#endif
|
|
CToPascalCall(MR(chanp->callBack), CTOP_StuffHex, chanp, cmdp);
|
|
break;
|
|
case syncCmd:
|
|
/* TODO */
|
|
break;
|
|
case availableCmd:
|
|
done = FALSE;
|
|
/* TODO */
|
|
break;
|
|
case bufferCmd:
|
|
bufp = (soundbuffer_t *) Cx(cmdp->param2);
|
|
#if 0
|
|
printf("offset = %d, nsamples = %d, rate = 0x%x\n", Cx(bufp->offset),
|
|
Cx(bufp->nsamples), Cx(bufp->rate));
|
|
printf("BU"); fflush(stdout);
|
|
#endif
|
|
ROMlib_outbuffer((char *) bufp->buf, Cx(bufp->nsamples), Cx(bufp->rate),
|
|
chanp);
|
|
done = FALSE;
|
|
break;
|
|
|
|
case requestNextCmd: /* not needed */
|
|
case tickleCmd: /* not implemented */
|
|
case howOftenCmd: /* not implemented */
|
|
case wakeUpCmd: /* not implemented */
|
|
case noteCmd: /* not implemented */
|
|
case restCmd: /* not implemented */
|
|
case freqCmd: /* not implemented */
|
|
case ampCmd: /* not implemented */
|
|
case timbreCmd: /* not implemented */
|
|
case waveTableCmd: /* not implemented */
|
|
case phaseCmd: /* not implemented */
|
|
case soundCmd: /* not implemented */
|
|
case rateCmd: /* not implemented */
|
|
case emptyCmd: /* does nothing */
|
|
case nullCmd: /* does nothing */
|
|
case midiDataCmd: /* not implemented */
|
|
default:
|
|
#if 1
|
|
printf("unexpected sound command %d\n", (LONGINT) Cx(cmdp->cmd));
|
|
#endif
|
|
break;
|
|
}
|
|
if (done)
|
|
ROMlib_callcompletion(chanp);
|
|
#endif
|
|
return FALSE;
|
|
}
|