libm3/src/pickle/ver2/PackingTypeCode.i3


 

* For more information on this program, contact Blair MacIntyre * (bm@cs.columbia.edu) or Steven Feiner (feiner@cs.columbia.edu) * at the Computer Science Dept., Columbia University, * 500 W 120th St, Room 450, New York, NY, 10027. * * Copyright (C) Blair MacIntyre 1995, Columbia University 1995 *

INTERFACE PackingTypeCode;

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 if a < b, 0 if a = b, or +1 if a > b.

END PackingTypeCode.