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; |
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; |