/[pspp]/pspp/src/data-list.c
ViewVC logotype

Diff of /pspp/src/data-list.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by blp, Mon Mar 14 06:54:40 2005 UTC revision 1.30 by jmd, Wed Apr 13 10:09:59 2005 UTC
# Line 65  struct dls_var_spec Line 65  struct dls_var_spec
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. */
# Line 841  parse_free (struct dls_var_spec **first, Line 841  parse_free (struct dls_var_spec **first,
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)
# Line 873  parse_free (struct dls_var_spec **first, Line 874  parse_free (struct dls_var_spec **first,
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]);
# Line 887  parse_free (struct dls_var_spec **first, Line 889  parse_free (struct dls_var_spec **first,
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++)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26