Copyright (C) 1994, Digital Equipment Corp.
Created on Tue Jan 20 14:00:00 PST 1994 by najork
MODULE; IMPORT Color, ColorName, ObLib, ObValue, SynLocation; PROCEDURE ObColor M3ToObliq (val : Color.T) : T = BEGIN RETURN NEW (T, what := "<a Color.T>", color := val); END M3ToObliq; PROCEDUREObliqToM3 (val : T) : Color.T = BEGIN RETURN val.color; END ObliqToM3; PROCEDUREGetArg (args : ObValue.ArgArray; idx : INTEGER; package : ObLib.T; opCode : ObLib.OpCode; loc : SynLocation.T) : Color.T RAISES {ObValue.Error} = BEGIN TYPECASE args[idx] OF | ObValue.ValText (node) => TRY RETURN ColorName.ToRGB(node.text); EXCEPT ColorName.NotFound => RETURN Color.Black; END; | T (node) => RETURN node.color; ELSE ObValue.BadArgType (idx, "color", package.name, opCode.name, loc); RETURN Color.Black; (* ... only to suppress compiler warning *) END; END GetArg; BEGIN END ObColor.