Recent spread-sheet-widget to version 0.2
[pspp] / src / output / charts / roc-chart.c
1 /* PSPP - a program for statistical analysis.
2    Copyright (C) 2009, 2011 Free Software Foundation, Inc.
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation, either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
16
17 #include <config.h>
18
19 #include "output/charts/roc-chart.h"
20
21 #include "data/casereader.h"
22 #include "language/stats/roc.h"
23 #include "output/chart-item-provider.h"
24
25 #include "gl/xalloc.h"
26
27 #include "gettext.h"
28 #define _(msgid) gettext (msgid)
29
30 struct roc_chart *
31 roc_chart_create (bool reference)
32 {
33   struct roc_chart *rc = xmalloc (sizeof *rc);
34   chart_item_init (&rc->chart_item, &roc_chart_class, NULL);
35   rc->reference = reference;
36   rc->vars = NULL;
37   rc->n_vars = 0;
38   rc->allocated_vars = 0;
39   return rc;
40 }
41
42 void
43 roc_chart_add_var (struct roc_chart *rc, const char *var_name,
44                    const struct casereader *cutpoint_reader)
45 {
46   struct roc_var *rv;
47
48   if (rc->n_vars >= rc->allocated_vars)
49     rc->vars = x2nrealloc (rc->vars, &rc->allocated_vars, sizeof *rc->vars);
50
51   rv = &rc->vars[rc->n_vars++];
52   rv->name = xstrdup (var_name);
53   rv->cutpoint_reader = casereader_clone (cutpoint_reader);
54 }
55
56 static void
57 roc_chart_destroy (struct chart_item *chart_item)
58 {
59   struct roc_chart *rc = UP_CAST (chart_item, struct roc_chart, chart_item);
60   size_t i;
61
62   for (i = 0; i < rc->n_vars; i++)
63     {
64       struct roc_var *rv = &rc->vars[i];
65       free (rv->name);
66       casereader_destroy (rv->cutpoint_reader);
67     }
68   free (rc->vars);
69   free (rc);
70 }
71
72 const struct chart_item_class roc_chart_class =
73   {
74     roc_chart_destroy
75   };