Copyright (C) 1994, Digital Equipment Corp.
<*PRAGMA LL*>
MODULE JoinCMap;
IMPORT ScrnColorMap, JoinScreen;
REVEAL
Oracle = ScrnColorMap.Oracle BRANDED OBJECT
st: JoinScreen.T;
OVERRIDES
standard := ColorMapDefault;
new := ColorMapNew;
list := ColorMapList;
lookup := ColorMapLookup
END;
PROCEDURE New(st: JoinScreen.T): Oracle =
BEGIN
RETURN NEW(Oracle, st := st)
END New;
PROCEDURE ColorMapNew (<* UNUSED *> orc : Oracle;
<* UNUSED *> nm : TEXT := NIL;
<* UNUSED *> preLoaded := TRUE ): ScrnColorMap.T =
BEGIN
Crash(); <*ASSERT FALSE*>
(* IF orc.st.sts = NIL THEN Crash(); END; RETURN
orc.st.sts[0].cmap.new(nm, preLoaded); *)
END ColorMapNew;
PROCEDURE ColorMapDefault (<* UNUSED *> orc: Oracle): ScrnColorMap.T
RAISES {} =
BEGIN
Crash(); <*ASSERT FALSE*>
(* IF orc.st.sts = NIL THEN Crash(); END; RETURN
orc.st.sts[0].cmap.standard(); *)
END ColorMapDefault;
PROCEDURE ColorMapList (<* UNUSED *> orc : Oracle;
<* UNUSED *> pat : TEXT;
<* UNUSED *> maxResults: CARDINAL):
REF ARRAY OF TEXT RAISES {} =
BEGIN
Crash(); <*ASSERT FALSE*>
(* IF orc.st.sts = NIL THEN Crash(); END; RETURN
orc.st.sts[0].cmap.list(pat, maxResults); *)
END ColorMapList;
PROCEDURE ColorMapLookup (<* UNUSED *> orc: Oracle; <* UNUSED *> pat: TEXT):
ScrnColorMap.T RAISES {} =
BEGIN
Crash(); <*ASSERT FALSE*>
(* IF orc.st.sts = NIL THEN Crash(); END; RETURN
orc.st.sts[0].cmap.lookup(pat); *)
END ColorMapLookup;
EXCEPTION FatalError;
PROCEDURE Crash () =
<*FATAL FatalError*>
BEGIN
RAISE FatalError
END Crash;
BEGIN
END JoinCMap.