<> <> <> <Lark)>> <> <> <<>> <> DIRECTORY IV, Rope USING [ ROPE ], Lark ; LarkOps: CEDAR DEFINITIONS = { OPEN Lark; -- Recommend opening Lark along with LarkOps. -- ************************ Smarts=>Lark procedures ********************** -- <> <<"out of service" state). Forget about any conversation in progress. Hang up any>> <> <> Reset: PROC [shh: SHHH, rName: ROPE]; <> <<>> SpecifyTones: PROC[ shh: SHHH, queueIt: BOOLEAN_TRUE, tones: ToneSpec _ NIL ] RETURNS [ok: BOOLEAN -- FALSE means no room in queue --]; <> <> <> <> <> <> <> <> Feep: PROC[ shh: SHHH, on, off: Milliseconds, waveTable: CARDINAL, queueIt: BOOLEAN_TRUE, notify: CommandEvent _ [nothing, 0C], events: CommandEvents ] RETURNS [ok: BOOLEAN -- FALSE means no room in queue --]; <> Commands: PROC [shh: SHHH, events: CommandEvents]; <> <> <> <> Connect: PROC [shh: SHHH, specs: ConnectionSpec]; <> <> <> Disconnect: PROC [shh: SHHH, buffer: VoiceBuffer]; <> <<<< If it works out, the Lark should call LarkSmarts.Register BEFORE returning from>> <> <> <>>> PleaseRegister: PROC [shh: SHHH]; <> <> <> WhatIsStatus: PROC [shh: SHHH, which: CARDINAL] RETURNS [next: CARDINAL, events: StatusEvents]; <> <> <> WhatAreConnections: PROC [shh: SHHH, which: CARDINAL] RETURNS [next: CARDINAL, specs: ConnectionSpec]; <> <> WhatAreTones: PROC [shh: SHHH] RETURNS [BOOLEAN]; SetKeyTable: PROC [shh: SHHH, table: KeyTable]; CommandString: PROC [shh: SHHH, device: Device, commands: Rope.ROPE]; <> PleaseLogin: PROC[shh: SHHH] RETURNS [will: BOOL]; EchoSupression: PROC [shh: SHHH, echo: EchoParameters]; SetHostNumber: PROC [shh: SHHH, host: Machine]; LarkParameters: TYPE = REF LarkParametersRec; ParamCode: TYPE = MACHINE DEPENDENT { prSSilThresh (1), -- silence thresshold prMaxSquelchTail (2), -- time before silence is considered real prSignalTimeout (3), -- if false, RPC timeouts effectively don't happen prIdlers (4), -- how many idling processes there are prDefaultMaxTransmissions (5), -- before RPC timeout prBroadcastRetransmissions (6),-- different value when broadcasting for connection prFlowControl (7), -- if true, XON/XOFF from RS-232 connection is honored. prTimeoutEvents (8), -- if true (default), Lark is impatient about response from server prEventTimer (9), -- new value for the impatience event timer, in ms. <> filler (LAST[WORD]) }; LarkParameter: TYPE = RECORD [ paramCode: ParamCode, paramValue: CARDINAL ]; LarkParametersRec: TYPE = RECORD [ numParams: NAT, params: SEQUENCE len: NAT OF LarkParameter ]; SetParameters: PROC [shh: SHHH, parameters: LarkParameters] <> }. Stewart, May 25, 1986 9:55:29 pm PDT, added SetHostNumber, Stewart <> <> <> <> <> <> <<>> <<>>