
<<IPNameSupport.mesa>>
    <<Copyright © 1986 by Xerox Corporation.  All rights reserved.>>
    <<John Larson, July 26, 1987 3:17:47 pm PDT>>

DIRECTORY
Rope USING [ROPE],
IPDefs USING [Address],
IPNameCache USING[AddressEntry, AliasEntry, BogusAddressEntry, BogusNameEntry, DownAddressEntry, DownNameEntry, DownServerEntry, 
MXEntry, NameEntry, ZoneEntry] ;

IPNameSupport: CEDAR DEFINITIONS =
BEGIN

ROPE: TYPE = Rope.ROPE;

<<Routines to output to Resolver log>>

LogRope: PROC [rope: ROPE];
<<>>
NameSummaryLine: PROC [entry: IPNameCache.NameEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
AliasSummaryLine: PROC [entry: IPNameCache.AliasEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
MXSummaryLine: PROC [entry: IPNameCache.MXEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
BogusNameSummaryLine: PROC [entry: IPNameCache.BogusNameEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
DownNameSummaryLine: PROC [entry: IPNameCache.DownNameEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
AddressSummaryLine: PROC [entry: IPNameCache.AddressEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];
BogusAddressSummaryLine: PROC [entry: IPNameCache.BogusAddressEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ 
LogRope];
DownAddressSummaryLine: PROC [entry: IPNameCache.DownAddressEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ 
LogRope];
DownServerSummaryLine: PROC [entry: IPNameCache.DownServerEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ 
LogRope];

ZoneSummaryLine: PROC [entry: IPNameCache.ZoneEntry, time: BOOLEAN, showttl: BOOLEAN _ FALSE, log: PROC[ROPE] _ LogRope];


<<Misc support routines>>
<<>>
RopeInList: PROC [ropes: LIST OF ROPE, rope: ROPE] RETURNS [yes: BOOL];
AddressInList: PROC [addresses: LIST OF IPDefs.Address, address: IPDefs.Address]
RETURNS [yes: BOOL];
<<>>
MakeRopeInList: PROC [LIST OF ROPE, ROPE] RETURNS [LIST OF ROPE];
MakeAddressInList: PROC [LIST OF IPDefs.Address, IPDefs.Address] RETURNS [LIST OF IPDefs.Address];

END.