/*
 * Midi.c
 *		User Primitive Code for MODE on Objectworks\Smalltalk R4
 *			MIDI driver interface for SPARCstation-2
 *
 * 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 */


/*		----MIDIPort>>play/record				*/
/*		open									*/
/*			"Open MIDI--start the primitive scheduler up."			*/
/*			"MIDI code on /dev/midi, compatible to geg/lb world."	*/
void MIDIopen (receiverMidiPort) 
upHandle receiverMidiPort; {

}

/*		close									*/
/*			"Close the MIDI scheduler down."		*/
void MIDIclose (receiverMidiPort) 
upHandle receiverMidiPort; {

}

/*		play: anEventAssociation					*/
/*			"Play the argument on the receiver."	*/
void MIDIplayAssociation (receiverMidiPort, eventAssociation) 
upHandle receiverMidiPort, eventAssociation; {

}

/*		play: anEvent at: startDuration			*/
/*			"Play the argument on the receiver at the given time."	*/
void MIDIplayEventAt (receiverMidiPort, event, startTime) 
upHandle receiverMidiPort, event, startTime; {

}

/*		put: aByteArray count: anInteger		*/
/*			"Write the anInteger bytes of aByteArray out to the scheduler.*/
/*			The first four bytes of the array are a 'clock-tick' time."	*/
void MIDIplayBytes (receiverMidiPort, array, count) 
upHandle receiverMidiPort, array, count; {

}

/*		status: anIntCode						*/
/*			"Primitive to set primitive scheduler status."			*/
void MIDIgetStatus (receiverMidiPort, code) 
upHandle receiverMidiPort, code; {

}

/*		set: anIntCode data: anInteger			*/
/*			"Primitive to set scheduler values."	*/
void MIDIsetStatus (receiverMidiPort, code, pointer) 
upHandle receiverMidiPort, code, pointer; {

}

/*		nextEventInto: anEventAssociation		*/
/*			"Record via the receiver into the argument."		*/
void MIDInextEvent (receiverMidiPort, eventAssociation) 
upHandle receiverMidiPort, eventAssociation; {

}

/*		next: aByteArray						*/
/*			"Answer the next available byte array from MIDI."	*/
void MIDInextBytes (receiverMidiPort, array) 
upHandle receiverMidiPort, array; {

}

/*		test									*/
/*			"Test for the existence of MIDI output."	*/
void MIDItest (receiverMidiPortClass) 
upHandle receiverMidiPortClass; {

}

