DIRECTORY
AudioLibrary,
Commander,
IO,
VoiceUtils
;

AudioLibraryImpl: CEDAR MONITOR IMPORTS Commander, VoiceUtils
EXPORTS AudioLibrary ~ {
AudioInfo: TYPE ~ AudioLibrary.AudioInfo;
AudioInfoBody: TYPE ~ AudioLibrary.AudioInfoBody;
ErrCode: TYPE ~ AudioLibrary.ErrCode;
FD: TYPE ~ AudioLibrary.FD;
IPAddress: TYPE ~ AudioLibrary.IPAddress;
IPPort: TYPE ~ AudioLibrary.IPPort;
MixerID: TYPE ~ AudioLibrary.MixerID;
portOffset: NAT м BYTES[WORD]-BYTES[IPPort]; -- assumes big-endian, though.

noisy: BOOLмFALSE;
AudioGetInfo: PUBLIC PROC [fd: FD] RETURNS [err: ErrCode, info: AudioInfo] ~ {
info м NEW[AudioInfoBody м []];
err м AuGeIn[fd, info];
IF noisy AND err#success THEN VoiceUtils.ReportFR["GetInfo returned %g", NIL, NIL, Ival[err]];
};

AuGeIn: PROC [fd: FD, info: AudioInfo] RETURNS [err: ErrCode] ~
TRUSTED MACHINE CODE { "audio_getinfo" };

AudioSetInfo: PUBLIC PROC [fd: FD, info: AudioInfo, returnCurrentValue: BOOLмFALSE] RETURNS [err: ErrCode, newInfo: AudioInfo] ~ {
newInfo м NEW[AudioLibrary.AudioInfoBody м infoн];
err м AuSeIn[fd, newInfo, returnCurrentValue];
IF noisy AND err#success THEN VoiceUtils.ReportFR["SetInfo returned %g", NIL, NIL, Ival[err]];
};

AuSeIn: PROC [fd: FD, info: AudioInfo, rCV: BOOL] RETURNS [err: ErrCode] ~
TRUSTED MACHINE CODE { "audio_setinfo" };

MixerLinkStream: PUBLIC PROC [mixerID: MixerID, fd: FD] RETURNS [err: ErrCode] ~ {
err м MiLiSt[mixerID, fd];
IF noisy AND err#success THEN VoiceUtils.ReportFR["MixerLinkStream returned %g", NIL, NIL, Ival[err]];
};

MiLiSt: PROC [mixerID: MixerID, fd: FD] RETURNS [err: ErrCode] ~
TRUSTED MACHINE CODE { "mixer_linkstream" };

MixerUnlinkStream: PUBLIC PROC [fd: FD] RETURNS [err: ErrCode] ~ {
err м MiUnSt[fd];
IF noisy AND err#success THEN VoiceUtils.ReportFR["MixerUnlinkStream returned %g", NIL, NIL, Ival[err]];
};

MiUnSt: PROC [fd: FD] RETURNS [err: ErrCode] ~
TRUSTED MACHINE CODE { "mixer_unlinkstream" };

TransmitStreamCreate: PUBLIC PROC [
groupAddr: IPAddress, groupPort: IPPort, packetLen: INT, voxEnable: BOOL]
RETURNS [fd: FD] ~  { 
wPort: WORD м LOOPHOLE[groupPort];
i: INT;
fd м TrStCr[groupAddr, wPort, packetLen, voxEnable];
IF noisy AND (iмLOOPHOLE[fd, INT])<0 THEN VoiceUtils.ReportFR["Xmit Create returned %g", NIL, NIL, [integer[i]]];
};

TrStCr: PROC [
groupAddr: IPAddress, groupPort: WORD, packetLen: INT, voxEnable: BOOL]
RETURNS [fd: FD] ~ TRUSTED MACHINE CODE { "xmitstream_create" };

ReceiveStreamCreate: PUBLIC PROC [
groupAddr: IPAddress, groupPort: IPPort,
remoteAddr: IPAddress, remotePort: IPPort, jitterDelay: INT]
RETURNS [fd: FD] ~  {
wgPort: WORD м LOOPHOLE[groupPort];
wrPort: WORD м LOOPHOLE[remotePort];
i: INT;
fd м ReStCr[groupAddr, wgPort, remoteAddr, wrPort, jitterDelay];
IF noisy AND (iмLOOPHOLE[fd, INT])<0 THEN VoiceUtils.ReportFR["Rcv Create returned %g", NIL, NIL, [integer[i]]];
};

ReStCr: PROC [
groupAddr: IPAddress, groupPort: WORD,
remoteAddr: IPAddress, remotePort: WORD, jitterDelay: INT]
RETURNS [fd: FD] ~  TRUSTED MACHINE CODE { "recvstream_create" };

StreamDestroy: PUBLIC PROC [fd: FD] RETURNS [err: ErrCode] ~ {
err м StDe[fd];
IF noisy AND err#success THEN VoiceUtils.ReportFR["StreamDestroy returned %g", NIL, NIL, Ival[err]];
};

StDe: PROC [fd: FD] RETURNS [err: ErrCode] ~
TRUSTED MACHINE CODE { "stream_destroy" };

StreamGetLocalAddr: PUBLIC PROC [fd: FD]
RETURNS [err: ErrCode, localAddr: IPAddress, localPort: IPPort] ~ TRUSTED {
wPort: WORD;
err м StGeLoAd[fd, @localAddr, @wPort];
IF noisy AND err#success THEN VoiceUtils.ReportFR["StreamGetLcl returned %g", NIL, NIL, Ival[err]];
localPort м LOOPHOLE[wPort];
};

StGeLoAd: PROC [
fd: FD, localAddrP: POINTER TO IPAddress, localPortP: POINTER TO WORD]
RETURNS [err: ErrCode] ~ TRUSTED MACHINE CODE { "stream_getlcladdr" };

StreamSetGroupAddr: PUBLIC PROC [fd: FD, groupAddr: IPAddress, groupPort: IPPort]
RETURNS [err: ErrCode] ~ {
wPort: WORD м LOOPHOLE[groupPort];
err м StSeGrAd[fd, groupAddr, wPort];
IF noisy AND err#success THEN VoiceUtils.ReportFR["StreamSetGrp returned %g", NIL, NIL, Ival[err]];
};

StSeGrAd: PROC [fd: FD, groupAddr: IPAddress, groupPort: WORD]
RETURNS [err: ErrCode] ~ TRUSTED MACHINE CODE { "stream_setgrpaddr" };

StreamSetRemoteAddr: PUBLIC PROC [fd: FD, remoteAddr: IPAddress, remotePort: IPPort]
RETURNS [err: ErrCode] ~ {
wPort: WORD м LOOPHOLE[remotePort];
err м StSeReAd[fd, remoteAddr, wPort];
IF noisy AND err#success THEN VoiceUtils.ReportFR["StreamSetRemote returned %g", NIL, NIL, Ival[err]];
};

StSeReAd: PROC [fd: FD, remoteAddr: IPAddress, remotePort: WORD]
RETURNS [err: ErrCode] ~ TRUSTED MACHINE CODE { "stream_setremaddr" };

Ival: PROC[err: ErrCode] RETURNS [IO.Value] ~ { RETURN[[integer[LOOPHOLE[err]]]]; };

NoisyOn: Commander.CommandProc~{ noisy м TRUE; };
NoisyOff: Commander.CommandProc~{ noisy м FALSE; };

Commander.Register["AudioLibNoisyOn", NoisyOn];
Commander.Register["AudioLibNoisyOff", NoisyOff];
}.


   О  
