* For information about this program, contact Blair MacIntyre * (bm@cs.columbia.edu) or Steven Feiner (feiner@cs.columbia.edu) * at the Computer Science Dept., Columbia University, * 1214 Amsterdam Ave. Mailstop 0401, New York, NY, 10027. * * Copyright (C) 1995, 1996 by The Trustees of Columbia University in the * City of New York. Blair MacIntyre, Computer Science Department. * * This file is released under the same conditions as Pickle.m3. See COPYRIGHT. *
INTERFACEPackingTypeCode ; IMPORT Word; TYPE T = RECORD from, to, tc: Word.T END; CONST Brand = "Packing Typecode"; PROCEDURE Equal(a, b: T): BOOLEAN;
Return a = b
.
PROCEDURE Hash(a: T): Word.T;
Return a
.
PROCEDURE Compare(a, b: T): [-1..1];
Return-1
ifa < b
,0
ifa = b
, or+1
ifa > b
.
END PackingTypeCode.