/* A pointer to the dictionary. Owned externally */
const struct dictionary *dict;
+
+ /* The scalar containing the dictionary */
+ SV *dict_sv;
};
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
struct sysfile_info *
-pxs_create_sysfile (name, dict, opts_hr)
+pxs_create_sysfile (name, dict_ref, opts_hr)
char *name
- struct dictionary *dict
+ SV *dict_ref
SV *opts_hr
INIT:
+ SV *dict_sv = SvRV (dict_ref);
+ struct dictionary *dict = (void *) SvIV (dict_sv);
struct sfm_write_options opts;
if (!SvROK (opts_hr))
{
sfi->writer = sfm_open_writer (fh, dict, opts);
sfi->dict = dict;
sfi->opened = true;
+ sfi->dict_sv = dict_sv;
+ SvREFCNT_inc (sfi->dict_sv);
RETVAL = sfi;
OUTPUT:
struct sysfile_info *sfi
CODE:
sysfile_close (sfi);
+ SvREFCNT_dec (sfi->dict_sv);
free (sfi);
int
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: