m3tk/src/misc/CITextTable.mg


Copyright (C) 1994, Digital Equipment Corp.

GENERIC MODULE CITextTable(Tbl);

IMPORT TextExtras;

REVEAL
  Default = Tbl.Default BRANDED OBJECT
  OVERRIDES
    keyEqual := CIEqual;
    keyHash := CIHash;
  END;

PROCEDURE CIEqual(<*UNUSED*> self: T; READONLY a, b: TEXT): BOOLEAN=
  BEGIN
    RETURN TextExtras.CIEqual(a, b);
  END CIEqual;

PROCEDURE CIHash(<*UNUSED*> self: T; READONLY a: TEXT): INTEGER=
  BEGIN
    RETURN TextExtras.CIHash(a);
  END CIHash;

BEGIN
END CITextTable.