DIRECTORYRope, ViewVoiceRope, VoiceRope;ViewVoiceRopeImpl: CEDAR PROGRAMIMPORTS VoiceRopeEXPORTS ViewVoiceRope~ BEGIN OPEN ViewVoiceRope;handle: VoiceRope.Handle;Open: PUBLIC PROC [voiceRopeDBName: Rope.ROPE _ NIL, localName: Rope.ROPE _ NIL] RETURNS [] ~ {handle _ VoiceRope.Open[voiceRopeDBName: voiceRopeDBName, localName: localName];};Record: PUBLIC PROC [] RETURNS [voiceRope: ID] ~ {voiceRope _ Id[VoiceRope.Record[handle]];};Play: PUBLIC PROC [voiceRope: ID, queueIt: BOOL_TRUE, failOK: BOOL_FALSE, wait: BOOL_FALSE] RETURNS [] ~ {VoiceRope.Play[handle, Vr[voiceRope], queueIt, failOK, wait];};Stop: PUBLIC PROC [] RETURNS [] ~ {VoiceRope.Stop[handle];};Retain: PUBLIC PROC [vr: ID, class: Rope.ROPE, refID: Rope.ROPE, other: Rope.ROPE _ NIL] RETURNS [] ~ {VoiceRope.Retain[handle, Vr[vr], class, refID, other];};Forget: PUBLIC PROC [vr: ID, class: Rope.ROPE, refID: Rope.ROPE] RETURNS [] ~ {VoiceRope.Forget[handle, Vr[vr], class, refID];};GetByInterest: PUBLIC PROC [--handle: Handle _ NIL,-- class: Rope.ROPE, refID: Rope.ROPE] RETURNS [voiceRope: ID] ~ {voiceRope _ Id[VoiceRope.GetByInterest[handle, class, refID]];};Cat: PUBLIC PROC [vr1, vr2, vr3, vr4, vr5: ID _ NIL] RETURNS [new: ID] ~ {new _ Id[VoiceRope.Cat[handle, Vr[vr1], Vr[vr2], Vr[vr3], Vr[vr4], Vr[vr5]]];};Substr: PUBLIC PROC [vr: ID, start: INT _ 0, len: INT _ LAST[INT]] RETURNS [new: ID] ~ {new _ Id[VoiceRope.Substr[handle, Vr[vr], start, len]];};Replace: PUBLIC PROC [vr: ID, start: INT _ 0, len: INT _ LAST[INT], with: ID _ NIL] RETURNS [new: ID] ~ {new _ Id[VoiceRope.Replace[handle, Vr[vr], start, len, Vr[with]]];};Length: PUBLIC PROC [vr: ID] RETURNS [len: INT] ~ {len _ VoiceRope.Length[handle, Vr[vr]];};DescribeRope: PUBLIC PROC [vr: ID, minSilence: INT _ -1] RETURNS [noise: VoiceRope.IntervalSpecs] ~ {noise _ VoiceRope.DescribeRope[handle, Vr[vr], minSilence];};Vr: PROC [id: ID] RETURNS [vr: VoiceRope.VoiceRope] ~ {IF id = NIL THEN vr _ NILELSE vr _ NEW[VoiceRope.VoiceRopeInterval _ [id, 0, LAST[INT]]];};Id: PROC [vr: VoiceRope.VoiceRope] RETURNS [id: ID] ~ {IF vr = NIL THEN id _ "NIL"ELSE id _ vr.ropeID;};END.    ViewVoiceRopeImpl.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Doug Terry, October 9, 1986 8:28:35 pm PDTSolely to use ViewRec for testing voice ropes.Doug Terry, April 1, 1986 4:30:06 pm PSTchanges to: DIRECTORY, ViewVoiceRopeImpl, IMPORTS, EXPORTS, ~, Open, Record, Play, Stop, Retain, Forget, Cat, Substr, Replace, LengthDoug Terry, April 1, 1986 4:30:33 pm PSTchanges to: DIRECTORY, ViewVoiceRopeImpl, IMPORTS, EXPORTS, ~, Open, Record, Play, Stop, Retain, Forget, Cat, Substr, Replace, Length, ENDDoug Terry, April 9, 1986 8:50:58 pm PSTchanges to: Record, Play, Cat, Substr, Replace, Length, DescribeRope, Retain, VrDoug Terry, April 9, 1986 9:48:04 pm PSTchanges to: VrDoug Terry, June 16, 1986 11:40:32 am PDTchanges to: Play, Retain, ForgetDoug Terry, June 17, 1986 1:49:00 pm PDTchanges to: GetByInterest, CatDoug Terry, July 1, 1986 9:56:21 am PDTchanges to: Open, GetByInterestDoug Terry, October 9, 1986 8:28:35 pm PDTchanges to: Record, GetByInterest, Cat, Substr, Replace, Vr, Id Ê½  ˜ codešœ™Kšœ
Ïmœ1™<K™*—K™ J™.K™ šÏk	˜	Kšœ˜—K˜ KšÐblœžœž˜ Kšžœ
˜Kšžœ˜šœžœž˜K˜ Jšœ˜K˜ šÏnœžœžœžœžœžœžœžœ˜_KšœP˜PK˜K™ —š œžœžœžœ˜2Kšœ)˜)K˜K™ —š œžœžœžœžœžœ
žœžœžœžœžœ˜jKšœ=˜=K˜K™ —š œžœžœžœ˜#Kšœ˜K˜K™ —š œžœžœžœžœžœžœžœžœ˜gKšœ6˜6K˜K™ —š œžœžœžœžœžœžœ˜OKšœ/˜/K˜K™ —š œžœžœÏcœžœžœžœžœ˜uKšœ>˜>K˜—K˜ š
 œžœžœ žœžœ˜JKšœM˜MK˜K™ —š œžœžœžœžœžœžœžœ˜XKšœ7˜7K˜K™ —š œžœžœžœžœžœžœžœžœ˜iKšœB˜BK˜K™ —š œžœžœžœžœžœ˜3Kšœ'˜'K˜K™ —š œžœžœžœžœžœ%˜eKšœ;˜;K˜K˜ —š œžœžœžœ˜7Kšžœžœžœž˜Kšžœžœ'žœžœ˜@K˜K˜ —š œžœžœžœ˜7Kšžœžœžœ˜Kšžœ˜K˜——K˜ Kšžœ˜™(KšœÏry™…—™(Kšœ¢~™Š—™(Kšœ¢D™P—K™ ™(Kšœ¢™—™)Kšœ¢™ —™(Kšœ¢™—™'Kšœ¢™—™*Kšœ¢3™?—K™ — …—    x  S  