rom/dos/freedosobject.c

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