DIRECTORYBluejaySmarts USING [ handle ],BluejayUtils,BluejayUtilsRpcControl USING [ ExportInterface, InterfaceName, UnexportInterface ],Jukebox USING [ CloseTune, CreateTune, DeleteTune, Error, Info, OpenTune, Tune, TuneSize ],LupineRuntime USING [ BindingError ],Names USING [ CurrentPasskey ],Log USING [ Report ],Thrush USING [ nullTune, Tune ],ThVersions USING [ JayVR ],UserProfile USING [ Token ];BluejayUtilsImpl: CEDAR PROGRAMIMPORTS BluejaySmarts, BluejayUtilsRpcControl, Jukebox, LupineRuntime, Names, Log, ThVersions, UserProfile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;};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: Names.CurrentPasskey[UserProfile.Token[key: "BluejayServerPassword", default: "MFLFLX"]]];Log.Report["Bluejay Utility interface Initialized and Exported", $Bluejay];utilsExported _ TRUE;};Uninitialize: PUBLIC PROC = {IF utilsExported THENBluejayUtilsRpcControl.UnexportInterface[!LupineRuntime.BindingError=>CONTINUE];utilsExported _ FALSE;};}.    T  BluejayUtilsImpl.mesaLast Edited by: Swinehart, December 28, 1983 10:18 pm Ê  ˜ J™J™5J™ šÏk	˜	Jšœœ˜J˜J˜SJ˜[J˜%J˜J˜Jšœœ˜ J˜J˜Jšœ˜—J˜ šœ˜Jšœc˜jJšœ˜—˜ J˜-Jšœœœ˜Jšœœ˜J˜ —šÏnœœœ˜%Jš
œ
œœœœ˜2šœTœ˜ZJšœœ	˜—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˜˜1J˜3——J˜KJšœœ˜J˜J˜ —šžœœœ˜šœ˜JšœFœ˜P—Jšœœ˜J˜—J˜ J˜J˜ — …—    	²  £  