(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Fri Sep 25 19:48:16 PDT 1992 by msm     *)
(*      modified on Mon Feb 24 13:57:19 PST 1992 by muller  *)
(*      modified on Fri Sep  6 17:25:31 PDT 1991 by gnelson *)
<*PRAGMA LL*>

INTERFACE MiscDetail;

(* A "VBT.MiscRec" contains a detail field consisting of two integers.  It is
   sometimes useful to be able to associate arbitrary data with these
   integers.  This interface provides a simple mechanism to encode a
   REFANY as an INTEGER, thus suitable for passing in one field of a
   MiscDetail.  In typical use, the client should call ToRef immediately
   upon receipt of the MiscRec, since the sender will usually disable
   conversion when the call returns. *)

PROCEDURE FromRef(ra: REFANY): INTEGER;
(* Return a value "i" such that "ToRef(i)" returns "ra".  -1 always
   represents "NIL". *)

PROCEDURE ToRef(i: INTEGER): REFANY;
(* If "i" does not reference anything, return "NIL". *)

PROCEDURE Delete(i: INTEGER);
(* Cause "ToRef(i)" to return "NIL". *)

END MiscDetail.