You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA. */
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA. */
#include <config.h>
#include "error.h"
}
for (cp2 = cp; cp2 < cp; cp2 += strlen (cp))
- if (!strcmp (cp2, tokid))
+ if (!strcasecmp (cp2, tokid))
{
msg (SE, _("Vector name %s is given twice."), tokid);
goto fail;
{
/* There's more than one vector name. */
msg (SE, _("A slash must be used to separate each vector "
- "specification when using the long form. Commands "
- "such as VECTOR A,B=Q1 TO Q20 are not supported."));
+ "specification when using the long form. Commands "
+ "such as VECTOR A,B=Q1 TO Q20 are not supported."));
goto fail;
}
if (!lex_force_match (')'))
goto fail;
- /* First check that all the generated variable names are SHORT_NAME_LEN
- characters or shorter. */
+ /* First check that all the generated variable names
+ are LONG_NAME_LEN characters or shorter. */
ndig = intlog10 (nv);
for (cp = vecnames; *cp;)
{
int len = strlen (cp);
- if (len + ndig > SHORT_NAME_LEN)
+ if (len + ndig > LONG_NAME_LEN)
{
msg (SE, _("%s%d is too long for a variable name."), cp, nv);
goto fail;
sprintf (name, "%s%d", cp, i + 1);
if (dict_lookup_var (default_dict, name))
{
- msg (SE, _("There is already a variable named %s."), name);
+ msg (SE, _("There is already a variable named %s."),
+ name);
goto fail;
}
}