DIRECTORY BluejaySmarts USING [ handle ], BluejayUtils, BluejayUtilsRpcControl USING [ ExportInterface, InterfaceName, UnexportInterface ], Commander USING [ CommandProc, Register ], Jukebox USING [ CloseTune, CreateTune, DeleteTune, Error, FirstNoisyIntervalIn, Info, OpenTune, Tune, TuneSize ], LupineRuntime USING [ BindingError ], Thrush USING [ IntervalSpec, IntervalSpecBody, IntervalSpecs, nullTune, Tune, VoiceInterval, VoiceTime ], ThVersions USING [ JayVR ], UserProfile USING [ Token ], VoiceUtils USING [ CurrentPasskey, Report ] ; BluejayUtilsImpl: CEDAR PROGRAM IMPORTS BluejaySmarts, BluejayUtilsRpcControl, Commander, Jukebox, LupineRuntime, ThVersions, UserProfile, VoiceUtils EXPORTS BluejayUtils = { myName: BluejayUtilsRpcControl.InterfaceName; utilsExported: BOOL_FALSE; Tune: TYPE = Thrush.Tune; DescribeTune: PUBLIC PROC[tune: Tune] RETURNS [exists: BOOL_TRUE, size: INT] = TRUSTED { t: Jukebox.Tune = Jukebox.OpenTune[self: BluejaySmarts.handle, tuneId: tune, write: FALSE! Jukebox.Error=>GOTO NoTune]; size _ Jukebox.TuneSize[t]; Jukebox.CloseTune[BluejaySmarts.handle, t]; EXITS NoTune => exists_FALSE; }; DescribeInterval: PUBLIC PROC[targetTune: Thrush.Tune, targetInterval: Thrush.VoiceInterval, minSilence: Thrush.VoiceTime _ 1] RETURNS [exists: BOOL_TRUE, intervals: Thrush.IntervalSpecs_NIL] = TRUSTED { t: Jukebox.Tune = Jukebox.OpenTune[self: BluejaySmarts.handle, tuneId: targetTune, write: FALSE! Jukebox.Error=>GOTO NoTune]; lastInterval: Thrush.IntervalSpecs_NIL; start, length, end, nextStart: INT_0; start _ targetInterval.start; end _ IF targetInterval.length>=0 THEN start + targetInterval.length ELSE LAST[INT]; WHILE start exists_FALSE; }; DeleteTune: PUBLIC PROC[tune: Tune] RETURNS [existed: BOOL_TRUE] = TRUSTED { Jukebox.DeleteTune[BluejaySmarts.handle, tune!Jukebox.Error => GOTO NoTune]; EXITS NoTune => existed_FALSE; }; NewTune: PUBLIC PROC RETURNS [tune: Tune_Thrush.nullTune] = TRUSTED { t: Jukebox.Tune = Jukebox.CreateTune[self: BluejaySmarts.handle, tuneId: -1!Jukebox.Error=>GOTO NoTune]; tune _ t.tuneId; Jukebox.CloseTune[BluejaySmarts.handle, t!Jukebox.Error=>GOTO NoTune]; EXITS NoTune => NULL; }; TunesInJukebox: PUBLIC PROC RETURNS [nTunes: INT_0] = TRUSTED { nTunes _ Jukebox.Info[BluejaySmarts.handle!Jukebox.Error=>GOTO Problem].nTunes; EXITS Problem => NULL; }; InitializeJukebox: PUBLIC PROC = TRUSTED { nTunes: NAT = TunesInJukebox[]; FOR i: NAT IN [0..nTunes) DO Jukebox.DeleteTune[BluejaySmarts.handle, i!Jukebox.Error=>CONTINUE]; ENDLOOP; }; Initialize: PUBLIC PROC = { Uninitialize[]; myName _ [ type: "BluejayUtils.Lark", instance: UserProfile.Token[key: "BluejayServerInstance", default: "Lampson.Lark"], version: ThVersions.JayVR ]; BluejayUtilsRpcControl.ExportInterface[ interfaceName: myName, user: myName.instance, password: VoiceUtils.CurrentPasskey[UserProfile.Token[ key: "BluejayServerPassword", default: "MFLFLX"]]]; VoiceUtils.Report["Bluejay Utility interface Initialized and Exported", $Bluejay]; utilsExported _ TRUE; }; Uninitialize: PUBLIC PROC = { IF utilsExported THEN { BluejayUtilsRpcControl.UnexportInterface[!LupineRuntime.BindingError=>CONTINUE]; VoiceUtils.Report["Bluejay Utility interface Unexported", $Bluejay]; }; utilsExported _ FALSE; }; InitCmd: Commander.CommandProc = TRUSTED { Initialize[]; }; UninitCmd: Commander.CommandProc = TRUSTED { Uninitialize[]; }; Commander.Register["JayUtils", InitCmd, "Start Bluejay Utilities"]; Commander.Register["UnJayUtils", UninitCmd, "Terminate Bluejay Utilities"]; }. BluejayUtilsImpl.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Last Edited by: Swinehart, May 17, 1986 3:31:57 pm PDT Swinehart, May 17, 1986 3:31:52 pm PDT Cedar 6.1 changes to: DIRECTORY, BluejayUtilsImpl, Initialize, Uninitialize Κ˜™Icodešœ Οmœ1™<—J™6J™šΟk ˜ Jšœžœ ˜J˜ J˜SJšœ žœ˜*J˜qJ˜%Jšœžœ]˜iJ˜J˜J˜+Jšœ˜—J˜šœž ˜Jšžœn˜uJšžœ˜—˜J˜-Jšœžœžœ˜Jšœžœ˜J˜—šΟn œžœžœ ˜%Jš žœ žœžœžœžœ˜2šœTžœ˜ZJšœžœ ˜—J˜J˜+šž˜Jšœžœ˜—J˜—J˜šŸœžœžœ?˜\Jšœ!˜!Jš žœ žœžœ"žœžœ˜LšœZžœ˜`Jšœžœ ˜—Jšœ#žœ˜'Jšœžœ˜%Jšœ˜Jš œžœžœžœžœžœ˜Tšžœ ž˜J˜Jšœq˜qJšžœ žœžœ˜šœžœžœ˜*Jšœ@˜@—Jšžœ žœžœžœ˜CJ˜Jšœžœ˜%Jšžœ˜—J˜+šž˜Jšœžœ˜—J˜J™—šŸ œžœžœ žœ žœžœžœ˜LJšœ?žœ ˜Lšž˜Jšœžœ˜—J˜—J˜š Ÿœžœžœžœ žœ˜EJšœ[žœ ˜hJ˜Jšœ9žœ ˜Fšž˜Jšœ žœ˜—J˜—J˜š Ÿœžœžœžœ žœžœ˜?Jšœ:žœ˜O˜J˜—J˜—J˜šŸœžœžœžœ˜*Jšœžœ˜šžœžœžœ ž˜Jšœ:žœžœ˜M—J˜J˜—šŸ œž œ˜J˜˜ J˜J˜SJ˜J˜—˜'J˜J˜˜6J˜3——J˜RJšœžœ˜J˜J˜—šŸ œžœžœ˜šžœžœ˜JšœFžœ˜PJ˜DJ˜—Jšœžœ˜J˜J˜—Jšœ!žœ˜;Jšœ#žœ˜?JšœC˜CJšœK˜KJ˜J˜J˜™&K™ Kšœ Οr5™A—K™—…—€«