workbench/libs/asl/abortaslrequest.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9
  10 #include <proto/exec.h>
  11 #include "asl_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, AbortAslRequest,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(APTR, requester, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, AslBase, 13, Asl)
  24
  25 /*  FUNCTION
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41     HISTORY
  42         27-11-96    digulla automatically created from
  43                             asl_lib.fd and clib/asl_protos.h
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     struct ReqNode *reqnode;
  50
  51     if (!requester) return;
  52
  53     ObtainSemaphore( &(ASLB(AslBase)->ReqListSem));
  54
  55     reqnode = FindReqNode(requester, ASLB(AslBase));
  56     if (reqnode)
  57     {
  58         if (reqnode->rn_ReqWindow)
  59         {
  60             struct MsgPort      mp;
  61             struct IntuiMessage msg;
  62             BYTE                sig;
  63
  64             sig = AllocSignal(-1);
  65             if (sig == -1) sig = SIGB_SINGLE;
  66
  67             mp.mp_Node.ln_Type = NT_MSGPORT;
  68             mp.mp_Node.ln_Pri  = 0;
  69             mp.mp_Node.ln_Name = NULL;
  70             mp.mp_Flags        = PA_SIGNAL;
  71             mp.mp_SigTask      = FindTask(NULL);
  72             mp.mp_SigBit       = sig;
  73             NEWLIST(&mp.mp_MsgList);
  74
  75             msg.ExecMessage.mn_Node.ln_Type = NT_MESSAGE;
  76             msg.ExecMessage.mn_ReplyPort    = &mp;
  77             msg.ExecMessage.mn_Length       = sizeof(msg);
  78             msg.Class                       = IDCMP_CLOSEWINDOW;
  79             msg.Code                        = 0;
  80             msg.Qualifier                   = 0;
  81             msg.IAddress                    = reqnode->rn_ReqWindow;
  82             msg.MouseX                      = 0;
  83             msg.MouseY                      = 0;
  84             msg.Seconds                     = 0;
  85             msg.Micros                      = 0;
  86             msg.IDCMPWindow                 = reqnode->rn_ReqWindow;
  87             msg.SpecialLink                 = 0;
  88
  89             SetSignal(0, 1L << sig);
  90             PutMsg(reqnode->rn_ReqWindow->UserPort, &msg.ExecMessage);
  91             WaitPort(&mp);
  92
  93             if (sig != SIGB_SINGLE) FreeSignal(sig);
  94
  95         } /* if (reqnode->rn_ReqWindow) */
  96
  97     } /* if (reqnode) */
  98
  99     ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 100
 101
 102     AROS_LIBFUNC_EXIT
 103
 104 } /* AbortAslRequest */