#include <assert.h>
#include <stdlib.h>
#include "alloc.h"
-#include "approx.h"
#include "command.h"
#include "data-in.h"
#include "dfm.h"
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. */
/* 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;
if (iter->flags & RCT_OTHER)
goto found;
for (i = 0; i < iter->nv; i++)
- if (approx_eq (iter->v[i].f, v.f))
+ if (iter->v[i].f == v.f)
goto found;
}
if (fty.wild)