* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-*)
+ *)
(* Domain-related primitive actions *)
(* Register handlers to run just before and after entering a domain
* block. *)
+ val currentDomain : unit -> string
+
+ val domainFile : string -> TextIO.outstream
+ (* Open one of the current domain's configuration files. *)
+
end