rom/intuition/startscreennotifytaglist.c

   1 /*
   2     Copyright  1995-2011, The AROS Development Team. All rights reserved.
   3     Copyright  2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     Add a Intuition Notification.
   7 */
   8
   9 #include <intuition/intuition.h>
  10
  11 #include "intuition_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17 #include <proto/exec.h>
  18 #include <proto/intuition.h>
  19 #include <proto/utility.h>
  20
  21     AROS_LH1(APTR, StartScreenNotifyTagList,
  22
  23 /*  SYNOPSIS */
  24          AROS_LHA(struct TagItem *, tags, A0),
  25
  26 /*  LOCATION */
  27          struct IntuitionBase *, IntuitionBase, 154, Intuition)
  28
  29 /*  FUNCTION
  30         Add Notifications to Intuition. You will be notified when
  31         the screen changes.
  32
  33     INPUTS
  34         tags - see below
  35
  36     TAGS
  37         SNA_PubName (STRPTR)          - Name of the public screen. NULL means
  38                                         you'll get notifications for all screens.
  39         SNA_MsgPort (struct MsgPort*) - Notifications will be sent to this port.
  40         SNA_SigBit (BYTE)             - The signal bit to use
  41         SNA_SigTask (struct Task*)    - The task to signal
  42         SNA_UserData (IPTR)           - For your personal use. Will be copied
  43                                         into snm_UserData of the messages you receive
  44         SNA_Hook (struct Hook*)
  45         SNA_Priority (Byte)           - Priority in the notification queue.
  46         SNA_Notify (ULONG)            - SNOTIFY_ flags, see intuition/intuition.h
  47
  48     RESULT
  49         The value is private, only a test against ZERO is allowed and means Failure
  50
  51     NOTES
  52         This function is compatible with AmigaOS v4.
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     SEE ALSO
  59         EndScreenNotify()
  60
  61     INTERNALS
  62
  63     HISTORY
  64
  65 *****************************************************************************/
  66 {
  67     AROS_LIBFUNC_INIT
  68     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  69     struct IntScreenNotify *notify;
  70
  71     notify = (struct IntScreenNotify *) AllocVec(sizeof(struct IntScreenNotify), MEMF_CLEAR);
  72
  73     if (notify)
  74     {
  75         notify->port = (struct MsgPort *) GetTagData(SNA_MsgPort, 0, tags);
  76         notify->sigbit = (BYTE) GetTagData(SNA_SigBit, 0, tags);
  77         notify->sigtask = (struct Task *) GetTagData(SNA_SigTask, 0, tags);
  78         notify->flags = (ULONG) GetTagData(SNA_Notify, 0, tags);
  79         notify->userdata = (IPTR) GetTagData(SNA_UserData, 0, tags);
  80         notify->hook = (struct Hook *) GetTagData(SNA_Hook, 0, tags);
  81         notify->node.ln_Pri = (BYTE) GetTagData(SNA_Priority, 0, tags);
  82         notify->pubname = NULL;
  83
  84         char *pubname = (char *) GetTagData(SNA_PubName, 0, tags);
  85         if (pubname)
  86         {
  87             notify->pubname = AllocVec(strlen(pubname) + 1, MEMF_CLEAR);
  88             if (notify->pubname)
  89             {
  90                 strcpy(notify->pubname, pubname);
  91             }
  92             else
  93             {
  94                 FreeVec(notify);
  95                 notify = NULL;
  96             }
  97         }
  98         if (notify)
  99         {
 100             ObtainSemaphore(&GetPrivIBase(IntuitionBase)->ScreenNotificationListLock);
 101             Enqueue(&GetPrivIBase(IntuitionBase)->ScreenNotificationList, (struct Node *) notify);
 102             ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->ScreenNotificationListLock);
 103         }
 104     }
 105
 106     ReturnPtr ("StartScreenNotifyTagList", APTR, notify);
 107
 108     AROS_LIBFUNC_EXIT
 109 } /* StartScreenNotifyTagList */