Copyright (c) 2000 California Institute of Technology
All rights reserved. See the file COPYRIGHT for a full description.
$Id: Prec.i3.html,v 1.3 2010-04-29 17:18:53 wagner Exp $
INTERFACE Prec;
CONST
Brand = "Prec";
TYPE
Kind = {Left, Right, None};
T = REF RECORD
kind: Kind;
val: INTEGER := 0;
used: BOOLEAN := FALSE;
END;
PROCEDURE Format(a: T): TEXT;
END Prec.