<> <> <> <> <> <Lark)>> <> <> DIRECTORY DESFace USING [ Key ], PupTypes USING [ PupAddress ], RPC USING [ Conversation, ShortROPE ], RPCPkt USING [ Machine ]; Lark: CEDAR DEFINITIONS = { -- *************************** Types ****************************** -- SHHH: TYPE = RPC.Conversation; ROPE: TYPE = RPC.ShortROPE; EncryptionKey: TYPE = DESFace.Key; VoiceSocket: TYPE = PupTypes.PupAddress; Machine: TYPE = RPCPkt.Machine; noMachine: Machine = [[0], [0]]; Device: TYPE = MACHINE DEPENDENT { microphonePTT (0), -- mike switch -- hookSwitch (1), -- switch on local handset speakerSwitch (2), -- switch on speaker box -- touchPad (3), -- DTMF generator/detector (downstroke) -- keyboard (4), -- standard keyboard -- auxiliaryKeyboard (5), -- extra device locator (6), -- as yet undefined -- ringDetect (7), -- on back door -- revertRelay (8), -- on Teleset, controls Tip, Ring, and receiver -- offHookRelay (9), -- on Telewall, controls Tip and Ring only -- sideTone (10), -- on Teleset -- ringEnable (11), -- volume bypass on speaker -- led (12), -- lamp on speaker box -- crossBar (13), -- analog crossbar switch -- timeslot (14), -- to set timeslots -- voiceMode (15), -- program modes -- inGain1 (16), -- table indicies -- inGain2 (17), outGain1 (18), outGain2 (19), echoSuppression (20), nothing (21), clearCrosspoint (22), -- Event is row/column pair -- setCrosspoint (23), -- Event is row/column pair -- revertHookswitch (24), -- reverts A/A1, etc. -- aRelay (25), -- controls A/A1 -- tones (26), -- See description of notification in ToneSpec -- delay (27), -- Event is number of deciseconds to delay -- spMode (28), -- speakerphone mode -- touchPadUp (29), -- DTMF generator/detector (upstroke) -- keyboardUp (30), -- upstroke auxiliaryKeyboardUp (31), -- upstroke lastPlusOne (32), -- not used, but update when increasing number of devices. (255) -- byte wide -- }; <> <> <> Event: TYPE = CHARACTER; <> firstChar: Event = '\000; lastChar: Event = '\177; <> b0: Event = '\200; b1: Event = '\201; b2: Event = '\202; b3: Event = '\203; b4: Event = '\204; b5: Event = '\205; b6: Event = '\206; b7: Event = '\207; b8: Event = '\210; b9: Event = '\211; bA: Event = '\212; bB: Event = '\213; bC: Event = '\214; bD: Event = '\215; bStar: Event = '\216; bThorp: Event = '\217; <> enabled: Event = '\220; disabled: Event = '\221; reset: Event = '\222; <> ts0: Event = '\223; ts12: Event = '\224; <> tab0: Event = '\225; tab1: Event = '\226; tab2: Event = '\227; tab3: Event = '\230; tab4: Event = '\231; tab5: Event = '\232; tab6: Event = '\233; tab7: Event = '\234; tab8: Event = '\235; tab9: Event = '\236; <> o3i1: Event = '\237; o2i2: Event = '\240; o1i1: Event = '\241; <> inbound: Event = '\242; outbound: Event = '\243; <<<>>> endNum: Event = '\244; <> notify: Event = '\245; <> CommandEvent: TYPE = MACHINE DEPENDENT RECORD [ device: Device, event: Event ]; StatusEvent: TYPE = MACHINE DEPENDENT RECORD [ time: CARDINAL, device: Device, event: Event ]; <> DTMFEvent: TYPE = Event[b0..bThorp]; CharacterEvent: TYPE = Event[firstChar..lastChar]; <> <> Passel: TYPE = [0..32); <> <> StatusEvents: TYPE = REF StatusEventSequence; StatusEventSequence: TYPE= RECORD[ e: PACKED SEQUENCE length: Passel OF StatusEvent ]; CommandEvents: TYPE = REF CommandEventSequence; CommandEventSequence: TYPE= RECORD[ e: PACKED SEQUENCE length: Passel OF CommandEvent ]; Hertz: TYPE = [0..3500); -- Voice bandpass -- Milliseconds: TYPE = [0..10000); <> <> Protocol: TYPE = MACHINE DEPENDENT {interactive (0), nWay (1), recordOnly (2), (7)}; Encoding: TYPE = MACHINE DEPENDENT {muLaw (0), (7)}_muLaw; VoiceBuffer: TYPE = MACHINE DEPENDENT {in1 (0), in2 (1), out1 (2), out2 (3), out3 (4), (7)}; <> <> <> ConnectionSpec: TYPE = REF ConnectionSpecRec; ConnectionSpecRec: TYPE = MACHINE DEPENDENT RECORD [ protocol: Protocol, encoding: Encoding, blankA: [0..1777B] _ 0, sampleRate: INTEGER, packetSize: INTEGER, blankB: [0..17777B] _ 0, buffer: VoiceBuffer, blankC: [0..7777B] _ 0, keyIndex: [0..17B], localSocket: VoiceSocket, remoteSocket: VoiceSocket ]; <> Genre: TYPE = MACHINE DEPENDENT { Alto (0), Lark1(1), (255) }; LarkModel: TYPE = MACHINE DEPENDENT RECORD [ genre: Genre, hardwareVersion: [0..256), softwareVersion: CARDINAL ]; KeyTable: TYPE = REF KeyTableBody; KeyTableBody: TYPE = RECORD [ s: SEQUENCE size: [0..20B] OF EncryptionKey ]; EchoParameters: TYPE = REF EchoParameterRecord; EchoParameterRecord: TYPE = MACHINE DEPENDENT RECORD [ blankA: [0..17777B] _ 0, buffer: VoiceBuffer, blankB: [0..37777B] _ 0, buffer2Controlled: BOOL, buffer1Controlled: BOOL, decayTime: CARDINAL, gain: ARRAY [0..5) OF CARDINAL ]; <> <> <> <> <> <> <> <<~queueIt: supercede all pending tones with this one (e.g., scope=silence)>> <> <<>> ToneSpec: TYPE = REF ToneSpecRec; ToneSpecRec: TYPE = RECORD [ notification: CommandEvent _ [nothing, 0C], -- what to use when notifying. <> volume: CARDINAL, -- "WaveTable": entire sequence played at one volume, for now totalTime: CARDINAL, -- duration of one total performance in millisec tones: LIST OF Tone ]; <> <> Tone: TYPE = RECORD [ f1: CARDINAL, -- Hertz. f2: CARDINAL, -- Hertz. on, off: CARDINAL, -- Tone will be played at f2 Hz. for on ms.; then off ms. of silence. repetitions: CARDINAL_1 -- specifies number of repetitions of this toned ]; <> -- ************************ 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]; <> PleaseLogin: PROC[shh: SHHH] RETURNS [will: BOOL]; EchoSupression: PROC [shh: SHHH, echo: EchoParameters]; SetHostNumber: PROC [shh: SHHH, host: Machine]; <> }. Stewart, July 18, 1983 11:09 am, added SetHostNumber