/*
 * SSAudio.c
 *		User Primitive Code for MODE on Objectworks\Smalltalk R4
 *			Interface to the SPARCstation-2 /dev/audio driver
 *
 * Copyright (C) 1991, Stephen Travis Pope, Nomad Computer Music Research.
 *		All rights reserved.
 *
 *			V4.0: File created: 8/24/91--stp
 */
#include "userprim.h"					/* Basic ST80 UP header */
#include "MODE_Primitives.h"		/* Declarations of MODE UP fcns */

/***
void ModeMixRun (receiverMix, elements, resultSound)
upHandle receiverMix, elements, resultSound; {
	upHandle uiBytes, element, samples, startSample, stopSample;
	int count, i, sample, start, stop;

	ModeCheckSound(resultSound, uiBytes)
	count = UPindexVarSize(elements);
	if ((count <= 0) || (count >= 100))
		UPfail(-4);
}
***/

/*******************************************************************************/
/*		----SPARCAudioPort>>play/record			*/
/*		open				*/
/*			"Open SSAudio port/stream."	*/
void ModeSSAudioOpen (/* upHandle receiverSSAudioPort */);

/*		close				*/
/*			"Close SSAudio down."		*/
void ModeSSAudioClose (/* upHandle receiverSSAudioPort */);

/*		play: aSound		*/
/*			"Play the argument on the receiver."		*/
/*			"play to /dev/audio"			*/
void ModeSSAudioPlay (/* upHandle receiverSSAudioPort, sound */);

/*		record: aSound		*/
/*			"Record into the argument via the receiver."		*/
/*			"record from /dev/audio"		*/
void ModeSSAudioRecord (/* upHandle receiverSSAudioPort, sound */);

/*		getProps: anArray	*/
/*			"Get the property array of the port into the given value array."		*/
void ModeSSAudioGetProps (/* upHandle receiverSSAudioPort, propArray */);

/*		setProps: anArray	*/
/*			"Set the property array of the port from the given value array."		*/
void ModeSSAudioSetProps (/* upHandle receiverSSAudioPort, propArray */);


