/* 0=print no table, 1=print table. (TABLE subcommand.) */
int table = -1;
- lex_match_id ("DATA");
- lex_match_id ("LIST");
-
if (!case_source_is_complex (vfm_source))
discard_variables ();
dump_free_table (dls);
}
+ if (!dfm_open_for_reading (dls->handle))
+ goto error;
+
if (vfm_source != NULL)
{
struct data_list_pgm *new_pgm;
fmt_to_string (&spec->input));
}
- filename = fh_handle_name (handle);
+ filename = handle_get_filename (handle);
if (filename == NULL)
filename = "";
buf = local_alloc (strlen (filename) + INT_DIGITS + 80);
tab_title (t, 0, buf);
tab_submit (t);
- fh_handle_name (NULL);
local_free (buf);
}
\f
{
const char *filename;
- filename = fh_handle_name (dls->handle);
+ filename = handle_get_filename (dls->handle);
if (filename == NULL)
filename = "";
tab_title (t, 1,
}
tab_submit (t);
- fh_handle_name (NULL);
}
\f
/* Input procedure. */
/* Bits are set when a particular subcommand has been seen. */
unsigned seen = 0;
- lex_match_id ("REPEATING");
- lex_match_id ("DATA");
-
assert (case_source_is_complex (vfm_source));
rpd = xmalloc (sizeof *rpd);
/* Calculate starts_end, cont_end if necessary. */
if (rpd->starts_end.num == 0 && rpd->starts_end.var == NULL)
- rpd->starts_end.num = fh_record_width (rpd->handle);
+ rpd->starts_end.num = handle_get_record_width (rpd->handle);
if (rpd->cont_end.num == 0 && rpd->starts_end.var == NULL)
- rpd->cont_end.num = fh_record_width (rpd->handle);
+ rpd->cont_end.num = handle_get_record_width (rpd->handle);
/* Calculate length if possible. */
if ((seen & 4) == 0)