libini/iniObjectDelete.c

   1 /**********************************************************************************
   2  * .
   3  *
   4  *
   5  **************************************************
   6  * This code was created by Peter Harvey @ CodeByDesign.
   7  * Released under LGPL 28.JAN.99
   8  *
   9  * Contributions from...
  10  * -----------------------------------------------
  11  * Peter Harvey         - pharvey@codebydesign.com
  12  **************************************************/
  13
  14 #include "inifile_intern.h"
  15 #include "ini.h"
  16 #include <aros/libcall.h>
  17
  18 /*****************************************************************************
  19     NAME */
  20         AROS_LH1(int, iniObjectDelete,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(HINI, hIni, D0),
  24
  25 /*  LOCATION */
  26         struct Library *, inifileBase, 20, inifile)
  27
  28 /*  FUNCTION
  29
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     HINIOBJECT          hObject;
  51
  52     /* SANITY CHECKS */
  53     if ( hIni == NULL )
  54         return INI_ERROR;
  55         if ( hIni->hCurObject == NULL )
  56                 return INI_NO_DATA;
  57
  58         hObject = hIni->hCurObject;
  59
  60         /* REMOVE ALL SUBORDINATE INFO */
  61         hIni->hCurProperty = hObject->hFirstProperty;
  62         while ( iniPropertyDelete( hIni ) == INI_SUCCESS )
  63         {
  64         }
  65
  66         /* REMOVE FROM LIST */
  67         if ( hIni->hFirstObject == hObject )
  68                 hIni->hFirstObject = hObject->pNext;
  69         if ( hIni->hLastObject == hObject )
  70                 hIni->hLastObject = hObject->pPrev;
  71
  72         hIni->hCurObject                = NULL;
  73         if ( hObject->pNext )
  74         {
  75                 hObject->pNext->pPrev   = hObject->pPrev;
  76                 hIni->hCurObject                = hObject->pNext;
  77         }
  78         if ( hObject->pPrev )
  79         {
  80                 hObject->pPrev->pNext   = hObject->pNext;
  81                 hIni->hCurObject                = hObject->pPrev;
  82         }
  83         hIni->nObjects--;
  84
  85         /* FREE MEMORY */
  86         free( hObject );
  87
  88         iniPropertyFirst( hIni );
  89
  90         return INI_SUCCESS;
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* iniObjectDelete */
  94