rom/graphics/gfxfree.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <exec/types.h>
  10 #include <graphics/gfxbase.h>
  11 #include <graphics/gfxnodes.h>
  12 #include <graphics/monitor.h>
  13 #include <graphics/view.h>
  14 #include <proto/exec.h>
  15 #include <proto/graphics.h>
  16 #include "graphics_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21
  22       AROS_LH1( void , GfxFree,
  23
  24 /*  SYNOPSIS */
  25       AROS_LHA(struct ExtendedNode *, node, A0),
  26
  27 /*  LOCATION */
  28
  29       struct GfxBase *, GfxBase, 111, Graphics)
  30
  31 /*  FUNCTION
  32       Free a special graphics extended data structure which was preciously
  33       allocated by GfxNew()
  34
  35     INPUTS
  36       node = pointer to a graphics extended data structure obtained by
  37              GfxNew()
  38
  39     RESULT
  40       The node will be deallocated from memory. Graphics will disassociate
  41       this special graphics extended node from any associated data
  42       structure, if necessary, before freeing it (see GfxAssociate())
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51       graphics/gfxnodes.h, GfxNew(), GfxAssociate(), GfxLookUp()
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 ******************************************************************************/
  58 {
  59   AROS_LIBFUNC_INIT
  60
  61   const ULONG GfxNew_memsizes[] = { 0,
  62                                     sizeof(struct ViewExtra),
  63                                     sizeof(struct ViewPortExtra),
  64                                     sizeof(struct SpecialMonitor),
  65                                     sizeof(struct MonitorSpec)
  66                                   };
  67
  68   if ( SS_GRAPHICS == node->xln_Subsystem &&
  69        NT_GRAPHICS == node->xln_Type)
  70   {
  71     /* take the element out of the hashlist, if it is in the
  72        hashlist  */
  73
  74     /* if the element has a Successor */
  75     if (NULL != node -> xln_Succ)
  76       ((struct ExtendedNode *)(node -> xln_Succ)) -> xln_Pred = (struct Node *) (node -> xln_Pred);
  77
  78     /* if the previous Element is not the hashlist itself */
  79     /* (the same code works also if the previous entry is the hashlist ) */
  80     ((struct ExtendedNode *)(node -> xln_Pred)) -> xln_Succ = (struct Node *) (node -> xln_Succ);
  81
  82     FreeMem((void *) node, GfxNew_memsizes[node->xln_Subtype]);
  83   }
  84
  85   AROS_LIBFUNC_EXIT
  86 } /* GfxFree */
  87