workbench/libs/asl/allocaslrequest.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 <proto/dos.h>
  12 #include <proto/utility.h>
  13 #include <proto/locale.h>
  14 #include <exec/memory.h>
  15 #include <dos/dos.h>
  16 #include "asl_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/asl.h>
  22 #include <libraries/asl.h>
  23 #include <utility/tagitem.h>
  24
  25
  26         AROS_LH2(APTR, AllocAslRequest,
  27
  28 /*  SYNOPSIS */
  29         AROS_LHA(ULONG           , reqType, D0),
  30         AROS_LHA(struct TagItem *, tagList, A0),
  31
  32 /*  LOCATION */
  33         struct Library *, AslBase, 8, Asl)
  34
  35 /*  FUNCTION
  36
  37     INPUTS
  38
  39     RESULT
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51     HISTORY
  52         27-11-96    digulla automatically created from
  53                             asl_lib.fd and clib/asl_protos.h
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct IntReq        *intreq;
  60     APTR                req;
  61
  62     struct ReqNode      *reqnode;
  63     struct AslReqInfo   *reqinfo;
  64
  65     SetIoErr(0);
  66
  67     /* Parameter check */
  68     if
  69     (
  70         (reqType != ASL_FileRequest)
  71     &&
  72         (reqType != ASL_FontRequest)
  73     &&
  74         (reqType != ASL_ScreenModeRequest)
  75     )
  76         return (NULL);
  77
  78     reqinfo = &(ASLB(AslBase)->ReqInfo[reqType]);
  79
  80     /* Allocate memory for internal requester structure */
  81     intreq = AllocVec(reqinfo->IntReqSize, MEMF_ANY);
  82     if (intreq)
  83     {
  84         req = AllocVec(reqinfo->ReqSize, MEMF_ANY|MEMF_CLEAR);
  85         if (req)
  86         {
  87             CopyMem(reqinfo->DefaultReq, intreq, reqinfo->IntReqSize);
  88
  89             if (intreq->ir_MemPoolPuddle)
  90             {
  91                 intreq->ir_MemPool = CreatePool(MEMF_PUBLIC | MEMF_CLEAR,
  92                                                 intreq->ir_MemPoolPuddle,
  93                                                 intreq->ir_MemPoolThresh);
  94             }
  95
  96             if (!intreq->ir_MemPoolPuddle || intreq->ir_MemPool)
  97             {
  98                 if (tagList) /* If no taglist is supplied, we use default values */
  99                 {
 100                     struct ParseTagArgs pta;
 101
 102                     ParseCommonTags(intreq, tagList, ASLB(AslBase));
 103
 104                     /* Parse tags specific for this type of requester */
 105                     pta.pta_IntReq      = intreq;
 106                     pta.pta_Req         = req;
 107                     pta.pta_Tags        = tagList;
 108
 109                     CallHookPkt(&(reqinfo->ParseTagsHook), &pta, ASLB(AslBase));
 110
 111
 112                 } /* if (tagList) */
 113
 114                 /* Add requester to internal list */
 115                 reqnode = AllocMem(sizeof (struct ReqNode), MEMF_ANY);
 116                 if (reqnode)
 117                 {
 118                     reqnode->rn_Req       = req;
 119                     reqnode->rn_IntReq    = intreq;
 120                     reqnode->rn_ReqWindow = NULL;
 121                     ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
 122                     AddTail( (struct List*)&(ASLB(AslBase)->ReqList), (struct Node*)reqnode);
 123                     ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 124
 125                     SetIoErr(0);
 126
 127                     return (req);
 128
 129                 }
 130
 131                 if (intreq->ir_MemPool) DeletePool(intreq->ir_MemPool);
 132
 133             } /* if no mempool needed or mempool creation ok */
 134             FreeVec(req);
 135
 136         } /* if (Alloc public request structure) */
 137         FreeVec(intreq);
 138
 139     } /* if (Alloc private request structure) */
 140
 141     SetIoErr(ERROR_NO_FREE_STORE);
 142
 143     return (NULL);
 144
 145     AROS_LIBFUNC_EXIT
 146 } /* AllocAslRequest */