
DIRECTORY
IO USING [STREAM],
NetAddressing USING [Address, nullAddress],
Rope USING [ROPE];

TerminalMultiServing: CEDAR DEFINITIONS = {

ROPE: TYPE ~ Rope.ROPE;
Host: TYPE ~ NetAddressing.Address; --socket is for control protocol
nullHost: Host ~ NetAddressing.nullAddress;

EqualHosts: PROC [Host, Host] RETURNS [BOOL];

EnumerateHosts: PROC [PROC [Host]];

IsHost: PROC [Host] RETURNS [BOOL];

ServeHost: PROC [Host, Role] RETURNS [whyNot: ROPE];
Role: TYPE ~ {primary, secondary};

DontServeHost: PROC [Host];

ServeNoHosts: PROC;

Interest: TYPE ~ REF InterestPrivate;
InterestPrivate: TYPE ~ RECORD [
NoteHost: PROC [interest: Interest, addr: Host, isHost: BOOL],
data: REF ANY м NIL];

AddMultiInterest: PROC [Interest];

GetHisTerminal: PROC [Host] RETURNS [ok: BOOL, ans: ROPE];

GetHisVersions: PROC [Host] RETURNS [ok: BOOL, ans: ROPE];

EqualHostReferents: PROC [key1, key2: REF ANY] RETURNS [BOOL];
HashHostReferent: PROC [key: REF ANY] RETURNS [CARDINAL];

ViewersWorker: TYPE ~ PROC [in, out: IO.STREAM, host: Host, sessionDescr: ROPE, Push: PushProc];
PushProc: TYPE ~ PROC [IO.STREAM];

SetViewersWorker: PROC [ViewersWorker];

SimpleTerminalWorker: TYPE ~ PROC [in, out: IO.STREAM, remote: Host, sessPort: ROPE] RETURNS [close: BOOL];

SetSimpleTerminalWorker: PROC [SimpleTerminalWorker];

}.
   И  
TerminalMultiServing.Mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Last tweaked by Mike Spreitzer on February 6, 1992 5:40 pm PST
What clients, if any, are we being the remote terminal for?  No guarantees about whether that clients thinks we're serving it.  No guarantees about clients added or removed during the enumeration.
The primary terminal of a Host provides input and receives output; the secondary terminals only receive output.
Returns, if ok, a formatted TerminalLocation.InstLocation, which is what the client thinks about his terminal; if not ok, ans is why.
Useful for making RefTabs keyed on Hosts.
Э╩╘  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬ7ЩBKЪЬ>Щ>ЧKШ Ъ╧k	Ш	KЪЮЬЮЬЮЬШKЪЬЮЬШ+KЪЬЮЬЮЬШЧKШ KЪ╧nЬЮЬЮЬШ+KШ KЪЮЬЮЬЮЬШKЪЬЮЬ╧c ШDKЪЬ+Ш+KШ KЪЯ
ЬЮЬЮЬЮЬШ-KШ ЪЯЬЮЬЮЬ	Ш#KЪЬ─Щ─ЧKШ KЪЯЬЮЬЮЬЮЬШ#KШ ЪЯ	ЬЮЬЮЬ
ЮЬШ4KЪЬЮЬШ"KЩoЧKШ KЪЯЬЮЬШKШ KЪЯЬЮЬШKШ KЪЬ
ЮЬЮЬШ%ЪЬЮЬЮЬШ KЪЯЬЮЬ*ЮЬШ>KЪЬЮЬЮЬЮЬШЧKШ KЪЯЬЮЬШ"KШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ:KЪЬЭЬhЭЬЭЬЩЕЧKШ KЪ
ЯЬЮЬЮЬЮЬЮЬШ:KШ KЪЯЬЮЬЮЬЮЬЮЬЮЬШ>ЪЯЬЮЬЮЬЮЬЮЬЮЬШ9KЩ)ЧKШ KЪЬЮЬЮЬЮЬЮЬЮЬЯЬШ`KЪ	Ь
ЮЬЮЬЮЬЮЬШ"KШ KЪЯЬЮЬШ'KШ KЪЬЮЬЮЬЮЬЮЬЮЬЮЬ	ЮЬШkKШ KЪЯЬЮЬШ5KШ KШЧ ЕЧ    "  
~  