Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Wed Jan 18 20:59:43 PST 1995 by najork
An Address.T
is an ADDRESS
. This interface is intended to be used to
instantiate generic interfaces and modules such as Table
and List
.
INTERFACEAddress ; IMPORT Word; CONST Brand = "Address-1.0"; TYPE T = ADDRESS; PROCEDURE Equal(a, b: T): BOOLEAN;
Return a = b
.
PROCEDURE Hash(a: T): Word.T;
ReturnLOOPHOLE(a, Word.T)
. This assumes thatADDRESS
andINTEGER
have the same size.
PROCEDURE Compare(a, b: T): [-1..1];
Return-1
ifa < b
,0
ifa = b
, or+1
ifa > b
.
END Address.