rom/workbench/unregisterworkbench.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "workbench_intern.h"
   7 #include <workbench/workbench.h>
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13         #include <proto/workbench.h>
  14
  15         AROS_LH1(BOOL, UnregisterWorkbench,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct MsgPort *, messageport, A0),
  19
  20 /*  LOCATION */
  21
  22         struct WorkbenchBase *, WorkbenchBase, 24, Workbench)
  23
  24 /*  FUNCTION
  25         The workbench application uses this functions to unregister itself
  26         with the library. When it is done, messages will no longer be sent.
  27
  28     INPUTS
  29         msgport - The message port of that was earlier passed in to
  30                   RegisterWorkbench().
  31
  32     RESULT
  33         TRUE if the message port was successfully unregistered, FALSE otherwise.
  34         The unregistration will fail if the message port isn't the same that
  35         was passed in with RegisterWorkbench() earlier or if the passed
  36         in pointer is NULL.
  37
  38     NOTES
  39         Note that "Workbench Application" in this context means the program that
  40         is the file manager and handles the GUI of Workbench, not a program that
  41         is started from Workbench!
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         RegisterWorkbench()
  49
  50     INTERNALS
  51
  52 ******************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55     AROS_LIBBASE_EXT_DECL(struct WorkbenchBase *, WorkbenchBase)
  56
  57     BOOL success = FALSE;
  58
  59     if (messageport != NULL)
  60     {
  61         ObtainSemaphore(&(WorkbenchBase->wb_WorkbenchPortSemaphore));
  62
  63         if (WorkbenchBase->wb_WorkbenchPort == messageport)
  64         {
  65             WorkbenchBase->wb_WorkbenchPort = NULL;
  66             success = TRUE;
  67         }
  68
  69         ReleaseSemaphore(&(WorkbenchBase->wb_WorkbenchPortSemaphore));
  70     }
  71
  72     return success;
  73
  74     AROS_LIBFUNC_EXIT
  75 } /* UnregisterWorkbench() */