BluejayUtils.mesa
Last Edited by: Swinehart, June 10, 1986 8:53:12 am PDT
Doug Terry, July 30, 1986 2:50:38 pm PDT
DIRECTORY
Jukebox USING [ TuneID, IntervalSpec, VoiceTime ];
BluejayUtils: CEDAR DEFINITIONS = {
TuneID: TYPE = Jukebox.TuneID;
DescribeTune:
PROC[tuneID: TuneID]
RETURNS [exists:
BOOL, size:
INT];
size is in chirps, undefined if exists=FALSE
Describe the loud and silence intervals within the specified interval, by providing a list of the loud ones. Implementation tries to keep things unlocked; nonexistence of an interval might arise due to tunes in transition.
MinSilence is the smallest silence interval to be considered significant, except that leading and trailing intervals are always significant.
DescribeInterval:
PROC[intervalSpec: Jukebox.IntervalSpec,
minSilence: Jukebox.VoiceTime ← 1]
RETURNS [
exists: BOOL, intervals: LIST OF Jukebox.IntervalSpec];
DeleteTune: PROC[tuneID: TuneID] RETURNS [existed: BOOL];
NewTune: PROC RETURNS [tuneID: TuneID];
TunesInJukebox:
PROC
RETURNS [nTunes:
INT];
Zero means Jukebox isn't open.
InitializeJukebox: PROC; -- takes a long time to run, usually.
Initialize: PROC;
Uninitialize: PROC;
}.
Doug Terry, July 30, 1986 2:50:38 pm PDT
changes to: DIRECTORY, DescribeInterval