temp_trns = temporary = 0;
vfm_sink = &flip_stream;
new_names_tail = NULL;
- procedure (NULL, NULL, NULL);
+ procedure (NULL, NULL, NULL, NULL);
dict_clear (default_dict);
if (!build_dictionary ())
static int
build_dictionary (void)
{
- if (!dict_create_var (default_dict, "CASE_LBL", 8))
- assert (0);
+ dict_create_var_assert (default_dict, "CASE_LBL", 8);
if (!new_names_tail)
{
char s[9];
sprintf (s, "VAR%03d", i);
- v = dict_create_var (default_dict, s, 0);
- assert (v != NULL);
+ v = dict_create_var_assert (default_dict, s, 0);
}
}
else
/* Reads the FLIP stream and passes it to write_case(). */
static void
-flip_stream_read (void)
+flip_stream_read (write_case_func *write_case, write_case_data wc_data)
{
if (src || (src == NULL && src_file == NULL))
{
for (iter = src, j = 1; iter; iter = iter->next, j++)
temp_case->data[j].f = iter->v[i];
- if (!write_case ())
+ if (!write_case (wc_data))
return;
}
}
msg (FE, _("Error reading FLIP source file: %s."),
strerror (errno));
- if (!write_case ())
+ if (!write_case (wc_data))
return;
}
}