Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Integer, Word; PROCEDURE IntPair Compare (p1, p2: T): [-1..1] = BEGIN RETURN Integer.Compare(p1.i, p2.i) END Compare; PROCEDURECompareJ (p1, p2: T): [-1..1] = BEGIN RETURN Integer.Compare(p1.j, p2.j) END CompareJ; PROCEDUREEqual (ip1, ip2: T): BOOLEAN = BEGIN RETURN ip1.i = ip2.i AND ip1.j = ip2.j END Equal; PROCEDUREHash (ip: T): Word.T = BEGIN RETURN Word.Xor(Word.Not(ip.i), ip.j) END Hash; BEGIN END IntPair.