AudioLibraryImpl.mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Swinehart, October 19, 1992 2:40 pm PDT

Types
Glue
Э╩д  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ1Щ<KЩ'KЩ ЧЪ╧k	Ш	KШKШ
KШKШ
KШKШ ЧЪ╧nЬЮЬЮЬЮЬШ=KЪЮЬШheadЩKЪЬЮЬШ)KЪЬЮЬШ1KЪЬ	ЮЬШ%KЪЮЬЮЬЮЬШKЪЬЮЬШ)KЪЬЮЬШ#KЪЬ	ЮЬШ%KЪ
ЬЮЬЮЬЮЬЮЬ
╧cШKKШ KЪЬЮЬЮЬШЧЩЪЯЬЮЬЮЬЮЬ$ШNKЪЬЮЬШKШKЪЮЬЮЬЮЬ,ЮЬЮЬЬШ^KШKШ ЪЯЬЮЬЮЬЮЬШ?KЪЮЬЮЬЮЬШ)KШ ЧЧЪЯЬЮЬЮЬЮЬ'ЮЬЮЬЮЬ'ШВKЪЬ
ЮЬ%Ш2KШ.KЪЮЬЮЬЮЬ,ЮЬЮЬЬШ^KШKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШJKЪЮЬЮЬЮЬШ)KШ ЧЧЪ	ЯЬЮЬЮЬЮЬЬШRKШKЪЮЬЮЬЮЬ4ЮЬЮЬЬШfKШKШ ЪЯЬЮЬЮЬЮЬШ@KЪЮЬЮЬЮЬШ,KШ ЧЧЪЯЬЮЬ
ЮЬЬШBKШKЪЮЬЮЬЮЬ6ЮЬЮЬЬШhKШKШ ЪЯЬЮЬЮЬЮЬШ.KЪЮЬЮЬЮЬШ.KШ ЧЧЪЯЬЮЬЮЬШ#KЪЬ4ЮЬЮЬШIKЪЮЬЮЬЮЬШKЪЬЮЬЮЬШ"KЪЬЮЬШKШ4KЪЮЬЮЬЮЬЮЬЮЬ0ЮЬЮЬШqKШKШ ЪЯЬЮЬШKЪЬ!ЮЬЮЬЮЬШGKЪ
ЮЬЮЬЮЬЮЬЮЬШ@KШ ЧЧЪЯЬЮЬШ"KШ(KЪЬ8ЮЬШ<ЪЮЬЮЬЮЬШKЪЬЮЬЮЬШ#KЪЬЮЬЮЬШ$KЪЬЮЬШKШ@KЪЮЬЮЬЮЬЮЮЮЬЮЬ/ЮЬЮЬШpKШЧKШ ЪЯЬЮЬШKЪЬ!ЮЬШ&KЪЬ#ЮЬЮЬШ:KЪ
ЮЬЮЬЮЬЮЬЮЬШAKШ ЧЧЪ
ЯЬЮЬЮЬЮЬЮЬШ>KШKЪЮЬЮЬЮЬ2ЮЬЮЬЬШdKШKШ ЪЯЬЮЬЮЬЮЬШ,KЪЮЬЮЬЮЬШ*KШ ЧЧЪЯЬЮЬЮЬШ(KЪЮЬ;ЮЬШKKЪЬЮЬШKШ'KЪЮЬЮЬЮЬ1ЮЬЮЬЬШcKЪЬЮЬШKШKШ ЪЯЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬЮЬШFKЪЮЬЮЬЮЬЮЬШFЧKШ ЧЪЯЬЮЬЮЬ*ШQKЪЮЬЮЬШKЪЬЮЬЮЬШ"KШ%KЪЮЬЮЬЮЬ1ЮЬЮЬЬШcKШKШ ЪЯЬЮЬЮЬ#ЮЬШ>KЪЮЬЮЬЮЬЮЬШFKШ ЧЧЪЯЬЮЬЮЬ,ШTKЪЮЬШKЪЬЮЬЮЬШ#KШ&KЪЮЬЮЬЮЬ4ЮЬЮЬЬШfKШKШ ЪЯЬЮЬЮЬ%ЮЬШ@KЪЮЬЮЬЮЬЮЬШFKШ ЧЧKЪЯЬЮЬЮЬЮЬЮЬ
ЮЬШTKШ KЪЯЬ"ЮЬШ1KЪЯЬ"ЮЬШ3KШ KШ/KШ1ЧKШЧKШ KШ Ч ЕЧ       R  