pkgobj/src/Common/SiteObj.i3


Copyright (C) 1994, Digital Equipment Corp.
SiteObj.i3

INTERFACE SiteObj;

IMPORT NetObj, Site, Thread;

CONST
  SiteObjName = "SiphonSite";

TYPE
  ST = NetObj.T OBJECT METHODS
    get() : Site.T  RAISES {NetObj.Error, Thread.Alerted};
  END;

PROCEDURE Import(loc: TEXT) : ST RAISES {Site.Error, Thread.Alerted};
  (* See the description of Site.EnvVarName to understand
     how "loc" is interpreted. *)

PROCEDURE SetServerST(st: ST);
  (* Forces Site.Get to use "st" in lieu of Import(Site.EnvVarName). *)

END SiteObj.

SiteObj's implementation is in: