Copyright (C) 1994, Digital Equipment Corp.
Created on Tue Jan 20 14:00:00 PST 1994 by najork
MODULE ObColor;
IMPORT Color, ColorName, ObLib, ObValue, SynLocation;
PROCEDURE M3ToObliq (val : Color.T) : T =
BEGIN
RETURN NEW (T, what := "<a Color.T>", color := val);
END M3ToObliq;
PROCEDURE ObliqToM3 (val : T) : Color.T =
BEGIN
RETURN val.color;
END ObliqToM3;
PROCEDURE GetArg (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.