static void
create_col_var (struct col_spec *c)
{
- int type;
int width;
- type = (formats[c->fmt].cat & FCAT_STRING) ? ALPHA : NUMERIC;
- if (type == ALPHA)
+ if (formats[c->fmt].cat & FCAT_STRING)
width = c->nc;
else
width = 0;
- c->v = force_create_variable (&default_dict, c->name, type, width);
+ c->v = dict_create_var (default_dict, c->name, width);
}
/* Parses variable, column, type specifications for a variable. */
rct.ft = n_trns;
if (fty.case_sbc.name[0])
rct.case_sbc = fty.case_sbc;
-#if __CHECKER__
- else
- memset (&rct.case_sbc, 0, sizeof rct.case_sbc);
- rct.lt = -1;
-#endif
/* Make sure we're inside a FILE TYPE structure. */
if (pgm_state != STATE_INPUT || vfm_source != &file_type_source)
/* Reads any number of cases into temp_case and calls write_case() for
each one. Compare data-list.c:read_from_data_list. */
static void
-file_type_source_read (void)
+file_type_source_read (write_case_func *write_case UNUSED,
+ write_case_data wc_data UNUSED)
{
char *line;
int len;