1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc.
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.
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.
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/>. */
19 #include "data/session.h"
24 #include "data/dataset.h"
25 #include "libpspp/assertion.h"
26 #include "libpspp/cast.h"
27 #include "libpspp/hash-functions.h"
28 #include "libpspp/str.h"
29 #include "libpspp/hmapx.h"
31 #include "gl/xalloc.h"
35 struct hmapx datasets;
36 struct dataset *active;
37 char *syntax_encoding; /* Default encoding for syntax files. */
38 unsigned int n_dataset_names; /* For session_generate_dataset_name(). */
41 static struct hmapx_node *session_lookup_dataset__ (const struct session *,
49 s = xmalloc (sizeof *s);
50 hmapx_init (&s->datasets);
52 s->syntax_encoding = xstrdup ("Auto");
53 s->n_dataset_names = 0;
58 session_destroy (struct session *s)
62 struct hmapx_node *node, *next;
66 HMAPX_FOR_EACH_SAFE (ds, node, next, &s->datasets)
68 free (s->syntax_encoding);
74 session_active_dataset (struct session *s)
80 session_set_active_dataset (struct session *s, struct dataset *ds)
82 assert (ds == NULL || dataset_session (ds) == s);
87 session_add_dataset (struct session *s, struct dataset *ds)
91 old = session_lookup_dataset (s, dataset_name (ds));
95 session_remove_dataset (s, old);
97 hmapx_insert (&s->datasets, ds, hash_case_string (dataset_name (ds), 0));
98 if (s->active == NULL)
101 dataset_set_session__ (ds, s);
105 session_remove_dataset (struct session *s, struct dataset *ds)
107 assert (ds != s->active);
108 hmapx_delete (&s->datasets, session_lookup_dataset__ (s, dataset_name (ds)));
109 dataset_set_session__ (ds, NULL);
113 session_lookup_dataset (const struct session *s, const char *name)
115 struct hmapx_node *node = session_lookup_dataset__ (s, name);
116 return node != NULL ? node->data : NULL;
120 session_lookup_dataset_assert (const struct session *s, const char *name)
122 struct dataset *ds = session_lookup_dataset (s, name);
128 session_set_default_syntax_encoding (struct session *s, const char *encoding)
130 free (s->syntax_encoding);
131 s->syntax_encoding = xstrdup (encoding);
135 session_get_default_syntax_encoding (const struct session *s)
137 return s->syntax_encoding;
141 session_n_datasets (const struct session *s)
143 return hmapx_count (&s->datasets);
147 session_for_each_dataset (const struct session *s,
148 void (*cb) (struct dataset *, void *aux),
151 struct hmapx_node *node, *next;
154 HMAPX_FOR_EACH_SAFE (ds, node, next, &s->datasets)
159 session_get_dataset_by_seqno (const struct session *s, unsigned int seqno)
161 struct hmapx_node *node;
164 HMAPX_FOR_EACH (ds, node, &s->datasets)
165 if (dataset_seqno (ds) == seqno)
170 /* Returns an identifier that is is not currently in use as a dataset name.
171 The caller must free the returned identifier, with free(). */
173 session_generate_dataset_name (struct session *s)
179 s->n_dataset_names++;
180 assert(s->n_dataset_names != 0);
182 name = xasprintf ("DataSet%u", s->n_dataset_names);
183 if (!session_lookup_dataset (s, name))
189 static struct hmapx_node *
190 session_lookup_dataset__ (const struct session *s_, const char *name)
192 struct session *s = CONST_CAST (struct session *, s_);
193 struct hmapx_node *node;
196 HMAPX_FOR_EACH_WITH_HASH (ds, node, hash_case_string (name, 0), &s->datasets)
197 if (!strcasecmp (dataset_name (ds), name))