Function xs_audioout_enqueue

modules/pins/i2s/audioout.c:739–1058

};

void xs_audioout_enqueue(xsMachine *the)
{
	modAudioOut out = xsmcGetHostDataValidate(xsThis, (void *)&xsAudioOutHooks);
	int streamIndex, argc = xsmcArgc;
	int repeat = 1, sampleOffset = 0, samplesToUse = -1, volume, i, samplesInBuffer;
	uint8_t kind;
	uint8_t *buffer;
	xsUnsignedValue bufferLength;
	uint16_t sampleRate;
	uint8_t numChannels;
	uint8_t bitsPerSample;
	uint8_t sampleFormat = kSampleFormatUncompressed;
	modAudioOutStream stream;
	modAudioQueueElement element;
	int activeStreamCount = out->activeStreamCount;

	xsmcVars(1);

	streamIndex = xsmcToInteger(xsArg(0));
	if ((streamIndex < 0) || (streamIndex >= out->streamCount))
		xsRangeError("invalid stream");
	stream = &out->stream[streamIndex];

	kind = xsmcToInteger(xsArg(1));
	if (kKindFlush != kind) {
		if (MODDEF_AUDIOOUT_QUEUELENGTH == stream->elementCount)
			xsUnknownError("queue full");
	}

	switch (kind) {
		case kKindSamples:
		case kKindRawSamples:
			if (argc > 3) {
				if ((xsNumberType == xsmcTypeOf(xsArg(3))) && (C_INFINITY == xsmcToNumber(xsArg(3))))
					repeat = -1;
				else {
					repeat = xsmcToInteger(xsArg(3));
					if (repeat <= 0)
						xsUnknownError("invalid repeat");
				}
				if (argc > 4) {
					sampleOffset = xsmcToInteger(xsArg(4));
					if (argc > 5)
						samplesToUse = xsmcToInteger(xsArg(5));
				}
			}

			if (xsBufferNonrelocatable != xsmcGetBufferReadable(xsArg(2), (void **)&buffer, &bufferLength))
				xsUnknownError("non-relocatable block required");

			if (kKindSamples == kind) {
				if (('m' != c_read8(buffer + 0)) || ('a' != c_read8(buffer + 1)) || (1 != c_read8(buffer + 2)))
					xsUnknownError("bad header");

				bitsPerSample = c_read8(buffer + 3);
				sampleRate = c_read16(buffer + 4);
				numChannels = c_read8(buffer + 6);
				sampleFormat = c_read8(buffer + 7);