1 /* PSPP - computes sample statistics.
2 Copyright (C) 2004 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
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.
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.
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
27 /* Opaque structure that represents a case. Use accessor
28 functions instead of accessing any members directly. Use
29 case_move() or case_clone() instead of copying. */
32 struct case_data *case_data; /* Actual data. */
34 struct ccase *this; /* Detects unauthorized move/copy. */
38 /* Invisible to user code. */
41 size_t value_cnt; /* Number of values. */
42 unsigned ref_cnt; /* Reference count. */
43 union value values[1]; /* Values. */
49 #define CASE_INLINE static
52 CASE_INLINE void case_nullify (struct ccase *);
53 CASE_INLINE int case_is_null (const struct ccase *);
55 void case_create (struct ccase *, size_t value_cnt);
56 CASE_INLINE void case_clone (struct ccase *, const struct ccase *);
57 CASE_INLINE void case_move (struct ccase *, struct ccase *);
58 CASE_INLINE void case_destroy (struct ccase *);
60 void case_resize (struct ccase *, size_t old_cnt, size_t new_cnt);
61 void case_swap (struct ccase *, struct ccase *);
63 int case_try_create (struct ccase *, size_t value_cnt);
64 int case_try_clone (struct ccase *, const struct ccase *);
66 CASE_INLINE void case_copy (struct ccase *dst, size_t dst_idx,
67 const struct ccase *src, size_t src_idx,
70 CASE_INLINE void case_to_values (const struct ccase *, union value *, size_t);
71 CASE_INLINE void case_from_values (struct ccase *,
72 const union value *, size_t);
74 CASE_INLINE const union value *case_data (const struct ccase *, size_t idx);
75 CASE_INLINE double case_num (const struct ccase *, size_t idx);
76 CASE_INLINE const char *case_str (const struct ccase *, size_t idx);
78 CASE_INLINE union value *case_data_rw (struct ccase *, size_t idx);
81 int case_compare (const struct ccase *, const struct ccase *,
82 struct variable *const *, size_t var_cnt);
83 int case_compare_2dict (const struct ccase *, const struct ccase *,
84 struct variable *const *, struct variable *const *,
87 const union value *case_data_all (const struct ccase *);
88 union value *case_data_all_rw (struct ccase *);
90 void case_unshare (struct ccase *);
94 #include <libpspp/str.h>
97 case_nullify (struct ccase *c)
103 case_is_null (const struct ccase *c)
105 return c->case_data == NULL;
109 case_clone (struct ccase *clone, const struct ccase *orig)
112 orig->case_data->ref_cnt++;
116 case_move (struct ccase *dst, struct ccase *src)
121 src->case_data = NULL;
126 case_destroy (struct ccase *c)
128 struct case_data *cd = c->case_data;
129 if (cd != NULL && --cd->ref_cnt == 0)
134 case_copy (struct ccase *dst, size_t dst_idx,
135 const struct ccase *src, size_t src_idx,
138 if (dst->case_data != src->case_data || dst_idx != src_idx)
140 if (dst->case_data->ref_cnt > 1)
142 memmove (dst->case_data->values + dst_idx,
143 src->case_data->values + src_idx,
144 sizeof *dst->case_data->values * value_cnt);
149 case_to_values (const struct ccase *c, union value *output,
152 memcpy (output, c->case_data->values,
153 output_size * sizeof *output);
157 case_from_values (struct ccase *c, const union value *input,
158 size_t input_size UNUSED)
160 if (c->case_data->ref_cnt > 1)
162 memcpy (c->case_data->values, input,
163 c->case_data->value_cnt * sizeof *input);
166 static inline const union value *
167 case_data (const struct ccase *c, size_t idx)
169 return &c->case_data->values[idx];
173 case_num (const struct ccase *c, size_t idx)
175 return c->case_data->values[idx].f;
178 static inline const char *
179 case_str (const struct ccase *c, size_t idx)
181 return c->case_data->values[idx].s;
184 static inline union value *
185 case_data_rw (struct ccase *c, size_t idx)
187 if (c->case_data->ref_cnt > 1)
189 return &c->case_data->values[idx];
191 #endif /* !DEBUGGING */