65 |
int fc, lc; /* Column numbers in record. */ |
int fc, lc; /* Column numbers in record. */ |
66 |
|
|
67 |
/* Free format only. */ |
/* Free format only. */ |
68 |
char name[9]; /* Name of variable. */ |
char name[SHORT_NAME_LEN + 1]; /* Name of variable. */ |
69 |
}; |
}; |
70 |
|
|
71 |
/* Constants for DATA LIST type. */ |
/* Constants for DATA LIST type. */ |
841 |
|
|
842 |
if (!parse_DATA_LIST_vars (&name, &name_cnt, PV_NONE)) |
if (!parse_DATA_LIST_vars (&name, &name_cnt, PV_NONE)) |
843 |
return 0; |
return 0; |
844 |
|
|
845 |
if (lex_match ('(')) |
if (lex_match ('(')) |
846 |
{ |
{ |
847 |
if (!parse_format_specifier (&input, 0) |
if (!parse_format_specifier (&input, 0) |
874 |
struct variable *v; |
struct variable *v; |
875 |
|
|
876 |
v = dict_create_var (default_dict, name[i], width); |
v = dict_create_var (default_dict, name[i], width); |
877 |
|
|
878 |
if (!v) |
if (!v) |
879 |
{ |
{ |
880 |
msg (SE, _("%s is a duplicate variable name."), name[i]); |
msg (SE, _("%s is a duplicate variable name."), name[i]); |
889 |
spec->input = input; |
spec->input = input; |
890 |
spec->v = v; |
spec->v = v; |
891 |
spec->fv = v->fv; |
spec->fv = v->fv; |
892 |
strcpy (spec->name, name[i]); |
strcpy (spec->name, v->name); |
893 |
append_var_spec (first, last, spec); |
append_var_spec (first, last, spec); |
894 |
} |
} |
895 |
for (i = 0; i < name_cnt; i++) |
for (i = 0; i < name_cnt; i++) |