cit_util/src/RTBrand.i3

 $Id: RTBrand.i3.html,v 1.2 2009-06-26 16:32:19 wagner Exp $ 

INTERFACE RTBrand;
IMPORT RT0;

EXCEPTION NotBranded;

PROCEDURE Get(x : REFANY) : TEXT RAISES { NotBranded } ;
PROCEDURE GetByTC(tc : RT0.Typecode) : TEXT RAISES { NotBranded } ;
END RTBrand.