Copyright (C) 1994, Digital Equipment Corp.
SiteObj.i3
INTERFACESiteObj ; 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.