projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
covariance-matrix.c (get_sum): New function to compute means during
[pspp-builds.git]
/
src
/
language
/
lexer
/
variable-parser.c
diff --git
a/src/language/lexer/variable-parser.c
b/src/language/lexer/variable-parser.c
index 60a5539f406f34579a54142d3ce7b8b010968674..1194110efa3ac850ed1584451e2782ec12870b83 100644
(file)
--- a/
src/language/lexer/variable-parser.c
+++ b/
src/language/lexer/variable-parser.c
@@
-1,20
+1,18
@@
-/* PSPP -
computes sample statistic
s.
+/* PSPP -
a program for statistical analysi
s.
Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
- This program is free software
; you can redistribute it and/or
- modify it under the terms of the GNU General Public License as
- published by the Free Software Foundation; either version 2 of the
-
License, or
(at your option) any later version.
+ This program is free software
: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
- This program is distributed in the hope that it will be useful,
but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU
- General Public License for more details.
+ This program is distributed in the hope that it will be useful,
+
but
WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ G
NU G
eneral Public License for more details.
You should have received a copy of the GNU General Public License
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02110-1301, USA. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include <config.h>
#include <config.h>
@@
-28,7
+26,6
@@
#include <data/dictionary.h>
#include <data/procedure.h>
#include <data/variable.h>
#include <data/dictionary.h>
#include <data/procedure.h>
#include <data/variable.h>
-#include <libpspp/alloc.h>
#include <libpspp/assertion.h>
#include <libpspp/bit-vector.h>
#include <libpspp/hash.h>
#include <libpspp/assertion.h>
#include <libpspp/bit-vector.h>
#include <libpspp/hash.h>
@@
-37,29
+34,41
@@
#include <libpspp/pool.h>
#include <libpspp/str.h>
#include <libpspp/pool.h>
#include <libpspp/str.h>
+#include "xalloc.h"
+
#include "gettext.h"
#define _(msgid) gettext (msgid)
#include "gettext.h"
#define _(msgid) gettext (msgid)
+static struct variable * var_set_get_var (const struct var_set *, size_t );
+
+static struct variable *var_set_lookup_var (const struct var_set *,
+ const char *);
+
+static bool var_set_lookup_var_idx (const struct var_set *, const char *,
+ size_t *);
+
+
+
/* Parses a name as a variable within VS. Sets *IDX to the
variable's index and returns true if successful. On failure
emits an error message and returns false. */
static bool
/* Parses a name as a variable within VS. Sets *IDX to the
variable's index and returns true if successful. On failure
emits an error message and returns false. */
static bool
-parse_vs_variable_idx (struct lexer *lexer, const struct var_set *vs,
+parse_vs_variable_idx (struct lexer *lexer, const struct var_set *vs,
size_t *idx)
{
assert (idx != NULL);
size_t *idx)
{
assert (idx != NULL);
-
+
if (lex_token (lexer) != T_ID)
{
lex_error (lexer, _("expecting variable name"));
return false;
}
if (lex_token (lexer) != T_ID)
{
lex_error (lexer, _("expecting variable name"));
return false;
}
- else if (var_set_lookup_var_idx (vs, lex_tokid (lexer), idx))
+ else if (var_set_lookup_var_idx (vs, lex_tokid (lexer), idx))
{
lex_get (lexer);
return true;
}
{
lex_get (lexer);
return true;
}
- else
+ else
{
msg (SE, _("%s is not a variable name."), lex_tokid (lexer));
return false;
{
msg (SE, _("%s is not a variable name."), lex_tokid (lexer));
return false;
@@
-80,7
+89,7
@@
parse_vs_variable (struct lexer *lexer, const struct var_set *vs)
variable if successful. On failure emits an error message and
returns a null pointer. */
struct variable *
variable if successful. On failure emits an error message and
returns a null pointer. */
struct variable *
-parse_variable (struct lexer *lexer, const struct dictionary *d)
+parse_variable (struct lexer *lexer, const struct dictionary *d)
{
struct var_set *vs = var_set_create_from_dict (d);
struct variable *var = parse_vs_variable (lexer, vs);
{
struct var_set *vs = var_set_create_from_dict (d);
struct variable *var = parse_vs_variable (lexer, vs);
@@
-93,9
+102,9
@@
parse_variable (struct lexer *lexer, const struct dictionary *d)
number of variables into *CNT. Returns true only if
successful. */
bool
number of variables into *CNT. Returns true only if
successful. */
bool
-parse_variables (struct lexer *lexer, const struct dictionary *d,
+parse_variables (struct lexer *lexer, const struct dictionary *d,
struct variable ***var,
struct variable ***var,
- size_t *cnt, int opts)
+ size_t *cnt, int opts)
{
struct var_set *vs;
int success;
{
struct var_set *vs;
int success;
@@
-106,8
+115,6
@@
parse_variables (struct lexer *lexer, const struct dictionary *d,
vs = var_set_create_from_dict (d);
success = parse_var_set_vars (lexer, vs, var, cnt, opts);
vs = var_set_create_from_dict (d);
success = parse_var_set_vars (lexer, vs, var, cnt, opts);
- if ( success == 0 )
- free ( *var ) ;
var_set_destroy (vs);
return success;
}
var_set_destroy (vs);
return success;
}
@@
-118,9
+125,9
@@
parse_variables (struct lexer *lexer, const struct dictionary *d,
successful. Same behavior as parse_variables, except that all
allocations are taken from the given POOL. */
bool
successful. Same behavior as parse_variables, except that all
allocations are taken from the given POOL. */
bool
-parse_variables_pool (struct lexer *lexer, struct pool *pool,
+parse_variables_pool (struct lexer *lexer, struct pool *pool,
const struct dictionary *dict,
const struct dictionary *dict,
- struct variable ***vars, size_t *var_cnt, int opts)
+ struct variable ***vars, size_t *var_cnt, int opts)
{
int retval;
{
int retval;
@@
-129,7
+136,7
@@
parse_variables_pool (struct lexer *lexer, struct pool *pool,
already in the pool, which would attempt to re-free it
later. */
assert (!(opts & PV_APPEND));
already in the pool, which would attempt to re-free it
later. */
assert (!(opts & PV_APPEND));
-
+
retval = parse_variables (lexer, dict, vars, var_cnt, opts);
if (retval)
pool_register (pool, free, *vars);
retval = parse_variables (lexer, dict, vars, var_cnt, opts);
if (retval)
pool_register (pool, free, *vars);
@@
-141,7
+148,7
@@
parse_variables_pool (struct lexer *lexer, struct pool *pool,
dictionary class, and returns true. Returns false on
failure. */
static bool
dictionary class, and returns true. Returns false on
failure. */
static bool
-parse_var_idx_class (struct lexer *lexer, const struct var_set *vs,
+parse_var_idx_class (struct lexer *lexer, const struct var_set *vs,
size_t *idx,
enum dict_class *class)
{
size_t *idx,
enum dict_class *class)
{
@@
-165,10
+172,10
@@
add_variable (struct variable ***v, size_t *nv, size_t *mv,
struct variable *add = var_set_get_var (vs, idx);
const char *add_name = var_get_name (add);
struct variable *add = var_set_get_var (vs, idx);
const char *add_name = var_get_name (add);
- if ((pv_opts & PV_NUMERIC) && !var_is_numeric (add))
+ if ((pv_opts & PV_NUMERIC) && !var_is_numeric (add))
msg (SW, _("%s is not a numeric variable. It will not be "
"included in the variable list."), add_name);
msg (SW, _("%s is not a numeric variable. It will not be "
"included in the variable list."), add_name);
- else if ((pv_opts & PV_STRING) && !var_is_alpha (add))
+ else if ((pv_opts & PV_STRING) && !var_is_alpha (add))
msg (SE, _("%s is not a string variable. It will not be "
"included in the variable list."), add_name);
else if ((pv_opts & PV_NO_SCRATCH)
msg (SE, _("%s is not a string variable. It will not be "
"included in the variable list."), add_name);
else if ((pv_opts & PV_NO_SCRATCH)
@@
-176,7
+183,7
@@
add_variable (struct variable ***v, size_t *nv, size_t *mv,
msg (SE, _("Scratch variables (such as %s) are not allowed "
"here."), add_name);
else if ((pv_opts & (PV_SAME_TYPE | PV_SAME_WIDTH)) && *nv
msg (SE, _("Scratch variables (such as %s) are not allowed "
"here."), add_name);
else if ((pv_opts & (PV_SAME_TYPE | PV_SAME_WIDTH)) && *nv
- && var_get_type (add) != var_get_type ((*v)[0]))
+ && var_get_type (add) != var_get_type ((*v)[0]))
msg (SE, _("%s and %s are not the same type. All variables in "
"this variable list must be of the same type. %s "
"will be omitted from the list."),
msg (SE, _("%s and %s are not the same type. All variables in "
"this variable list must be of the same type. %s "
"will be omitted from the list."),
@@
-185,9
+192,9
@@
add_variable (struct variable ***v, size_t *nv, size_t *mv,
&& var_get_width (add) != var_get_width ((*v)[0]))
msg (SE, _("%s and %s are string variables with different widths. "
"All variables in this variable list must have the "
&& var_get_width (add) != var_get_width ((*v)[0]))
msg (SE, _("%s and %s are string variables with different widths. "
"All variables in this variable list must have the "
- "same width. %s will be om
tti
ed from the list."),
+ "same width. %s will be om
itt
ed from the list."),
var_get_name ((*v)[0]), add_name, add_name);
var_get_name ((*v)[0]), add_name, add_name);
- else if ((pv_opts & PV_NO_DUPLICATE) && included[idx])
+ else if ((pv_opts & PV_NO_DUPLICATE) && included[idx])
msg (SE, _("Variable %s appears twice in variable list."), add_name);
else if ((pv_opts & PV_DUPLICATE) || !included[idx])
{
msg (SE, _("Variable %s appears twice in variable list."), add_name);
else if ((pv_opts & PV_DUPLICATE) || !included[idx])
{
@@
-211,10
+218,10
@@
static void
add_variables (struct variable ***v, size_t *nv, size_t *mv, char *included,
int pv_opts,
const struct var_set *vs, int first_idx, int last_idx,
add_variables (struct variable ***v, size_t *nv, size_t *mv, char *included,
int pv_opts,
const struct var_set *vs, int first_idx, int last_idx,
- enum dict_class class)
+ enum dict_class class)
{
size_t i;
{
size_t i;
-
+
for (i = first_idx; i <= last_idx; i++)
if (dict_class_from_id (var_get_name (var_set_get_var (vs, i))) == class)
add_variable (v, nv, mv, included, pv_opts, vs, i);
for (i = first_idx; i <= last_idx; i++)
if (dict_class_from_id (var_get_name (var_set_get_var (vs, i))) == class)
add_variable (v, nv, mv, included, pv_opts, vs, i);
@@
-224,7
+231,7
@@
add_variables (struct variable ***v, size_t *nv, size_t *mv, char *included,
Conversely, if parse_variables() returns true, then *nv is
nonzero and *v is non-NULL. */
bool
Conversely, if parse_variables() returns true, then *nv is
nonzero and *v is non-NULL. */
bool
-parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
+parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
struct variable ***v, size_t *nv,
int pv_opts)
{
struct variable ***v, size_t *nv,
int pv_opts)
{
@@
-257,14
+264,14
@@
parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
if (!(pv_opts & PV_DUPLICATE))
{
size_t i;
if (!(pv_opts & PV_DUPLICATE))
{
size_t i;
-
+
included = xcalloc (var_set_get_cnt (vs), sizeof *included);
included = xcalloc (var_set_get_cnt (vs), sizeof *included);
- for (i = 0; i < *nv; i++)
+ for (i = 0; i < *nv; i++)
{
size_t index;
if (!var_set_lookup_var_idx (vs, var_get_name ((*v)[i]), &index))
NOT_REACHED ();
{
size_t index;
if (!var_set_lookup_var_idx (vs, var_get_name ((*v)[i]), &index))
NOT_REACHED ();
- included[index] = 1;
+ included[index] = 1;
}
}
else
}
}
else
@@
-275,7
+282,7
@@
parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
if (lex_match (lexer, T_ALL))
add_variables (v, nv, &mv, included, pv_opts,
vs, 0, var_set_get_cnt (vs) - 1, DC_ORDINARY);
if (lex_match (lexer, T_ALL))
add_variables (v, nv, &mv, included, pv_opts,
vs, 0, var_set_get_cnt (vs) - 1, DC_ORDINARY);
- else
+ else
{
enum dict_class class;
size_t first_idx;
{
enum dict_class class;
size_t first_idx;
@@
-285,7
+292,7
@@
parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
if (!lex_match (lexer, T_TO))
add_variable (v, nv, &mv, included, pv_opts, vs, first_idx);
if (!lex_match (lexer, T_TO))
add_variable (v, nv, &mv, included, pv_opts, vs, first_idx);
- else
+ else
{
size_t last_idx;
enum dict_class last_class;
{
size_t last_idx;
enum dict_class last_class;
@@
-322,7
+329,7
@@
parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
add_variables (v, nv, &mv, included, pv_opts,
vs, first_idx, last_idx, class);
add_variables (v, nv, &mv, included, pv_opts,
vs, first_idx, last_idx, class);
- }
+ }
}
if (pv_opts & PV_SINGLE)
}
if (pv_opts & PV_SINGLE)
@@
-331,7
+338,7
@@
parse_var_set_vars (struct lexer *lexer, const struct var_set *vs,
}
while (lex_token (lexer) == T_ALL
|| (lex_token (lexer) == T_ID && var_set_lookup_var (vs, lex_tokid (lexer)) != NULL));
}
while (lex_token (lexer) == T_ALL
|| (lex_token (lexer) == T_ID && var_set_lookup_var (vs, lex_tokid (lexer)) != NULL));
-
+
if (*nv == 0)
goto fail;
if (*nv == 0)
goto fail;
@@
-398,8
+405,8
@@
parse_DATA_LIST_vars (struct lexer *lexer, char ***names, size_t *nnames, int pv
int d1, d2;
int n;
size_t nvar, mvar;
int d1, d2;
int n;
size_t nvar, mvar;
- char name1[
LONG_NAME_LEN + 1], name2[LONG
_NAME_LEN + 1];
- char root1[
LONG_NAME_LEN + 1], root2[LONG
_NAME_LEN + 1];
+ char name1[
VAR_NAME_LEN + 1], name2[VAR
_NAME_LEN + 1];
+ char root1[
VAR_NAME_LEN + 1], root2[VAR
_NAME_LEN + 1];
int success = 0;
assert (names != NULL);
int success = 0;
assert (names != NULL);
@@
-467,7
+474,7
@@
parse_DATA_LIST_vars (struct lexer *lexer, char ***names, size_t *nnames, int pv
for (n = n1; n <= n2; n++)
{
for (n = n1; n <= n2; n++)
{
- char name[
LONG
_NAME_LEN + 1];
+ char name[
VAR
_NAME_LEN + 1];
sprintf (name, "%s%0*d", root1, d1, n);
(*names)[nvar] = xstrdup (name);
nvar++;
sprintf (name, "%s%0*d", root1, d1, n);
(*names)[nvar] = xstrdup (name);
nvar++;
@@
-532,7
+539,7
@@
parse_DATA_LIST_vars_pool (struct lexer *lexer, struct pool *pool,
presumably already in the pool, which would attempt to
re-free it later. */
assert (!(pv_opts & PV_APPEND));
presumably already in the pool, which would attempt to
re-free it later. */
assert (!(pv_opts & PV_APPEND));
-
+
retval = parse_DATA_LIST_vars (lexer, names, nnames, pv_opts);
if (retval)
register_vars_pool (pool, *names, *nnames);
retval = parse_DATA_LIST_vars (lexer, names, nnames, pv_opts);
if (retval)
register_vars_pool (pool, *names, *nnames);
@@
-543,7
+550,7
@@
parse_DATA_LIST_vars_pool (struct lexer *lexer, struct pool *pool,
existing and the rest are to be created. Same args as
parse_DATA_LIST_vars(). */
bool
existing and the rest are to be created. Same args as
parse_DATA_LIST_vars(). */
bool
-parse_mixed_vars (struct lexer *lexer, const struct dictionary *dict,
+parse_mixed_vars (struct lexer *lexer, const struct dictionary *dict,
char ***names, size_t *nnames, int pv_opts)
{
size_t i;
char ***names, size_t *nnames, int pv_opts)
{
size_t i;
@@
-609,7
+616,7
@@
parse_mixed_vars_pool (struct lexer *lexer, const struct dictionary *dict, struc
}
\f
/* A set of variables. */
}
\f
/* A set of variables. */
-struct var_set
+struct var_set
{
size_t (*get_cnt) (const struct var_set *);
struct variable *(*get_var) (const struct var_set *, size_t idx);
{
size_t (*get_cnt) (const struct var_set *);
struct variable *(*get_var) (const struct var_set *, size_t idx);
@@
-620,7
+627,7
@@
struct var_set
/* Returns the number of variables in VS. */
size_t
/* Returns the number of variables in VS. */
size_t
-var_set_get_cnt (const struct var_set *vs)
+var_set_get_cnt (const struct var_set *vs)
{
assert (vs != NULL);
{
assert (vs != NULL);
@@
-629,8
+636,8
@@
var_set_get_cnt (const struct var_set *vs)
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
-struct variable *
-var_set_get_var (const struct var_set *vs, size_t idx)
+st
atic st
ruct variable *
+var_set_get_var (const struct var_set *vs, size_t idx)
{
assert (vs != NULL);
assert (idx < var_set_get_cnt (vs));
{
assert (vs != NULL);
assert (idx < var_set_get_cnt (vs));
@@
-641,7
+648,7
@@
var_set_get_var (const struct var_set *vs, size_t idx)
/* Returns the variable in VS named NAME, or a null pointer if VS
contains no variable with that name. */
struct variable *
/* Returns the variable in VS named NAME, or a null pointer if VS
contains no variable with that name. */
struct variable *
-var_set_lookup_var (const struct var_set *vs, const char *name)
+var_set_lookup_var (const struct var_set *vs, const char *name)
{
size_t idx;
return (var_set_lookup_var_idx (vs, name, &idx)
{
size_t idx;
return (var_set_lookup_var_idx (vs, name, &idx)
@@
-657,14
+664,14
@@
var_set_lookup_var_idx (const struct var_set *vs, const char *name,
{
assert (vs != NULL);
assert (name != NULL);
{
assert (vs != NULL);
assert (name != NULL);
- assert (strlen (name) <=
LONG
_NAME_LEN);
+ assert (strlen (name) <=
VAR
_NAME_LEN);
return vs->lookup_var_idx (vs, name, idx);
}
/* Destroys VS. */
void
return vs->lookup_var_idx (vs, name, idx);
}
/* Destroys VS. */
void
-var_set_destroy (struct var_set *vs)
+var_set_destroy (struct var_set *vs)
{
if (vs != NULL)
vs->destroy (vs);
{
if (vs != NULL)
vs->destroy (vs);
@@
-672,7
+679,7
@@
var_set_destroy (struct var_set *vs)
\f
/* Returns the number of variables in VS. */
static size_t
\f
/* Returns the number of variables in VS. */
static size_t
-dict_var_set_get_cnt (const struct var_set *vs)
+dict_var_set_get_cnt (const struct var_set *vs)
{
struct dictionary *d = vs->aux;
{
struct dictionary *d = vs->aux;
@@
-682,7
+689,7
@@
dict_var_set_get_cnt (const struct var_set *vs)
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
static struct variable *
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
static struct variable *
-dict_var_set_get_var (const struct var_set *vs, size_t idx)
+dict_var_set_get_var (const struct var_set *vs, size_t idx)
{
struct dictionary *d = vs->aux;
{
struct dictionary *d = vs->aux;
@@
-693,11
+700,11
@@
dict_var_set_get_var (const struct var_set *vs, size_t idx)
and returns true. Otherwise, returns false. */
static bool
dict_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
and returns true. Otherwise, returns false. */
static bool
dict_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
- size_t *idx)
+ size_t *idx)
{
struct dictionary *d = vs->aux;
struct variable *v = dict_lookup_var (d, name);
{
struct dictionary *d = vs->aux;
struct variable *v = dict_lookup_var (d, name);
- if (v != NULL)
+ if (v != NULL)
{
*idx = var_get_dict_index (v);
return true;
{
*idx = var_get_dict_index (v);
return true;
@@
-708,14
+715,14
@@
dict_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
/* Destroys VS. */
static void
/* Destroys VS. */
static void
-dict_var_set_destroy (struct var_set *vs)
+dict_var_set_destroy (struct var_set *vs)
{
free (vs);
}
/* Returns a variable set based on D. */
struct var_set *
{
free (vs);
}
/* Returns a variable set based on D. */
struct var_set *
-var_set_create_from_dict (const struct dictionary *d)
+var_set_create_from_dict (const struct dictionary *d)
{
struct var_set *vs = xmalloc (sizeof *vs);
vs->get_cnt = dict_var_set_get_cnt;
{
struct var_set *vs = xmalloc (sizeof *vs);
vs->get_cnt = dict_var_set_get_cnt;
@@
-727,7
+734,7
@@
var_set_create_from_dict (const struct dictionary *d)
}
\f
/* A variable set based on an array. */
}
\f
/* A variable set based on an array. */
-struct array_var_set
+struct array_var_set
{
struct variable *const *var;/* Array of variables. */
size_t var_cnt; /* Number of elements in var. */
{
struct variable *const *var;/* Array of variables. */
size_t var_cnt; /* Number of elements in var. */
@@
-736,7
+743,7
@@
struct array_var_set
/* Returns the number of variables in VS. */
static size_t
/* Returns the number of variables in VS. */
static size_t
-array_var_set_get_cnt (const struct var_set *vs)
+array_var_set_get_cnt (const struct var_set *vs)
{
struct array_var_set *avs = vs->aux;
{
struct array_var_set *avs = vs->aux;
@@
-746,7
+753,7
@@
array_var_set_get_cnt (const struct var_set *vs)
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
static struct variable *
/* Return variable with index IDX in VS.
IDX must be less than the number of variables in VS. */
static struct variable *
-array_var_set_get_var (const struct var_set *vs, size_t idx)
+array_var_set_get_var (const struct var_set *vs, size_t idx)
{
struct array_var_set *avs = vs->aux;
{
struct array_var_set *avs = vs->aux;
@@
-757,7
+764,7
@@
array_var_set_get_var (const struct var_set *vs, size_t idx)
and returns true. Otherwise, returns false. */
static bool
array_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
and returns true. Otherwise, returns false. */
static bool
array_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
- size_t *idx)
+ size_t *idx)
{
struct array_var_set *avs = vs->aux;
struct variable *v, *const *vpp;
{
struct array_var_set *avs = vs->aux;
struct variable *v, *const *vpp;
@@
-765,8
+772,8
@@
array_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
v = var_create (name, 0);
vpp = hsh_find (avs->name_tab, &v);
var_destroy (v);
v = var_create (name, 0);
vpp = hsh_find (avs->name_tab, &v);
var_destroy (v);
-
- if (vpp != NULL)
+
+ if (vpp != NULL)
{
*idx = vpp - avs->var;
return true;
{
*idx = vpp - avs->var;
return true;
@@
-777,7
+784,7
@@
array_var_set_lookup_var_idx (const struct var_set *vs, const char *name,
/* Destroys VS. */
static void
/* Destroys VS. */
static void
-array_var_set_destroy (struct var_set *vs)
+array_var_set_destroy (struct var_set *vs)
{
struct array_var_set *avs = vs->aux;
{
struct array_var_set *avs = vs->aux;
@@
-789,7
+796,7
@@
array_var_set_destroy (struct var_set *vs)
/* Returns a variable set based on the VAR_CNT variables in
VAR. */
struct var_set *
/* Returns a variable set based on the VAR_CNT variables in
VAR. */
struct var_set *
-var_set_create_from_array (struct variable *const *var, size_t var_cnt)
+var_set_create_from_array (struct variable *const *var, size_t var_cnt)
{
struct var_set *vs;
struct array_var_set *avs;
{
struct var_set *vs;
struct array_var_set *avs;
@@
-807,11
+814,12
@@
var_set_create_from_array (struct variable *const *var, size_t var_cnt)
compare_var_ptrs_by_name, hash_var_ptr_by_name,
NULL, NULL);
for (i = 0; i < var_cnt; i++)
compare_var_ptrs_by_name, hash_var_ptr_by_name,
NULL, NULL);
for (i = 0; i < var_cnt; i++)
- if (hsh_insert (avs->name_tab, (void *) &var[i]) != NULL)
+ if (hsh_insert (avs->name_tab, (void *) &var[i]) != NULL)
{
var_set_destroy (vs);
return NULL;
}
{
var_set_destroy (vs);
return NULL;
}
-
+
return vs;
}
return vs;
}
+