{
if ( var_is_numeric (var))
{
- if ( var_is_value_missing (var, val, MV_SYSTEM))
+ if (var_is_value_missing (var, val) == MV_SYSTEM)
return newSVpvn ("", 0);
return newSVnv (val->f);
else
{
int width = var_get_width (var);
- return newSVpvn (val->s, width);
+ return newSVpvn ((char *) val->s, width);
}
}
assert (0 == strncmp (ver, bare_version, strlen (ver)));
i18n_init ();
- msg_set_handler (message_handler, NULL);
+const struct msg_handler mh = { .output_msg = message_handler };
+ msg_set_handler (&mh);
settings_init ();
fh_init ();
union value uv;
int ret;
make_value_from_scalar (&uv, val, var);
- ret = var_is_value_missing (var, &uv, MV_ANY);
+ ret = var_is_value_missing (var, &uv) != 0;
value_destroy (&uv, var_get_width (var));
RETVAL = ret;
OUTPUT:
struct sysreader_info *sfr;
CODE:
SV *ret;
- casenumber n = casereader_get_case_cnt (sfr->reader);
+ casenumber n = casereader_get_n_cases (sfr->reader);
if (n == CASENUMBER_MAX)
ret = &PL_sv_undef;
else