src/data/case-source.c

   1 /* PSPP - computes sample statistics.
   2    Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc.
   3    Written by Ben Pfaff <blp@gnu.org>.
   4
   5    This program is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU General Public License as
   7    published by the Free Software Foundation; either version 2 of the
   8    License, or (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful, but
  11    WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program; if not, write to the Free Software
  17    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  18    02110-1301, USA. */
  19
  20 #include <config.h>
  21
  22 #include <data/case-source.h>
  23
  24 #include <stdlib.h>
  25
  26 #include "xalloc.h"
  27
  28 /* Creates a case source with class CLASS and auxiliary data AUX
  29    and based on dictionary DICT. */
  30 struct case_source *
  31 create_case_source (const struct case_source_class *class,
  32                     void *aux)
  33 {
  34   struct case_source *source = xmalloc (sizeof *source);
  35   source->class = class;
  36   source->aux = aux;
  37   return source;
  38 }
  39
  40 /* Destroys case source SOURCE.  It is the caller's responsible to
  41    call the source's destroy function, if any. */
  42 void
  43 free_case_source (struct case_source *source)
  44 {
  45   if (source != NULL)
  46     {
  47       if (source->class->destroy != NULL)
  48         source->class->destroy (source);
  49       free (source);
  50     }
  51 }
  52
  53 /* Returns true if CLASS is the class of SOURCE. */
  54 bool
  55 case_source_is_class (const struct case_source *source,
  56                       const struct case_source_class *class)
  57 {
  58   return source != NULL && source->class == class;
  59 }