49.10. $useProgramInterface

$useProgramInterface is TRUE if and only if the INITIAL PROCEDURE of the current MODULE m is being invoked for one of the following reasons:

• An interface PROCEDURE is being called.

• bind(m,b) or new(m,b) was called, where b has the $programInterface bit set.

Because of the way it is implemented, $useProgramInterface must be used only in the INITIAL PROCEDURE of the MODULE, before it makes any PROCEDURE calls; otherwise, the use of $useProgramInterface is undefined.

Normal uses of bind and new within the MAINSAIL runtime system do not set the $programInterface bit. For example, when a MODULE is invoked from MAINEX, the bit is not set, so that $useProgramInterface is FALSE if queried by the MODULE's INITIAL PROCEDURE.