<*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.