Copyright (C) 1994, Digital Equipment Corp. GENERIC MODULECITextTable (Tbl); IMPORT TextExtras; REVEAL Default = Tbl.Default BRANDED OBJECT OVERRIDES keyEqual := CIEqual; keyHash := CIHash; END; PROCEDURECIEqual (<*UNUSED*> self: T; READONLY a, b: TEXT): BOOLEAN= BEGIN RETURN TextExtras.CIEqual(a, b); END CIEqual; PROCEDURECIHash (<*UNUSED*> self: T; READONLY a: TEXT): INTEGER= BEGIN RETURN TextExtras.CIHash(a); END CIHash; BEGIN END CITextTable.