libini/iniPropertySeek.c

   1 /**********************************************************************************
   2  * iniPropertySeek
   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_LH4(int, iniPropertySeek,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(HINI, hIni, D0),
  24         AROS_LHA(char *, pszObject, A0),
  25     AROS_LHA(char *, pszProperty, A1),
  26     AROS_LHA(char *, pszValue, A2),
  27
  28 /*  LOCATION */
  29         struct Library *, inifileBase, 37, inifile)
  30
  31 /*  FUNCTION
  32
  33     INPUTS
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     /* SANITY CHECKS */
  54     if ( hIni == NULL )
  55         return INI_ERROR;
  56
  57     /* Ok */
  58         iniObjectFirst( hIni );
  59         while ( iniObjectEOL( hIni ) != TRUE )
  60         {
  61                 if      ( pszObject[0] == '\0' || strcasecmp( pszObject, hIni->hCurObject->szName ) == 0 )
  62                 {
  63                         /* EITHER THE OBJECT HAS BEEN FOUND OR THE OBJECT DOES NOT MATTER       */
  64                         /* IN ANYCASE LETS SCAN FOR PROPERTY                                                            */
  65                         iniPropertyFirst( hIni );
  66                         while ( iniPropertyEOL( hIni ) != TRUE )
  67                         {
  68                                 if      ( pszProperty[0] == '\0' || strcasecmp( pszProperty, hIni->hCurProperty->szName ) == 0 )
  69                                 {
  70                                         if ( pszValue[0] == '\0' || strcasecmp( pszValue, hIni->hCurProperty->szValue ) == 0 )
  71                                         {
  72                                                 /* FOUND IT !! */
  73                                                 return INI_SUCCESS;
  74                                         }
  75                                 }
  76                                 iniPropertyNext( hIni );
  77                         }
  78                         if ( pszObject[0] != '\0' )
  79                         {
  80                                 hIni->hCurObject = NULL;
  81                                 return INI_NO_DATA;
  82                         }
  83                 }
  84                 iniObjectNext( hIni );
  85         }
  86
  87         return INI_NO_DATA;
  88
  89     AROS_LIBFUNC_EXIT
  90 } /* iniPropertySeek */
  91