/[pspp]/pspp/src/vector.c
ViewVC logotype

Diff of /pspp/src/vector.c

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

revision 1.6 by blp, Mon Nov 15 09:51:22 2004 UTC revision 1.7 by jmd, Wed Apr 13 10:09:59 2005 UTC
# Line 113  cmd_vector (void) Line 113  cmd_vector (void)
113            int ndig;            int ndig;
114    
115            /* Name of an individual variable to be created. */            /* Name of an individual variable to be created. */
116            char name[9];            char name[SHORT_NAME_LEN + 1];
117    
118            /* Vector variables. */            /* Vector variables. */
119            struct variable **v;            struct variable **v;
# Line 131  cmd_vector (void) Line 131  cmd_vector (void)
131            if (!lex_force_match (')'))            if (!lex_force_match (')'))
132              goto fail;              goto fail;
133    
134            /* First check that all the generated variable names are 8            /* First check that all the generated variable names are SHORT_NAME_LEN
135               characters or shorter. */               characters or shorter. */
136            ndig = intlog10 (nv);            ndig = intlog10 (nv);
137            for (cp = vecnames; *cp;)            for (cp = vecnames; *cp;)
138              {              {
139                int len = strlen (cp);                int len = strlen (cp);
140                if (len + ndig > 8)                if (len + ndig > SHORT_NAME_LEN)
141                  {                  {
142                    msg (SE, _("%s%d is too long for a variable name."), cp, nv);                    msg (SE, _("%s%d is too long for a variable name."), cp, nv);
143                    goto fail;                    goto fail;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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