-- File: ModuleName.mesa
-- last edited by Levin:  10-Mar-81 14:57:36


DIRECTORY
  ControlDefs USING [ControlLink, GlobalFrameHandle];

ModuleName: DEFINITIONS =

  BEGIN OPEN ControlDefs;
  
  ControlLinkToModuleName: PROCEDURE [link: ControlLink, s: STRING];
  -- This procedure accepts an arbitrary control link and produces a string that
  -- identifies (to a human) the module name to which the link refers.  If the
  -- module has multiple copies, a unique identifier (the gfi) is appended to
  -- the name string.

  GlobalFrameToModuleName: PROCEDURE [f: GlobalFrameHandle, s: STRING];
  -- Identical to ControlLinkToModuleName, but accepts a global frame rather than
  -- a control link.

  END.