Copyright (C) 1994, Digital Equipment Corp.
<*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.