src/math/group.c

   1 /* PSPP - computes sample statistics.
   2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
   3    Written by John Darrington <john@darrington.wattle.id.au>
   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 #include <stdlib.h>
  22 #include <libpspp/alloc.h>
  23 #include <libpspp/compiler.h>
  24 #include <libpspp/hash.h>
  25 #include "group.h"
  26 #include "group-proc.h"
  27 #include <libpspp/str.h>
  28 #include <data/variable.h>
  29 #include <libpspp/misc.h>
  30
  31
  32 /* Return -1 if the id of a is less than b; +1 if greater than and
  33    0 if equal */
  34 int
  35 compare_group(const struct group_statistics *a,
  36                  const struct group_statistics *b,
  37                  int width)
  38 {
  39   return compare_values(&a->id, &b->id, width);
  40 }
  41
  42
  43
  44 unsigned
  45 hash_group(const struct group_statistics *g, int width)
  46 {
  47   unsigned id_hash;
  48
  49   id_hash = hash_value(&g->id, width);
  50
  51   return id_hash;
  52 }
  53
  54
  55 void
  56 free_group(struct group_statistics *v, void *aux UNUSED)
  57 {
  58   free(v);
  59 }
  60
  61
  62 struct group_proc *
  63 group_proc_get (struct variable *v)
  64 {
  65   /* This is not ideal, obviously. */
  66   struct group_proc *group = var_get_aux (v);
  67   if (group == NULL)
  68     {
  69       group = xmalloc (sizeof (struct group_proc));
  70       var_attach_aux (v, group, var_dtor_free);
  71     }
  72   return group;
  73 }