/* PSPP - computes sample statistics.
- Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+ Copyright (C) 2007, 2008, 2009 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
#include <gl/xalloc.h>
#include <data/dictionary.h>
#include <data/case.h>
+#include <data/casereader.h>
#include <data/variable.h>
+#include <data/attributes.h>
#include <data/file-handle-def.h>
#include <data/sys-file-writer.h>
#include <data/sys-file-reader.h>
RETVAL = ret;
OUTPUT:
RETVAL
-
+
int
value_is_missing (val, var)
OUTPUT:
RETVAL
+
+struct variable *
+pxs_get_var_by_name (dict, name)
+ struct dictionary *dict
+ const char *name
+INIT:
+ SV *errstr = get_sv("PSPP::errstr", TRUE);
+ sv_setpv (errstr, "");
+CODE:
+ struct variable *var = dict_lookup_var (dict, name);
+ if ( ! var )
+ sv_setpv (errstr, "No such variable.");
+ RETVAL = var;
+ OUTPUT:
+RETVAL
+
+
MODULE = PSPP PACKAGE = PSPP::Var
XSRETURN_IV (1);
+SV *
+get_attributes (var)
+ struct variable *var
+CODE:
+ HV *attrhash = (HV *) sv_2mortal ((SV *) newHV());
+
+ struct attrset *as = var_get_attributes (var);
+
+ if ( as )
+ {
+ struct attrset_iterator iter;
+ struct attribute *attr;
+
+ for (attr = attrset_first (as, &iter);
+ attr;
+ attr = attrset_next (as, &iter))
+ {
+ int i;
+ const char *name = attribute_get_name (attr);
+
+ AV *values = newAV ();
+
+ for (i = 0 ; i < attribute_get_n_values (attr); ++i )
+ {
+ const char *value = attribute_get_value (attr, i);
+ av_push (values, newSVpv (value, 0));
+ }
+
+ hv_store (attrhash, name, strlen (name),
+ newRV_noinc ((SV*) values), 0);
+ }
+ }
+
+ RETVAL = newRV ((SV *) attrhash);
+ OUTPUT:
+RETVAL
+
const char *
get_name (var)
const struct variable **vv;
size_t nv;
- struct ccase c;
+ struct ccase *c;
SV *sv;
if ( av_len (av_case) >= dict_get_var_cnt (sfi->dict))
XSRETURN_UNDEF;
- case_create (&c, dict_get_next_value_idx (sfi->dict));
+ c = case_create (dict_get_next_value_idx (sfi->dict));
dict_get_vars (sfi->dict, &vv, &nv, 1u << DC_ORDINARY | 1u << DC_SYSTEM);
{
struct substring ss = ss_cstr (SvPV_nolen (sv));
if ( ! data_in (ss, LEGACY_NATIVE, ifmt->type, 0, 0, 0,
- case_data_rw (&c, v),
+ case_data_rw (c, v),
var_get_width (v)) )
{
RETVAL = 0;
}
else
{
- scalar_to_value (case_data_rw (&c, v), sv, v);
+ scalar_to_value (case_data_rw (c, v), sv, v);
}
}
while (i < dict_get_var_cnt (sfi->dict))
{
const struct variable *v = vv[i++];
- union value *val = case_data_rw (&c, v);
+ union value *val = case_data_rw (c, v);
if ( var_is_numeric (v))
val->f = SYSMIS;
else
memset (val->s, ' ', var_get_width (v));
}
- RETVAL = casewriter_write (sfi->writer, &c);
+ RETVAL = casewriter_write (sfi->writer, c);
finish:
-// Case_destroy (&c);
free (vv);
OUTPUT:
RETVAL
get_next_case (sfr)
struct sysreader_info *sfr;
CODE:
- struct ccase c;
+ struct ccase *c;
- if (! casereader_read (sfr->reader, &c))
+ if (! (c = casereader_read (sfr->reader)))
{
RETVAL = 0;
}
for (v = 0; v < dict_get_var_cnt (sfr->dict); ++v )
{
const struct variable *var = dict_get_var (sfr->dict, v);
- const union value *val = case_data (&c, var);
+ const union value *val = case_data (c, var);
av_push (av_case, value_to_scalar (val, var));
}
- case_destroy (&c);
+ case_unref (c);
RETVAL = newRV ((SV *) av_case);
}
OUTPUT: