rom/dos/freedosobject.c

   1 /*
   2     Copyright © 1995-2007, 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
  45     INTERNALS
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51     switch(type)
  52     {
  53         case DOS_FILEHANDLE:
  54         {
  55             struct FileHandle *fh=(struct FileHandle *)ptr;
  56             if(fh->fh_Flags&FHF_BUF)
  57                 FreeMem(fh->fh_Buf,fh->fh_Size);
  58             FreeMem(fh,sizeof(struct FileHandle));
  59             break;
  60         }
  61         case DOS_FIB:
  62             FreeMem(ptr,sizeof(struct FileInfoBlock));
  63             break;
  64
  65         case DOS_STDPKT:
  66             FreeMem((APTR)(ptr-(APTR)(&((struct StandardPacket *)0)->sp_Pkt)),sizeof(struct StandardPacket));
  67             break;
  68
  69         case DOS_EXALLCONTROL:
  70             if (((struct InternalExAllControl *)ptr)->fib)
  71                 FreeDosObject(DOS_FIB, ((struct InternalExAllControl *)ptr)->fib);
  72
  73             FreeMem(ptr, sizeof(struct InternalExAllControl));
  74             break;
  75
  76         case DOS_CLI:
  77         {
  78             struct CommandLineInterface *cli=(struct CommandLineInterface *)ptr;
  79             BPTR *cur, *next;
  80             cur=(BPTR *)BADDR(cli->cli_CommandDir);
  81             FreeVec(BADDR(cli->cli_SetName));
  82             FreeVec(BADDR(cli->cli_CommandName));
  83             FreeVec(BADDR(cli->cli_CommandFile));
  84             FreeVec(BADDR(cli->cli_Prompt));
  85             FreeMem(ptr,sizeof(struct CommandLineInterface));
  86             while(cur!=NULL)
  87             {
  88                 next=(BPTR *)BADDR(cur[0]);
  89                 UnLock(cur[1]);
  90                 FreeVec(cur);
  91                 cur=next;
  92             }
  93             break;
  94
  95         /*
  96             FreeArgs() will not free a RDArgs without a RDA_DAList,
  97             see that function for more information as to why...
  98         */
  99         case DOS_RDARGS:
 100             if(((struct RDArgs *)ptr)->RDA_DAList != NULL)
 101                 FreeArgs(ptr);
 102             else
 103                 FreeVec(ptr);
 104
 105             break;
 106         }
 107     }
 108     AROS_LIBFUNC_EXIT
 109 } /* FreeDosObject */