rom/dos/freedosobject.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10 #include <dos/exall.h>
  11 #include <dos/rdargs.h>
  12 #include "dos_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(void, FreeDosObject,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(ULONG, type, D1),
  23         AROS_LHA(APTR,  ptr,  D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 39, Dos)
  27
  28 /*  FUNCTION
  29         Frees an object allocated with AllocDosObject.
  30
  31     INPUTS
  32         type - object type. The same parameter as given to AllocDosObject().
  33         ptr  - Pointer to object.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         AllocDosObject()
  45
  46     INTERNALS
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     if (ptr == NULL)
  53         return;
  54
  55     switch(type)
  56     {
  57         case DOS_FILEHANDLE:
  58         {
  59             struct FileHandle *fh=(struct FileHandle *)ptr;
  60             if (fh->fh_Flags & FHF_OWNBUF)
  61                 FreeMem(BADDR(fh->fh_OrigBuf),fh->fh_BufSize);
  62             FreeVec(fh);
  63             break;
  64         }
  65         case DOS_FIB:
  66             FreeVec(ptr);
  67             break;
  68
  69         case DOS_STDPKT:
  70             freedospacket(ptr);
  71             break;
  72
  73         case DOS_EXALLCONTROL:
  74             if (((struct InternalExAllControl *)ptr)->fib)
  75                 FreeDosObject(DOS_FIB, ((struct InternalExAllControl *)ptr)->fib);
  76
  77             FreeVec(ptr);
  78             break;
  79
  80         case DOS_CLI:
  81         {
  82             struct CommandLineInterface *cli=(struct CommandLineInterface *)ptr;
  83             BPTR *cur, *next;
  84             cur=(BPTR *)BADDR(cli->cli_CommandDir);
  85             FreeVec(BADDR(cli->cli_SetName));
  86             FreeVec(BADDR(cli->cli_CommandName));
  87             FreeVec(BADDR(cli->cli_CommandFile));
  88             FreeVec(BADDR(cli->cli_Prompt));
  89             FreeVec(ptr);
  90             while(cur!=NULL)
  91             {
  92                 next=(BPTR *)BADDR(cur[0]);
  93                 UnLock(cur[1]);
  94                 FreeVec(cur);
  95                 cur=next;
  96             }
  97             break;
  98
  99         /*
 100             FreeArgs() will not free a RDArgs without a RDA_DAList,
 101             see that function for more information as to why...
 102         */
 103         case DOS_RDARGS:
 104             if(((struct RDArgs *)ptr)->RDA_DAList != 0)
 105                 FreeArgs(ptr);
 106             else
 107                 FreeVec(ptr);
 108
 109             break;
 110         }
 111     }
 112     AROS_LIBFUNC_EXIT
 113 } /* FreeDosObject */
 114
 115 #undef offsetof
 116 #undef container_of
 117
 118 #define offsetof(TYPE, MEMBER) ((IPTR) &((TYPE *)0)->MEMBER)
 119 #define container_of(ptr, type, member) ({          \
 120     const typeof(((type *)0)->member) *__mptr = (ptr);    \
 121              (type *)((char *)__mptr - offsetof(type, member)); })
 122
 123 void freedospacket(struct DosPacket *dp)
 124 {
 125     FreeVec(container_of(dp, struct StandardPacket, sp_Pkt));
 126 }