workbench/libs/asl/abortaslrequest.c

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