projects
/
pspp
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5bf7632
)
perl-module: Fix to build with recent changes.
author
Ben Pfaff
<blp@cs.stanford.edu>
Thu, 7 Jan 2021 06:16:46 +0000
(22:16 -0800)
committer
Ben Pfaff
<blp@cs.stanford.edu>
Thu, 7 Jan 2021 06:16:46 +0000
(22:16 -0800)
perl-module/PSPP.xs
patch
|
blob
|
history
diff --git
a/perl-module/PSPP.xs
b/perl-module/PSPP.xs
index 923a472a8434fa0a802b2d51f13778806ce8b04f..46e9ba132d094fe446444d1ba4a047793cce0881 100644
(file)
--- a/
perl-module/PSPP.xs
+++ b/
perl-module/PSPP.xs
@@
-222,7
+222,7
@@
CODE:
union value uv;
char *s;
make_value_from_scalar (&uv, val, var);
union value uv;
char *s;
make_value_from_scalar (&uv, val, var);
- s = data_out (&uv, var_get_encoding (var), fmt);
+ s = data_out (&uv, var_get_encoding (var), fmt
, settings_get_fmt_settings ()
);
value_destroy (&uv, var_get_width (var));
ret = newSVpv (s, fmt->w);
free (s);
value_destroy (&uv, var_get_width (var));
ret = newSVpv (s, fmt->w);
free (s);
@@
-377,7
+377,7
@@
CODE:
struct input_format *input_format;
struct variable *v;
struct input_format *input_format;
struct variable *v;
- op_fmt = fmt_for_output_from_input (&ip_fmt);
+ op_fmt = fmt_for_output_from_input (&ip_fmt
, settings_get_fmt_settings ()
);
v = dict_create_var (dict->dict, name,
fmt_is_string (op_fmt.type) ? op_fmt.w : 0);
if ( NULL == v )
v = dict_create_var (dict->dict, name,
fmt_is_string (op_fmt.type) ? op_fmt.w : 0);
if ( NULL == v )
@@
-709,6
+709,7
@@
CODE:
char *error = data_in (ss,
SvUTF8(sv) ? UTF8: "iso-8859-1",
ifmt->type,
char *error = data_in (ss,
SvUTF8(sv) ? UTF8: "iso-8859-1",
ifmt->type,
+ settings_get_fmt_settings (),
case_data_rw (c, v),
var_get_width (v),
dict_get_encoding (swi->dict->dict));
case_data_rw (c, v),
var_get_width (v),
dict_get_encoding (swi->dict->dict));