rom/intuition/lockpubscreenlist.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/intuition.h>
  13
  14 AROS_LH0(struct List *, LockPubScreenList,
  15
  16          /*  SYNOPSIS */
  17
  18          /*  LOCATION */
  19          struct IntuitionBase *, IntuitionBase, 87, Intuition)
  20
  21 /*  FUNCTION
  22
  23     Arbitrates access to the system public screen list. This is for Public
  24     Screen Manager programs only! The list should be locked as short a time
  25     as possible.
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     The list's nodes are PubScreenNodes as defined in <intuition/screens.h>.
  34     Act very quickly when holding this lock!
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     UnlockPubScreenList()
  43
  44     INTERNALS
  45
  46     HISTORY
  47         21-06-98    SDuvan  Implemented
  48     29-10-95    digulla automatically created from
  49                 intuition_lib.fd and clib/intuition_protos.h
  50
  51 *****************************************************************************/
  52 #define GPB(x) GetPrivIBase(x)
  53
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     DEBUG_LOCKPUBSCREENLIST(dprintf("LockPubScreenList: <%s>\n",
  58                                     FindTask(NULL)->tc_Node.ln_Name));
  59     ObtainSemaphore(&GPB(IntuitionBase)->PubScrListLock);
  60     DEBUG_LOCKPUBSCREENLIST(dprintf("LockPubScreenList: done\n"));
  61
  62     return (struct List *)&(GPB(IntuitionBase)->PubScreenList);
  63
  64     AROS_LIBFUNC_EXIT
  65 } /* LockPubScreenList */