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: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
AliasSummaryLine: PROC [entry: IPNameCache.AliasEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
MXSummaryLine: PROC [entry: IPNameCache.MXEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
BogusNameSummaryLine: PROC [entry: IPNameCache.BogusNameEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
DownNameSummaryLine: PROC [entry: IPNameCache.DownNameEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
AddressSummaryLine: PROC [entry: IPNameCache.AddressEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
BogusAddressSummaryLine: PROC [entry: IPNameCache.BogusAddressEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
DownAddressSummaryLine: PROC [entry: IPNameCache.DownAddressEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
DownServerSummaryLine: PROC [entry: IPNameCache.DownServerEntry, time: BOOLEAN, showttl: BOOLEANFALSE, log: PROC[ROPE] ← LogRope];
ZoneSummaryLine: PROC [entry: IPNameCache.ZoneEntry, time: BOOLEAN, showttl: BOOLEANFALSE, 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.