m3tk-misc/src/CITextTable.mg


 Copyright (C) 1990, Digital Equipment Corporation.         
 All rights reserved.                                       
 See the file COPYRIGHT for a full description.             
 Last modified on Fri Jan 28 10:55:29 PST 1994 by detlefs   

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.