src/gmxlib/selection/selvalue.c

   1 /*
   2  * This file is part of the GROMACS molecular simulation package.
   3  *
   4  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
   5  * Copyright (c) 2001-2009, The GROMACS development team,
   6  * check out http://www.gromacs.org for more information.
   7  * Copyright (c) 2012, by the GROMACS development team, led by
   8  * David van der Spoel, Berk Hess, Erik Lindahl, and including many
   9  * others, as listed in the AUTHORS file in the top-level source
  10  * directory and at http://www.gromacs.org.
  11  *
  12  * GROMACS is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU Lesser General Public License
  14  * as published by the Free Software Foundation; either version 2.1
  15  * of the License, or (at your option) any later version.
  16  *
  17  * GROMACS is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20  * Lesser General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU Lesser General Public
  23  * License along with GROMACS; if not, see
  24  * http://www.gnu.org/licenses, or write to the Free Software Foundation,
  25  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
  26  *
  27  * If you want to redistribute modifications to GROMACS, please
  28  * consider that scientific software is very special. Version
  29  * control is crucial - bugs must be traceable. We will be happy to
  30  * consider code for inclusion in the official distribution, but
  31  * derived work must not be called official GROMACS. Details are found
  32  * in the README & COPYING files - if they are missing, get the
  33  * official version at http://www.gromacs.org.
  34  *
  35  * To help us fund GROMACS development, we humbly ask that you cite
  36  * the research papers on the package. Check out http://www.gromacs.org.
  37  */
  38 /*! \internal \file
  39  * \brief Implementation of functions in selvalue.h.
  40  */
  41 #ifdef HAVE_CONFIG_H
  42 #include <config.h>
  43 #endif
  44
  45 #include <smalloc.h>
  46
  47 #include <indexutil.h>
  48 #include <position.h>
  49 #include <selvalue.h>
  50
  51 /*!
  52  * \param[out] val  Output structure
  53  *
  54  * The type of \p val is not touched.
  55  * Any contents of \p val are discarded without freeing.
  56  */
  57 void
  58 _gmx_selvalue_clear(gmx_ana_selvalue_t *val)
  59 {
  60     val->nr     = 0;
  61     val->u.ptr  = NULL;
  62     val->nalloc = 0;
  63 }
  64
  65 /*!
  66  * \param[in,out] val  Value structure to allocate.
  67  * \param[in]     n    Maximum number of values needed.
  68  * \returns       Zero on success.
  69  *
  70  * Reserves memory for the values within \p val to store at least \p n values,
  71  * of the type specified in the \p val structure.
  72  *
  73  * If the type is \ref POS_VALUE or \ref GROUP_VALUE, memory is reserved for
  74  * the data structures, but no memory is reserved inside these newly allocated
  75  * data structures.
  76  * Similarly, for \ref STR_VALUE values, the pointers are set to NULL.
  77  * For other values, the memory is uninitialized.
  78  */
  79 int
  80 _gmx_selvalue_reserve(gmx_ana_selvalue_t *val, int n)
  81 {
  82     int  i;
  83
  84     if (val->nalloc == -1)
  85     {
  86         return 0;
  87     }
  88
  89     if (!val->u.ptr || val->nalloc < n)
  90     {
  91         switch (val->type)
  92         {
  93             case INT_VALUE:   srenew(val->u.i, n); break;
  94             case REAL_VALUE:  srenew(val->u.r, n); break;
  95             case STR_VALUE:
  96                 srenew(val->u.s, n);
  97                 for (i = val->nalloc; i < n; ++i)
  98                 {
  99                     val->u.s[i] = NULL;
 100                 }
 101                 break;
 102             case POS_VALUE:
 103                 srenew(val->u.p, n);
 104                 for (i = val->nalloc; i < n; ++i)
 105                 {
 106                     gmx_ana_pos_clear(&val->u.p[i]);
 107                 }
 108                 break;
 109             case GROUP_VALUE:
 110                 srenew(val->u.g, n);
 111                 for (i = val->nalloc; i < n; ++i)
 112                 {
 113                     gmx_ana_index_clear(&val->u.g[i]);
 114                 }
 115                 break;
 116             case NO_VALUE:    break;
 117         }
 118         val->nalloc = n;
 119     }
 120     return 0;
 121 }
 122
 123 /*!
 124  * \param[in,out] val    Value structure to allocate.
 125  * \param[in]     ptr    Pointer where the values should be stored.
 126  * \returns       Zero on success.
 127  *
 128  * Automatic memory management is disabled for \p ptr, unless \p ptr is NULL.
 129  */
 130 int
 131 _gmx_selvalue_setstore(gmx_ana_selvalue_t *val, void *ptr)
 132 {
 133     val->u.ptr  = ptr;
 134     val->nalloc = (ptr ? -1 : 0);
 135     return 0;
 136 }
 137
 138 /*!
 139  * \param[in,out] val    Value structure to allocate.
 140  * \param[in]     ptr    Pointer where the values should be stored.
 141  * \param[in]     nalloc Number of values allocated for \p ptr.
 142  * \returns       Zero on success.
 143  */
 144 int
 145 _gmx_selvalue_setstore_alloc(gmx_ana_selvalue_t *val, void *ptr, int nalloc)
 146 {
 147     val->u.ptr  = ptr;
 148     val->nalloc = nalloc;
 149     return 0;
 150 }