workbench/libs/asl/freeaslrequest.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/locale.h>
  11 #include "asl_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/asl.h>
  17
  18         AROS_LH1(void, FreeAslRequest,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(APTR, requester, A0),
  22
  23 /*  LOCATION */
  24         struct Library *, AslBase, 9, Asl)
  25
  26 /*  FUNCTION
  27         Frees a requester that was allocated with AllocAslRequest().
  28
  29     INPUTS
  30         requester - The requester that is to be freed.
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45         27-11-96    digulla automatically created from
  46                             asl_lib.fd and clib/asl_protos.h
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     /* Here We should also free WBArg when multiselection etc. etc. */
  53     struct ReqNode *reqnode;
  54
  55     if (!requester) return;
  56
  57     if ((reqnode = FindReqNode(requester, ASLB(AslBase))) != NULL)
  58     {
  59         /* Strip requester specific stuff */
  60         StripRequester(requester, reqnode->rn_IntReq->ir_ReqType, ASLB(AslBase));
  61
  62         FreeVec(requester);
  63         DeletePool(reqnode->rn_IntReq->ir_MemPool);
  64         FreeVec(reqnode->rn_IntReq);
  65
  66         ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
  67         Remove( (struct Node *)reqnode );
  68         ReleaseSemaphore( &(ASLB(AslBase)->ReqListSem) );
  69
  70         FreeMem(reqnode, sizeof (struct ReqNode));
  71
  72     }
  73
  74     return;
  75
  76     AROS_LIBFUNC_EXIT
  77 } /* FreeAslRequest */