This module had sysfile_info and sysreader_info. The former was a writer,
the latter a reader. I found the asymmetric names a little confusing, so
this commit renames them more consistently.
/* PSPP - computes sample statistics.
/* PSPP - computes sample statistics.
- Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+ Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013 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
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
/* A thin wrapper around sfm_writer */
/* A thin wrapper around sfm_writer */
-sysfile_close (struct sysfile_info *sfi)
+sysfile_close (struct syswriter_info *swi)
- retval = casewriter_destroy (sfi->writer);
+ retval = casewriter_destroy (swi->writer);
MODULE = PSPP PACKAGE = PSPP::Sysfile
MODULE = PSPP PACKAGE = PSPP::Sysfile
pxs_create_sysfile (name, dict, opts_hr)
char *name
struct dictionary *dict;
pxs_create_sysfile (name, dict, opts_hr)
char *name
struct dictionary *dict;
CODE:
struct file_handle *fh =
fh_create_file (NULL, name, fh_default_properties () );
CODE:
struct file_handle *fh =
fh_create_file (NULL, name, fh_default_properties () );
- struct sysfile_info *sfi = xmalloc (sizeof (*sfi));
- sfi->writer = sfm_open_writer (fh, dict, opts);
- sfi->dict = dict;
- sfi->opened = true;
- sfi->dict_sv = dict_sv;
- SvREFCNT_inc (sfi->dict_sv);
+ struct syswriter_info *swi = xmalloc (sizeof (*swi));
+ swi->writer = sfm_open_writer (fh, dict, opts);
+ swi->dict = dict;
+ swi->opened = true;
+ swi->dict_sv = dict_sv;
+ SvREFCNT_inc (swi->dict_sv);
-close (sfi)
- struct sysfile_info *sfi
+close (swi)
+ struct syswriter_info *swi
- RETVAL = sysfile_close (sfi);
+ RETVAL = sysfile_close (swi);
-DESTROY (sfi)
- struct sysfile_info *sfi
+DESTROY (swi)
+ struct syswriter_info *swi
- sysfile_close (sfi);
- SvREFCNT_dec (sfi->dict_sv);
- free (sfi);
+ sysfile_close (swi);
+ SvREFCNT_dec (swi->dict_sv);
+ free (swi);
-append_case (sfi, ccase)
- struct sysfile_info *sfi
+append_case (swi, ccase)
+ struct syswriter_info *swi
SV *ccase
INIT:
SV *errstr = get_sv("PSPP::errstr", TRUE);
SV *ccase
INIT:
SV *errstr = get_sv("PSPP::errstr", TRUE);
- if ( av_len (av_case) >= dict_get_var_cnt (sfi->dict))
+ if ( av_len (av_case) >= dict_get_var_cnt (swi->dict))
- c = case_create (dict_get_proto (sfi->dict));
+ c = case_create (dict_get_proto (swi->dict));
- dict_get_vars (sfi->dict, &vv, &nv, 1u << DC_ORDINARY | 1u << DC_SYSTEM);
+ dict_get_vars (swi->dict, &vv, &nv, 1u << DC_ORDINARY | 1u << DC_SYSTEM);
for (sv = av_shift (av_case); SvOK (sv); sv = av_shift (av_case))
{
for (sv = av_shift (av_case); SvOK (sv); sv = av_shift (av_case))
{
error = data_in (ss, SvUTF8(sv) ? UTF8: "iso-8859-1", ifmt->type,
case_data_rw (c, v), var_get_width (v),
error = data_in (ss, SvUTF8(sv) ? UTF8: "iso-8859-1", ifmt->type,
case_data_rw (c, v), var_get_width (v),
- dict_get_encoding (sfi->dict));
+ dict_get_encoding (swi->dict));
ok = error == NULL;
free (error);
ok = error == NULL;
free (error);
}
/* The remaining variables must be sysmis or blank string */
}
/* The remaining variables must be sysmis or blank string */
- while (i < dict_get_var_cnt (sfi->dict))
+ while (i < dict_get_var_cnt (swi->dict))
{
const struct variable *v = vv[i++];
union value *val = case_data_rw (c, v);
value_set_missing (val, var_get_width (v));
}
{
const struct variable *v = vv[i++];
union value *val = case_data_rw (c, v);
value_set_missing (val, var_get_width (v));
}
- casewriter_write (sfi->writer, c);
+ casewriter_write (swi->writer, c);
RETVAL = 1;
finish:
free (vv);
RETVAL = 1;
finish:
free (vv);
TYPEMAP
struct dictionary * T_PTRREF
struct variable * T_PTRREF
TYPEMAP
struct dictionary * T_PTRREF
struct variable * T_PTRREF
- struct sysfile_info * T_PTRREF
+ struct syswriter_info * T_PTRREF
struct sysreader_info * T_PTRREF
input_format INPUT_FMT_SPEC
output_format OUTPUT_FMT_SPEC
struct sysreader_info * T_PTRREF
input_format INPUT_FMT_SPEC
output_format OUTPUT_FMT_SPEC